• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi报表开发ReportMachine的小计和总计的计算

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

Delphi报表开发ReportMachine的小计和总计的计算

 
2011年7月2日 分类: Delphi, 开发笔记
 
 

最近在做一个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中指定给总计文本框的事件,这样当打印总计之前先汇总赋值并打印。

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
MATLAB命令大全和矩阵操作大全发布时间:2022-07-18
下一篇:
MATLAB基础指令用法记录 - yhjoker发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap