深入QuickReport一

 

报表是数据库应用程序的基本组成部分之一,完整的数据库应用程序总要提供报表功能。与传统的数据库应用程序设计工具相比,C++ Builder中提供了QuickReport组件,使C++ Builder的数据库功能得到了极大的丰富。

QuickReport是挪威Qusoft AS公司专门为C++ Builder设计的用于报表的一组控件,在C++ Builder上我们使用的QuickReport与专业版的QuickReport相比,在功能上还有很大的差距,但对于我们来说只要充分利用好她,就可以非常快捷的设计出功能强大、模式多样的数据报表,最重要的是她不需要我们花额外的钱去购买。

其实QuickReport并不难,但介绍的这方面的内容实在太少,并且她的帮助文档写得也不太好,让那些想学习QuickReport的C++  Builder爱好者找不到一个正确的、合适的方法。如果你想了解她、使用她,那好吧,让我来帮你认识这个妖女吧,如果此文对你能有所帮助,那是我最大的快乐!

 

第一部分:QuickReport基本知识

 

BCB引进的Qusoft公司的报表组件系列,它包括多个组件。首先有必要先简单的了解一下这二十三个组件的基本位置与功能。

一、组件功能简介

 

 

 

 

 

上面的两个图是QuickReport组件页的中所有组件,在BCB6中提供给我们使用的不会少于上面的23个的。

下表是按上图中组件的位置先后,对各控件的使用功能逐一做了简单的介绍:

 

1)QuickRep

带有坐标,作为其他报表控件(如TQRBand)的容器,通过它的Band属性可以自动添加各种类型的TQRBand

 

重要属性 (Properties)

使用说明

DataSet

 

连结数据来源,一般是ADO/BDE连接组件的名字

Page

纸张的设置,可展开

BottomMargin

10.0mm

报表下边界尺寸

Columns

1

报表分栏数,默认为1栏

ColumnSpace

0.0mm

报表栏与栏间隔尺寸,Columns值大于1时有效

LeftMargin

10.0mm

报表左边界尺寸

Length

210.0mm

报表长度尺寸,与PaperSize设置相关

Orientation

poPortrait
poLandscape

报表方向 打印方向,有下面两个值:直印poPortrait、横印poLandscape 

PaperSize

A4

报表打印纸张大小

RightMargin

10.0mm

报表右边界尺寸

Ruler

true

报表标尺显示

TopMargin

10.0mm

报表上边界尺寸

Width

297.0mm

报表宽度尺寸,与PaperSize设置相关

PrinterSetting

Copies

1

报表复制份数

Duplex

false

报表双重打印

FirstPage

0

报表打印起始页

LastPage

0

报表打印终止页

OutPutBin

Auto

报表输出种类

ReportTitle

报表预览打印标题

Units

mm

报表设计阶段显示标尺单位

2)QRSubDetail

建立一个主/明细(master/detail) 报表,连接明细文件的组件

3)QRStringsBand

可建立一读取 TStrings 中项次值的组件。在这个组件里有一个Items属性,若Items一个值(一行空、一回车行)都没有,那他上面的组件将不会起作用。当String List Editor中有几行,该组件上的内容就重复几次。若只有一行内容时,她与一个DetailBand是一样的;而多行时,也是差不多的,即先重复该区段内的可视组件几次(几行就几次),然后下一个再重复。比如三行,那就是第一个数据来三行,然后第二个数据来三行,再然后,直到最后

 

4)QRBand

用来确定在报表的不同位置应该显示什么内容,它上面可以放控件

5)QRChildBand

在报表中基础子项条列组件。他有一个ParentBand属性,你必须把他与其它band连接起来,只有这样在她里面布置的组件才有效。说直接就是已经有了一个Band而你还需要一个这样的组件,那就用她吧

6)QRGroup

在报表中对资料做逻辑上分组的组件。当你连接了几个datasets到报表时可以通过Groups成组的对dataset进行操作

7)QRLabel

打印静态的文本(即不是根据数据库值来改变的),作用象Tlabel 。 Caption的内容就打印出来的内容;AutoStretch是布尔型变量,当标签标题在设定范围内不能打印时,该属性将起作用,若为true,报表将继续打印没有打印完的文本,其它需要打印的文本将依次向后移动,反之,则超出部分不被打印

8)QRDBText

在报表中具有显示连结资料来源的文字功能的组件

9)QRExpr

在报表中具有显示陈述句或计算表示式值的组件

10)QRSysData

在报表中具有显示系统信息的组件

11)QRMemo

在报表中显示备注文字的组件

12)QRExprMemo

