深入QuickReport（三）

作者：董维春

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

第三部分：报表中的其他问题

通过前两部分的学习，我想你对QuickRep已经有了一定的掌握，在这部分我们对报表设计中的其他一些问题做一下简单介绍，也许这些你并不常用，但同样这些内容对于我们学习QuickRep还是有很大益处的。

此部分内容都以例程的形式讲解，为了保持文章的完整性，例子的编号接上部分。

例五、报表的连接及保存

通过上面的例子，你也许会动手做了几个报表，有时你一定会想把其中的一些报表连接起来，组成一个综合报表，并作为整体来操作。在BCB中实现这一点并不难，我们这时要用到TQRCompositeReport组件。它提供了一个OnAddReprots事件，在创建报表时将触发这个事件，因此我们只要在这个事件中用Add方法将需要连接在一起的报表添加到该组件的事件中就可以了。下面给出一个示例程序段，这是把两个报表添加到综合报表中的，代码如下：

void __fastcall TForm1::QRCompositeReportAddReports(TObject *Sender)

{

((TQRCompositeReport*)Sender)->Reports->Add(Form2->QuickRep1);//添加第一个报表

((TQRCompositeReport*)Sender)->Reports->Add(Form3->QuickRep1);//添加第二个报表

}

做好的报表我们一定都想保存起来，保存的文件格式有：文本格式文件（TXT），组件TQRTextFilter；超文本格式文件（HTML/HTM），组件TQRHTMLFilder；逗号分隔文件（CSV），组件TQRCSVFilter；以及报表文件。保存前三种格式文件需要调用ExportToFilter方法，而直接保存报表组件，则只需用Save。这个例子中我们放了一个TSaveDialog对话框和QuickReport组件页中的TQRTextFilter、TQRHTMLFilder、TQRCSVFilter三个组件。完整的代码如下：

void __fastcall TForm1:: SaveReportClick(TObject *Sender)

