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

    Delphi 内置的 QuickReport 报表系统为我们快速制作报表提供了有力的支持。对于一些简单的报表，包括纵向分组多表头报表，我们几乎不用写一句代码，就可以方便地完成报表的制作。但是对于图一所示的横向分组的报表，我们还需要写一些代码来控制报表的打印格式。本文就以图一所示报表为例，向大家介绍横向分组报表的制作方法和技巧。         首先添加一个报表窗体 QRForm1，在该窗体上添加报表控件 QuickRep1，设置其 Bands 属性，使包含标题、表头、表细节、表脚等属性。再在报表窗体上添加 ADOConnection1 连接控件和两个 ADODataSet 控件，分别命名为 ADODataSetShqk 和 ADODataSet1。其中 ADOConnection1 与数据库连接，ADODataSetShqk 与将要显示和打印的数据表绑定，该数据集必须添加永久性字段。     然后用 QRShape 勾画报表的表头和细节。其中横线的 Shape 属性设为 qrsHorLine，height=1；竖线的 Shape 属性设为 qrsVertLin