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

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

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

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

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

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

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

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

unit Report;
varlValue,tValue: Double;//lValue=金额总计 tValue=税额总计procedure Memo1_OnBeforePrint(Sender: TObject);
beginlValue:=lValue+CalcMemo1.CalcValue; //CalcMemo1为金额小计的文本框TRMMemoView(Sender).Memo.Text := lValue;
end;
procedure Memo40_OnBeforePrint(Sender: TObject);
begintValue:=tValue+CalcMemo2.CalcValue;//CalcMemo2为税额小计的文本框TRMMemoView(Sender).Memo.Text := tValue;
end;procedure Main;
beginMemo1.OnBeforePrint:= Memo1_OnBeforePrint; //指定金额总计的文本框的OnBeforePrint事件的处理函数Memo40.OnBeforePrint:= Memo40_OnBeforePrint;//指定税额总计的文本框的OnBeforePrint事件的处理函数
end;end.

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

转载于:https://www.cnblogs.com/mikel/archive/2011/07/08/2100819.html

Delphi使用ReportMachine制作小计和总计报表相关推荐

Delphi报表开发ReportMachine的小计和总计的计算
Delphi报表开发ReportMachine的小计和总计的计算 2011年7月2日分类: Delphi, 开发笔记最近在做一个Delphi的发货清单的打印程序,其中涉及到需要计算清单的小计和总计 ...
小计合计总计共计怎么解释？
排列顺序:小计.总计.合计.共计分开使用. 小计:小计就是简单核算一下单个体,可理解为日小计合计:合计就是把所有小计加起来,可理解为月合计总计:总计就是把合计加起来,可理解为年总计共计:一组数字 ...
oracle如何总计,如何在Oracle中产生分组小计和总计？
问题陈述: 您想在Oracle中找出总数,小计和总计. 解决方案: Oracle ROLLUP函数使用从右到左将中间级别汇总到任何总计的方法在多个级别上执行分组.为了演示ROLLUP功能,我们将创建一 ...
小计合计总计表格_总计总计重复的Excel小计
小计合计总计表格 Do you use Excel's Subtotal command to automatically create subtotals in a list? I prefer p ...
SAP小技巧之实现SMARTFORM打印中的小计与总计
点击蓝字关注我们一前言公众号群里面有人在讨论SMARTFORM打印中的小计和总计的实现.好久没有做SMARTFORM了, 所以没有参与讨论. 后来网上查询了一下. 也没有找到很好的解决方案.所 ...
j2ee:servlet练习鲜花项目(购物车、分页、ajax、iframe弹出层、jquery、json(计算小计、总计)、map集合高级遍历、图片上传)...
第一:概念购物车全过程的理解: 1.新建一个购物车类,这样,这个类里面就可以封装商品对象和商品数量了. 2.每种商品都是一个购物车 3.把所有的购物车放在一起,也就是放在一个map集合中,这样 ...
sql server 分组小计和总计
在 SQL Server 中,要对某一列进行分组并计算小计和总计,可以使用 GROUP BY 和 SUM() 函数. 例如,对于一个名为 "orders" 的表,其中有 " ...
pandas实现分类汇总--小计，总计
有一批数据需要分类汇总和总计,看了一下pandas的groupby,可以实现.具体思路:先分组,分组后计算改分类的汇总小计,然后对dataframe进行拼接:分类汇总计算好了之后,计算总体的汇总,然后 ...
实战 SQL：销售数据的小计/合计/总计以及数据透视表
文章目录小计.合计与总计多维度交叉统计自定义统计维度数据透视表总结学习过 SQL 的人都知道,使用聚合函数(AVG.SUM.COUNT.MIN/MAX 等)和分组操作(GROUP BY)可 ...
sqlserver 小计合计总计
SELECT CASE WHEN GROUPING(F1) = 1 THEN '总计' WHEN GROUPING(F1) = 0 AND GROUPING(F2) = 1 THEN F1+'合计' ...

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

Delphi使用ReportMachine制作小计和总计报表相关推荐

最新文章

热门文章