《水晶报表在VC6.0中的使用》由会员分享，可在线阅读，更多相关《水晶报表在VC6.0中的使用（3页珍藏版）》请在金锄头文库上搜索。
1、 水晶报表在 VC 6.0 中的使用1创建 VC 工程添加报表控件在 VC 集成环境中用 AppWizard 新建一个 MFC 单文档工程，其余选项都为默认。菜单中选择 Project-Add To Project-Components and Controls.弹出组件、控件选择对话框，进入 Registered ActiveX Controls,选中 Crystal Report Viewer Control 9.lnk,单击Insert按钮，确认后进入类配置对话框，按默认即可。关闭控件选择对话框完成控件的添加。2导入水晶报表使用的动态链接库#import C:Program FilesC
2、rystal DecisionsReport Designer Componentcraxdrt9.dll no_namespace3按钮 Button1 的事件/水晶报表变量IApplicationPtr m_Application; IReportPtr m_Report; /水晶报表控件变量，在对话框中加入该控件CCrystalReportViewer9 m_CRViewer1;/实例化 m_Applicationm_Application.CreateInstance (_uuidof(Application);/获取 m_Report 变量/staff.rpt 为通过向导建立的报表文
3、件，数据库采用 SQL Server 2000 m_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 * from info); /不显示重复字段m_Report-PutEnable
4、SelectDistinctRecords (TRUE);/设置检索条件，采用水晶报表语法，功能同设置检索 SQL 命令/m_Report-PutRecordSelectionFormula(_bstr_t)info.userID=2001);/或者 m_Report-PutRecordSelectionFormula=(_bstr_t)info.userID=2001;/m_Report-PutRecordSelectionFormula=;表示显示所有字段/设置报表标题，在设计报表时需要插入报表标题特殊字段m_Report-ReportTitle=学生成绩报表范例;/设置报表作者 m_Re
5、port-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();*/*/ 按学号分组IDatabaseFieldDefinitionPtr NumFieldPtr=m_Report-Database-Tables-Item1-Fields-Item3;m_Report-Areas-GetItem(GH1)-GroupConditionField=NumFieldPtr;m_Crysta
7、lReport.Refresh();*/*排序代码*/ 按成绩排序IFieldDefinitionPtr ScoreFieldPtr=m_Report-Database-Tables-Item1-Fields-Item5;if(m_Report-RecordSortFields-Count=0)m_Report-RecordSortFields-Add(ScoreFieldPtr,crAscendingOrder);elsem_Report-RecordSortFields-Item1-Field=ScoreFieldPtr;m_CrystalReport.Refresh();*/*打印代码 *m_CrystalReport.SetDestination(1); /设置输出对象是打印机 m_CrystalReport.PrintReport(); /打印*/
