用DELPHI编写特殊报表

最新推荐文章于 2024-03-28 08:10:59 发布

weixin_34378922

最新推荐文章于 2024-03-28 08:10:59 发布

阅读量69

点赞数

原文链接：http://www.cnblogs.com/myamanda/articles/1583043.html

版权

用DELPHI编写特殊报表

广西省韦明

---- 我用DELPHI为某单位编写信息管理系统时，财务要求工资统计等报表每一页的最后一行都应有合计。用DELPHI提供的TQuidkRep部件的HasSummary边条制作时是每一个报表的最后一页才有合计，不符合财务要求。虽然不用TQuidkRep部件重头开始编程编写报表打印可以做到每页有合计，但工作量极大。能不能用QReport面板下提供的部件完成呢？本人仔细分析了QReport面板下的各功能强大的部件，完全可以做到。具体如下：

---- 1、数据表ManPay.db的结构为：

ManName     员工名
JustClass      台班
JustTotal      工资
WaitClass     台班
WaitTotal     工资
Repair        修理工资
Jobpay        计件工资
Total         合计

---- 2、新建一表单Form1，在其上放一个TTable部件,其TableName设为ManPay.db；

---- 3、在表单Form1上放TQuidkRep部件QuidkRep1,设置QuidkRep1的Bands属性值为：HasPageFooter,HasDetail,HasColumnHeader；此时在QuidkRep1上有三个边条分别为：PageHeaderBand1,DetailBand1,ColumeHeaderBand1。象上表一样设置好报表结构，如：在PageHeaderBand1边条上放一个TQRLabel部件，设其Caption属性为‘员工工资表’；以此类推，在ColumeHeaderBand1放相应数量TQRLabel部件，并按报表列的标题的要求进行列标题的而设置相应的TQRLabel部件的Caption属性。在DetailBand1边条上放八个TQRLabel部件，其Name属性分别为RLb1, RLb2, RLb3, RLb4, RLb5, RLb6, RLb7, RLb8。设置QuidkRep1的DataSet为空；

---- 4、在表单Form1上放TQRSubDetail部件QRSubDetail,在QRSubDetail上放九个TQRLabel部件，其中一个TQRLabel部件的Caption属性设为'合计'，其中五个的Name属性分别为：RSL1，RSL2, RSL3, RSL4, RSL5。另外三个的Caption属性分别为：‘制表：’‘审核：’‘审批：’；

---- 5、报表的线条用TQRShape部件，在此略。设置好的报表应如上表一样。

---- 6、编程：

---- 一、双击QuickRep1的OnNeedData事件，输入如下代码：

procedure Tform1.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
MoreData:=True;  //允许打印记录边条
with Tabel1 do
begin
if not Eof then
begin
RLb1.Caption:=FieldByName('FixingName').AsString;
RLb2.Caption:=FieldByName('JustClass').AsString;
RLb3.Caption:=FieldByName('JustTotal').AsString;
RLb4.Caption:=FieldByName('WaitClass').AsString;
RLb5.Caption:=FieldByName('WaitTotal').AsString;
RLb6.Caption:=FieldByName('Repair').AsString;
RLb7.Caption:=FieldByName('Jobpay').AsString;
RLb8.Caption:=FieldByName('Total').AsString;
FJustTotal:= FJustTotal +FieldByName('JustTotal').AsFloat;
FWaitTotal:= FWaitTotal +FieldByName('WaitTotal').AsFloat;
FRepair:= FRepair +FieldByName('Repair').AsFloat;
FJobpay:= FJobpay +FieldByName('Jobpay').AsFloat;
FTotal:=FTotal+FieldByName('Total').AsFloat;
end
else
begin
//设定每页打印13行，最后一页不够13行时用空行代替。
打印行数可根据       //实际情况要求设定。
if FNum< 14 then    
begin
RLb1.Caption:='';
RLb2.Caption:='';
RLb3.Caption:='';
RLb4.Caption:='';
RLb5.Caption:='';
RLb6.Caption:='';
RLb7.Caption:='';
RLb8.Caption:='';
end;
end;
if not Eof then Next
else if FNum=14 then
begin
MoreData:=False;// 不打印记录边条
FNum:=0;
First;
end;
Inc(FNum);
end;
end;

---- 二、双击QRSubDetail1的OnAfterPrint事件，输入如下代码：

procedure Tform1.QRSubDetail1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
if FNum=14 then
begin
if not Table1.Eof then
begin
Form1.QuickRep1.NewColumn;//建立新页
FNum:=1;
end;
end;
end;

---- 三、双击QRSubDetail1的OnBeforePrint事件，输入如下代码：

procedure Tform1.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if FNum=14 then
begin
RSL1.Caption:=FloatToStr(FJustTotal);
RSL2.Caption:=FloatToStr(FWaitTotal);
RSL3.Caption:=FloatToStr(FRepair);
RSL4.Caption:=FloatToStr(FJobpay);
RSL5.Caption:=FloatToStr(FTotal);
PrintBand:=True;//打印明细边条
FJustTotal:=0;
FWaitTotal:=0;
FRepair:=0;
FJobpay:=0;
FTotal:=0;
end else PrintBand:=False; //不打印明细边条
end;

---- 四、双击Form1的On Create事件，输入如下代码：

procedure Tform1.FormCreate(Sender: TObject);
begin
FNum:=1;
FJustTotal:=0;
FWaittotal:=0;
FRepair:=0;
FJobpay:=0;
FTotal:=0;
end;
在Form1中的private下增加如下声明：
FNum: Integer;//每页可打印行数控制器
FTotal: Real;
FJustTotal,FWaitTotal: Real;
FRepair,FJobpay: Real;

---- 至此，一个可打印特殊报表的设计完成，达到财务的要求。

转载于:https://www.cnblogs.com/myamanda/articles/1583043.html