Несколько ADOQuery в один DataSource

@Temoxa · Регистрация: 19.03.2010

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

Есть 2 запроса ADOQuery, есть DBGird и DataSource. При событии на форме Show передаю на форму 2 параметра, заполняю DBGrid столбцами и запускаю запрос.. 1 раз при Show выдает данные из бд, а если 2 раз открываешь то только столбцы, данных нет!(( Вот код

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
procedure TFormShow.FormShow(Sender: TObject);
var
  s: string;
begin
  if formCalendar.typeEvent = 1 then
    begin
     s := 'Ïðàçäíèêè';
     DataSource1.DataSet :=  ADOQuery1;
     ADOQuery1.Active := false;
     DBGrid1.Columns.Clear;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[0].FieldName := ADOQuery1Caption.FieldName;
     DBGrid1.Columns[0].Title.Caption := 'Çàãîëîâîê';
     DBGrid1.Columns[0].Width := 109;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[1].FieldName := ADOQuery1Text.FieldName;
     DBGrid1.Columns[1].Title.Caption := 'Îïèñàíèå';
     DBGrid1.Columns[1].Width := 169;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[2].FieldName := ADOQuery1SoundDate.FieldName;
     DBGrid1.Columns[2].Title.Caption := 'Äàòà ñèãíàëà';
     DBGrid1.Columns[2].Width := 75;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[3].FieldName := ADOQuery1SoundTime.FieldName;
     DBGrid1.Columns[3].Title.Caption := 'Âðåìÿ ñèãíàëà';
     DBGrid1.Columns[3].Width := 85;
 
     ADOQuery1.Parameters[0].Value := FormRegistration.UserID;
     ADOQuery1.Parameters[1].Value := FormCalendar.Date;
     ADOQuery1.Active := true;
    end;
  if formCalendar.typeEvent = 2 then
    begin
     s := 'Âñòðå÷è';
     ADOQuery2.Active := false;
     DataSource1.DataSet :=  ADOQuery2;
     DBGrid1.Columns.Clear;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[0].FieldName := ADOQuery2Caption.FieldName;
     DBGrid1.Columns[0].Title.Caption := 'Çàãîëîâîê';
     DBGrid1.Columns[0].Width := 109;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[1].FieldName := ADOQuery2Text.FieldName;
     DBGrid1.Columns[1].Title.Caption := 'Îïèñàíèå';
     DBGrid1.Columns[1].Width := 169;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[2].FieldName := ADOQuery2StartTime.FieldName;
     DBGrid1.Columns[2].Title.Caption := 'Âðåìÿ íà÷àëà';
     DBGrid1.Columns[2].Width := 75;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[3].FieldName := ADOQuery2FinishTime.FieldName;
     DBGrid1.Columns[3].Title.Caption := 'Âðåìÿ îêîí÷àíèÿ';
     DBGrid1.Columns[3].Width := 75;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[4].FieldName := ADOQuery2SoundDate.FieldName;
     DBGrid1.Columns[4].Title.Caption := 'Äàòà ñèãíàëà';
     DBGrid1.Columns[4].Width := 75;
     DBGrid1.Columns.Add;
     DBGrid1.Columns[5].FieldName := ADOQuery2SoundTime.FieldName;
     DBGrid1.Columns[5].Title.Caption := 'Âðåìÿ ñèãíàëà';
     DBGrid1.Columns[5].Width := 75;
     ADOQuery2.Parameters[0].Value := FormRegistration.UserID;
     ADOQuery2.Parameters[1].Value := FormCalendar.Date;
     ADOQuery2.Active := true;
    end;

Добавлено через 18 минут
Срочно ребят(

Добавлено через 21 час 14 минут
Емае, че никто не знает, как быть?!

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .