《vb水晶报表使用方法》由会员分享，可在线阅读，更多相关《vb水晶报表使用方法（4页珍藏版）》请在金锄头文库上搜索。
1、VB.Net 集成水晶报表的方法Crystal Reports 是非微软的第三方工具，用于处理数据报表，帮助用户分析和解释重要信息。使用 Crystal Reports 可以方便地创建你所能想象的任何报表。Visual Studio.NET 中集成的 Crystal Reports 9（简化版本）赋予.NET 平台创建交互式的、高质量展示内容的能力，您可以在 Web 平台和 Windows 平台上呈现报表，甚至将 Crystal 报表作为报表 Web 服务在 Web 服务器上发布。介绍 Visual Studio.NET 集成 Crystal Reports 的资料真是少的可怜，好东东当然不敢
2、独享，所以写下本文，水平有限，还望各位大虾指教。说了这么多，是不是感觉到.NET 的无所不能，如果你正在寻找企业报表开发的新大陆，那你可要打起精神，睁大眼睛继续读下去啦！我们用一个简单的实例来说明在 Visual Studio.NET 中怎样玩转 Crystal Reports。（本程序代码已在 Visual Basic.NET 简体中文版调试通过。）实现功能：点击生成报表按钮可根据用户输入的客户 ID 号生成相应报表（输入 0 显示所有订单记录），并在 CrystalReportViewer 控件中预览。须注意的重点：1、怎样在运行时将 Crystal 报表与后台数据源连接，即安全数据连接。
3、（运行时动态连接数据库可灵活的设置数据环境及避免 Crystl Reports 弹出数据库登陆对话框。）2、 怎样让 Crystal 报表与界面控件交互首先在 MS-SQL Server 2000 中建立一名为MRP的实例数据库，其中有客户和订单两张表。客户表的结构：列名 数据类型 长度 允许空ID Varchar 18姓名 Varchar 8性别 Varchar 2年龄 Decimal 5电子邮件 Varchar 50 允许创建时间 Datetime 8订单表的结构：列名 数据类型 长度 允许空ID Varchar 18订单号 Varchar 8数量 Varchar 2金额 Decimal
4、5创建时间 Varchar 50客户表与订单表可通过 ID 字段建立一对多关系。（建库细节请参阅有关书籍）然后，我们就可以在 Crystal Report Designer 中设计和修改报表（Crystal Report Designer 已集成在 Visual Studio .NET 开发环境内），启动方法如下：1、在 Visual Studio.NET 解决方案资源管理器中，右击您的项目以显示快捷菜单。2、指向添加，单击添加新项。 3、在添加新项对话框中，从模板区域选择Crystal Report单击打开。 4、 单击确定按钮。Crystal Report Designer 类似于 Fox
5、Pro 的报表设计器。通过数据库专家工具可以建立与数据源的连接；通过插入专家工具可在各节中插入字段、公式、SQL表达式、参数等；通过选择专家工具可以筛选出有用数据；还可以使用 Crystl语法和 BASIC 语法建立灵活的函数、公式等。设计报表并在报表中通过选择专家工具加入一选择公式：客户.ID = ?ID（详细建表步骤非本文重点，因篇幅原因，请大家参阅相关资料） 现在一切都准备就绪，下面就可以干点正事了！首先新建一个 Visual Basic.NET Windows 应用程序项目。在解决方案资源管理器中引用 CrystalDecisions.CrystalReports.Engine和 Cr
6、ystalDecisions.Shared 两个.NET 组件。再在表单的声明区中加入：Imports CrystalDecisions.CrystalReports.EngineImports CrystalDecisions.Shared按上图所示，在表单中摆放好四个控件，然后在按钮控件的 Click 事件中编写如下代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTryParameterField 类提供属性，以便检索和
7、设置参数字段的选项和值。Dim ParamFields As New ParameterFields()Dim ParamField As New ParameterField()定义 Crystal Report 离散值Dim DiscreteVal As New ParameterDiscreteValue()Dim LogOnInfo As New TableLogOnInfo()表示一个报表，并且包含定义、格式化、加载、导出和打印该报表的属性和方法。Dim Report As New ReportDocument()加载你事先做好的 Crystal Report 报表文件Report.
8、Load(D:TempOrder.RPT) 对报表中的每个表依次循环。Dim i As IntegerFor i = 0 To Report.Database.Tables.Count - 1ConnectionInfo 提供属性，以便检索和设置与数据库服务器或 ODBC 数据源连接的选项。当前表的连接信息,请设置为与你机器相关的正确数值LogOnInfo.ConnectionInfo.ServerName = localhostLogOnInfo.ConnectionInfo.DatabaseName = MRPLogOnInfo.ConnectionInfo.UserID = saLogO
9、nInfo.ConnectionInfo.Password = 020617应用连接信息Report.Database.Tables.Item(i).ApplyLogOnInfo(LogOnInfo)Next iDim CurrentID As Int16 = Convert.ToInt16(TextBox1.Text)重定义 Crystal Report 选择条件If CurrentID = 0 ThenReport.DataDefinition.RecordSelectionFormula = 客户.ID ?IDElseReport.DataDefinition.RecordSelecti
10、onFormula = 客户.ID = ?IDEnd IfDiscreteVal.Value = Convert.ToInt16(TextBox1.Text)ParamField.ParameterFieldName = IDParamField.CurrentValues.Add(DiscreteVal)ParamFields.Add(ParamField)应用参数CrystalReportViewer1.ParameterFieldInfo = ParamFieldsCrystalReportViewer1.DisplayGroupTree = False将 Crystal Replort 查看器的数据源设为 ReportDocumnet 类的实例CrystalReportViewer1.ReportSource = ReportCatch e1 As ExceptionMessageBox.Show(e1.ToString & Chr(10) & 请检查 SQL 用户名,密码等连接参数和 Order.RPT 路径设置等!, 不正确的环境设置)End TryEnd Sub
