ADO, Access, SQL, Магазин

@Shura_deg · Регистрация: 01.02.2015

Студворк — интернет-сервис помощи студентам

Уважаемые форумчане помогите пожалуйста придумать красивое оформление для базы данных
И какие запросы SQL будут актуальны для данной базы
Может быть кто-то сталкивался с такой проблемой...
Сама база имеет 3 таблицы

@Shura_deg · 19.10.2015, 11:16 **[ТС]**

да сори что сразу не сказал...
база в Access
формат даты - кароткий формат поля 21.05.2015
работающий для моей базы SQL запрос 100%

SQL
1
2
3
SELECT *
FROM Zakazi
WHERE ДатаЗаказа=#22/02/2015#;

@qwertehok · 19.10.2015, 11:25

ну не знаю сделай так

Delphi
1
'select *from [] where date=#'+dayof()+'/'+monthof()+'/'+yearof()+'#;'

в скобках свою дату

@Алекcей · 19.10.2015, 11:39

чтобы не было проблем с датами и прочим - нужно использовать параметры.

Delphi
1
2
3
4
5
6
with Query1 do begin
  Close;
  SQL.Text:='SELECT * FROM имя таблицы(таблиц) WHERE DATA=:DATA;';
  Parameters[0].Value:=значение параметра(с типом дата);
  Open;
end;

@Shura_deg · 19.10.2015, 11:42 **[ТС]**

возможно будет работать ща проверю только вот нужно чтобы данные брались из какого-нибудь компонента
типа edit или DateTimePicker1 или ещё как-нибудь..!

Добавлено через 48 секунд
а в вашем случае придётся вручную вводит, метод конечно хороший но мне не совсем подходит

@Алекcей · 19.10.2015, 11:43

не понял чем не подходит мой способ, кто мешает значение параметра брать из переменной? или из edit1:

Delphi
1
Parameters[0].Value:=StrToDate(Edit1.Text);

@Shura_deg · 19.10.2015, 13:59 **[ТС]**

Сообщение от Алекcей

Parameters[0].Value:=StrToDate(Edit1.Text);

можно поподробнее об этом способе!
и разве можно Edit1.text преобразовывать в дату??? много где писали что нельзя
а что именно подразумеваеться под Parameters[0]
что вместо этого нужно писать?

@Алекcей · 19.10.2015, 14:11

можно посмотреть где написано что нельзя преобразовывать string в TDate? Конечно, правильнее использовать TDateTimePicker или на худой конец проверять можно ли преобразовать текст из TEdit в дату (TryStrToDate(Edit1.Text,dat)). насчет Parameters[0] не понял, что значит что писать?

@qwertehok · 19.10.2015, 14:30

Parameters это массив параметров которые вы передаете в запрос
[0] - это номер параметра, так как нумерация с нуля

@Shura_deg · 19.10.2015, 15:17 **[ТС]**

как именно задать этот запрос????
при вводе такого кода

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TfMain.Edit1Change(Sender: TObject);
begin
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
 fDM.ADOQuery1.Close; // закрыть файл-результат выполнения предыдущего запроса
 fDM.ADOQuery1.SQL.Clear; // удалить текст предыдущего запроса
 // записываем новый запрос в свойство SQL
 Parameters[0].Value:=StrToDate(Edit1.Text);
 fDM.ADOQuery1.SQL.Text:='select * from Zakazi where ДатаЗаказа  = '+Parameters[0];
 fDM.ADOQuery1.Open; // активизируем выполнение запроса
 DBGrid1.DataSource:=fDM.DSQuery1;
end else
 DBGrid1.DataSource:=fDM.DSZakaziData;
end;

выскакивает ошибка!
Undeclared identifier: 'Parameters'

@Алекcей · 19.10.2015, 15:37

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TfMain.Edit1Change(Sender: TObject);
var d: TDateTime;
begin
 if (Edit1.Text <> '') and (TryStrToDateTime(Edit1.Text, d)) // пользователь ввел инф
 then begin
  with fDM.ADOQuery1 do begin
    Close; // закрыть файл-результат выполнения предыдущего запроса
    SQL.Text:='select * from Zakazi where ДатаЗаказа  = :DATA'; // удалить текст предыдущего запроса
    Parameters[0].Value:=StrToDate(Edit1.Text);
    Open; // активизируем выполнение запроса
    DBGrid1.DataSource:=fDM.DSQuery1;
end else
 DBGrid1.DataSource:=fDM.DSZakaziData;
end;

@Shura_deg · 26.10.2015, 00:00 **[ТС]**

пытаюсь сделать поиск в зависимости от кнопки на radiobutton
вот код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Edit1Change(Sender: TObject);
var
 strField:string;
begin
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
  DBGrid1.DataSource:=fDM.DSQuery1;
   // вывести таблицу
  fDM.ADOQuery1.Close;
  fDM.ADOQuery1.SQL.Clear;
  fDM.ADOQuery1.SQL.Add('Select * from TovarMain');
  fDM.ADOQuery1.Open;
  // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Модель';
  1: strField:='Бренд';
  2: strField:='Вид';
  3: strField:='Тип';
  4: strField:='Стоимость';
 end;
 // выполнить поиск
 fDM.ADOQuery1.Close;
 fDM.ADOQuery1.SQL.Clear;
 fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+'=' +Edit1.Text);
 fDM.ADOQuery1.Open;
 end;end;

Добавлено через 51 секунду
пишет параметр не имеет значения по умолчанию

@qwertehok · 26.10.2015, 09:15

Shura_deg,может так?

Delphi
1
fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+'='''' +Edit1.Text+''');

