Внесение данных в таблицу DBGridEh

@Николай Спешил · Регистрация: 22.10.2012

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

Здравствуйте! Не могу разобраться с многообразием этой библиотеки. Как заполнить таблицу, представленную на рисунке сверху? Данные сформированы запросом и отображены в нижней таблице на рисунке. Можно ли заполнять эту таблицу используя данные из разных запросов? Получается по отдельности формировать необходимые данные запросами для верхней таблицы, но как их свести в одну не понимаю.

@Николай Спешил · 20.04.2016, 07:04 **[ТС]**

По поводу печати отчетов, это тоже нужно будет, но это уже другая история, с которой ещё предстоит разбираться...

Добавлено через 21 минуту
Все получилось, ОГОРОМНОЕ СПАСИБО Krapotkin

окончательный код выглядит так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT  Gym.Name_gym, (SELECT SUM(A.Kol_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym) AS [Kol_abonement],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.Total_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym) AS [Total_abonement],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.cost) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym) AS [Cost],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.Kol_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=1) AS [Kol_LPU],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.Total_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=1) AS [Total_LPU],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.cost) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=1) AS [Cost_LPU],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.Kol_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=2) AS [Kol_Pens],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.Total_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=2) AS [Total_Pens],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.cost) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=2) AS [Cost_Pens],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.Kol_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=4) AS [Kol_stor],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.Total_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=4) AS [Total_stor],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.cost) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=4) AS [Cost_stor],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.Kol_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=5) AS [Kol_det],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.Total_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=5) AS [Total_det],');
  ADOQuery1.SQL.Add('(SELECT SUM(A.cost) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.User_abonement=5) AS [Cost_det]');
  ADOQuery1.SQL.Add('FROM gym');
   ADOQuery1.Active:=True;

Теперь нужно подумать как сделать, чтобы по дате можно было фильтровать данные...

@krapotkin · 20.04.2016, 07:13

не поверишь )))
в раздел Where добавить еще условие...

@Николай Спешил · 20.04.2016, 10:59 **[ТС]**

Я так и подумал

Добавлено через 3 часа 28 минут
Внесение даты в таблицу Abonement производится с помощью MaskEdit, не получается сделать отбор по дате

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.ComboBox1CloseUp(Sender: TObject);
var d:integer;
     b:string;
begin
d:=ComboBox1.ItemIndex;
case d of
  1: b:='  .01.2016';
  2: b:='  .02.2016';
  3: b:='  .03.2016';
  4: b:='  .04.2016';
end;
 
  ADOQuery3.SQL.Clear;
  ADOQuery3.SQL.Add('SELECT  Gym.Name_gym, (SELECT SUM(A.Kol_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.Data_abonement='+quotedstr(b)+') AS [Kol_abonement],');
  ADOQuery3.SQL.Add('(SELECT SUM(A.Total_abonement) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.Data_abonement='+quotedstr(b)+') AS [Total_abonement],');
  ADOQuery3.SQL.Add('(SELECT SUM(A.cost) FROM Abonement A WHERE A.Gym_abonement=gym.id_gym AND A.Data_abonement='+quotedstr(b)+') AS [Cost],');

попытка выполнить процедуру выдает не соответствие типов данных

Добавлено через 9 минут
Вопрос по не соответствию снимается.

Зато другой вопрос: я вношу дату н-р: 01.01.2016, а отбор нужно сделать по месяцам, я себе это представляю так: *.01.2016, но так не получается.

@krapotkin · 20.04.2016, 11:48

гыы)))
бд себе это как-то не так представляет:
(поле_даты>='01.03.2016')and(поле_даты<' 01.04.2016')

@Николай Спешил · 20.04.2016, 12:47 **[ТС]**

Не получается, тип в БД какой должен быть у этого поля? Если ставить текстовый, то он находит только конкретную запись, а знак >= не обрабатывает.

@krapotkin · 20.04.2016, 15:07

интересно, какой тип данных может быть у даты?
дата

а как сравнивать с датами, нужно смотреть доки по вашей БД

@Николай Спешил · 20.04.2016, 21:15 **[ТС]**

БД сделана в MS Access. Пытаюсь разобрать на простом примере, таблица в режиме конструктор на рисунке.

Текст процедуры:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.ComboBox1CloseUp(Sender: TObject);
var i:integer;
    d,b:shortstring;
begin
i:=ComboBox1.ItemIndex;
case i of
  0: begin d:='#1/1/2016#' ; b:='#1/31/2016#'; end;
  1: begin d:='#2/1/2016#' ; b:='#2/29/2016#'; end;
  2: begin d:='#3/1/2016#' ; b:='#3/31/2016#'; end;
  3: begin d:='#4/1/2016#' ; b:='#4/30/2016#'; end;
