水晶报表在vc6.0中的使用

《水晶报表在vc6.0中的使用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、水晶报表在VC6.0中的使用1．创建VC工程添加报表控件　　在VC集成环境中用AppWizard新建一个MFC单文档工程，其余选项都为默认。菜单中选择Project->AddToProject->ComponentsandControls...弹出组件、控件选择对话框，进入RegisteredActiveXControls,选中CrystalReportViewerControl9.lnk,单击"Insert"按钮，确认后进入类配置对话框，按默认即可。关闭控件选择对话框完成控件的添加。2．导入水晶报表使用的动态链接库#import"C:ProgramFilesCrystalDecision

2、sReportDesignerComponentcraxdrt9.dll"no_namespace3．按钮Button1的事件//水晶报表变量IApplicationPtrm_Application;IReportPtrm_Report;//水晶报表控件变量，在对话框中加入该控件CCrystalReportViewer9m_CRViewer1;//实例化m_Applicationm_Application.CreateInstance(__uuidof(Application));//获取m_Report变量//staff.rpt为通过向导建立的报表文件，数据库采用SQLServer200

3、0m_Report=m_Application->OpenReport("C:\Report1.rpt");//设置数据库连接变量//数据库服务器(local)，数据库名ADOconn，用户名sa，密码annzaim_Report->Database->Tables->Item[1]->SetLogOnInfo("(local)","ADOconn","sa","annzai");//设置检索SQL命令m_Report->put_SQLQueryString((_bstr_t)"select*frominfo");//不显示重复字段m_Report->PutEnableSelectDisti

4、nctRecords(TRUE);//设置检索条件，采用水晶报表语法，功能同设置检索SQL命令//m_Report->PutRecordSelectionFormula((_bstr_t)"{info.userID}='2001'");//或者m_Report->PutRecordSelectionFormula=(_bstr_t)"{info.userID}='2001'";//m_Report->PutRecordSelectionFormula="";表示显示所有字段//设置报表标题，在设计报表时需要插入报表标题特殊字段m_Report->ReportTitle="学生成绩报表范例";/

5、/设置报表作者m_Report->PutReportAuthor("lcl");//将m_Report与报表控件连接m_CRViewer1.SetReportSource(m_Report);//显示报表工具条m_CRViewer1.SetDisplayToolbar(TRUE);//不显示报表左边的分组树m_CRViewer1.SetDisplayGroupTree(FALSE);//不显示控件边框m_CRViewer1.SetDisplayBorder(FALSE);//刷新数据m_CRViewer1.Refresh();//显示报表内容m_CRViewer1.ViewReport();/

6、/设置预览报表的缩放比率为75%m_CRViewer1.Zoom(75);/*******************分页显示代码*********************//GH1是分组名，以此分组名来进行分页显示m_Report->Areas->GetItem("GH1")->NewPageBefore=true;m_CrystalReport.Refresh();****************************************************//***************************************************//按学号分组IDat

7、abaseFieldDefinitionPtrNumFieldPtr=m_Report->Database->Tables->Item[1]->Fields->Item[3];m_Report->Areas->GetItem("GH1")->GroupConditionField=NumFieldPtr;m_CrystalReport.Refresh();*********************