Delphi中用FastReport制作报表
2009-03-17 15:22
295 查看
报表作为系统信息的典型输出形式之一,是大多数应用系统特别是MIS系统的重要功能。是否具有一个良好的打印功能,往往从一定程度上关系到系统的成败。Delphi有很强的报表功能,但是它的报表功能还不能满足我们的需要。于是许多Delphi高手相继推出了不少优秀的报表控件(模块),作为QuickReport的补充,其中FastReport就是一个代表。
FastReport综合了QuickReport和Re portBuilder的优点,个头小,速度快,并带有全部源码。笔者在开发一个药品管理系统时,用FastReport2.51成功制作出了和药品验收单、药品调拨单一模一样的表单式报表。下面给朋友们介绍一下。
FastReport2.51下载地址:http //www.skycn.com/soft/8805.html。
报表的需求分析
在医院工作的朋友都知道,药品入库时要填写药品验收单,药房工作人员领取药品时要填写药品调拨单。笔者单位使用的药品验收单和调拨单不是专用的,而是通用的商品验收单和调拨单。与百货业、电信系统使用的报表不同,它的形状为条形,每张固定可填五种药品,内容包括发货单位、发货单号、收货单位、品名、规格、单位、价格、金额等,一式三联。
综上所述,我们可以把报表设计的需求归纳如下:
1. 大小为:长21cm,宽10cm;
2. 每张可以打印5种药品,表单下面有本页小计。
3. 多于5种药品时开始新一张表单的打印,不足5种药品时要用空行补足。
报表设计
1.打开FastReport的报表设计器,按照图1设计出“药品验收单”。
另外,InHJ、OutHJ、CaHj、LineCount这几个变量分别表示“入库合计”、“出库合计”、“差价合计”和“数据总行数”,在程序中将对这几个变量赋值。
2.按F11键,调出对象查看器,选中Band2,在它的OnBeforPrint事件中输入如下代码:
代码中用FastReport的内置函数 LINE# 取得当前行号,如果满足条件,就显示页头和Child3,开始新的一张表单。
3.选中Child3,在它的OnBeforPrint事件中输入如下代码:
这段代码的用途是如果最后数据行不够一张表单显示时,就打印空行。
4. 选中Band3,在它的OnBeforPrint事件中输入如下代码:
5.将报表保存后回到Delphi开发环境。
Delphi编程部分
在Delphi编程部分我们主要完成报表所需参数的传递,因为要在好几个过程中访问这些参数,所以要将这几个参数设为全局变量:
以上程序在Windows 2000/XP+Delphi6.0中调试通过。至此,我们已经完成了药品验收单的设计工作,其他的类似报表设计可以参照以上过程。图2是程序运行时生成的报表预览效果。
FastReport综合了QuickReport和Re portBuilder的优点,个头小,速度快,并带有全部源码。笔者在开发一个药品管理系统时,用FastReport2.51成功制作出了和药品验收单、药品调拨单一模一样的表单式报表。下面给朋友们介绍一下。
FastReport2.51下载地址:http //www.skycn.com/soft/8805.html。
报表的需求分析
在医院工作的朋友都知道,药品入库时要填写药品验收单,药房工作人员领取药品时要填写药品调拨单。笔者单位使用的药品验收单和调拨单不是专用的,而是通用的商品验收单和调拨单。与百货业、电信系统使用的报表不同,它的形状为条形,每张固定可填五种药品,内容包括发货单位、发货单号、收货单位、品名、规格、单位、价格、金额等,一式三联。
综上所述,我们可以把报表设计的需求归纳如下:
1. 大小为:长21cm,宽10cm;
2. 每张可以打印5种药品,表单下面有本页小计。
3. 多于5种药品时开始新一张表单的打印,不足5种药品时要用空行补足。
报表设计
1.打开FastReport的报表设计器,按照图1设计出“药品验收单”。
另外,InHJ、OutHJ、CaHj、LineCount这几个变量分别表示“入库合计”、“出库合计”、“差价合计”和“数据总行数”,在程序中将对这几个变量赋值。
2.按F11键,调出对象查看器,选中Band2,在它的OnBeforPrint事件中输入如下代码:
begin if LINE# -1 <>0 and LINE# -1 mod 5=0 then begin showBand Child1 showBand band1 end end |
3.选中Child3,在它的OnBeforPrint事件中输入如下代码:
begin lin = lineCount //在程序中要对该变量赋值 while lin mod 5<>0 do begin showband child2 //打印空行 inc lin end showBand child3 end |
4. 选中Band3,在它的OnBeforPrint事件中输入如下代码:
begin showband child1 //到达报表结束时显示表单底部的内容 end |
Delphi编程部分
在Delphi编程部分我们主要完成报表所需参数的传递,因为要在好几个过程中访问这些参数,所以要将这几个参数设为全局变量:
private line1 line2 integer //保存行号 inputXj intemp //入库小计 ,每5行后清零,下同 outXj outemp //出库小计 CajiaXj catemp Real //差价小计 下面是几个主要过程的代码清单。 //单张表单数据合并过程 procedure TInputForm.frDBDataSet1Next Sender TObject var ReCount integer begin ReCount = Adoruku.RecordCount Inc line1 // 该变量传至报表文件控制打印空行 Inc line2 // 该变量控制清零小计值 if not Adoruku.Eof then begin inputXj =inputXj+ADORuku.fieldByName '入库金额' .AsFloat outXj =outXj+Adoruku.fieldByName '出库金额' .AsFloat CajiaXj =CajiaXj+AdorukuJXCJ.AsFloat end //每5行后将小计值清零 if line2 mod 5 = 0 and ReCount> line2 div 5 5 then begin intemp =inputXj outemp =outXj Catemp =CajiaXj inputXj =0 outXj =0 CajiaXj =0 end //到达数据集末尾时给变量赋值 if Adoruku.Eof then begin intemp =inputXj outemp =outXj Catemp =CajiaXj end end |
相关文章推荐
- [转载]Delphi中用FastReport制作报表
- Delphi使用ReportMachine制作小计和总计报表
- delphi中制作报表(WORD)之我见---转
- DELPHI制作复杂报表实例,特别推荐!
- Fastreport使用经验(转)在Delphi程序中访问报表对象
- 用Delphi制作中国式报表
- 在Delphi里这种格式的报表用FastReport实现起来方便呢还是用StringGrid实现起来方便呢?
- Fastreport使用经验(转)在Delphi程序中访问报表对象
- FastReport报表制作方法
- Delphi报表(QuickReport & FastReport)
- 用 QUICKREPORT FOR DELPHI 制作报表(转)
- Delphi报表(QuickReport & FastReport)
- 用Delphi制作中国式报表
- Delphi使用ReportMachine制作小计和总计报表
- Fastreport使用经验(转) 在Delphi程序中访问报表对象
- 用Delphi制作中国式报表
- 在报表中打印固定行(不足时补充空行)----使用fastreport 4.6 和 Delphi 7
- delphi xe2报表控件fastreport使用时出错的解决
- Fastreport使用经验(转)在Delphi程序中访问报表对象
- Delphi制作GSM Modem的短信发送控件