Delphi使用ReportMachine制作小计和总计报表
2012-02-01 00:16
288 查看
======================================================
注:本文源代码点此下载
======================================================
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中指定给总计文本框的事件,这样当打印总计之前先汇总赋值并打印。
======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定
这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/
注:本文源代码点此下载
======================================================
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中指定给总计文本框的事件,这样当打印总计之前先汇总赋值并打印。
======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定
这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/
相关文章推荐
- Delphi使用ReportMachine制作小计和总计报表
- Delphi报表开发ReportMachine的小计和总计的计算
- c#操作word2007,使用书签替换制作报表
- delphi xe2报表控件fastreport使用时出错的解决
- C#使用VS2005制作水晶报表 提示注册 解决方法
- Delphi 使用CHM文件制作系统帮助文档(上下文感知帮助的制作)
- 如何使用报表制作工具软件进行二次开发
- Delphi中用FastReport制作报表
- delphi资源文件制作及使用详解
- 使用JasperReport和iReport制作java报表
- 使用delphi制作统计图表,delphi PageControl选项卡标题变色
- Delphi 使用HLP文件制作系统的帮助文档
- 使用JasperReport和iReport制作java报表
- 一条语句轻松写出一个报表(含明细、小计、合计、总计)
- 使用jasperreports制作报表(导出pdf excel html)
- delphi资源文件制作及使用详解
- Reporting Service Tips 101(#7) - 使用RS制作树状可折叠报表
- sql server 2012 报表开发(1) 如何使用Reporting Service 2012制作报表
- Java中使用iText组件制作pdf报表 .
- 用Delphi制作中国式报表