【水晶报表内功心法】--PULL模式样板招式(转载+亲自实践+补充)

水晶报表教程,强烈推荐CSDN上babyt(阿泰)的帖子(以下内容皆转帖自此贴以及其子连接):

http://topic.csdn.net/u/20090713/18/6e14bf28-1979-4ade-9c60-aaf09284553d.html

在前一篇中，讲解了PULL和PUSH模式的区别。

本节中主要是从无到有地讲解一下如何使用PULL模式来做一个报表。

因本文主要针对初学者，所以每个步骤都抓了图。

以 Web应用为例

首先，在vistual studio中新建一个Asp.net CrystalReports站点(本文使用的是visual C#语言)



稍等一会后会出来一个默认的水晶报表向导(默认水晶报表名为CrystalReport1.rpt)



确定后，选择“创建新连接”



这里我用的是Oracle数据库，填写数据库参数

补充:

asp.net版本不同,可能显示的上图连接数据源的方式不同,如下图:



此时,如果是连接SQL Server数据库,可以选择OLE DB(ADO)中的Microsoft OLE DB Provider for SQL Server



连接成功会，会显示数据库中的表，选需要的表，点到右边的框中



进入下一界面，把要显示的字段点到右边的框中



直接点“完成”（后面还有一些步骤，暂时用不着）进入模板界面



因为是直连数据库的，所以我们能马上看到实际的效果，点模板下面的“主报表预览”



至此，我们没有编写任何代码。

运行一下看看，呀！有这个提示，而且输入框"服务器名"和"数据库名"不让输入



代码上场（实质上代码也有好几种写法，不过原理基本一样，此处可直接照搬，等以后大家熟悉了再自行尝试吧）

C# code

using System;

using System.Data;

using System.Configuration;

using System.Web;

using System.Web.Security;

using System.Web.UI;

using System.Web.UI.WebControls;

using System.Web.UI.WebControls.WebParts;

using System.Web.UI.HtmlControls;

using CrystalDecisions.Shared;

using CrystalDecisions.CrystalReports.Engine;

using CrystalDecisions.Web;

public partial class _Default : System.Web.UI.Page

{

//水晶报表对象

private ReportDocument myReport;

private void ConfigureCrystalReports()

{

// 定义ReportDocument对象，装载Crystalreport1.rpt

myReport = new ReportDocument();

string reportPath = Server.MapPath("Crystalreport1.rpt");

myReport.Load(reportPath);

//定义水晶报表的数据库连接信息

ConnectionInfo connectionInfo = new ConnectionInfo();

connectionInfo.DatabaseName = "user";

connectionInfo.UserID = "pwd";

connectionInfo.Password = "****";

connectionInfo.ServerName = "myoraServer";

//将数据库信息传递给报表

SetDBLogonForReport(connectionInfo, myReport);

//把模板对象赋给报表前端呈现控件CrystalReportViewer1

CrystalReportViewer1.ReportSource = myReport;

}

private void SetDBLogonForReport(ConnectionInfo connectionInfo, ReportDocument reportDocument)

{

Tables tables = reportDocument.Database.Tables;

foreach (CrystalDecisions.CrystalReports.Engine.Table table in tables)

{

TableLogOnInfo tableLogonInfo = table.LogOnInfo;

tableLogonInfo.ConnectionInfo = connectionInfo;

table.ApplyLogOnInfo(tableLogonInfo);

}

}

// 注意：将代码防到Page_Init或Page_Load 中

//VS2008必须放到Page_Init中

private void Page_Init(object sender, EventArgs e)

{

ConfigureCrystalReports();

}

}

补充:

我在vb.net 2008上尝试babyt(阿泰)帖子上的C#代码,现在把vb.net代码放出,经测试可以实现

以下程序放在下图所示的程序中:



Imports CrystalDecisions.Shared

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Web

Partial Class _Default

Inherits System.Web.UI.Page

'水晶报表对象

Private myReport As ReportDocument

Private Sub ConfigureCrystalReports()

' 定义ReportDocument对象，装载Crystalreport1.rpt

myReport = New ReportDocument()

Dim reportPath As String = Server.MapPath("Crystalreport1.rpt")

myReport.Load(reportPath)

'定义水晶报表的数据库连接信息

Dim connectionInfo As ConnectionInfo = New ConnectionInfo()

connectionInfo.DatabaseName = "dbname"

connectionInfo.UserID = "userid"

connectionInfo.Password = "password"

connectionInfo.ServerName = "servername"

'将数据库信息传递给报表

SetDBLogonForReport(connectionInfo, myReport)

'把模板对象赋给报表前端呈现控件CrystalReportViewer1

CrystalReportViewer1.ReportSource = myReport

End Sub

Private Sub SetDBLogonForReport(ByVal connectionInfo As ConnectionInfo, ByVal reportDocument As ReportDocument)

Dim tables As Tables = ReportDocument.Database.Tables

For Each table As CrystalDecisions.CrystalReports.Engine.Table In tables

Dim tableLogonInfo As TableLogOnInfo = table.LogOnInfo

tableLogonInfo.ConnectionInfo = ConnectionInfo

table.ApplyLogOnInfo(tableLogonInfo)

Next

End Sub

'注意，此处程序放在Page_Load中 （环境vb.net 2008)

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

ConfigureCrystalReports()

End Sub

End Class

再运行一下，好了。



很简单吧，呵呵。

通过更改代码里的数据库连接，可以切换到不同的数据库上去

前提是，目标库中用到的表名及结构要是一样的。

常见问题：

出现



这个图中的提示

一般是因为数据库信息输入错误或数据库停机导致的。

预告：PUSH模式之样板操作

PS:

一种更简单的方法：

C# code//主报表myReport.SetDatabaseLogon("user", "pwd", "server", "db");//子报表myReport.Subreports[0].SetDatabaseLogon("user", "pwd", "server", "db");