样道理,根据自己实际情况检查代码,如果需要修改,可以对VCL代码修改后然后保存,重新编译,就会达到自己所需要的效果。
2004-3-26 9:30:16 三、利用 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.Rep
ortName := 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表文