简体版
繁体版
英文版

在Delphi中使用Grid++Report

Grid++Report 为 Delphi 编写了包装类,组织在‘GRDelphi.dpk’package 项目中,必须首先安装‘GRDelphi.dpk’package 才能在 Delphi 中使用 Grid++Report。要运行与查看为 Delphi 编写的例子也必须先安装‘GRDelphi.dpk’package。

在 Delphi 中安装 Grid++Report 包装类的过程:

  1. 启动 Delphi。
  2. 执行菜单命令 File->Close All,关闭所有打开的项目与文件。
  3. 执行菜单命令 File->Open Project...,将‘Open Project’文件打开对话框中的文件类型改为‘Delphi package (*.dpk)’,打开 %InstallDir%\DelphiWrapper\GRDelphi.dpk。这里 %InstallDir% 指 Grid++Report 的安装目录,缺省在‘C:\Grid++Report 5.0’。
  4. 执行‘Package - GRDelphi.dpk’窗口上的工具条‘Install’命令按钮, Delphi 将编译并安装包,然后会提示 TGRDesigner, TGRDisplayViewer, TGridppReport, TGRPrintViewer 已经注册。此时在构件面板的 Grid++Report 页中会有此四个构件的图标。
  5. 执行菜单命令 File->Close All,如有保存文件确认提问消息框可以回答‘No’。
  6. 执行菜单命令 Tools->Evironment option...,在对话框中选择‘Library’页,执行 Library path 行的‘...’按钮,在打开的对话框中将‘C:\Grid++Report 5.0\DelphiWrapper’添加到列表中。如 Grid++Report 没有安装在默认目录,则以上目录中 C:\Grid++Report 5.0 应改为 Grid++Report 的实际安装目录。

注意:Delphi6 与 Delphi7 在打开 GRDelphi.dpk 项目时会有升级提示,回答‘Ok’即可。

下面演练在Delphi中将创建一个使用查询显示器构件显示报表的项目。

  1. 启动 Delphi
  2. 执行‘File->New Application’。
  3. 在 Form 上增加一个 TPanel 构件,Align=alTop。在 TPanel 构件上放置一个TButton构件,Caption = '打印预览'。
  4. 在 Form 上增加一个 TADOTable 构件,ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Grid++Report 5.0\Samples\Data\NorthWind.mdb',TableName = Customers。
  5. 从构件面板 Grid++Report 页面上拖放 GridppReport 构件到 Form 上,DataSet = ADOTable1。
  6. 从构件面板 Grid++Report 页面上拖放 GRDisplayViewer 构件到 Form 上,Align = alClient, Report = GridppReport1。
  7. 在 Form 的 OnShow 事件中载入报表模板数据并启动报表的运行,代码如下:
    procedure TForm1.FormShow(Sender: TObject);
    begin
        GridppReport1.LoadFromFile('C:\Grid++Report 5.0\Samples\Reports\简单列表.grf');
        GRDisplayViewer1.Start();
    end;
  1. 为'打印预览'按钮实现打印预览的功能,在其OnClick事件中添加如下代码:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
        GridppReport1.PrintPreview(True);
    end;

至此本演习已经完成,可以运行以上创建的程序来查看结果。

下面演练在Delphi中将创建一个使用打印查看器构件显示报表的项目。

在本演示中将创建一个使用打印查看器构件实现在自定义窗口中打印预览报表的项目,报表开发者可以为报表最终用户提供自己设计的报表打印预览界面,而不是使用Grid++Report提供的缺省打印预览窗口。

  1. 启动 Delphi。
  2. 执行‘File->New Application’。
  3. 在 Form 上增加一个 TADOTable 构件,ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Grid++Report 5.0\Samples\Data\NorthWind.mdb',TableName = Customers。
  4. 从构件面板 Grid++Report 页面上拖放 GridppReport 构件到 Form 上,DataSet = ADOTable1。
  5. 从构件面板 Grid++Report 页面上拖放 GRPrintViewer 构件到 Form 上,Align = alClient, Report = GridppReport1。
  6. 在 Form 的 OnShow 事件中载入报表模板数据并启动报表的运行,代码如下:
    procedure TForm1.FormShow(Sender: TObject);
    begin
        GridppReport1.LoadFromFile('C:\Grid++Report 5.0\Samples\Reports\简单列表.grf');
      GRPrintViewer1.Start();
    end;

至此本演习已经完成,可以运行以上创建的程序来查看结果。

 

粤ICP备05037369号 Copyright © 2005-2015 rubylong.cn(版权所有:广州锐浪软件技术有限公司)
地址:广州市天河区五山路135号519-04室 电话: 020-82520837
EMAIL:sales@rubylong.cn(销售) support@rubylong.cn(技术支持) 销售QQ:1067004956 641243789