深入QuickReport（二）

最新推荐文章于 2025-03-27 07:47:44 发布

原创最新推荐文章于 2025-03-27 07:47:44 发布 · 1w 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#dataset #报表 #query #table #header #数据库

C++ Builder 专栏收录该内容

47 篇文章

订阅专栏

本文深入介绍QuickReport例程，通过多个例子展示其组件应用。包括TQuickRep、TQRLabel等组件在报表设计中的使用，如显示数据库表内容、分组统计等。还讲解了主/明细报表设计，涉及数据表连接和TQRSubDetail组件设置，助于进行简单及复杂报表设计。

深入QuickReport（二）

作者：董维春

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

第二部分：深入QuickReprot例程

在应用中学习，在实践中进步，这是我学习QuickReport的最大感受，通过上面的介绍，我想你对QuickReport也有了一定的了解，那么下一步我们将通过例程逐步深入QuickReportJ

例一：TQuickRep、TQRLabel、TQRDBText组件的应用
       实践是最好的老师，我们先通过一个例子来看一下QR的快捷与方便。
         1）建立一个新Project 。
       2）放一个TTable到Form上，这里我们用BCB中自带的数据库。DatabaseName设为BCDEMOS，TableName指向Customer表，Active设为true。
         3）放一个TQuickRep控件在Form上，DataSet属性为Table1（即要显示Table1所指向的表的内容）。
         4）展开TQuickRep的Bands属性，设HasDetail为true，这时自动增加个Detail Band(一个TQRBand控件，故也可以直接放一个TQRBand控件，BandType属性设为rbDetail就行了)。这个区段是重复区段。
       5）放一个TQRLabel与TQRDBText控件在Detail Band上面，TQRLabel的Caption属性设置为“公司：”二字；TQRDBText的 DataSet指向Table1，DataField指向Company。
        6）选TQuickRep控件（不要指在区段上），按右键，选择“Preview”预览，应该看到表Customer的字段Company中所有字段值。
       到这一个简单的例子就OK了。但这个程序你编译后，会得到与你布置时一样的QuickReport组件，看不到你想要的报表内容。程序要实现刚才Preview时的效果只能利用TQRuickRep自带的打印功能了，我们只要在Form中加上一个按钮，在它的OnClick事件中写上：QuickRep1->Preview(); 就可以了。没有人希望那个什么也不显示的TQuickRep组件摆在窗体上，这也告诉我们一点我们的程序中最好有两个Form：一个是放置控制QuickReport显示、打印或实现其它功能的，比如本例中放置控制按扭；一个是提供给QuickReport布置组件的。

当然这不是说在一个Form中实现不了上述功能，其实你只要在窗体的OnCreate事件中把TQuickRep组件隐藏起来就可以了：

void __fastcall TForm1::Form1Create(TObject *Sender)

{

QuickRep1->Hide();

}

要注意QR你不能用Show()调用，那你将得不到你想要的程序，当然用Preview()就没错了。以下是本例的程序源代码：

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::Form1Create(TObject *Sender)

{

QuickRep1->Hide();

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

QuickRep1->Preview();

}

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

进一步思考：有时我们想实现垂直输出，比如用TQRLabel里的内容我们想垂直显示能否实现？

当然能实现。只要我们按如下设置就可以实现：

AutoSize=false;//默认为true

AutoStrech=true;// 默认为false

WordWrap=true;// 默认为true，这是设置中的重点，这与Label中的设置是一样的

Caption的值要注意，每个字符间一定要有空格；//一般的设置我们不会留空格，因为设计空格除了美观，没什么实际意义，但在这里必须留空格

进一步思考：我们想显示有两位小数的数字，应该如何办呢？
只要把该可视化组件的mask属性设为0.00就可以实现了。

例二：TQRGroup、TQRExpr组件的应用

该报表先列出州名，接着列出该州的所有公司及公司总数，一个州列完后空一行（Group中断），列出新的州名，接着列新州下的所有公司，没有填州名的公司统一列在“不清楚什么地区的”下面。
         1）新建一个Project。
         2）放一个TQuery在TForm上，其SQL属性为：select * from customer order by State,Company，即根据州、公司排序，DatabaseName为BCDEMOS，Active为true。
        3）放一个TQuickRep控件在Form1上，DataSet为Query1。
     4）放一个TQRBand在TQuickRep上面，把其BandType设成rbDetail。

