Crystal Report在Delphi中的应用

前言

Crystal Report的功能性自不必说，虽说有时做一些比较有中国特色的报表有些困难，但是功能上应该还是挺强的。Crystal Report在VS/VS.NET中应用的文章已经很多了，RDC在VB中的效果也是相当不错，在VS.NET中甚至集成了Crystal Report，虽然不是全功能版，但是做一般的报表，应该是没有问题的，尤其在.net中做的报表，可以以WEB的方式呈现给User,也是相当不错的。但是有关在Delphi中使用Crystal Report的文章却很少，也许是Delphi中报表工具都是被QReport,FastReport,Rava,Report machine等这些工具霸占着。其实这些工具也是相当不错的，只是如果原本就对Crystal Report就比较熟悉的Delphi程序员来说，在Delphi中尝试来使用一下水晶报表也还是不错的，Business Object有发布VCL Component For CR ，虽然有些Bug,但是应该还是不错了。

使用步骤

1） 下载CrystalVCL：可以去BO的网站下载，下载网址： http://www.businessobjects.com/products/reporting/crystalreports/vcl/download.asp。目前官方网站有提供三个版本的VCL.CR9/CR10/CR XI，不过没有比较新版本的CR XI Release 2及2008的。有一点不爽的是在下载的时候要求提供注册号，正版的用户应该没有问题，不过其他的非官方网站应该也有提供下载。CR9的VCL有相当多的Bug,需要自己去修改它的pas文件源代码。CR10未测试，以下的资料是CR XI的。比较好的一点是此VCL有提供源码，如果发现有Bug,可以自己作修改。可能是开发此控件的人delphi功力还不够，呵呵！还有一种是直接使用Crystal Report的ActiveX，不过不建议使用这种方法。

2） 安装VCL：安装VCL的过程非常简单，一般在下载的文件里面都有Readme的说明，按照步骤来做就好了。简单来说，就是首先在Delphi的library path里面增加CRVCL的路径，然后在Delphi里面打开dcl7cr11这个package(不同版本的VCL文件名称会有不同)，Compile后install就可以了。安装完后，会在Data Access中产生两个控件：Crpe跟CrpeDS。Crpe封装了CR的大部分功能，CrpeDS是将Delphi的DataSet传递给Crpe来进行报表的显示，主要用于Push模式，如果是pull模式，则Crpe就足够了下面会详细说明。

3） Pull模式编程：所谓Pull模式，简单来说就是rpt文件中会自动从datasource中抓取数据，Crpe就把数据认证信息跟参数等信息传递过去就可以了。（CR可以连接大部分的数据源，这点不用担心，甚至于非传统的数据库，比如Windows server的AD信息跟Outlook的信息等）。报表要提前设计好，报表的设计方法，这里不再赘述，有兴趣的可以加我QQ交流经验。也可以参考相关的书籍或者CR的在线帮助。以下的代码供参考： 

Screen.Cursor:=crHourGlass;

    Crpe1.Clear;

    Crpe1.ReportName:='Test.rpt';

    Crpe1.Connect.ServerName:='localhost';

    Crpe1.Connect.UserID:='sa';

    Crpe1.Connect.Password:='sa';

    Crpe1.Connect.DatabaseName:='Test';

    Crpe1.Connect.Propagate:=True;

    Crpe1.DiscardSavedData;

    Crpe1.ProgressDialog:=True;

    Crpe1.Output:=ToWindow;

    Crpe1.WindowButtonBar.GroupTree:=True;

    Crpe1.WindowButtonBar.ZoomCtl:=True;

    Crpe1.WindowButtonBar.PrintSetupBtn:=True;

    Crpe1.WindowState:=wsMaximized;

    Crpe1.WindowStyle.Title:='测试水晶报表预览窗口';

    Crpe1.WindowEvents:=True;

    ………………………………

    //Crpe1.wOnExportBtnClick:=CrpewOnExportBtnClick;

    Crpe1.ParamFields[0].CurrentValue:='1';

    Crpe1.Execute;

    Screen.Cursor:=crDefault;

4） Push模式编程：所谓Push模式，简单来说就是DataSet由前端组织，然后将Data Push给CR,而不是由CR直接连接数据库来抓取数据，此方法比较灵活，可以使用Delphi中功能丰富的dataset控件来组织、过滤数据，delphi中的dataset控件，比如Table、Query、DataSet等都是可以的，甚至于内存表也没有问题，比如ClientData，或者是第三方的内存表控件都可以，这就大大增加了报表的自由度，可以将Delphi强大的数据存取功能跟CR的功能组合起来使用。这里面有一个问题就是，没有了数据源，在设计报表的时候数据库的连接要如何选择？这里提供一个方法：你可以使用一个“仅字段定义”文件即可。文件大概类似如下的模样：

          f01 String       10

          f03 String       40

          f40 date

          f50 number

          fcuser      string      10