在报表中是TQRExpr 和 TQRMemo 的混合组件

13)QRRichText

在报表中具有显示区域文字功能的组件

14)QRDBRichText

在报表具有显示连结资料来源的区域文字功能的组件

15)QRShape

在报表中处理几何图形的组件,如方形、圆角方形、椭圆

16)QRImage

在报表中显示静态的图片,包括(BMP,WMF,ICON)

17)QRDBImage

在报表中显示从数据库接收的图片

18)QRCompositeReport

在报表中连结有关与无关的报表组件 ,用于创建混合报表的组件,可以把两个或两个以上的报表连接在一起,组成一个报表

19)QRPreview

在执行阶段建立自订预览报表组件

20)QRTextFilter

将报表内容输出于ASCII text 文件

21)QRCSVFilter

将报表内容输出于CSV文件

22)QRHTMLFilter

将报表内容输出于HTML文件

23)QRChart

可以在报表上应用的图表工具



二、组件关系表

 

下图说明了与QuickReport相关组件之间的连接与关系:

                                                    

               ┌ADOTable<=|                    ┌QRChilderBand┐

DataBase<=ADO<=│          |<=====QuickRep<=====├QRBand       │<===可视化组件

               └ADOQuery<=|                    └QRStringBand ┘

                                                    

数据库         ADO引擎         报表容器组件     Band区段(容器)  可视化控件(显示)

注意:可视化组件必须布置在相应的TQRBand区段上,否则将得不到要显示的内容。BDE引擎与这个差不多,他与ADO只是与库联接方式不一样,对QuickReport没有什么影响。

 

有时有些朋友不小心把可视化组件放在窗体上了,而没有直接放在TQuickRep组件中的各Band区段上,当把这些组件移到想要放置的区段时,发现这些组件不能用,所以你要切记:一定要把组件放在固定的区段上,并且在区段之间也是不能移动的。我们从Object TreeView中可以看到这些组件与TQuickRep是同一层,当然他不可能为TQuickRep工作了,只有他成为TQuickRep中的某一个区段(某个Band)的下一层时,才能正常工作。并且一定要放在一个区段中,不要误认为放在TQuickRep上就行,如果你直接放在TQuickRep上,你的报表中将得不到什么L

 

三、最大容器TQuickRep

 

QuickReport中组织层次是特别严格的,TQuickRep是报表组件中必须有的,并且所有Band组件都必须放在她的上面,如果说每个Band区段都是一个小容器的话,那她就是一个最大的容器。想用好QuickReportTQuickRep绝对不能只看作是一个类似Form的容器,如何用好她对我们用好QuickReport会起到关键性作用。

1)主要属性:

DataSetTDataSet数据集类型变量,用来设置报表使用的数据集组件对象,在主/明细报表中是主报表的数据集。若我们的报表要用到数据库,她必须指定数据库连接工具的名称,否则你的程序将看不到数据库中的数据。当然,在数据库的连接组件中也一定要把Active设为true,让不你只能在程序运行中动态的把数据库打开,而在程序设计阶段将看不到什么L

RecordCount 是数据集组件对象中记录的数量;

RecordNumber是当前正在打印/显示的记录的索引(第一条记录的索引是0);RecordCountRecordNumber两个属性只有打开数据集对象之后,它们才可以访问。

若报表组件成功地从数据集组件对象中提取数据,并生成报表,则Available的属性值为true

 State属性是报表状态信息,它是枚举型变量,可以有以下的取值:

qrAvailable:报表资源已准备好,可以预览或打印;

qrPrepare:正在生成报表;

qrPreview:正在预览报表;

qrPrint:正在打印报表;

qrEdit:正在编辑报表。

Description是TStrings类型属性,它可以用来保存程序员对报表的简单描述。主要是起提示作用。

Page属性是TQuickRep组件中最重要属性,它是TQRPage类型变量,用来设置报表的页面属性。报表组件为她提供了特殊的编辑器,使用组件的快捷菜单Report  settings就可以打开Page的属性编辑器窗口。在报表页面属性对话框上可以设置页面的尺寸、边框、分栏、区段等等页面的属性。当然我们也可以在对象查看器中点击 Page前面的“+”展开它的所有属性,并分别设置这些属性。其中PagerSize是设置纸张大小的,他与Width、Length是密切相关的,改变PagerSize的值,后面两个的值也会做出相应的变化,同样,改变后两个属性时,PagerSize的值也会做出相应的改变。我们可以通过改变Orientation的值来改变打印的方向。Margins指的是报表显示内容在PagerSize中的位置。Columns属性我们一定注意,它是分栏设置,与WORD里的分栏设置是一样的,无论出于何种目的,有时我们要把打印内容分成两栏(或多栏)时,这时我们就要用到它,把它的值改为2(或实际栏数),至于栏间的距离我们通过Column space来设定。