5）放一个TQRGroup控件在TQuickRep上，这时默认为Group Header。（任何时候当Group中断或更高级别的Group中断，这个Header都将打印出来，如果有表达式，根据表达式的值显示内容），接着添加一个Group Footer Band，但我们却不能找到这样的一个组件，那应该如何设计出Group Footer Band区段呢？我们只要放一个QRBand2在报表上，把TQRGroup的FooterBand属性指向QRBand2，看一下，QRBand2是不是变成了Group Footer Band 。（TQRGroup的一个重要特性是表达式，任何时候当表达式的值改变时，Group都将中断，如表达式是按省列出城市名，当前列出辽宁省，当属于辽宁省的城市列完后，表达式值改变，这时Group中断，接着显示其他省的城市名）,TQRGroup1的Expression属性设为Query1.State(根据不同的州来中断)。

注意：为什么不直接再放一个TQRGroup，因为无论我们放多少个系统都会默认为 Group Header。
       6）放一个TQRExpr控件在Group Header上面，其Expression属性为：IF(Query1.State <> '',Query1.State,'不清楚什么地区的')，即如果公司的州没填，就归入“不清楚什么地区的”，否则归入具体的州。
       7）放三个TQRDBText在Detail上，他们的DataSet都指向Query1，DataField分别指向Company、Contact、Phone。
      8）再放一个TQRExpr控件在Group Footer Band上面，Expression为Query1.State+'共有：'+STR(COUNT)+’个公司’，作用是在每个州的公司列完后显示这个州总共有多少个公司。
      9）把鼠标放在QuickRep组件上（不能放在Band区段上），按右键选预览，应该看到不同的州名及其公司名称和该州公司总数。

注意：大家发现看到并不是每个州公司的总数，每个州后列出的都是把上一个州的总数也加上的累计值，难道是我们错了，没有，检查一下你的Expression组件（运行COUNT那个）的ResetAfterPrint的属性值是否为true，如果不是把他改为true，现在看一下J

进一步思考：每一组内容都联在一起，有些不爽，要是每组内容之间被什么分隔开就好了？

其实这并不难实现，我们只要把QRBand2(group Footer)的HasChild属性设为true就可以了。当然你直接把一个TQRChildBand组件放在QuickRep1上，把她的ParentBand属性设置为QRBand2，同样可以实现上面的设置。另外我们同样可以在TQRChildBand布置其它可视化组件J

进一步思考：要是每组结束后就换页，那不是更爽吗？

只要我们把QRGroup1的ForceNewPage属性改为true就可以了，同样的组件还有一个ForceNewColumn。但一定要注意，我们改了哪个区段的这两个属性，就从哪个区段开始NewPage/NewColumn。

例三、TQuickRep组件的Page属性应用

PVC胸卡有些朋友一定见过，做这样的卡片并不太难，最近笔者就参与制作了一批胸卡，这里我们要讲的是卡片的设计。

1）新建一个Project。

2）放一个Table组件，把它指向我们的资源数据库，并把Active设为true。

3）放置一个TQuickRep组件在Form1上，并把它DataSet设置为Table1，在她上面放一个TQRBand，把其BandType值设置成rbDetail。在Band区段上面按下图放置好四个TQRLabel组件、三个TQRDBText组件与一个TQRDBImage组件。

4）三个TQRDBText组件的设置基本上一样的，把DataSet指定为Table1，然后在从DataField中选取正确的字段。我们可以同样的设置好TQRDBImage的相关属性。

5）对页面进行设置，这是关键。一张纸上我们不可能只打印一个，打印得越多越多好，左边打完，在右边继续打印，这样才能充分利用原材料。我们这里用到了分栏，把Number of columns属性设为2，也就是分两栏。在TQuickRep中使用组件的快捷菜单Report settings打开Page的属性编辑器窗口，做如下设置：

其中Pager size选择为自定义，在其后输入纸的大小，其它设置按上图即可。当然我们也可以在对象查看器窗口单击Page属性左端的编辑按钮，展开其属性值来进行正确的设置，如下图：

6）TQRBand的Width设为228，然后重新调整好Band上组件的位置。228实际上是由38×6得到的。

7）把鼠标放在QuickRep组件上（不能放在Band区段上），按右键选预览，看一下效果吧。

