Class TfrmReport (unit report)

Inherits from

TForm

Constructors



Functions

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.

Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;