{

AnsiString FileExt;

// 打开保存文件对话框获得文件名

if(SaveDialog1->Execute())

{

// 获得文件后缀

FileExt = AnsiUpperCase(ExtractFileExt(SaveDialog1->FileName));

// 输出Html超文本文件

if((FileExt == ".HTML") || (FileExt == ".HTM"))

QuickRep1->ExportToFilter(new TQRHTMLDocumentFilter(SaveDialog1->FileName));

// 输出txt文本文件

else if(FileExt == ".TXT")

QuickRep1->ExportToFilter(new TQRAsciiExportFilter(SaveDialog1->FileName));

// 输出CSV文件

else if(FileExt == ".CSV")

QuickRep1->ExportToFilter(new TQRCommaSeparatedFilter(SaveDialog1->FileName));

// 输出报表文件

else

{

QuickRep1->QRPrinter->Save(SaveDialog1->FileName);

}

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

例六、自定义报表预览窗口

QuickReport的报表预览功能总是不能达到令人满意的效果，因此，我们有必要自定义快速报表的预览窗口，以达到完美的设计要求。

1）设置预览窗口

新建工程，在Form1窗体上添加一个ToolBar控件，并在其上添加以下按钮：“调入报表”、“打印”、“打印设置”、 “上一页” 、“下一页”、“放大”、“缩小”和“关闭”。在Form1窗体上添加一个StatusBar，双击该组件，在编辑器中插入三项，在第三个项中显示页面信息。在Form1窗体上添加一个TQRPreview控件,对齐方式设为alClient，Form1窗体的外观如图1所示：

再新建一个窗体，设其Name为Form2, 在该窗体上添加TQuickRep控件，设其Name为QuickRep1，其PrinterSetting中的Units属性设为mm（以毫米为计量单位），然后建立报表。

2）编程实现

（1）在Form2上选择QuickRep1，在其事件中选择OnPreview，输入以下代码：

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"//调用Form1的内容

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm2::QuickRepPreview(TObject *Sender)

{

Form1->QRPreview1->QRPrinter=Form2->QuickRep1->QRPrinter;//最为关键的一步

}

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

（2）为Form1中的各功能按钮的OnClick事件添加如下代码：

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"//调用Form2的内容

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

//调入报表

void __fastcall TForm1::QRLoadClick(TObject *Sender)

{

Form2->QuickRep1->Prepare(); //不加入该句，下一句的共几页将不能正确出现

StatusBar1->Panels->Items[2]->Text="第"+IntToStr(Form1->QRPreview1->PageNumber)+"页"+"共" + IntToStr(Form2->QuickRep1->PageNumber)+"页";

Form2->QuickRep1->Preview();//显示页面的信息

}

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

//打印报表

void __fastcall TForm1::PrintClilck(TObject *Sender)

{

Form2->QuickRep1->Print();

}

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

//打印设置

void __fastcall TForm1::PrintSetupClick(TObject *Sender)

{

Form2->QuickRep1->PrinterSetup();

Form2->QuickRep1->Print();//不加这句可只能设置，不能打印，在我的电脑上测试是这样的

}

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

//上一页

void __fastcall TForm1::PageUpClick(TObject *Sender)

{

if(QRPreview1->PageNumber>1)

QRPreview1->PageNumber--;

StatusBar1->Panels->Items[2]->Text="第"+IntToStr(Form1->QRPreview1->PageNumber)+"页"+"共" +IntToStr(Form2->QuickRep1->PageNumber)+"页";

}

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

//下一页

void __fastcall TForm1::PageDownClick(TObject *Sender)

{

if(QRPreview1->PageNumber < Form2->QuickRep1->PageNumber)

QRPreview1->PageNumber++;

StatusBar1->Panels->Items[2]->Text="第"+IntToStr(Form1->QRPreview1->PageNumber)+"页"+"共" +IntToStr(Form2->QuickRep1->PageNumber)+"页";

}

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

//报表放大

void __fastcall TForm1::ZoomInClick(TObject *Sender)

{

if(QRPreview1->Zoom<200)

QRPreview1->Zoom+=5;

}

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

//报表缩小

void __fastcall TForm1::ZoomOutClick(TObject *Sender)

{

if(QRPreview1->Zoom>5)

QRPreview1->Zoom-=5;

}

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

//程序关闭

void __fastcall TForm1::CloseClick(TObject *Sender)

{

Close();

}

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

上面只是做了一个简单的设计，你完全可以把它做得功能更强大、外观更漂亮一些。

例七、QR组件的动态设置及探讨

BCB中提供了大量的VCL组件，有时难免要在程序中动态创建组件，VCL是用Object Pascal写的，所以VCL类的对象我们只能在堆中创建。

如创建一个TQRLable对象，我们可以这样来创建：

TQRLable *MyQRLable= new TQRLable(From1)；

即写成如下程式：

类名 *对象名=new 类名（…）；

注意：（）里面可以是你已创建的该类对象的父类名字、工程的名字、NULL或this。但最好是对象的父类名。

例：动态生成TQRLable组件

我们先在窗体（Form1）上，放上一个TQuickRep，并在其上放一个Band。在Form1窗体中按钮Button1的单击事件中写上如下代码：

void __fastcall TForm1::Button1Click(TObject *Sender)

{

TQRLable *MyQRLable= new TQRLable(From1)；

MyQRLable ->Parent=Band1;//最为关键的一句，否则你将看不到什么，但编译却是正确的

MyQRLable ->Top=10;

MyQRLable ->Left=38;

MyQRLable ->Height=25;

MyQRLable ->Width=100;

MyQRLable ->Caption="I'm MyQRLable!";

}

通过这个例子我们应该清楚的看出动态创建QR组件的几个重要步骤：

1)要一个空间（内存）；// TQRLable *MyQRLable= new TQRLable(From1)；

2)指定其父组件，说直接了就是为我们要创建的这个对象指定一个容器；// MyQRLable ->Parent=Band1;