Units属性是用来设置纸张的显示单位的,我们通常都选用mm(毫米),当然你要对其它比较了解也可以选用,但我认为最好不要选用其它项。

2)主要方法及事件

TQuickRep提供了大量方法以实现生成、预览和打印报表的功能,但是,它的许多方法是私有成员函数,在类外不允许访问。在实现报表功能时,应用程序经常需要调用Cancel、NewColumn、Preview、PreviewModal、PreviewModeless、Print、PrinterSetup和ResetPageFooterSize几个方面。

Cancel 方法用来撤销当前正在进行的操作,它与把TQuickRep 组件对象的Cancelled属性设置为true是一样的。

NewColumn、Print与PrinterSetup都是与打印有关的方法。其中NewColumn用来强制打印机从新栏开始打印,如果当前栏是页面的最后一栏,则该方法将自动调用方法NewPage ,从新页开始打印。

Preview、PreviewModal和PreviewModeless都是用来预览报表的。

这些方法都不需要使用任何参数。

TQuickRep能够响应的事件主要有:AfterPreview、AfterPrint、BeforePrint、OnEndPage、OnStartPage和OnPreview事件,这些事件的触发与使用方法比较简单,另外在实际应用中运用的并不多,这里就不再多说了。

 

四、 报表控件摆放的区段

 

作为报表,它通常有一个固定的模式,最常见的报表主要是由以下六部分组成:

PageHeader:页眉,每页均会出现
              | 
      Title
:标题, 只出现在第一页
              | 
    ColumnHeader
:所有列的标题,即报表文件的字段区域,每页只会出现一次 
              | 
    Detail
:记录的内容,一个字段一列,即报表的文本区域(重复区)
              | 
    Summary
:摘要(只出现在最后一页)
              | 
    PageFooter
:页脚,每页均会出现
  

QuickReport中,是通过不同的TQRBand区段来实现的。

TQRBand 是放在TQuickRep组件上面的一个容器,我们在其上面可以放置我们要打印的可视化QuickReport组件。而通过对TQRBandBandType属性的设置,我们可以改变TQRBand区段的类型,来实现不同区段的功能。

BandType是一个枚举型变量,显然上面常见报表组成表中的那六个部分也一定会出现在BandType的枚举值中,只不过每个前面都加上了前缀rb。我们选择不同的BandType值,就代表不同的区段类型,实现不同的功能,这一点必须注意。

实际上TQRBandBandType属性值不止上面的六个,她还有以下几个值:

rbGroupHeader:组页眉表格元,用于标志组页中每一页的开始,也用于TQRSubDetail

rbGroupFooter:组页脚表格元,与rbGroupHeader结合分隔出单页,适用于TQRGroupTQRSubDetail

rbSubDetail:字数据表格元,无需手工设置;

rbChilder:字表格元,无需手工设置。

事实上,我们还可以在TQuickRep上来布置区段,我们只要把TQuickRep组件的Band属性前面的“+”点开,就会看到上面那六个值(当然每个前面都加上了Has,可不是rb了),这些值都是布尔型的,我们想要用哪个区段类型的TQRBand,只要把其值设为true,就可以了。从这一点可以看出:前者可以更加灵活的布置Band区段,后者使用起来更加方便、快捷,至于到时候你用哪个,那就看你当时的心情与实际情况了。单纯从结构严谨性上来讲,还是通过TQRBand的BandType来设定区段类型更好一些,并且这样做出的报表出现的问题最少。

 

五、报表运算组件TQRExpr与系统功能组件TQRSysData

 

报表运算组件TQRExpr用来提供一些简单的计算功能。Expression属性是她的最重要属性,我们有必要而且也必须掌握好她。

只要单击Expression右端的编辑按钮就可以打开表达式编辑窗口。利用这个编辑器,我们可以比较方便的设计表达式。通过表达式编辑器窗口中的按扭,可以在表达式中插入数据库中的表的字段、函数、数学和逻辑运算符,并可以通过Validate按扭来测试表达式的正确性。

当然,我们也可以直接在编辑器中输入表达式。

在她的函数中IF你一定要用好,因为她会帮我们很多忙,这个函数的对于学过DBASE的程序爱好者来说应该是非常熟悉的,因为在这里她们的使用是一样的;在C中,她与for(;;)语句或“?:”表达式差不多。她的具体使用格式如下:

