Быстрый отчет из StringGrid в Delphi 7 с QuickReports без DataSet

Delphi , Компоненты и Классы , TQuickReport

В этом руководстве мы рассмотрим, как создать быстрый отчет на основе содержимого TStringGrid в Delphi 7 с использованием QuickReports, не прибегая к DataSet.

Проблема

Обычно QuickReports требуют DataSet, сгенерированный запросом. Однако, в нашем случае данные уже находятся в TStringGrid, и мы хотим создать отчет на основе этого StringGrid, как будто он представляет собой результат запроса.

Альтернативный ответ

Одним из решений может быть использование TClientDataSet и его настройка на основе столбцов StringGrid. Но это требует изменений на этапе дизайна и не дает возможности полностью управлять данными в runtime.

Подтвержденный ответ

Существует более гибкое решение, которое позволяет создавать отчеты на основе данных StringGrid в runtime без использования DataSet. Для этого мы будем использовать событие OnNeedData компонента TQuickRep.

Следующий код демонстрирует, как это можно реализовать:

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
var
  i, j: Integer;
begin
  MoreData := (CurrRow < StringGrid1.RowCount);
  if MoreData then
  begin
    // Перебираем строки StringGrid и устанавливаем значения для текстовых полей отчета
    for i := 0 to StringGrid1.ColCount - 1 do
    begin
      for j := 0 to QuickRep1.Components.Count - 1 do
        if QuickRep1.Components[j] is TQRText then
          (QuickRep1.Components[j] as TQRText).Caption := StringGrid1.Cells[i, CurrRow];
    end;
    Inc(CurrRow);
  end;
end;

В этом примере мы используем событие OnNeedData для заполнения полей отчета данными из StringGrid. В цикле мы перебираем все строки и столбцы StringGrid и устанавливаем значения для текстовых полей отчета (TQRText).

Чтобы применить это решение, следуйте этим шагам:

1. Установите свойство DataSource компонента TQuickRep на nil.
2. Добавьте необходимые текстовые поля (TQRText) на отчет.
3. Напишите обработчик события OnNeedData, как показано выше.

Теперь, когда вы запускаете отчет, он будет заполняться данными из StringGrid в runtime, и вам не придется создавать DataSet или изменять дизайн формы.

Создано по материалам из источника по ссылке.

В этом руководстве описывается, как создать быстрый отчет на основе данных `TStringGrid` в Delphi 7 с использованием QuickReports без привязки к DataSet, используя событие `OnNeedData` компонента `TQuickRep`.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TQuickReport ::