深入QuickReport(一)

深入QuickReport(一)

作者:董维春

(本文已在《CSDN开发高手》04年第一、二、三期上发表,应广大网友的要求,经编辑同意,发表在CSDN作者本人文档中,略有修改,但仅即于此,未经CSDN或作者本人同意任何个人与网站不得转载、摘抄,否则任何涉及到版权的行为后果自负)

 

报表是数据库应用程序的基本组成部分之一,完整的数据库应用程序总要提供报表功能。与传统的数据库应用程序设计工具相比,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:正在编辑报表。

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

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

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

2)主要方法及事件

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

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

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

PreviewPreviewModalPreviewModeless都是用来预览报表的。

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

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

 

四、 报表控件摆放的区段

 

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

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区段,后者使用起来更加方便、快捷,至于到时候你用哪个,那就看你当时的心情与实际情况了。单纯从结构严谨性上来讲,还是通过TQRBandBandType来设定区段类型更好一些,并且这样做出的报表出现的问题最少。

 

五、报表运算组件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或系统功能组件TQRSysDataOnPrint中写下如下代码就可以实现了:

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在表格设计中的作用是其它组件所不能取代的,但本文限于篇幅就不在做过多的解释了。
一、 简单了解各控件功能   以下是各控件最简单的使用功能,其他功能依具体的实现而介绍。  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;
评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值