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 中的“序号”“道路名称”位置放置 QRLab