用 Delphi 实现报表的横向分组打印

    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