Delphi 7 中如何使用 Crystal Report 9.2
李经通
日期
版本
描述
备注
2004-3-12
0.1
在Delphi 7 中使用Crystal Report 9 VCL等
新建
一、 利用 Crystal Report 9 VCL 编程
1、 利用VCL编写程序
当我们安装好VCL组件，同时也对VCL中的Demo做了熟悉，下面我们就可以尝试利用VCL组件来编写我们自己的报表系统了。
·新建一个Application，在Data Access Tab 中选择Crpe组件，放置到Form中，再放置一个Button按扭，双击Button，编写如下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
Crpe1.ReportName := 'C:\your report.rpt';
Crpe1.Execute;
end;
编译代码，执行，点击按扭会打开'C:\your report.rpt报表文件。
对上面代码进行完善一下，例如可以通过打开对话框打开自己想要浏览的报表文件，修改代码如下：
procedure TForm1. Button1Click (Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Crpe1.ReportName := OpenDialog1.FileName;
try
Screen.Cursor := crHourGlass;
Crpe1.Execute;
finally
Screen.Cursor := crDefault;
end;
end;
end;
注意在使用TCrpe.Execute时，最好加上try … finally…，对代码进行保护。
Crystal Report 9 VCL 的功能非常强大，通过编程我们可以控制报表的导出，打印和界面显示简单功能，而且也能处理报表中的图表显示，数据字段定义等复杂功能，给我们很大的自由度满足我们的应用需求。
2、 简单连接数据源代码实现——只使用Tcrpe32组件就可以满足我们的需求
我们用Access数据表举例，首先我们需要用Access来建立我们需要的数据库表结构，然后用Crystal Report 9来创建报表模板（关于如何来制作报表模板不是本文所涉及的内容，读者可以参考Crystal Report 9方面的参考资料），然后在我们的代码中加入Crpe1. Refresh即可。假如我们所创建的Access表文件为dbReport.mdb，则只需要更新dbReport.mdb文件中的数据，我们打开的报表就可以看到新的数据内容的报表了。
try
Screen.Cursor := crHourGlass;
Crpe1.Refresh;
Crpe1.Execute;
finally
Screen.Cursor := crDefault;
end;
3、 复杂数据源实现——需要TcrpeDS辅助实现数据源的连接
如果数据源不固定，或者用Ttable的方式，例如用TclientDataSet方式等，那么我们就需要考虑用到VCL的另一个组件TcrpeDS来实现我们的需求了。
上面说到的是用Access数据库，在这里照样可以使用，但我们这里用TcrpeDS组件实现，所以需要用到ADO数据连接（或者ODBC等其他方法）。
·在Form中加入TADOConnection和TADODataSet这两个组件。
·设置TADOConnection，连接Access数据表。双击ADOConnection组件
·点击Build，弹出数据连接属性，选择Microsoft Jet 4.0 OLE DB Provider
·下一步，连接选择Access数据表文件dbReport.mdb，确定即可。
·将TADODataSet的Connection属性设置为TADOConnection（ADOConnection1）。
·将TcrpeDS的DataSet属性设置为TADODataSet(ADODataSet1)。
·代码实现：
Crpe1.Tables[0].DataPointer := CrpeDS1.DataPointer;
Crpe1.Refresh;
Crpe1.Execute;
TclientDataSet的使用方法，为什么要使用TclientDataSet呢？因为我们一方面不想使程序需要第三方数据库引擎，另一方面想提高速度的时候，就可以考虑使用TclientDataSet，这样我们可以把数据写入TclientDataSet所建立的表临时表中，完全在内存中使用，当然也可以保存，写入文件。
同上面的道理，我们首先需要利用TclientDataSet来建立表，然后将数据写入TclientDataSet建立的表中：
·创建表，进行初始化
table: TclientDataSet;
table := TClientDataset.Create(Application);
·添加字段定义
table.FieldDefs.Add('ID', ftInteger, 0, False);
table.FieldDefs.Add('Status', ftString, 10, False);
table.FieldDefs.Add('Created', ftDate, 0, False);
table.FieldDefs.Add('Volume', ftFloat, 0, False);
·创建数据集
table.CreateDataset;
·打开数据集
table.Open;
·加入数据（加入数据的方法比较多，参考TclientDataSet的使用方法）
for i := 1 to 100 do
begin
table.Append;
table.FieldByName('ID').AsInteger := i;
table.FieldByName('Status').AsString := 'Code'+IntToStr(i);
table.FieldByName('Created').AsDateTime := Date();
table.FieldByName('Volume').AsFloat := Random(10000);
table.Post;
end;
·加入索引
table.IndexFieldNames := 'Created';
·可以将内存中的数据写入文件
table.SaveToFile('c:\mem.cds');
table.LoadFromFile('c:\mem.cds');
·使用过滤条件
table.Filtered := True;
table.Filer := ‘test’;
·显示报表代码
CrpeDS1.DataSet := table
Crpe1.Tables[0].DataPointer := CrpeDS1.DataPointer;
Crpe1.Refresh;
Crpe1.Execute;
4、 处理中遇到的问题
在利用Crystal Report VCL来编写我们的程序的过程中总会遇到这样那样的问题。
例如显示的报表中有超链接，但不能够正常使用，是因为Crystal Report 中drill down event设置为False，需要代码中设置为True，就可以正常使用了。
with Crpe1.WindowButtonBar do
begin
Visible := True;
AllowDrillDown := True;
CancelBtn := False;
ToolbarTips := True;
end;
crpe1.execute
当然我们还会碰到更多棘手的问题，但都是可以解决的，一方面可以查找网站上提供的信息，一方面通过调试修改程序包括VCL。
本文地址：http://com.8s8s.com/it/it5136.htm