精华公布栏

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: 用Delphi4的QReport部件生成报表
发信站: 哈工大紫丁香 (2001年03月13日18:19:32 星期二), 站内信件

用Delphi4的QReport部件生成报表 <<上一篇下一篇>>
  河北证券公司电脑部
师承
---- 用户在使用数据库应用程序时经常要生成报表，利用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       数量
---- 利用这三个数据表，要生成一个只有电脑部有而其他部门没有的设备型号的
情况。

---- 二、程序中的部件及属性

---- 程序中有两个窗体：主窗体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)<>’电脑部’)
  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.HeadBand1Before
Print(Sender : TQRCustomBand;
   Var  PrintBand : Boolean)
Begin
   Shape1.Height:=HeadBand1.Height;
   Shape2.Height:=HeadBand1.Height;
   Shape3.Height:=HeadBand1.Height;
End;
procedure  TrepForm.DetailBand1Before
Print(Sender : TQRCustomBand;
   Var  PrintBand : Boolean)
begin
   PrintBand:=bh< >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.ChildBand1Before
Print(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目录下。


  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇下一篇>>

------------------------------------------------------------------------
--------
  Delphi 技巧集

  Copyright 1999.11 by 东子 Mail to me!
感谢广州视窗提供主页空间

--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]