Crystal Report（RDC8） 水晶报表在VC6环境中的调用方法 (转).NET/vcrdc8/vcrdc8.htmhttp:/jaesyinfo.51.net/vcrdc8/vcrdc8.htm /源文出处Crystal Report（RDC8）水晶报表 在VC6环境中的调用方法作者：jaesy. EMail:jaesyinfo163.netSeagate 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为工程增加了两个类，CCRVTrackCursorInfoCCrystalReportViewer3（图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 FilesSeagate SoftwareCrystal ReportsDeveloper Filesinclude 目录下。然后选择我们需要的类，因为范例只需要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的开发者有所帮助。