CSDN博客

img ch_builder

深入QuickReport(三)

发表于2004/7/5 17:25:00  9135人阅读

分类: C++ Builder

深入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组件页中的TQRTextFilterTQRHTMLFilderTQRCSVFilter三个组件。完整的代码如下:

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控件,对齐方式设为alClientForm1窗体的外观如图1所示:

 

 

再新建一个窗体,设其NameForm2, 在该窗体上添加TQuickRep控件,设其NameQuickRep1,其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系统、BCB6EPSON C43UX下编译通过。

 

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

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

 

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

0 0

相关博文

我的热门文章

img
取 消
img