保存为.ttx为扩展名的文本文件即可，ttx中的每一行就代表了每一个字段名称、长度、类型，此文件可以在CR的开发环境中产生，也可以自已使用notepad来制作。然后在CR的新建连接中选择“仅字段定义”即可，指定为刚才产生的文件，如果以后有修改此ttx文件，直接在CR的菜单中选在验证数据库即可添加或者删除字段。参考代码如下：

 AdoQuery1.Active:=False;

 AdoQuery1.SQL.Clear;

 AdoQuery1.SQL.Add(Edit1.Text);

 Try

    AdoQuery1.Active:=True;

 Except

    ShowMessage('打开数据集失败，请确认输入的SQL语法是否正确！');

    Exit;

 end;

 Screen.Cursor:=crHourGlass;

 Crpe2.Clear;

 Crpe2.ReportName:='Test_TTX.rpt';

 Crpe2.DiscardSavedData;

 Crpe2.ProgressDialog:=True;

 Crpe2.Output:=ToWindow;

 Crpe2.WindowButtonBar.GroupTree:=True;

 Crpe2.WindowButtonBar.ZoomCtl:=True;

 Crpe2.WindowButtonBar.PrintSetupBtn:=True;

 Crpe2.WindowState:=wsMaximized;

 Crpe2.WindowStyle.Title:='测试水晶报表预览窗口';

 Crpe2.WindowEvents:=True;

 //Crpe2.wOnExportBtnClick:=CrpewOnExportBtnClick;

 …………………………………………….

 Crpe2.Tables[0].DataPointer := CrpeDS2.DataPointer;

 Crpe2.ParamFields[0].CurrentValue:='2';

 Crpe2.Execute;

 Screen.Cursor:=crDefault;

主要的代码就两句：

Crpe2.Tables[0].DataPointer := CrpeDS2.DataPointer;

 Crpe2.Execute；

前提是CrpeDS的Dataset控件的属性要设置为你所要使用数据来源控件，此示例代码中是：AdoQuery1 。如果要使用内存表，可以参考如下的代码：

 Screen.Cursor:=crHourGlass;

 ClientDataSet1.Close;

 With ClientDataSet1.FieldDefs do

 Begin

    Clear;

    Add('f01',ftString,5,False);

    Add('f02',ftString,40,False);

    Add('f03',ftString,40,False);

    Add('f04',ftString,20,False);

    Add('f05',ftString,40,False);

 End;

 ClientDataSet1.CreateDataSet;

 ClientDataset1.Open;

 AdoDataSet1.First;

 While not AdoDataSet1.Eof do

 Begin

    ClientDataSet1.Append;

    ClientDataSet1.FieldByName('f01').AsString := AdoDataSet1.FieldByName('f01').AsString;

    ClientDataSet1.FieldByName('f02').AsString := AdoDataSet1.FieldByName('f02').AsString;

    ClientDataSet1.FieldByName('f03').AsString := AdoDataSet1.FieldByName('f03').AsString;

    ClientDataSet1.FieldByName('f04').AsString := AdoDataSet1.FieldByName('f04').AsString;

    ClientDataSet1.FieldByName('f05').AsString := AdoDataSet1.FieldByName('f05').AsString;

    ClientDataSet1.Post;

    AdoDataSet1.Next;

 End;

 AdoDataSet1.Close;

 Crpe4.Clear;

 Crpe4.ReportName:='Test_TTX.rpt';

 Crpe4.DiscardSavedData;

 Crpe4.ProgressDialog:=True;

 Crpe4.Output:=ToWindow;

 Crpe4.WindowButtonBar.GroupTree:=True;

 Crpe4.WindowButtonBar.ZoomCtl:=True;

 Crpe4.WindowButtonBar.PrintSetupBtn:=True;

 Crpe4.WindowState:=wsMaximized;

 Crpe4.WindowStyle.Title:='测试水晶报表预览窗口';

 Crpe4.WindowEvents:=True;

 //Crpe4.wOnExportBtnClick:=CrpewOnExportBtnClick;

 ………………………………………..

 CrpeDS4.DataSet:=ClientDataSet1;

 Crpe4.Tables[0].DataPointer := CrpeDS4.DataPointer;

 Crpe4.ParamFields[0].CurrentValue:='2';

 Crpe4.Execute;

 Screen.Cursor:=crDefault;

内存表的数据可以来源于xml等，即可以不使用数据库引擎，在发布程序的时候比较方便，不用将数据引擎打包发布。

5） 程序分发：程序发布可以去官方网站下载合并模块Merge Modules，此模块很容易在网上找到。然后使用wise或者installshield等打包工具将此合并模块加入程序包的project中并做一些简单的设置即可，installshield等工具中甚至集成了CR的Merge Modules，直接选择对应的版本即可。

后记

        以上代码是在delphi7+SQL Server+WindowsXP Professional中测试通过，水晶报表还是挺不错的报表工具，有兴趣的不妨一试。不过对于自定义纸张的报表，CR一直没有很好的解决方案，确实遗憾。