Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
1 / 1 / 5
Регистрация: 25.04.2013
Сообщений: 165
1

Заполнение таблицы в цикле

24.01.2014, 07:07. Просмотров 1516. Ответов 1
Метки нет (Все метки)

Здравствуйте! У меня есть мемтаблица из 10 столбцов. Первый столбец заполняется запросом к бд в цикле
Delphi
1
2
3
4
5
6
7
8
9
Query1.SQL.Clear;
  Query1.SQL.Add('select distinct vzr1 from ndi where rzd=14');
  Query1.Open;
  While not Query1.Eof do begin
   Table1.Append;
   Table1.Edit;
   Table1.FieldByName('vzr').AsString:=Query1.FieldByName('VZR1').AsString;
    Query1.Next;
    end;
Осталтные 9 заполняются по строчно вот пример 1 строки
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
Query1.SQL.Clear;
  Query1.SQL.Add('select count(uid) as uid from pat where ((("'+DateToStr(dk.date)+'"-dr)/365.25)>=21 and (("'+DateToStr(dk.date)+'"-dr)/365.25)<=21.999)');
  Query1.Open;
   Table1.Append;
   Table1.Edit;
   Table1.FieldByName('vs').AsString:=Query1.FieldByName('uid').AsString;
  Query1.SQL.Clear;
  Query1.SQL.Add('select count(uid) as uid from pat where ((("'+DateToStr(dk.date)+'"-dr)/365.25)>=21 and (("'+DateToStr(dk.date)+'"-dr)/365.25)<=21.999)');
  Query1.SQL.Add('and sex="'+s+'"');
  Query1.Open;
   Table1.FieldByName('m').AsString:=Query1.FieldByName('uid').AsString;
  Query1.SQL.Clear;
  Query1.SQL.Add('select count(uid) as uid from pat where ((("'+DateToStr(dk.date)+'"-dr)/365.25)>=21 and (("'+DateToStr(dk.date)+'"-dr)/365.25)<=21.999)');
  Query1.SQL.Add('and sex="'+s1+'"');
  Query1.Open;
   Table1.FieldByName('w').AsString:=Query1.FieldByName('uid').AsString;
 
  Query1.SQL.Clear;
  Query1.SQL.Add('select count(uid) as uid from pat,kt where ((("'+DateToStr(dk.date)+'"-dr)/365.25)>=21 and (("'+DateToStr(dk.date)+'"-dr)/365.25)<=21.999)');
  Query1.SQL.Add('and patient.uid=ktgn.uid and kov<>0');
  Query1.Open;
   Table1.FieldByName('vkov').AsString:=Query1.FieldByName('uid').AsString;
  Query1.SQL.Clear;
  Query1.SQL.Add('select count(uid) as uid from pat,kt where ((("'+DateToStr(dk.date)+'"-dr)/365.25)>=21 and (("'+DateToStr(dk.date)+'"-dr)/365.25)<=21.999)');
  Query1.SQL.Add('and patient.uid=ktgn.uid and kov<>0');
  Query1.SQL.Add('and sex="'+s+'"');
  Query1.Open;
   Table1.FieldByName('mkov').AsString:=Query1.FieldByName('uid').AsString;
  Query1.SQL.Clear;
  Query1.SQL.Add('select count(uid) as uid from pat,kt where ((("'+DateToStr(dk.date)+'"-dr)/365.25)>=21 and (("'+DateToStr(dk.date)+'"-dr)/365.25)<=21.999)');
  Query1.SQL.Add('and patient.uid=ktgn.uid and kov<>0');
  Query1.SQL.Add('and sex="'+s1+'"');
  Query1.Open;
   Table1.FieldByName('wkov').AsString:=Query1.FieldByName('uid').AsString;
 
   Query1.SQL.Clear;
  Query1.SQL.Add('select count(uid) as uid from pat,in where ((("'+DateToStr(dk.date)+'"-dr)/365.25)>=21 and (("'+DateToStr(dk.date)+'"-dr)/365.25)<=21.999)');
  Query1.SQL.Add('and patient.uid=invl.uid and ktn=206 and dot is null');
  Query1.Open;
   Table1.FieldByName('vi').AsString:=Query1.FieldByName('uid').AsString;
  Query1.SQL.Clear;
  Query1.SQL.Add('select count(uid) as uid from pat,in where ((("'+DateToStr(dk.date)+'"-dr)/365.25)>=21 and (("'+DateToStr(dk.date)+'"-dr)/365.25)<=21.999)');
  Query1.SQL.Add('and patient.uid=invl.uid and ktn=206 and dot is null');
  Query1.SQL.Add('and sex="'+s+'"');
  Query1.Open;
   Table1.FieldByName('im').AsString:=Query1.FieldByName('uid').AsString;
  Query1.SQL.Clear;
  Query1.SQL.Add('select count(uid) as uid from pat,in where ((("'+DateToStr(dk.date)+'"-dr)/365.25)>=21 and (("'+DateToStr(dk.date)+'"-dr)/365.25)<=21.999)');
  Query1.SQL.Add('and patient.uid=invl.uid and ktn=206 and dot is null');
  Query1.SQL.Add('and sex="'+s1+'"');
  Query1.Open;
   Table1.FieldByName('iw').AsString:=Query1.FieldByName('uid').AsString;
В итоге при отображении в гриде получается вот так
а мне нужно чтоб каждому возврасту в первом столбце соответствовали данные дуругих
0
Миниатюры
Заполнение таблицы в цикле   Заполнение таблицы в цикле  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2014, 07:07
Ответы с готовыми решениями:

Заполнение детальной таблицы, не имея мастер таблицы
Здравствуйте. Столкнулся при разработке со следующей проблемой. Пользователь нажимает кнопку...

Можно ли в QReport сделать заполнение отчета в цикле ?
Всем привет ! Вопрос такой : Можно ли в QReport сделать заполнение отчета не по запросу из БД, а...

Изменение номера таблицы базы данных в цикле
При одновременной работе с базой данных нужно выполнить поочередно одинаковые действия с...

заполнение таблицы
Есть диапазон номеров билетов 000127-000210. Как внести в таблицу БД(Paradox) эти номера в таком...

1
1 / 1 / 5
Регистрация: 25.04.2013
Сообщений: 165
28.01.2014, 06:20  [ТС] 2
все я разобралась сократила код и запихала все в цикл
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2014, 06:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Заполнение таблицы
Здравствуйте я заполняю таблицу данными из бд через запрос Query7.SQL.Clear; ...

Не сохраняется заполнение таблицы
Запускаю программу, заполняю DBGrid. После закрытия Delphi, то что я заполнила не сохраняется. Мне...

Заполнение шапки таблицы
Если заполняю названия полей шапки из таблицы из массива в цикле, то потом, при обновлении данных...

DBComboBox заполнение из таблицы
Здравствуйте. Занимаюсь разработкой кабельного журнала. При тестировании столкнулся с проблемой,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.