Delphi程序执行时实时生成报表(2)

Label3: TLabel;
Image1: TImage;//显示纵向打印图像
Image2: TImage;//显示横向打印图像
QRSQL: TQRLabel;// 列标头带区中用于显示“查询条件”控件
GroupBox2: TGroupBox;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
PageSpace: TEdit;// 栏间距输入框控件
PageTop: TEdit;// 页边距上输入框控件
PageBottom: TEdit; // 页边距下输入框控件
PageLeft: TEdit; // 页边距左输入框控件
PageRight: TEdit; // 页边距右输入框控件
PageDlux: TCheckBox; // “双面打印”控件
PageCol: TEdit; // 分栏输入框控件
Pages: TEdit; // 打印份数输入框控件
PaperH: TEdit; // 纸张长度输入框控件
PaperW: TEdit;//纸张宽度输入框控件
Label4: TLabel;
Label6: TLabel;
Ps: TComboBox;//纸张型号列表框控件
Query: TQuery;//SQL查询控件
DB: TQRBand;// “细节”带区控件
CrtRep: TBitBtn; // “生成”按钮控件
Label14: TLabel;
Label15: TLabel;
Panel3: TPanel;
Wdauto: TRadioButton; // “自动宽度”控件
Wdall: TRadioButton; // “相同宽度”控件
Wdmax: TRadioButton; // “限制最在宽度”控件
Label16: TLabel;
ColWd: TEdit; // 列宽输入框控件
Panel4: TPanel;
DJAUTO: TRadioButton; // “自动对齐”控件
DJCENTER: TRadioButton; // “中间中齐”控件
DJLEFT: TRadioButton; // “左边对齐”控件
FB: TQRBand; // 页脚带区控件
Label17: TLabel;
Panel5: TPanel;
TJ1: TCheckBox; // “每页统计”控件
TJ2: TCheckBox; // “统计总和”控件
SB: TQRBand; // 总和带区控件
procedure FormCreate(Sender: TObject);
procedure RadioButtonClick(Sender: TObject);
procedure PageDluxClick(Sender: TObject);
procedure PageColChange(Sender: TObject);
procedure PageSpaceExit(Sender: TObject);
procedure PagesChange(Sender: TObject);
procedure PageTopExit(Sender: TObject);
procedure PageBottomExit(Sender: TObject);
procedure PageLeftExit(Sender: TObject);
procedure PageRightExit(Sender: TObject);
procedure TTExit(Sender: TObject);
procedure DTClick(Sender: TObject);
procedure BtnPrviewClick(Sender: TObject);
procedure BtnSetClick(Sender: TObject);
procedure PsChange(Sender: TObject);
procedure PaperChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure CreateReport(Sender: TObject);
procedure SRClick(Sender: TObject);
procedure ClearRep();
procedure FormShow(Sender: TObject);
procedure PaperSizeChg(Sender: TObject);
procedure DJChage(Sender: TObject);
procedure WdChage(Sender: TObject);
procedure QuickRepStartPage(Sender: TCustomQuickRep);
procedure BtnPrintClick(Sender: TObject);
private
{ Private declarations }
CHBName:TQRLabelName;//定义列标头带区控件名动态数组名
DBName:TQRDBTextName; //定义细节带区控件名动态数组名
CHBShape,DBShape,FBShape,SumShape:TQRShapeName; //定义线条控件动态数组名
FBName,SumName:TQRExpName; //定义页脚(FBNAME)和总和带区(SUMNAME)控件名动态数组名
DJ:TAlignment;//列对齐方式(taLeftJustify, taRightJustify, taCenter)
Rd1,Rd2:Byte;//用于保存表列对齐方式(RD1)和打印宽度(RD2)状态变量名
public
{ Public declarations }
CXTJ,BT:String;//CXTJ存放查询条件,BT存放报表标题
//由上一级窗体指定
end;

const
PaperSize:array[0..26] of TQRPaperSize=(A3, A4, A4Small, A5, B4, B5, Letter,
LetterSmall, Tabloid, Ledger, Legal,Statement, Executive, Folio,
Quarto, qr10X14, qr11X17, Note, Env9, Env10, Env11, Env12,
Env14, CSheet, DSheet, ESheet, Custom);
//QuickRep所列出的纸张类型

var
PrintForm: TPrintForm;

implementation

{$R *.DFM}

procedure TPrintForm.FormCreate(Sender: TObject);
//将QuickRep.Page属性以及其它属性值显示出来
var
I:Byte;
begin
PageCol.Text:=IntToStr(QuickRep.Page.Columns);
PageSpace.Text:=FormatFloat(''''0.00'''',QuickRep.Page.ColumnSpace);
PageTop.Text:=FormatFloat(''''0.00'''',QuickRep.Page.TopMargin);
PageBottom.Text:=FormatFloat(''''0.00'''',QuickRep.Page.BottomMargin);
PageLeft.Text:=FormatFloat(''''0.00'''',QuickRep.Page.LeftMargin);
PageRight.Text:=FormatFloat(''''0.00'''',QuickRep.Page.RightMargin);
PageSpace.Text:=FormatFloat(''''0.00'''',QuickRep.page.ColumnSpace);
R1.Checked:=QuickRep.Page.Orientation=poPortrait;
Image1.Visible:=R1.Checked;
R2.Checked:=QuickRep.Page.Orientation=poLandscape;
Image2.Visible:=R2.Checked;
PageDlux.Checked:=QuickRep.PrinterSettings.Duplex;
Pages.Text:=IntToStr(QuickRep.PrinterSettings.Copies);
PaperH.Text:=FormatFloat(''''0.00'''',QuickRep.Page.Length);
PaperW.Text:=FormatFloat(''''0.00'''',QuickRep.Page.Width);
For I:=0 to 26 do //PS列表框显示纸张类型
if QuickRep.Page.PaperSize=PaperSize[I] then begin

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有