?? undetailreport.pas
字號:
{**********************************************************************
通用報表顯示窗體單元
代碼名稱: 通用報表顯示窗體單元
編譯工具: Delphi 6.0
作者: 鄧普德
版權: 成都四方信息技術有限公司
定義時間: 2006-08-02
修改時間: 2006-08-06
**********************************************************************}
unit unDetailReport;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Qrctrls, QuickRpt, ExtCtrls,unCDefine, QRExport, TeeProcs, TeEngine,
Chart, DbChart;
type
TFrmReport = class(TForm)
PrintReport: TQuickRep;
QRBand2: TQRBand;
FrmUnitName1: TQRLabel;
FrmPrintDate1: TQRSysData;
ChildBand1: TQRChildBand;
FrmReportCaption: TQRLabel;
FrmMemo: TQRMemo;
QRBand5: TQRBand;
FrmUnitName2: TQRLabel;
FrmPrintDate2: TQRSysData;
QRDetailDataBand: TQRBand;
arbStatics: TQRBand;
FrmReportCaption2: TQRLabel;
xShape10: TQRShape;
wShape10: TQRShape;
fShape10: TQRShape;
tShape10: TQRShape;
sShape10: TQRShape;
sShape9: TQRShape;
sShape8: TQRShape;
sShape7: TQRShape;
sShape4: TQRShape;
sShape3: TQRShape;
sShape6: TQRShape;
tShape9: TQRShape;
tShape8: TQRShape;
tShape7: TQRShape;
tShape4: TQRShape;
tShape3: TQRShape;
tShape6: TQRShape;
fShape9: TQRShape;
fShape8: TQRShape;
fShape7: TQRShape;
fShape6: TQRShape;
fShape5: TQRShape;
fShape4: TQRShape;
wShape9: TQRShape;
wShape8: TQRShape;
wShape7: TQRShape;
wShape4: TQRShape;
wShape3: TQRShape;
wShape6: TQRShape;
xShape9: TQRShape;
xShape8: TQRShape;
xShape7: TQRShape;
xShape4: TQRShape;
xShape3: TQRShape;
xShape6: TQRShape;
sShape5: TQRShape;
tShape5: TQRShape;
fShape3: TQRShape;
wShape5: TQRShape;
xShape5: TQRShape;
sShape2: TQRShape;
tShape2: TQRShape;
fShape2: TQRShape;
wShape2: TQRShape;
xShape2: TQRShape;
qrbPageNo: TQRBand;
QRSysData2: TQRSysData;
Shape10: TQRShape;
Shape9: TQRShape;
Shape8: TQRShape;
Shape7: TQRShape;
Shape4: TQRShape;
Shape3: TQRShape;
Shape6: TQRShape;
Shape5: TQRShape;
Shape2: TQRShape;
QRDetailTitleBand: TQRBand;
QSD9: TQRShape;
QSD8: TQRShape;
QSD7: TQRShape;
QSD6: TQRShape;
QSD4: TQRShape;
QSD5: TQRShape;
QSD3: TQRShape;
QSD2: TQRShape;
QSD1: TQRShape;
QSD0: TQRShape;
QSU9: TQRShape;
QSU8: TQRShape;
QSU7: TQRShape;
QSU6: TQRShape;
QSU5: TQRShape;
QSU4: TQRShape;
QSU3: TQRShape;
QSU2: TQRShape;
QSU1: TQRShape;
QSU0: TQRShape;
QRLb9: TQRLabel;
QRLb8: TQRLabel;
QRLb7: TQRLabel;
QRLb6: TQRLabel;
QRLb5: TQRLabel;
QRLb4: TQRLabel;
QRLb3: TQRLabel;
QRLb2: TQRLabel;
QRLb1: TQRLabel;
QRLb0: TQRLabel;
QRDBT0: TQRDBText;
QRDBT1: TQRDBText;
QRDBT2: TQRDBText;
QRDBT3: TQRDBText;
QRDBT4: TQRDBText;
QRDBT5: TQRDBText;
QRDBT6: TQRDBText;
QRDBT7: TQRDBText;
QRDBT8: TQRDBText;
QRDBT9: TQRDBText;
Shape1: TQRShape;
Shape0: TQRShape;
sShape1: TQRShape;
sShape0: TQRShape;
tShape1: TQRShape;
tShape0: TQRShape;
fShape1: TQRShape;
fShape0: TQRShape;
wShape1: TQRShape;
wShape0: TQRShape;
xShape1: TQRShape;
xShape0: TQRShape;
QRLabel2: TQRLabel;
QRLabel1: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel0: TQRLabel;
sQRLabel10: TQRLabel;
sQRLabel9: TQRLabel;
sQRLabel8: TQRLabel;
sQRLabel7: TQRLabel;
sQRLabel6: TQRLabel;
sQRLabel5: TQRLabel;
sQRLabel4: TQRLabel;
sQRLabel3: TQRLabel;
sQRLabel2: TQRLabel;
sQRLabel1: TQRLabel;
sQRLabel0: TQRLabel;
rQRLabel10: TQRLabel;
rQRLabel9: TQRLabel;
rQRLabel8: TQRLabel;
rQRLabel7: TQRLabel;
rQRLabel6: TQRLabel;
rQRLabel5: TQRLabel;
rQRLabel4: TQRLabel;
rQRLabel3: TQRLabel;
rQRLabel2: TQRLabel;
rQRLabel1: TQRLabel;
rQRLabel0: TQRLabel;
fQRLabel10: TQRLabel;
fQRLabel9: TQRLabel;
fQRLabel8: TQRLabel;
fQRLabel7: TQRLabel;
fQRLabel6: TQRLabel;
fQRLabel5: TQRLabel;
fQRLabel4: TQRLabel;
fQRLabel3: TQRLabel;
fQRLabel2: TQRLabel;
fQRLabel1: TQRLabel;
vQRLabel10: TQRLabel;
vQRLabel9: TQRLabel;
vQRLabel8: TQRLabel;
vQRLabel7: TQRLabel;
vQRLabel6: TQRLabel;
vQRLabel5: TQRLabel;
vQRLabel4: TQRLabel;
vQRLabel3: TQRLabel;
vQRLabel2: TQRLabel;
vQRLabel1: TQRLabel;
vQRLabel0: TQRLabel;
QRShape1: TQRShape;
qQRLabel10: TQRLabel;
qQRLabel9: TQRLabel;
qQRLabel8: TQRLabel;
qQRLabel7: TQRLabel;
qQRLabel6: TQRLabel;
qQRLabel5: TQRLabel;
qQRLabel4: TQRLabel;
qQRLabel3: TQRLabel;
qQRLabel2: TQRLabel;
qQRLabel1: TQRLabel;
qQRLabel0: TQRLabel;
vShape10: TQRShape;
vShape9: TQRShape;
vShape8: TQRShape;
vShape7: TQRShape;
vShape6: TQRShape;
vShape5: TQRShape;
vShape4: TQRShape;
vShape3: TQRShape;
vShape2: TQRShape;
vShape1: TQRShape;
vShape0: TQRShape;
vLabel10: TQRLabel;
vLabel9: TQRLabel;
vLabel8: TQRLabel;
vLabel7: TQRLabel;
vLabel6: TQRLabel;
vLabel5: TQRLabel;
vLabel4: TQRLabel;
vLabel3: TQRLabel;
vLabel2: TQRLabel;
vLabel1: TQRLabel;
vLabel0: TQRLabel;
QRLabel11: TQRLabel;
fQRLabel0: TQRLabel;
zShape0: TQRShape;
zShape1: TQRShape;
zShape2: TQRShape;
zShape3: TQRShape;
zShape4: TQRShape;
zShape5: TQRShape;
zShape6: TQRShape;
zShape7: TQRShape;
zShape8: TQRShape;
zShape9: TQRShape;
zShape10: TQRShape;
QRExcelFilter1: TQRExcelFilter;
zLabel1: TQRLabel;
zLabel2: TQRLabel;
zLabel3: TQRLabel;
zLabel4: TQRLabel;
zLabel5: TQRLabel;
zLabel6: TQRLabel;
zLabel7: TQRLabel;
zLabel8: TQRLabel;
zLabel9: TQRLabel;
zLabel10: TQRLabel;
zLabel0: TQRLabel;
QRHTMLFilter1: TQRHTMLFilter;
QRRTFFilter1: TQRRTFFilter;
// QRExcelFilter1: TQRExcelFilter;
procedure FormHide(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormEndDock(Sender, Target: TObject; X, Y: Integer);
procedure PrintReportAfterPreview(Sender: TObject);
private
{ Private declarations }
public
// LockState,QRDBT1,QRDBT2,QRDBT3,QRDBT4,QRDBT5,QRDBT6,QRDBT7,QRDBT8:TQRDBText;
procedure CreateDetail();
//const l1,l2,l3,l4,l5:string
{ Public declarations }
end;
var
FrmReport: TFrmReport;
implementation
{$R *.DFM}
procedure TFrmReport.CreateDetail();
begin
end;
procedure TFrmReport.FormHide(Sender: TObject);
begin
//
end;
procedure TFrmReport.FormResize(Sender: TObject);
begin
//
end;
procedure TFrmReport.FormEndDock(Sender, Target: TObject; X, Y: Integer);
begin
//
end;
procedure TFrmReport.PrintReportAfterPreview(Sender: TObject);
begin
//
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -