关闭

Crystal Report X在Visual C++ 2003/2005中的使用

标签: reportc++applicationdatabasenull报表
2009人阅读 评论(0) 收藏 举报

方法一:
(也可以不用namespace,看个人习惯)
#include "craxddrt.h" //VC6中引入类型库中的类,并在生成的文件中添加名为CrystalReportWrapper的namespace
craxddrt.h修改:
namespace CrystalReportWrapper
{
...//craxddrt.h内容
}
craxddrt.cpp中在#include "craxddrt.h"后添加:
using namespace CrystalReportWrapper;


 CCrystalReport10Viewer crReportViewer;
 CrystalReportWrapper::IApplication crApplication;
 CrystalReportWrapper::IReport crReport;
 CrystalReportWrapper::IDatabase crDatabase;
 CADODatabase adoDatabase;
 CADOCommand adoCommand;


 crApplication.CreateDispatch("CrystalDesignRunTime.Application.10");
 COleVariant var((short)1);
 crReport=crApplication.OpenReport("Report.rpt",var);
 crDatabase=crReport.GetDatabase();

 adoDatabase.ConnectAccess("soft.mdb");
 adoCommand.SetDatabase(&adoDatabase);
 adoCommand.SetText("SoftClass");
 adoCommand.SetType(adCmdTable);

 VARIANT var3;
 var3.vt=VT_DISPATCH;
 var3.punkVal=adoDatabase.m_pConnection;
 VARIANT var4;
 var4.vt=VT_DISPATCH;
 var4.punkVal=adoCommand.GetCommand();
 crDatabase.AddADOCommand(var3,var4);
 crReportViewer.Create(NULL,WS_CHILD | WS_VISIBLE, CRect(0,0,0,0),this,1);
 crReportViewer.put_ReportSource(crReport);
 crReportViewer.Refresh();
 crReportViewer.ViewReport();
 
方法二:

(注释为不带namespace)
#import "C:/Program Files/Common Files/Business Objects/2.7/Bin/craxddrt.dll"
//#import "C:/Program Files/Common Files/Business Objects/2.7/Bin/craxddrt.dll" no_namespace

 CCrystalReport10Viewer crReportViewer;
 CRAXDDRT::IApplicationPtr crApplication;
 CRAXDDRT::IReportPtr crReport;
 CRAXDDRT::IDatabasePtr crDatabase;
 //IApplicationPtr crApplication;
 //IReportPtr crReport;
 //IDatabasePtr crDatabase;
 CADODatabase adoDatabase;
 CADOCommand adoCommand;
 
 HRESULT hr = crApplication.CreateInstance(__uuidof(CRAXDDRT::Application));
 //HRESULT hr = crApplication.CreateInstance(__uuidof(Application));
 if(FAILED(hr))
 {
  MessageBox(_T("水晶报表初始化出错!"));
  return   -1;
 }
 COleVariant var((short)1);
 crReport=crApplication->OpenReport("Report.rpt",var);
 crDatabase=crReport->GetDatabase();

 adoDatabase.ConnectAccess("soft.mdb");
 adoCommand.SetDatabase(&adoDatabase);
 adoCommand.SetText("SoftClass");
 adoCommand.SetType(adCmdTable);

 VARIANT var3;
 var3.vt=VT_DISPATCH;
 var3.punkVal=adoDatabase.m_pConnection;
 VARIANT var4;
 var4.vt=VT_DISPATCH;
 var4.punkVal=adoCommand.GetCommand();
 crDatabase->AddADOCommand(var3,var4);
 crReportViewer.Create(NULL,WS_CHILD | WS_VISIBLE, CRect(0,0,0,0),this,1);
 crReportViewer.put_ReportSource(crReport);
 crReportViewer.Refresh();
 crReportViewer.ViewReport();
 
方法三:
//这几个头文件由VC7.1添加类型库中的类产生,添加所需要的类
#include "CrystalReport10Application.h"
#include "CrystalReport10Report.h"
#include "CrystalReport10Database.h"
#include "CrystalReport10Sections.h"
#include "CrystalReport10Designer.h"


 CCrystalReport10Viewer crReportViewer;
 CCrystalReport10Application crApplication;
 CCrystalReport10Report crReport;
 CCrystalReport10Database crDatabase;
 CADOCommand adoCommand;

 crApplication.CreateDispatch("CrystalDesignRunTime.Application.10");
 COleVariant var((short)1);
 crReport=crApplication.OpenReport("Report.rpt",var);
 crReport.put_EnableAsyncQuery(TRUE);
 crDatabase=crReport.get_Database();
 adoCommand.SetDatabase(&theApp.m_pConnection);
 adoCommand.SetText("SoftClass");
 adoCommand.SetType(adCmdTable);
 VARIANT var3;
 var3.vt=VT_DISPATCH;
 var3.punkVal=theApp.m_pConnection.m_pConnection;
 VARIANT var4;
 var4.vt=VT_DISPATCH;
 var4.punkVal=adoCommand.GetCommand();
 //crDatabase.AddADOCommand(var3,var4);

 crReportViewer.Create(NULL,WS_CHILD | WS_VISIBLE, CRect(0,0,0,0),this,1);
 crReportViewer.put_ReportSource(crReport);
 crReportViewer.ViewReport();

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:22413次
    • 积分:339
    • 等级:
    • 排名:千里之外
    • 原创:7篇
    • 转载:4篇
    • 译文:0篇
    • 评论:10条
    最新评论
    编程代码库