深入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