Как напечатать количество записей, сгруппированных по типу полосы TQRBand "GroupFooter", в QuickReport 3 и Delphi

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

В данной статье мы рассмотрим, как напечатать количество записей, сгруппированных по типу полосы TQRBand "GroupFooter", в QuickReport 3 и Delphi.

Для решения этой задачи можно использовать два подхода: первый — с использованием переменной в памяти и второго — с помощью встроенной функции QuickReport.

Подход 1: Использование переменной в памяти

Для этого подхода нам понадобится объявить переменную в памяти и инициализировать ее в методе OnBeforePrint. Затем, в нужном месте на полосе GroupFooter, мы можем напечатать значение этой переменной.

Пример кода на Object Pascal (Delphi):

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, QuickReport;

type
  TForm1 = class(TForm)
    QR1: TQRPrint;
    btnPrint: TButton;
    iDetail: Integer; // переменная в памяти
  private
    { Private declarations }
    procedure FormCreate(Sender: TObject);
    procedure QR1BeforePrint(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  iDetail := 0; // инициализация переменной в памяти
end;

procedure TForm1.QR1BeforePrint(Sender: TObject);
begin
  iDetail := 0; // переинициализация переменной в памяти
end;

procedure TForm1.btnPrintClick(Sender: TObject);
begin
  QR1.Print;
end;

end.

В этом примере мы объявляем переменную iDetail типа Integer и инициализируем ее в методе FormCreate. В методе QR1BeforePrint мы переинициализируем переменную перед печатью. На полосе GroupFooter мы можем напечатать значение этой переменной с помощью функции IntToStr.

Подход 2: Использование функции QuickReport

Для этого подхода мы можем использовать встроенную функцию QuickReport Count. Чтобы использовать эту функцию, нам нужно разместить компонент TQRExpr на полосе GroupFooter и ввести выражение Count в свойстве Expression.

Пример выражения для свойства Expression:

Count(<del>Table1.Field1</del>)

Где Table1.Field1 — это поле, по которому происходит группировка.

Также нам нужно установить свойство ResetAfterPrint в true, чтобы сброс счетчика происходил после печати каждой группы.

В этом подходе мы используем встроенную функцию QuickReport, что делает код более чистым и избавляет нас от необходимости поддерживать переменную в памяти.

В заключение, мы рассмотрели два подхода к печати количества записей, сгруппированных по типу полосы TQRBand "GroupFooter", в QuickReport 3 и Delphi. Первый подход основан на использовании переменной в памяти, а второй — на использовании встроенной функции QuickReport. Выбор подхода зависит от ваших предпочтений и требований проекта.

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

В данной статье описывается, как напечатать количество записей, сгруппированных по типу полосы TQRBand 'GroupFooter', в QuickReport 3 и Delphi.

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

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

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