【水晶报表内功心法】--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");