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

2008-04-10 02:57:30来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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);

标签:

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

上一篇:代码重构——之获得封装性DELPHI编码实例

下一篇:Delphi实现贪吃蛇游戏