难点：为了定位方便、准确， TQuickRep组件提供了坐标（一格一格的，边上带数字的，不会告诉我没看见吧J），从对纸张的设置我们知道这些坐标每整格相距为10mm，但在QR中，很多组件都没有单位，对于这10 mm，QR中对应的单位长度是38，这一点你一定要记住。

通过上面的三个例子，我们已经可以进行了一些简单的报表设计，从例四开始我们将进一步的学习QuickReport，下面例程也只讲关键点，着重分析，省略一些重复性的语言。

例四、主/明细（Master/Detail）报表与TQRSubDetail组件的应用

设计主/明细报表的关键有两点：一是主/明细数据表的连接；二是对TQRSubDetail组件的正确使用。

主从数据表连接示意图1（TTable与TTable）

Master表关联 Detail表

组件名 TTable TDataSource1 TTable

重要属性 Name <=== DataSet Name

TableName Name <====DataSource

DabaseName<===指向同一库名==>DabaseName

(指定索引字段)IndexFieldName MasterField(点击右侧“…”调出Field Link Designer对话框,设置好关联字段)

Active<=======同设为true=======>Active

主从数据表连接示意图2（TTable与TQuery）

Master表关联 Detail表

组件名 TTable TDataSource1 TTQuery

重要属性 Name <=== DataSet Name

TableName Name <====DataSource

DabaseName<===指向同一库名==>DabaseName

(指定索引字段)IndexFieldName SQL(点击右侧“…”调出String list Editor对话框设置好关联字段)

Active<=======同设为true=======>Active

TQRSubDetail组件的设置：

1）Master的值设为所在TQuickRep组件的名；

2）DataSet的值设为连接明细表的组件名；

3）点击Bands前面的“+”，展开属性，能看到HasFooter与HasHeader 两个属性，把其值设为true，这样我们就得到了一对Group（当然完全我们完全可以用别的方法）。

注意：通过TQRSubDetail属性Band里的HasHeader、HasFooter产生的Group组，在Group Header中没有Expression，她们默认按主/明细表的关联关系分组。其实没有他们，TQRSubDetail也是这样用的。

我们建立如下图的主/明细报表：

1）设置数据集

在窗体上放置TTable、TDataSource、TQuery组件，把Table1、Query1的DatabaseName属性设置为BCDEMOS，把Table1的TableName设为customer.db（主表名），把IndexFieldName设为索引字段名CustNo。把DataSource1的DataSet设为Table1，为做主/明细数据做好准备。

连接明细表的Query1，我们把其DataSource设为DataSource1，从而建立关联关系，并将其SQL属性设成：

SELECT * FROM orders WHERE CustNo =: CustNo

^ ^ ^ ^ ^ ^

|| || || || || ||

选择所有字段从orders表（从表）条件从表的字段建立主从关系主表字段

这样我们就建立了明细表与主表的关联，明细表是按上式关系分组的，就是把CustNo一样的放在一起。

2）设置报表结构

首先，在前面设计的窗体上放置一个报表组件TQucikRep，在对象查看器窗口中把Band属性展开，将其HasColumnHeader、HasDetail、HasPageFooter、HasPageHeader、HasSummary和HasTitle属性设为true。

把QuickRep1的DataSet属性设为Table1，为报表主表指定数据源。

然后，把TQRSubDetail组件放到QuickRep1组件上，作为明细表Band区段。把其Master属性设置为QuickRep1，设置Bands的子属性HasHeader和HasFooter为true，并将其DataSet属性设置为Query1，指定明细表数据来源。

3）设置主/明细报表的主体

在ColumnHeaderBand1区段中添加主表中各字段的标题使用的报表标签组件（TQRLable），它们的Caption分别为客户号、公司、电话、传真和所在城市。在DetailBand1区段中添加显示主表字段值的报表组件（TQRDBText），与前面标题对应设置其字段，要注意的是它们的DataSet都为Table1。

在明细报表部分，我们首先在GroupHeaderBand1中放置明细表的表头标签（TQRLable），它们的Caption依次设置为定单号、条款、付款方式、款项总额和未付款额。在QRSubDetail1区段中放置显示明细报表的组件对象（TQRDBText），其DataSet属性全设为Query1，字段名称依次是OrderNo、Terms、PaymentMethod和ItemsTotal。接着添加一个TQRExpr组件，设置其Master属性为QRSubDetail，打开表达编辑器，输入下面的表达式：