用Delphi4的QReport部件生成报表

男保女建

男保女建

2016-02-19 18:36

下面,图老师小编带您去了解一下用Delphi4的QReport部件生成报表,生活就是不断的发现新事物,get新技能~
p>  用户在使用数据库应用程序时经常要生成报表,利用Delphi 4的QReport 部件,可以帮助我们快速方便地生成报表。这里以一个设备治理报表为例说明如何用QReport部件与Query部件设计从多个数据表中生成报表。
  
   一、 所用数据库
     这里用到三个FoXPro数据表,DLBMK(设备大类编码)、SBXHK(设备型号及配置)、BMSBK(设备所在部门),存放在D:SB目录下。其库结构如下:
   (一) DLBMK 字段名称 字段类型 解释1 DLBH N3 设备大类的编号2 DLMC C20 设备大类的名称(二)SBXHK字段名称 字段类型 解释1 XHBM N3 设备型号的编码2 DLBH N3 同DLBMK中的DLBH字段3 SBXH C30 设备型号4 SBPZ C30 设备配置5 SBSL N3 设备数量(三)BMSBK字段名称 字段类型 解释1 BMMC C20 部门名称2 XHBM N3 同SBXHK中的XHBM字段3 SL N3 数量  利用这三个数据表,要生成一个只有电脑部有而其他部门没有的设备型号的情况。
   二? 绦蛑械牟考笆粜?/b>
     程序中有两个窗体:主窗体mainForm与报表窗体repForm。主窗体mainForm中有两个TButton部件,设置如下:
   部件 属性及属性值
   PreviewBTn:TButton Caption:预览
   PrintBtn: TButton Caption:打印   报表窗体repForm中的部件及属性设置如下:
   部件 属性及属性值
   Query1: TQuery DatabaseName:d:sb
   Active: True
   Qrep1: TQuickrep Dataset:query1
   TitleBand1: TQRBand BandType:rbTitle
   HeadBand1: TQRBand BandType:rbColumnHeader
   DrawLeft : True
   DrawRight : True
   DrawTop : True
   DrawBottom : True
   DetailBand1: TQRBand BandType:rbDetail
   DrawLeft : True
   DrawRight : True
   DrawTop : True
   DrawBottom : True
   ChildBand1: TQRChildBand ParentBand:DetailBand1
   DrawLeft : True
   DrawRight : True
   DrawTop : True
   DrawBottom : True
   TitleLabel: TQRLabel Caption:设备统计表
   DlmcLabel: TQRLabel Caption:类别
   SbxhLabel: TQRLabel Caption:型号
   SbpzLabel: TQRLabel Caption:配置
   SbslLabel: TQRLabel Caption:数量
   DlmcDBText: TQRDBText Dataset:Query1
   Datafield: dlmc
   SbxhDBText: TQRDBText Dataset:Query1
   Datafield: sbxh
   SbpzDBText: TQRDBText Dataset:Query1
   Datafield: sbpz
   SbslDBText: TQRDBtext Dataset:Query1
   Datafield: sbsl
   Shape1~9: TQRShape Shape:qrsVertline
   Top:0
   Width:1
   Query1的SQL属性设置为:
   select a.dlbh,a.dlmc,b.sbxh,b.sbpz,b.sbsl
   from dlbmk a,sbxhk b
   where a.dlbh=b.dlbh and b.xhbm not in
   (select xhbm from bmsbk where trim(bmmc)$#@60;$#@62;’电脑部’)
   order by a.dlbh    设置几个TQRband部件的DrawLeft、DrawRight、DrawTop、DrawBottom属性值为True,是为了打印表格边框及横线。利用TQRShape部件,是为了打印出表格竖线。DlmcDBText放置在DetailBand1上,其它几个TQRDBText部件放置在ChildBand1上,Shape1~3放置在HeadBand1上,Shape4~6放置在DetailBand1上,Shape7~9放置在ChildBand1上。
   三、 为程序增加代码
   1.mainForm窗体中的两个按钮事件 procedure TmainForm.PreviewBtnClick(Sender : TObject)
  
  begin
   repForm.Qrep1.Preview;
   end;
  
   procedure TmainFormPrintBtnClick(Sender : TObject)
   begin
   repForm.Qrep1.Print;
   end;
  2.HeadBand1、DetailBand1及ChildBand1的BeforePrint事件 procedure TrepForm.HeadBand1BeforePrint(Sender : TQRCustomBand; Var PrintBand : Boolean)
   Begin
   Shape1.Height:=HeadBand1.Height;
   Shape2.Height:=HeadBand1.Height;
   Shape3.Height:=HeadBand1.Height;
   End;
  
   procedure TrepForm.DetailBand1BeforePrint(Sender : TQRCustomBand; Var PrintBand : Boolean)
   begin
   PrintBand:=bh$#@60; $#@62;Query1[‘dlbh’];
   if PrintBand then
   begin
   bh:=Query1[‘dlbh’];
   Shape4.Height:=DetailBand1.Height;
   Shape5.Height:=DetailBand1.Height;
   Shape6.Height:=DetailBand1.Height;
   end
   end;
  
   procedure TrepForm.ChildBand1BeforePrint(Sender : TQRCustomBand; Var PrintBand : Boolean)
   Begin
   Shape7.Height:=ChildBand1.Height;
   Shape8.Height:=ChildBand1.Height;
   Shape9.Height:=ChildBand1.Height;
   End;
    bh应在变量定义部分定义: Var bh : shortint=0;
    几个TQRShape部件的高度(Height)与所在TQRBand 部件保持一致,使竖线打印得整洁。假如在设计阶段调整了TQRBand部件的高度,也不会出现竖线断线或过长的情况。
     在DetailBand1的BeforePrint事件中用PrintBand进行控制,可使每个设备大类名称只需打印一次,而不是每个型号都对应打印一次大类名称。因为dlbh字段的值都大于0,bh初值设为0使它与任一记录的dlbh字段的值都不同,以确保第一个大类名称被打印。这样就生成了一个从多个数据表中提取数据,并带有表格线的数据报表。
     注:本例工程文件为sbgl.dpr,原程序文件为main.pas和sbrep.pas,若要测试请将dlbmk.dbf、sbxhk.dbf、bmsbk.dbf三个文件放在d:sb目录下。
  
展开更多 50%)
分享

猜你喜欢

用Delphi4的QReport部件生成报表

编程语言 网络编程
用Delphi4的QReport部件生成报表

Excel 2000:用Delphi自动生成报表

办公软件
Excel 2000:用Delphi自动生成报表

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Delphi控制Excel自动生成报表

Delphi
Delphi控制Excel自动生成报表

用Delphi4实现风Word97格的工具栏

Delphi
用Delphi4实现风Word97格的工具栏

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用Delphi制作中国式报表

Delphi
用Delphi制作中国式报表

Delphi中用FastReport制作报表

编程语言 网络编程
Delphi中用FastReport制作报表

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

资源高速共享用Win7搭建无线局域网

资源高速共享用Win7搭建无线局域网

C++箴言:拒绝不想用的编译器产生的函数

C++箴言:拒绝不想用的编译器产生的函数
下拉加载更多内容 ↓