CrystalReport操作,水晶报表操作

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

.NET/vcrdc8/vcrdc8.htm">/vcrdc8/vcrdc8.htm//源文出处

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

作者：jaesy. E Mail:jaesyinfo@

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

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

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

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

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

第一步：

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

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

第二步：

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

第三步：

在工程中增加ActiveX Control :Crystal Repo rt Viewer Co ntrol.（如图1）

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

CCRVTrackCurso rInfo

CCrystalReportViewer3

（图1）

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

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

第四步：

增加关于Crystal Report的COM接口对象，有两种方法，第一种方法，通过#import导入，稍微复杂。采用第二种方法，通过类型库导入。

具体方法如下：

在class wizard中增加类/从类型库（Add Class/Fro m a type library）（图2）

（图2）

选择文件craxdrt.tlb。一般在C:Program FilesSeagate SoftwareCrystal Repo rtsDeveloper Filesinclude 目录下。

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

第五步：

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

#include "craxdrt.h"

#include "co mdef.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_Report object s =

{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类型成员变量

IApplicatio n m_Application ;

IReport m_Report ;

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

CString strTemplatePath;

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

VARIANT dummy;

VariantInit (&dummy);

dummy.vt = VT_EMPTY;

// Specify the path to the repo rt y o u want to print

_bstr_t ReportPath(strTemplatePath);

m_Application.CreateDispatch(CLSID_Application);

m_Report = m_Applicatio n.OpenReport(ReportPath, dummy);

m_crv1.SetRepo rt source(m_Repo rt);

m_crv1.ViewReport();

第七步：

增加虚函数PostNcDestro y

在其中realse m_Application 及m_Report ;

编译运行OK。

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

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