Delphi中用FastReport制作报表

======================================================
注：本文源代码点此下载
======================================================

报表作为系统信息的典型输出形式之一,是大多数应用系统特别是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事件中输入如下代码:

begin

if line# -1

代码中用fastreport的内置函数 line# 取得当前行号,如果满足条件,就显示页头和child3,开始新的一张表单。

3.选中child3,在它的onbeforprint事件中输入如下代码:

begin

lin = linecount //在程序中要对该变量赋值

while lin mod 5

这段代码的用途是如果最后数据行不够一张表单显示时,就打印空行。

4. 选中band3,在它的onbeforprint事件中输入如下代码:

begin

showband child1 //到达报表结束时显示表单底部的内容

end

5.将报表保存后回到delphi开发环境。

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

以上程序在windows 2000/xp+delphi6.0中调试通过。至此,我们已经完成了药品验收单的设计工作,其他的类似报表设计可以参照以上过程。图2是程序运行时生成的报表预览效果。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/