IF(条件式,为真用这句,为假用这句)

系统功能组件TQRSysData可以为我们提供一些经常用到的系统功能。为了实现这些功能,他提供了两个重要属性Data和Text。

Data是一个枚举类型变量,它有七个取值,如下表:

 

系统功能类型表(Data取值表)

 

系统功能类型

功能描述

qrsTime

系统时间

qrsDateTime

系统日期和时间

qrsDetailCount

需要打印的记录数量

qrsDetailNo

正在打印的记录索引

qrsPageNumber

正在打印的页

qrsReportTitle

报表标题

qrsDate

系统日期

 

Text属性是字符串类型变量,用来构成完整的系统功能字符串。

Data和Text这两个属性通常是一起使用的。如果将Text设置为“打印时间:”,而将Data设置为qrsDataTime,则系统打印结果为“打印时间:2003-9-21 13:08:12”的形式。

许多情况下,我们更想打印如“第1页”这样格式的页码,使用上面的属性是不能实现的,这就要我们编写代码来实现。在打印/显示报表时,应用程序将触发OnPrint事件句柄。这样我们只要在报表运算组件TQRExpr或系统功能组件TQRSysData的OnPrint中写下如下代码就可以实现了:

void __fastcall TForm1::TQRExpr1Print(TObject *sender, AnsiString &Value)

{

       Value="第"+Value+"页";

}

//-------------------------------------------------------------------

 

 

void __fastcall TForm1::TQRSysData1Print(TObject *sender, AnsiString &Value)

{

        Value="第"+Value+"页";

}

//-------------------------------------------------------------------

 

通过这两段代码我们可以知道,原来这两个组件显示或起作用的就是Value,如果我们不修改Value的值,则直接打印Value内容。由于我们在OnPrint事件中修改了她的值,从而改变了打印的内容。

注意:有些朋友把上面代码输入了进去,却得不到正确的内容,原因很简单:TQRSysData的Data属性值设置不对,这个例子中我们要得到页数,看一下Data的值是不是qrsPageNumber,并且Text的值是否为空;对于TQRExpr组件,你是否通过Expression编辑器的Variable按钮进入了下一页,选择了PAGENUMBER值?这是你不能正确实现代码的问题所在。

 

六、TQRShape组件

 

TQRShape组件可以在报表上输出一些简单的图形,设置它的Shape属性可以选择不同的图形,但它主要用于绘制表格线,因此与TShape有些不同,下面我们来看一下Shape的取值:

TQRShape组件Shape属性取值表

 

Shape属性取值

意义

qrsCircle

画圆

qrsHorLine

画水平直线(Height要设为1或其它)

qrsRectangle

画矩形

qrsRightAndLeft

仅在矩形左右绘直线

qrsTopAndBottom

仅在矩形上下绘直线

qrsVertLine

画垂直线(Width要设为1或其它)

 

作为画图组件她的四个位置属性最为重要,它们是Top、Left、Height和Width。其实对于QuickRep的绝大多数组件来说,这四个属性也是非常重要的。

在Shape属性值为QrsHorLine/ QrsVertLine时,Height/Width的属性值要改为1或其它,这取决于你线条的宽度。

Brush属性用来设置几何图形内部的填充风格,它包括填充颜色Color和填充图案Style。

Pen属性用来设置用于画图的画笔的属性,它包括Color、Style、Mode、Wide等。

TQRShape组件与TShape组件有许多相同之处,但也有一些不同之处,象Shape属性的取值等等,我们一定注意。其实通过对两个类似组件的对比学习,会加深我们对她们的掌握。如果运用得当,漂亮的线条就会出现在我们面前。

