Delphi 内置的 QuickReport 报表系统为我们快速制作报表提供了有力的支持。对于一些简单的报表,包括纵向分组多表头报表,我们几乎不用写一句代码,就可以方便地完成报表的制作。但是对于图一所示的横向分组的报表,我们还需要写一些代码来控制报表的打印格式。本文就以图一所示报表为例,向大家介绍横向分组报表的制作方法和技巧。
首先添加一个报表窗体 QRForm1,在该窗体上添加报表控件 QuickRep1,设置其 Bands 属性,使包含标题、表头、表细节、表脚等属性。再在报表窗体上添加 ADOConnection1 连接控件和两个 ADODataSet 控件,分别命名为 ADODataSetShqk 和 ADODataSet1。其中 ADOConnection1 与数据库连接,ADODataSetShqk 与将要显示和打印的数据表绑定,该数据集必须添加永久性字段。 然后用 QRShape 勾画报表的表头和细节。其中横线的 Shape 属性设为 qrsHorLine,height=1;竖线的 Shape 属性设为 qrsVertLine,width=1,竖线分割各字段,产生纵向表格线。这里的关键问题是:怎样产生报表记录的横向分组?为了达到代码控制的目的,我们在勾画报表细节时,在“序号”“道路名称”上方放置横向 QRShape100,在“损坏情况”“损坏时间”“面积”上方放置横向 QRShape200,在整个 DetailBand 下方放置横向 QRShape300。在 DetailBand 中的“序号”“道路名称”位置放置 QRLabel,分别命名为 QRLabelXh 和 QRLabelDlmc,在“损坏情况”“损坏时间”“面积”位置放置 QRDBText,分别与对应的字段对应。 实现横向分组的原理是:在报表 DetailBand 的 BeforePrint 事件中进行判断,如果记录的“序号”“道路名称”与前一条记录相同,就不打印 QRShape100(使其 width=0),否则打印。如果报表打印到本页末或打印完所有记录,就打印 QRShape300,否则 QRShape300 的宽度为 0,即不打印。 设计阶段有关控件的属性设置为:QuickRep1.Dataset=ADODataSetRptShqk,ADODataSetShqk 和 ADODataSet1 的 Connection=ADOConnection1,ADODataSetShqk 的 CommandText 属性需要填写 SQL 语句 Select … from …;ADODataSet1 的 Active 属性为 False。 最后在主窗体上添加代码 QRForm1.QuickRep1.Preview; 和 QRForm1.QuickRep1.Print; 预览或直接打印报表。 unit Report1; interface uses …… type …… var QRForm1: TQRForm1; OldStr: string; LinesPerPage: Integer; //每页已经打印的记录数 LinePerItem: Integer; //每个横向分组的记录数累计 LinesTotal: Integer; //已经打印的记录总数 LineDisplayItem: Integer; //该行显示横向分组公共信息 ADODataSet1Count: Integer; //每个横向分组的记录数 Id: Integer; //横向分组序号 implementation {$R *.dfm} //自定义函数:判断是否打印到本页页脚 function TQRForm1.isPagefoot(): boolean; begin result :=False; LinesPerPage :=LinesPerPage + 1; { 根据报表预览结果手工确定每页的记录数, 本程序第1页为33条记录,其他页为36条记录 } if QuickRep1.PageNumber = 1 then begin if LinesPerPage =33 then result :=True; end else begin if LinesPerPage =36 then result :=True; end; end;
//自定义函数:判断是否打印完所有记录 function TQRForm1.isLastRecord(): boolean; begin ADODataSetRptShqk.Next; if ADODataSetRptShqk.Eof then result :=true else Begin ADODataSetRptShqk.Prior; result :=false; end; end;
//初始化变量: procedure TQRForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin oldstr :=''''''''; LinesPerPage :=0; LinePerItem :=0; LinesTotal :=0; LineDisplayItem :=0; Id :=0; ADODataSet1Count :=0; end;
///写报表的细节-根据条件进行横向分组控制: procedure TQRForm1.DetailBand1BeforePrint(Sender:TQRCustomBand; var PrintBand:Boolean); var NewStr: string; begin LinesTotal :=LinesTotal + 1; NewStr :=trim(ADODataSetRptShqk.FieldbyName(''''dlmc'''').AsString); if NewStr=OldStr then QRShape100.Width :=0 else begin ADODataSet1.CommandText :=''''select count(dlmc) as Count1 from rpt_Shqk where dlmc=''''+''''''''''''''''+NewStr+''''''''''''''''; ADODataSet1.Active :=True; ADODataSet1Count :=ADODataSet1.FieldByName(''''Count1'''').AsInteger; ADODataSet1.Active :=False; LinePerItem :=LinePerItem + ADODataSet1Count; LineDisplayItem :=LinePerItem - ADODataSet1Count div 2; QRShape100.Width :=285; OldStr :=trim(NewStr); Id :=Id + 1; end; if LinesTotal = LineDisplayItem then begin QRLabelXh.Caption :=InttoStr(Id); QRLabelDlmc.Caption :=trim(ADODataSetRptShqk.FieldbyName(''''dlmc'''').AsString); end else begin QRLabelXh.Caption :=''''''''; QRLabelDlmc.Caption :=''''''''; end; //根据条件画底线: QRShape300.Width :=0; //1,如果一页输出完毕,画底线: if isPagefoot() then begin QRShape300.Width :=697; LinesPerPage :=0; end; //2,如果记录输出完毕,画底线: if isLastRecord() then QRShape300.Width :=697; end;
procedure TQRForm1.FormCloseQuery(Sender: TObject;var CanClose: Boolean); begin QuickRep1.Free; end;
procedure TQRForm1.QuickRep1StartPage(Sender: TCustomQuickRep); begin ADODataSetRptShqk.Active :=True; end; end. 张庆 Email: zhangking@263.net
[电脑技术]使用?和*两个通配符迅速批量(搜索)查找文件 [聊天工具]快速又高效 用Email免费发送网络传真__天极Yesky [系统软件]InstallShield Express for delphi制作安装程序定… [常用软件]InstallShield Express制作Delphi数据库安装程序 [常用软件]网管工具 用OH协助服务器进行安全监控 [常用软件]留住精彩 用“数码故事”制作DVD光碟 [常用软件]小块头有大智慧 用Nero轻松设计个性化光盘 [常用软件]技高一筹 用Winamp播放影碟 [VB.NET程序]用 VB 实现表单的自动提交 [VB.NET程序]用 VB 打开任意盘(硬盘/U盘/光盘)的文件.
|