Delphi使用ReportMachine制作小计和总计报表

Delphi使用ReportMachine制作小计和总计报表

最近在做一个Delphi的发货清单的打印程序，其中涉及到需要计算清单的小计和总计的功能，文字难以表达清楚，上图吧：



报表第一页的小计计算当前页面的商品价格总和，总计目前和小计一样是计算截止到当前页面的所有商品的金额和，下图为最后一页：





这下大家明白了吧，就是要实现这样的报表。

废话不多说了，开始讲解我的思路：

1.既然要计算小计，就是每页的金额和了，加入ReportMachine的计算文本框（TRMCalcMemoView），然后设置要汇总的字段
值为数据字段“factSum”，然后选择计算文本框的属性面板中的“CalcOptions”选中“统计Brand”为要汇总的主项数据，统计类型为
“合计（Sum）”，如图所示：



2.最难的部分就是总计的计算，这不能简单的用计算文本框就能解决的，于是不得不用ReportMachine的代码来处理，也就是在总计的文本框的OnBeforePrint事件中计算之前的小计文本框的值的和，然后赋值给总计文本框显示，先看下设计的报表：





红色文字为两项总计的文本框的Name属性值。下面是ReportMachine中自定义的OnBeforePrint事件函数代码如下：

unit Report;
var
lValue,tValue: Double;//lValue=金额总计 tValue=税额总计

procedure Memo1_OnBeforePrint(Sender: TObject);
begin
lValue:=lValue+CalcMemo1.CalcValue; //CalcMemo1为金额小计的文本框
TRMMemoView(Sender).Memo.Text := lValue;
end;
procedure Memo40_OnBeforePrint(Sender: TObject);
begin
tValue:=tValue+CalcMemo2.CalcValue;//CalcMemo2为税额小计的文本框
TRMMemoView(Sender).Memo.Text := tValue;
end;

procedure Main;
begin
Memo1.OnBeforePrint:= Memo1_OnBeforePrint; //指定金额总计的文本框的OnBeforePrint事件的处理函数
Memo40.OnBeforePrint:= Memo40_OnBeforePrint;//指定税额总计的文本框的OnBeforePrint事件的处理函数
end;

end.

上面的代码先声明了两个事件函数用于计算两个累加的总计的值，然后赋值给相应的总计文本框；然后再Main中指定给总计文本框的事件，这样当打印总计之前先汇总赋值并打印。