| Class TfrmCubeReport (unit cuberep) |
TForm
| Constructors |
| Functions |
Procedure CreateLabels;
procedure FormCreate(Sender: TObject);
Procedure FreeLabels;
procedure QuickRep1BeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
procedure QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);| 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;
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;