分享
 
 
 

Delphi中用FastReport制作报表

王朝delphi·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

报表作为系统信息的典型输出形式之一,是大多数应用系统非凡是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<>0 and LINE#-1 mod 5=0 then

begin

showBandChild1

showBandband1

end

end

代码中用FastReport的内置函数LINE#取得当前行号,假如满足条件,就显示页头和Child3,开始新的一张表单。

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

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是程序运行时生成的报表预览效果。

(图片较大,请拉动滚动条观看)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有