Class TQRPhoneReport (unit PBQRRpt)

Inherits from

TForm

Constructors



Functions

procedure PBRptAfterPrint(Sender: TObject);


procedure PBRptBeforePrint(var PrintReport: Boolean);

Otherwise we're just going to keep enumerating through the phone numbers.

procedure PBRptNeedData(var MoreData: Boolean);


Properties

Events

Variables

lblAddress : TQRLabel;


lblCity : TQRLabel;


lblComment : TQRLabel;


lblName : TQRLabel;


lblPhoneNumber : TQRLabel;


lblPhoneType : TQRLabel;


lblState : TQRLabel;


lblTitle : TQRLabel;


lblZip : TQRLabel;


PBRpt : TQuickReport;


QRBand1 : TQRBand;


QRBand2 : TQRBand;


QRBand3 : TQRBand;


QRBand4 : TQRBand;


QRLabel1 : TQRLabel;


QRLabel2 : TQRLabel;


QRLabel3 : TQRLabel;


QRLabel4 : TQRLabel;


QRLabel5 : TQRLabel;


QRLabel7 : TQRLabel;


QRLabel8 : TQRLabel;


QRShape1 : TQRShape;


bContinue : Boolean;


ReportPhoneBase : Variant;

Private declarations

ReportPhoneNumbers : Variant;



Constructors


Functions


procedure PBRptAfterPrint(Sender: TObject);


procedure PBRptBeforePrint(var PrintReport: Boolean);

Otherwise we're just going to keep enumerating through the phone numbers.


procedure PBRptNeedData(var MoreData: Boolean);


Properties


Events


Variables


lblAddress : TQRLabel;


lblCity : TQRLabel;


lblComment : TQRLabel;


lblName : TQRLabel;


lblPhoneNumber : TQRLabel;


lblPhoneType : TQRLabel;


lblState : TQRLabel;


lblTitle : TQRLabel;


lblZip : TQRLabel;


PBRpt : TQuickReport;


QRBand1 : TQRBand;


QRBand2 : TQRBand;


QRBand3 : TQRBand;


QRBand4 : TQRBand;


QRLabel1 : TQRLabel;


QRLabel2 : TQRLabel;


QRLabel3 : TQRLabel;


QRLabel4 : TQRLabel;


QRLabel5 : TQRLabel;


QRLabel7 : TQRLabel;


QRLabel8 : TQRLabel;


QRShape1 : TQRShape;


bContinue : Boolean;


ReportPhoneBase : Variant;

Private declarations


ReportPhoneNumbers : Variant;