| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> delphi >> Delphi中用FastReport制作报表 Delphi zhong yong FastReport zhi zuo bao biao
 

Delphi中用FastReport制作报表

2008-06-01 02:07:20 编辑來源:互联网 繁體版 评论
 
 
本文为【Delphi中用FastReport制作报表】的汉字拼音对照版显示拼音
  baobiaozuoweixitongxinxidedianxingshuchuxingshizhiyishidaduoshuyingyongxitongfeifanshiMISxitongdechongyaogongnengshifoujuyouyigelianghaodedayingongnengwangwangcongyidingchengdushangguanxidaoxitongdechengbaiDelphiyouhenqiangdebaobiaogongnengdanshitadebaobiaogongnenghuanbunengmanzuwomendexuyaoyushixuduoDelphigaoshouxiangjituichulebushaoyouxiudebaobiaokongjianmokuaizuoweiQuickReportdebuchongqizhongFastReportjiushiyigedaibiao

  FastReportzongheleQuickReportheRe portBuilderdeyoudiangetouxiaosudukuaibingdaiyouquanbuyuanmabizhezaikaifayigeyaopinzhilixitongshiyongFastReport2.51chenggongzhizuochuleheyaopinyanshoudanyaopintiaobodanyimoyiyangdebiaodanshibaobiaoxiamiangeipengyoumenjieshaoyixia

  FastReport2.51xiazaidizhihttp//www.skycn.com/soft/8805.Html

  baobiaodexuqiufenxi

  zaiyiyuangongzuodepengyoudouzhidaoyaopinrukushiyaotianxieyaopinyanshoudanyaofanggongzuorenyuanlingquyaopinshiyaotianxieyaopintiaobodanbizhedanwei使shiyongdeyaopinyanshoudanhetiaobodanbushizhuanyongdeershitongyongdeshangpinyanshoudanhetiaobodanyubaihuoyedianxinxitong使shiyongdebaobiaobutongtadewaixingweitiaoxingmeizhanggudingketianwuzhongyaopinneirongbaokuofahuodanweifahuodanhaoshouhuodanweipinmingguigedanweijiagejinedengyishisanlian

  zongshangsuoshuwomenkeyibabaobiaoshejidexuqiuguinaruxia

  1. daxiaoweichang21cmkuan10cm

  2. meizhangkeyidayin5zhongyaopinbiaodanxiamianyoubenyexiaoji

  3. duoyu5zhongyaopinshikaishixinyizhangbiaodandedayinbuzu5zhongyaopinshiyaoyongkongxingbuzu

  baobiaosheji

  1.dakaiFastReportdebaobiaoshejiqianzhaotu1shejichuyaopinyanshoudan

  (tupianjiaodaqingladonggundongtiaoguankan)

  lingwaiInHJOutHJCaHjLineCountzhejigebianliangfenbiebiaoshirukuhejichukuhejichajiahejiheshujuzongxingshuzaichengxuzhongjiangduizhejigebianliangfuzhi

  2.anF11jiantiaochuduixiangchakanqixuanzhongBand2zaitadeOnBeforPrintshijianzhongshururuxiadaima

  begin

  if LINE#-1<>0 and LINE#-1 mod 5=0 then

  begin

  showBandChild1

  showBandband1

  end

  end

  daimazhongyongFastReportdeneizhihanshuLINE#qudedangqianxinghaojiarumanzutiaojianjiuxianshiyetouheChild3kaishixindeyizhangbiaodan

  3.xuanzhongChild3zaitadeOnBeforPrintshijianzhongshururuxiadaima

  begin

  lin=lineCount //zaichengxuzhongyaoduigaibianliangfuzhi

  while lin mod 5<>0 do

  begin

  showbandchild2 //dayinkongxing

  inclin

  end

  showBandchild3

  end

  zheduandaimadeyongtushijiaruzuihoushujuxingbugouyizhangbiaodanxianshishijiudayinkongxing

  4. xuanzhongBand3zaitadeOnBeforPrintshijianzhongshururuxiadaima

  begin

  showbandchild1 //daodabaobiaojieshushixianshibiaodandibudeneirong

  end

  5.jiangbaobiaobaocunhouhuidaoDelphikaifahuanjing

  Delphibianchengbufen

  zaiDelphibianchengbufenwomenzhuyaowanchengbaobiaosuoxushenshudechuandiyinweiyaozaihaojigeguochengzhong访fangwenzhexieshenshusuoyiyaojiangzhejigeshenshusheweiquanjubianliang

  private

  line1line2integer //baocunxinghao

  inputXjintemp //rukuxiaoji mei5xinghouqinglingxiatong

  outXjoutemp //chukuxiaoji

  CajiaXjcatempReal //chajiaxiaoji

  xiamianshijigezhuyaoguochengdedaimaqingdan

  //danzhangbiaodanshujuhebingguocheng

  procedure TInputForm.frDBDataSet1NextSender TObject

  var

  ReCountinteger

  begin

  ReCount = Adoruku.RecordCount

  Incline1// gaibianliangchuanzhibaobiaowenjiankongzhidayinkongxing

  Incline2// gaibianliangkongzhiqinglingxiaojizhi

  if not Adoruku.Eof then

  begin

  inputXj=inputXj+ADORuku.fieldByName'rukujine'.AsFloat

  outXj=outXj+Adoruku.fieldByName'chukujine'.AsFloat

  CajiaXj=CajiaXj+AdorukuJXCJ.AsFloat

  end

  //mei5xinghoujiangxiaojizhiqingling

  if line2 mod 5 = 0 and ReCount>line2 div 55 then

  begin

  intemp=inputXj

  outemp=outXj

  Catemp=CajiaXj

  inputXj=0

  outXj=0

  CajiaXj=0

  

   end

  //daodashujujimoyishigeibianliangfuzhi

  if Adoruku.Eof then

  begin

  intemp=inputXj

  outemp=outXj

  Catemp=CajiaXj

  end

  end

  yishangchengxuzaiwindows 2000/XP+Delphi6.0zhongtiaoshitongguozhiciwomenyijingwanchengleyaopinyanshoudandeshejigongzuoqitadeleisibaobiaoshejikeyishenzhaoyishangguochengtu2shichengxuyunxingshishengchengdebaobiaoyulanxiaoguo

  (tupianjiaodaqingladonggundongtiaoguankan)原文】【拼音
 
 
 
上一篇《编程应用实例:Java通过JNI与Delphi交互》
下一篇《在Delphi中使用电子邮件》
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
报表作为系统信息的典型输出形式之一,是大多数应用系统非凡是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是程序运行时生成的报表预览效果。 (图片较大,请拉动滚动条观看)
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
桌球宝贝_性感在蔓延(3)
桌球宝贝_性感在蔓延(2)
银杏树下清纯女孩(9)
银杏树下清纯女孩(8)
痞子的甘南日记
疑是银河落九天
雪域坝上四——纯美色
冬日恋歌——西城杨柳弄轻柔
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
©2005- 王朝网络 版权所有