• Registered: 2014-06-16
  • Posts: 84

Topic: Подвал таблицы SQL запроса

Добрый вечер!
Помогите решить проблему. Таблица заполняется по SQL запросу и мне нужно чтобы так же сформировать подвал с итогом суммы по столбцу. Вывод подвала с применением информации из справочника не помог.
Вот запрос на заполнение таблицы:
frmZakupka.TableGrid2.dbSQL := 'SELECT ZakEnt.id, "$autoinc", Docum.docum, Entrance.nomber, strftime (''%d.%m.%Y'', Entrance.data), Entrance.sum, Purveyor.name, Score.nomscore, strftime (''%d.%m.%Y'',Score.datdscore), ZakEnt.note FROM Entrance LEFT JOIN Score ON Score.id=Entrance.id_Score LEFT JOIN Purveyor ON Purveyor.id=Score.id_Purveyor LEFT JOIN Docum ON Docum.id=Entrance.id_Docum LEFT JOIN ZakEnt ON ZakEnt.id_Entrance=Entrance.id WHERE ZakEnt.id_Zakupka=' +frmZakupka.Edit4.sqlValue+ ' GROUP BY Entrance.nomber';
   frmZakupka.TableGrid2.dbListFieldsNames := 'delete_col, № п/п, Документ, № документа, дата, Сумма, Контрагент, № счета, дата, Комментарий';
   frmZakupka.TableGrid2.dbSQLExecute;

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,724

Re: Подвал таблицы SQL запроса

Приложите, пожалуйста, ваш проект, чтобы было ясна структура данных.


Можете попробовать заносить данные в подвал скриптом в обработчике таблицы onChange:

procedure Form1_TableGrid1_OnChange (Sender: TObject);
var
  tmpSum: Variant;
  s: string;
begin
  tmpSum := SQLExecute('SELECT SUM( Entrance.sum ) FROM Entrance LEFT JOIN ZakEnt ON ZakEnt.id_Entrance=Entrance.id WHERE ZakEnt.id_Zakupka=' +frmZakupka.Edit4.sqlValue  );
  if ValidFloat(tmpSum) then
    s := FormatFloat('0.00',tmpSum)
  else
    s := '0,00';
  frmZakupka.TableGrid2.Columns[5].Footer.Caption := s;
end;
Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2014-06-16
  • Posts: 84

Re: Подвал таблицы SQL запроса

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

4 Reply by k245

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,724

Re: Подвал таблицы SQL запроса

Не вижу вложения. Нужно сделать архив проекта, но без exe-файла.

Визуальное программирование: блог и телеграм-канал.

k245's Website