Class TfrmCubeReport (unit cuberep) |
Inherits from
TForm
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.
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;
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.
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;