end;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT *');
  ADOQuery1.SQL.Add('FROM student');
  //ADOQuery1.SQL.Add('WHERE student.Data_student Between #1/1/2016# And #1/31/2016#');
  ADOQuery1.SQL.Add('WHERE student.Data_student Between '+quotedstr(d)+' and '+quotedstr(b)+'');
  ADOQuery1.Active:=True;
end;

вот здесь не пойму что за проблема, за комментированная строка выдает диапазон дат, но если я пытаюсь записать ту же самую строку с помощью '+quotedstr()+', то уже не работает.

@krapotkin · 20.04.2016, 21:38

судя по всему в аксессе нужно без апострофов, вот и все
документация говорит, что Between в аксессе инклюзивный, так что нужно правильно задавать даты
я бы лучше воспользовался явным

SQL
1
myDate >= #04/01/2009# AND myDate < #02/01/2009#

@Николай Спешил · 20.04.2016, 21:53 **[ТС]**

Работает как с between ,так и по предложенному Вами способу. Проблема с Quotedstr
В case присваиваю переменным значения дат и потом подставляю их в текст sql-запроса и не работает

Delphi
1
2
3
case i of
  0: begin d:='#1/1/2016#' ; b:='#1/31/2016#'; end;
  end;

Delphi
1
ADOQuery1.SQL.Add('WHERE Data_student>='+quotedstr(d)+' And Data_student<'+quotedstr(b)+'');

переменные d,b:string

Добавлено через 2 минуты
Как вариант в этом же case можно полностью дублировать весь текст запроса, меняя лишь диапазон дат, но тогда код получится совсем огромный, применительно к таблице abonement. )

@krapotkin · 20.04.2016, 21:55

я и спрашиваю, зачем quotedstr?
'aaa'+quotedStr(b)+'ccc' ==== 'aaa '''+b+'''ccc'
в этом диалекте SQL дата - не строка. её не нужно выделять апострофами...
ADOQuery1.SQL.Add('WHERE Data_student>='+d+' And Data_student<'+b+'');

@Николай Спешил · 20.04.2016, 22:00 **[ТС]**

кроме quotedstr не знаю альтернативу.

Добавлено через 1 минуту
ну наконец-то

целый день и вечер убил на эти даты

Новые блоги и статьи Все статьи Все блоги /
[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .

@Николай Спешил 4 / 4 / 2 Регистрация: 22.10.2012 Сообщений: 78

	Внесение данных в таблицу DBGridEh 19.04.2016, 09:42. Показов 2435. Ответов 30 Метки нет (Все метки) Здравствуйте! Не могу разобраться с многообразием этой библиотеки. Как заполнить таблицу, представленную на рисунке сверху? Данные сформированы запросом и отображены в нижней таблице на рисунке. Можно ли заполнять эту таблицу используя данные из разных запросов? Получается по отдельности формировать необходимые данные запросами для верхней таблицы, но как их свести в одну не понимаю. Миниатюры 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	20.04.2016, 07:13
	не поверишь ))) в раздел Where добавить еще условие... 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	20.04.2016, 11:48
	гыы))) бд себе это как-то не так представляет: (поле_даты>='01.03.2016')and(поле_даты<' 01.04.2016') 0

@Николай Спешил 4 / 4 / 2 Регистрация: 22.10.2012 Сообщений: 78
	20.04.2016, 12:47 [ТС]
	Не получается, тип в БД какой должен быть у этого поля? Если ставить текстовый, то он находит только конкретную запись, а знак >= не обрабатывает. 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	20.04.2016, 15:07
	интересно, какой тип данных может быть у даты? дата а как сравнивать с датами, нужно смотреть доки по вашей БД 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	20.04.2016, 21:55
	Сообщение было отмечено Николай Спешил как решение Решение я и спрашиваю, зачем quotedstr? 'aaa'+quotedStr(b)+'ccc' ==== 'aaa '''+b+'''ccc' в этом диалекте SQL дата - не строка. её не нужно выделять апострофами... ADOQuery1.SQL.Add('WHERE Data_student>='+d+' And Data_student<'+b+''); 1

@Николай Спешил 4 / 4 / 2 Регистрация: 22.10.2012 Сообщений: 78
	20.04.2016, 22:00 [ТС]
	кроме quotedstr не знаю альтернативу. Добавлено через 1 минуту ну наконец-то целый день и вечер убил на эти даты 0

Внесение данных в таблицу DBGridEh

Решение