www.pudn.com > jiaocaiguanlixitongdaima.rar > ReturnFeePtrUnit.pas

unit ReturnFeePtrUnit; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, QRCtrls, QuickRpt, ExtCtrls, DB, ADODB, StdCtrls, Buttons; 
  //定义报表结构 
   type TReturnFeeReport = Record 
       className:string;//班级名 
       Strength:string;//人数 
       ReturnFee:string;//退回书费 
       AvgFee:string;//人均书费 
       Handler:string;//经办人 
       About:string;//说明 
       OperatorID:string;//操作员 
       OperateTime:string;//操作时间 
   end; 
type 
  TfrmReturnFeePtr = class(TForm) 
    QuickRep1: TQuickRep; 
    QRBand1: TQRBand; 
    QRLabel1: TQRLabel; 
    QRBand2: TQRBand; 
    QRShape1: TQRShape; 
    QRShape2: TQRShape; 
    QRShape3: TQRShape; 
    QRShape4: TQRShape; 
    QRShape5: TQRShape; 
    QRShape6: TQRShape; 
    QRLabel2: TQRLabel; 
    QRLabel3: TQRLabel; 
    QRLabel4: TQRLabel; 
    QRLabel5: TQRLabel; 
    QRLabel6: TQRLabel; 
    QRLabel7: TQRLabel; 
    QRLabel8: TQRLabel; 
    QRLabel9: TQRLabel; 
    QRLabel10: TQRLabel; 
    QRLabel11: TQRLabel; 
    QRLabel12: TQRLabel; 
    QRLabel13: TQRLabel; 
    QRBand3: TQRBand; 
    QRLabel14: TQRLabel; 
    QRLabel15: TQRLabel; 
    QRLabel16: TQRLabel; 
    QRLabel17: TQRLabel; 
    BitBtn2: TBitBtn; 
    BitBtn1: TBitBtn; 
    procedure FormActivate(Sender: TObject); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    CR:TReturnFeeReport;{ Public declarations } 
  end; 
 
var 
  frmReturnFeePtr: TfrmReturnFeePtr; 
 
implementation 
 
uses DataModuleUnit; 
 
{$R *.dfm} 
 
procedure TfrmReturnFeePtr.FormActivate(Sender: TObject); 
begin 
  //showmessage(CR.className); 
  QRLabel10.Caption:=CR.className;//班级名 
  QRLabel11.Caption:=CR.Strength;  //人数 
  QRLabel12.Caption:=CR.ReturnFee;   //退回书费 
  QRLabel13.Caption:=CR.AvgFee;       //人均收费 
  QRLabel7.Caption:=CR.Handler;       //经办人 
  QRLabel9.Caption:=CR.About;         //说明 
  QRLabel15.Caption:=CR.OperatorID;  //操作员 
  QRLabel17.Caption:=CR.OperateTime; //操作时间 
end; 
 
procedure TfrmReturnFeePtr.BitBtn1Click(Sender: TObject); 
begin 
   self.QuickRep1.Preview 
end; 
 
procedure TfrmReturnFeePtr.BitBtn2Click(Sender: TObject); 
begin 
self.QuickRep1.Print 
end; 
 
end.