深入QuickReport（三）

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

                //