对于TQRShape组件的使用来说更多的是熟练,她应该是所有QuickReport组件中最好掌握的一个了,使用率也是最高的一个,并且TQRShape在表格设计中的作用是其它组件所不能取代的,但本文限于篇幅就不在做过多的解释了。
  • 1
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
一、 简单了解各控件功能   以下是各控件最简单的使用功能,其他功能依具体的实现而介绍。  TquickRep:带有坐标,作为其他报表控件(如TQRBand)的容器,它的Band属性可以自动添加各种类型的TQRBand.   TQRLabel:打印静态的文本(即不是根据数据库值来改变的),作用象Tlabel , Caption的内容就打印出来的内容。   TQRDBText:打印数据库字段值,一个值一行。作用象TDBText.把它的DataSet , DataField分别赋予Table1,Company时,将打印Table1所指向的表的Company字段的内容。   TQRSysData:打印系统信息如时间,页码,报表头等。   TQRMemo:非常象TQRLabel,只是它可以打印多行,也是打印静态数据。   TQRRichText:打印RichText格式,能够连接到一个Form上的RichEdit控件并打印它的内容,不过必须是32位版本的。   TQRShape:打印方框、圆和垂直、水平线。   TQRImage:打印静态的图片,包括(BMP,WMF,ICON).   TQRDBImage:从数据库接收图片。   TQRBand:用来确定报表的不同位置应该显示什么内容,它上面可以放控件(参见二)。   TQRGoups:Groups可以不限级别的组操作。当你连接了几个datasets到报表时可以通过Groups成组的对dataset进行操作。   二、 报表的控件摆放循序   出现在所有页上的标题(PageHeader)   标题(只有首页才有)(Title)   所有列的标题(ColumnHeader)   记录的内容,一个字段一列(Detail)   摘要(最后一页才有)(Summary)   出现在所有页上的页脚(PageFooter)   这些根据设置不同的Band(不是控件,一种类型而已,在其上面可以放其他控件)来定位。总共有六种Band。   三、 一个简单的例子   这个例子制作打印一张表的部分字段名及该字段数据内容的报表。   建立一个新project   放一个TTable到Form上,DatabaseName设为BCDEMOS,TableName指向Customer表,Active设为true.   放一个TquickRep控件在Form上,DataSet属性为Table1.(即要显示上边Table1所指向的表的内)。   展开TquickRep的Bands属性,设HasDetail为true,这时自动增加个detail band(一个TQRBand控件,故也可以直接放一个TQRBand控件,BandType属性设为detail就行了)。   放一个TQRDBText控件在detail band上面,设DataSet指向Table1,DataField指向Company。第四步是设置在报表的什么位置显示什么类型的数据,而TQRDBText则具体实现。   选TquickRep控件,按右键,选择”Preview”预览,应该看到表Customer的字段Company的所有字段值。  到这一个简单的例子就OK了,程序实现预览及利用TQRuickRep自带的打印功能只须在Form中加一个按钮,它的OnClick事件为:QuickRep1->Preview();  四、一个使用TQRGoups、TQRExpr控件的报表   该报表先列出州名,接着列出该州的所有公司及公司总数,一个州列完后空一行(groups中断),列出新的州名,接着列新州下的所有公司,没有填州名的公司统一列在Unknown state下面。  建立一个新project。   放一个Tquery在Tquickrep上,其SQL属性为:select * from customer order by State,Company;(即根据州、公司排序),DatabaseName为BCDMome,Active为true.   放一个TquickRep控件在Form1上,DataSet为Tquery1.   放一个TQRGroups控件在TquickRep上,这时默认为group header。(任何时候当group中断或更高级别的group中断,这个header都将打印出来,如果有表达式,根据表达式的值显示内容。)接着添加一个group footer band,添加时,放一个TQRBand控件在报表上,连接TQRGroups的FooterBand属性到这个QRBand,这时这个新建的TQRBand就成为Group Footer. (TQRGroup的一个重要特性是表达式,任何时候当表达式的值变时Group都将中断,如表达式是按省列出城市名,当前列出广东省,当属于该省的城市列完后,表达式值改变,这时Group中断,接着显示其他省的城市名。)TQRGroups的Expression属性设为Query1.State(根据不同的州来中断)。   放一个TQRBand控件在报表上,BandType为rbDetail.   放一个TQRExpr控件在group header上面,其Expression属性为:if(State<>’’,State,’Unknown state’),即如果公司的州没填,就归入Unknown state,否则归入State.   放三个TQRDBText在Detail上,他们的DataSet都指向Query1,DataField分别指向Company,Contact,Phone.   在放一个TQRExpr控件在group Footer上面,Expression为’Customers in’+State+’:’+Str(Count) 作用是在每个州的公司列完后显示该州总共有多少个公司。   按右键选预览,应该看到不同的州名及其公司和公司公司总数。  五、QuickReport 条件式列印   可以直接在 TQuickReport 的 OnFilter 事件中写明条件判断,OnFilter事件的引数中有一个以 var 宣告的 PrintRecord 布林型态变数,将这个变数设为 True(预设值), 该笔记录便会印出;反之, 设为False,就不印出这笔记录. procedure TForm1.QuickReport1Filter(var PrintRecord: Boolean); begin PrintRecord := False; if YourTable.FieldByName(‘WantedField‘).AsInteger <= 100 then Exit; if YourTable.FieldByName(‘WantedField‘).AsInteger >= 150 then Exit; PrintRecord := True;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值