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