Компонент TQRChildBand

Назначение компоненту TQRChildBand похоже с компонентом TQRBand. В этом компоненте выводится дополнительная информация отчета. Понятие "Дополнительная" здесь условно. Всю информацию, которая выводится, можно разбить на отдельные группы, которые выводятся с помощью основной и вспомогательных полос. При таком разделении информации можно осуществить в отчете выведение информации в одни полосы и запретить выведение в другие.

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

Рассмотрим пример: "Компонент TQRExpr". Пусть необходимо знать сумму после каждого НД.. Для этого необходимо прибавить компонент TQRChildBand со свойством ParentBand=QRBand2. Вид отчета на этапе конструирования показан на рис.4.

Рисунок 4. Отчет на этапе конструирования

После выполнения программы отчет должен содержать следующее:

Рисунок 5. Отчет в окне предыдущего пересмотра

Текст примера :

Unit Unit1;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms

Dialogs, DB, StdCtrls, Grids, DBGrids, DBTables;

Type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

Database1: TDatabase;

Table1: TTable;

DataSource1: TDataSource;

Button2: TButton;

Label2: TLabel;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

Table2: TTable;

procedure Button2Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

End;

Var

Form1: TForm1;

Implementation

Uses Unit2;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

Begin