?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -