Class TfrmReport (unit report) |
Inherits from
TForm
function GetIndexDesc(T: TTable; IndexName: String): IDXDesc;
procedure grpIndexHeaderBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure labFieldnamePrint(sender: TObject; var Value: string);
procedure labFilterExpressionPrint(sender: TObject; var Value: string);
'0' = current index, index id's start at 1
procedure labIndexFieldsPrint(sender: TObject; var Value: string);
procedure labIndexNamePrint(sender: TObject; var Value: string);
procedure labIndexOptionsPrint(sender: TObject; var Value: string);
procedure labSizePrint(sender: TObject; var Value: string);
procedure labTableNamePrint(sender: TObject; var Value: string);
Still tables to go, so new page and keep going
procedure labTypePrint(sender: TObject; var Value: string);
procedure qrbFieldDetailBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure qrbFieldDetailNeedData(Sender: TObject;
var MoreData: Boolean);
Index detail - Increment index counter each time this handler is called
procedure qrbIndexDetailNeedData(Sender: TObject;
var MoreData: Boolean);
Index detail - Increment index counter each time this handler is called
procedure QRLabel15Print(sender: TObject; var Value: string);
procedure qrMainBeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
procedure qrMainNeedData(Sender: TObject; var MoreData: Boolean);
Main report increments the table count each time.
GroupFooterBand1 : TQRBand;
grpIndexHeader : TQRBand;
imgCross : TImage;
imgIndexed : TQRImage;
imgRequired : TQRImage;
imgTick : TImage;
labDatabase : TQRLabel;
labFieldname : TQRLabel;
labFilterExpression : TQRLabel;
labIndexFields : TQRLabel;
labIndexName : TQRLabel;
labIndexOptions : TQRLabel;
labSize : TQRLabel;
labTableName : TQRLabel;
labType : TQRLabel;
qrbFieldDetail : TQRSubDetail;
qrbFieldHeader : TQRBand;
qrbIndexDetail : TQRSubDetail;
qrbPageHeader : TQRBand;
QRLabel1 : TQRLabel;
QRLabel11 : TQRLabel;
QRLabel12 : TQRLabel;
QRLabel13 : TQRLabel;
QRLabel14 : TQRLabel;
QRLabel15 : TQRLabel;
QRLabel16 : TQRLabel;
QRLabel2 : TQRLabel;
QRLabel3 : TQRLabel;
QRLabel4 : TQRLabel;
QRLabel5 : TQRLabel;
QRLabel6 : TQRLabel;
QRLabel7 : TQRLabel;
QRLabel8 : TQRLabel;
QRLabel9 : TQRLabel;
qrMain : TQuickRep;
QRShape1 : TQRShape;
QRShape2 : TQRShape;
QRShape3 : TQRShape;
QRSysData1 : TQRSysData;
QRSysData2 : TQRSysData;
Required : TQRLabel;
function GetIndexDesc(T: TTable; IndexName: String): IDXDesc;
procedure grpIndexHeaderBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure labFieldnamePrint(sender: TObject; var Value: string);
procedure labFilterExpressionPrint(sender: TObject; var Value: string);
'0' = current index, index id's start at 1
procedure labIndexFieldsPrint(sender: TObject; var Value: string);
procedure labIndexNamePrint(sender: TObject; var Value: string);
procedure labIndexOptionsPrint(sender: TObject; var Value: string);
procedure labSizePrint(sender: TObject; var Value: string);
procedure labTableNamePrint(sender: TObject; var Value: string);
Still tables to go, so new page and keep going
procedure labTypePrint(sender: TObject; var Value: string);
procedure qrbFieldDetailBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure qrbFieldDetailNeedData(Sender: TObject;
var MoreData: Boolean);
Index detail - Increment index counter each time this handler is called
procedure qrbIndexDetailNeedData(Sender: TObject;
var MoreData: Boolean);
Index detail - Increment index counter each time this handler is called
procedure QRLabel15Print(sender: TObject; var Value: string);
procedure qrMainBeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
procedure qrMainNeedData(Sender: TObject; var MoreData: Boolean);
Main report increments the table count each time. The field and
indexes are set up on sub-groups
GroupFooterBand1 : TQRBand;
grpIndexHeader : TQRBand;
imgCross : TImage;
imgIndexed : TQRImage;
imgRequired : TQRImage;
imgTick : TImage;
labDatabase : TQRLabel;
labFieldname : TQRLabel;
labFilterExpression : TQRLabel;
labIndexFields : TQRLabel;
labIndexName : TQRLabel;
labIndexOptions : TQRLabel;
labSize : TQRLabel;
labTableName : TQRLabel;
labType : TQRLabel;
qrbFieldDetail : TQRSubDetail;
qrbFieldHeader : TQRBand;
qrbIndexDetail : TQRSubDetail;
qrbPageHeader : TQRBand;
QRLabel1 : TQRLabel;
QRLabel11 : TQRLabel;
QRLabel12 : TQRLabel;
QRLabel13 : TQRLabel;
QRLabel14 : TQRLabel;
QRLabel15 : TQRLabel;
QRLabel16 : TQRLabel;
QRLabel2 : TQRLabel;
QRLabel3 : TQRLabel;
QRLabel4 : TQRLabel;
QRLabel5 : TQRLabel;
QRLabel6 : TQRLabel;
QRLabel7 : TQRLabel;
QRLabel8 : TQRLabel;
QRLabel9 : TQRLabel;
qrMain : TQuickRep;
QRShape1 : TQRShape;
QRShape2 : TQRShape;
QRShape3 : TQRShape;
QRSysData1 : TQRSysData;
QRSysData2 : TQRSysData;
Required : TQRLabel;