http://jaesyinfo.51.net/vcrdc8/vcrdc8.htm   //源文出处

 

Crystal Report(RDC8)水晶报表 在VC6环境中的调用方法

作者:jaesy. Email:jaesyinfo@163.net

 

Seagate Crystal Report(水晶报表) 一直是报表工具中佼佼者,其功能强大,设计灵活。在Crystal Report 的8.0版本中,较多地融入COM思想,更加强调了RDC的概念。RDC为Report Designer Component的缩写。

本文主要说明如何是VC6环境中使用RDC8,关于报表模板文件*.rpt设计及运行时属性的控制请参阅http://jaesyinfo.51.net的其它介绍。

在Crystal Report以前的版本,主要采用CRPE API的方法,有兴趣的朋友可以参阅联机帮助。本文主要采用RDC的方法,也是现在推荐的方法。

以下以建立一个基于对话框的VC工程为例,说明实现方法,希望对大家有所帮助。

下载示例工程文件 demoRDC.zip,46K(win2000 vc6)

 

第一步:

建立一个Crystal report模板文件DemoRDC.rpt

本例为了简单起见,此报表没有关联任何数据库。

 

第二步:

建立一个基于对话框的VC工程,接受缺省选择,工程名DemoRDC。

 

第三步:

在工程中增加ActiveX Control :Crystal Report Viewer Control.(如图1)

此时VC为工程增加了两个类,

CCRVTrackCursorInfo

CCrystalReportViewer3

 

 

(图1)

根据需要设计程序主对话框的大小 ,并增加Crystal Report Viewer Control控件。ID为IDC_CRVIEWER1

并根据要求设置其属性。

然后用class wizard , 对其关联一个变量m_crv1。

 

第四步:

增加关于Crystal Report的COM接口对象,有两种方法,第一种方法,通过#import导入,稍微复杂。

采用第二种方法,通过类型库导入。

具体方法如下:

在class wizard中增加类/从类型库(Add Class/From a type library)(图2)

 

(图2)

选择文件craxdrt.tlb。一般在C:\Program Files\Seagate Software\Crystal Reports\Developer Files\include 目录下。

然后选择我们需要的类,因为范例只需要IReport,IApplication。按Ctrl多选此两项即可。

 

第五步:

在demoRDCdlg.h文件中增加头文件:

#include "craxdrt.h"

#include "comdef.h"

以及guid声明:

//the guid for crystal report

const CLSID CLSID_Application = {0xb4741fd0,0x45a6,0x11d1,{0xab,0xec,0x00,0xa0,0xc9,0x27,0x4b,0x91}};

const IID IID_IApplication = {0x0bac5cf2,0x44c9,0x11d1,{0xab,0xec,0x00,0xa0,0xc9,0x27,0x4b,0x91}};

const CLSID CLSID_ReportObjects = {0xb4741e60,0x45a6,0x11d1,{0xab,0xec,0x00,0xa0,0xc9,0x27,0x4b,0x91}};

const IID IID_IReportObjects = {0x0bac59b2,0x44c9,0x11d1,{0xab,0xec,0x00,0xa0,0xc9,0x27,0x4b,0x91}};

 

第六步:

主要的代码部分:

为CDemoRDCDlg增加两个protected类型成员变量

IApplication m_Application ;

IReport m_Report ;

 

在BOOL CDemoRDCDlg::OnInitDialog()加入我们的主要语句

CString strTemplatePath;

strTemplatePath=AppPath()+"demoRDC.rpt";

VARIANT dummy;

VariantInit (&dummy);

dummy.vt = VT_EMPTY;

// Specify the path to the report you want to print

_bstr_t ReportPath(strTemplatePath);

m_Application.CreateDispatch(CLSID_Application);

m_Report = m_Application.OpenReport(ReportPath, dummy);

m_crv1.SetReportSource(m_Report);

m_crv1.ViewReport();

 

第七步:

增加虚函数PostNcDestroy

在其中realse m_Application 及m_Report ;

 

编译运行OK。

下载示例工程文件 demoRDC.zip,46K(win2000 vc6)

以上,只是说明了Crystal Report(RDC8) 在VC6环境中的调用方法。如果要做出较完美的报表还要各个方面的努力。希望对VC的开发者有所帮助。

本文的不完善之处,还请各位批评指正.

 

email:jaesyinfo@163.net

http://jaesyinfo.51.net/