3)指定组件要出现在父组件的哪个位置；// MyQRLable ->Top=10; MyQRLable ->Left=38; MyQRLable ->Height=25; MyQRLable ->Width=100;

4)其它重要属性。// MyQRLable ->Caption="I'm MyQRLable!";

注意上面的步骤不能任意安排，否则你的程序会出笑话的。

在动态生成非宝兰VCL原有的组件时要加上对应的头文件。我们要动态生成报表组件时一定要加入：

#include “Qrctrls.hpp”//若还有问题，你还要加入：

#include “QuickRpt.hpp”

另外由于BCB对内存管理或与系统、硬件的冲突，你的动态创建程序也许一点错误都没有，但就是编译不了；有时也许第一次通过了，第二次一样的程序却通过不了，出现这样那样的提示，最简单的办法就是注销一下系统，再试一下，多数就能解决了。

既然这样的动态产生组件会出现很多不可遇见的问题，那我们还有没有更好的办法来实现类似的功能呢？有，答案是一定的。

我们可以在TQuickRep中把所有组件都放置好，各区段组件，可视化组件都放在应该放的位置上，只是一些特定的属性我们先不给出，而通过程序给出，这样就可以仿制动态创建组件的方法来动态产生报表。说简单了就是事先把组件都准备好了，用的时候拿出来，不用的，不给定关键属性，即用属性废掉它，让它根本就不起作用。

例：动态设置QRDBText的属性值

void __fastcall TForm1::Button1Click(TObject *Sender)

{

QRDBText1->DataSet=Table1;

QRDBText1->DataField="AREA";//改成双引号后，一切OKJ

QuickRep1->Preview();

Table1->Close();

}

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

或

void __fastcall TForm1::Button1Click(TObject *Sender)

{

QRDBText1->DataSet=Table1;

QRDBText1->DataField=Table1->Fields->Fields[3]->FieldName;

QuickRep1->Preview();

}

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

注意：下面的程序是错误的

void __fastcall TForm1::Button1Click(TObject *Sender)

{

QRDBText1->DataSet=Table1;

QRDBText1->DataField=Table1->FieldValues["AREA"];//注意这将得不到你想得到的内容，因为他不是把字段名给了DataField

QuickRep1->Preview();

}

单就一个QuickReport动态生成报表，我想不是三言两语就能说完的，单独成文也不为过，好在我也把动态生成报表的一些常见问题都说出来了，解决之道上面也提了，并且还给出了几个例子，通过这些介绍，你要是有精力的话一定会做出一个不出问题的动态生成报表系统。

以上程序均在XP系统、BCB6、EPSON C43UX下编译通过。

结束语：写到这里我相信多数的读者对QuickReport应该有了一个比较全面、深入的了解了。但当我仔细读了一遍这篇文章后，发现还有很多内容没有写出来，让我意识到想在一篇文章里把QuickReport全都写出来，还真有些困难，这样也好，留点以后再写，让不闲下来做什么呢J

其实说简单了，QuickReport并不难学，只是有时我们把她孤立起来看，而没有想到，其实QuickReport就是那么回事，她在BCB上出现也不是一天两天了，现在的她可以说早已完全融入到VCL组件中去了。所以说，想真正学通QuickReport，关键还是取决于我们对VCL的掌握程度。

致谢：这里首先要感谢CSDN的韩磊，是他给了我写这篇文章的动力，让我感觉到的确有些朋友需要这样的文章，并感谢他对本文提出的宝贵意见。当然还有CSDN的熊建国、欧阳璟，尤其是欧阳老弟，他对文章做了细致如微的修改，本文的最终成形离不开他的辛勤工作与中肯建议。最后还要感谢我的女朋友王岩，她帮我完成了全文的文字校对。