поиск лучше делать через LIKE

@Shura_deg · 26.10.2015, 11:22 **[ТС]**

да, через LIKE действительно лучше, вот код для like может быть кому то нужен будет

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure TForm1.Edit1Change(Sender: TObject);
var
 strField:string;
begin //start
 if not CheckBox1.Checked then Exit;
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
 // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Model';
  1: strField:='Brend';
  2: strField:='Vid';
  3: strField:='Tip';
  4: strField:='Ctoimost';
 end;
 // выполнить поиск
 fDM.ADOQuery1.Close;                              // |
 fDM.ADOQuery1.SQL.Clear;                 //  ' LIKE "%'+Edit1.Text+'%"' - ищет фрагмент текста
 fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+' LIKE "'+Edit1.Text+'%"');
 fDM.ADOQuery1.Open;
 fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
 fDM.ADOQuery1.FieldByName('Tip').DisplayWidth:=20;
 fDM.ADOQuery1.FieldByName('Vid').DisplayWidth:=20;
 DBGrid1.DataSource:=fDM.DSQuery1;
 end else begin
   // вывести таблицу
  fDM.ADOQuery1.Close;
  fDM.ADOQuery1.SQL.Clear;
  fDM.ADOQuery1.SQL.Add('Select * from TovarMain');
  fDM.ADOQuery1.Open;
  fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
  fDM.ADOQuery1.FieldByName('Tip').DisplayWidth:=20;
  fDM.ADOQuery1.FieldByName('Vid').DisplayWidth:=20;
  DBGrid1.DataSource:=fDM.DSQuery1;
 end;
 
end; //end

@qwertehok · 26.10.2015, 11:28

Сообщение от Shura_deg

fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+' LIKE "'+Edit1.Text+'%"');

второй % вижу, а где первый?

ЗЫ аццкая смесь DBGrid и SQL. Используйте уже Stringgrid. Он лучше. Честно.

@Shura_deg · 26.10.2015, 21:18 **[ТС]**

Сообщение от qwertehok

второй % вижу, а где первый?

всм зачем 2?

Сообщение от qwertehok

Используйте уже Stringgrid. Он лучше. Честно.

не сомневаюсь, но у меня задача через dbgrid.....

@qwertehok · 26.10.2015, 21:27

вы сами пишите два %

Сообщение от Shura_deg

// *' LIKE "%'+Edit1.Text+'%"' - ищет фрагмент текста

процент это случайные символы, аналог *

@Shura_deg · 28.10.2015, 19:43 **[ТС]**

Связь ADOTabel, ADOConnection, DataSourse
сделал процедуру для ComboBox

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
DBGrid1.DataSource := fDM.DSTovarMainData;
if ComboBox1.ItemIndex = 1 then
DBGrid1.DataSource := fDM.DSPokupatelData;
if ComboBox1.ItemIndex = 2 then
DBGrid1.DataSource := fDM.DSotchetData;
if ComboBox1.ItemIndex = 3 then
DBGrid1.DataSource := fDM.DSckladData;
end;

Меняются данные для DBGRID1 (сверху таблица на картинке)

Когда при помощи процедуры procedure TForm1.ComboBox1Change я меняю данные для таблицы, в таблице почему то выводится только одна строчка хотя в базе данных в Access их несколько минимум по 3
ВОПРОС:
Как сделать что бы выводились все данные таблицы и была связь с таблицей DBGrid
(связь настраивал ADOTable MasterFaeld, MasterSourse)
вот примеры данного недуга!

ХОТЬ ПРИМЕРНО ПОДСКАЖИТЕ КУДА СМОТРЕТЬ!

@qwertehok · 28.10.2015, 22:34

рестарт ADOConnection помогает?

@Shura_deg · 28.10.2015, 23:02 **[ТС]**

Сообщение от qwertehok

рестарт ADOConnection помогает?

неа

Добавлено через 9 минут
решил проблему путём

Delphi
1
fDM.TPokupatelData.MasterFields:='';

Новые блоги и статьи Все статьи Все блоги /
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .

@Shura_deg 83 / 19 / 5 Регистрация: 01.02.2015 Сообщений: 655

	ADO, Access, SQL, Магазин 18.10.2015, 00:46. Показов 2420. Ответов 38 Метки нет (Все метки) Уважаемые форумчане помогите пожалуйста придумать красивое оформление для базы данных И какие запросы SQL будут актуальны для данной базы Может быть кто-то сталкивался с такой проблемой... Сама база имеет 3 таблицы 0

@Shura_deg 83 / 19 / 5 Регистрация: 01.02.2015 Сообщений: 655
	19.10.2015, 11:42 [ТС]
	возможно будет работать ща проверю только вот нужно чтобы данные брались из какого-нибудь компонента типа edit или DateTimePicker1 или ещё как-нибудь..! Добавлено через 48 секунд а в вашем случае придётся вручную вводит, метод конечно хороший но мне не совсем подходит 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	19.10.2015, 14:11
	можно посмотреть где написано что нельзя преобразовывать string в TDate? Конечно, правильнее использовать TDateTimePicker или на худой конец проверять можно ли преобразовать текст из TEdit в дату (TryStrToDate(Edit1.Text,dat)). насчет Parameters[0] не понял, что значит что писать? 1

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,207 Записей в блоге: 3
	19.10.2015, 14:30
	Parameters это массив параметров которые вы передаете в запрос [0] - это номер параметра, так как нумерация с нуля 1

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,207 Записей в блоге: 3
	28.10.2015, 22:34
	рестарт ADOConnection помогает? 0