转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
Delphi中用FastReport制作报表         ★★★★

Delphi中用FastReport制作报表

作者:闵涛 文章来源:闵涛的学习笔记 点击数:569 更新时间:2009/4/23 18:25:10
  报表作为系统信息的典型输出形式之一,是大多数应用系统特别是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开发环境。


没有相关教程
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台