Class TfrmCubeReport (unit cuberep)

Inherits from

TForm

Constructors



Functions

Procedure CreateLabels;

Until we initialize our variables, it's not safe to run the the report.

procedure FormCreate(Sender: TObject);


Procedure FreeLabels;

We are ready to run, so set the flag

procedure QuickRep1BeforePrint(Sender: TQuickRep; var PrintReport: Boolean);

Move to the next column

procedure QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);

Set the flag to false as this report will no longer be able to run.

Properties

Events

Variables

ColumnHeaderBand1 : TQRBand;


DetailBand1 : TQRBand;


qrlCubeSummary : TQRLabel;


QRSysData1 : TQRSysData;


QuickRep1 : TQuickRep;


TitleBand1 : TQRBand;


ColumnLabels : array[0..29] of TQRLabel;


DataLabels : array[0..29] of TQRLabel;


MaxCols : integer;


RowCounter : integer;

Public declarations

SafeToRun : boolean;



Constructors


Functions


Procedure CreateLabels;

Until we initialize our variables, it's not safe to run the the report. This will get initialized to false when the program loads.


procedure FormCreate(Sender: TObject);


Procedure FreeLabels;

We are ready to run, so set the flag


procedure QuickRep1BeforePrint(Sender: TQuickRep; var PrintReport: Boolean);

Move to the next column


procedure QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);

Set the flag to false as this report will no longer be able to run.


Properties


Events


Variables


ColumnHeaderBand1 : TQRBand;


DetailBand1 : TQRBand;


qrlCubeSummary : TQRLabel;


QRSysData1 : TQRSysData;


QuickRep1 : TQuickRep;


TitleBand1 : TQRBand;


ColumnLabels : array[0..29] of TQRLabel;


DataLabels : array[0..29] of TQRLabel;


MaxCols : integer;


RowCounter : integer;

Public declarations


SafeToRun : boolean;