取消水晶报表的数据库登录框 分享

这两天在和斌做后台中的报表，暂定使用水晶报表，目前还只是处于对水晶报表的初级应用阶段，也就是知道如何 汇个总、写个函数、传个参数。

问题总是层出不穷，在最后整合报表，进行报表显示测试的时候，发现每次更新数据显示（除第一次）时都会蹦出一个“登录数据库的信息提示界面”很是苦闷，并且这肯定不是我们需要的，还是需要花大力气搞定的。

于是参考了某斑竹写的一篇 “取消水晶报表的数据库登陆框”博文。颇有感触，于是进行了消化吸收，整合代码如下。

主要是，针对水晶报表对每数据库登录（DbLogOn）提供一次数据库链接信息。

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Reflection
Imports System.Configuration
Imports CrystalDecisions.Web

Public Class ReportConfig

''' <summary>
''' 提供web报表链接数据库所需要的信息，无参数，有返回值。
''' </summary>
''' <returns>返回链接信息的属性，其中有servername、database、userid、pwd</returns>
''' <remarks></remarks>
Public Function readConfig() As TableLogOnInfo

Dim strServerName As String
Dim strDataBase As String
Dim strUserId As String
Dim strPwd As String
Dim logoninfo As New TableLogOnInfo

'从web.config配置文件中读取信息.
strServerName = System.Configuration.ConfigurationManager.AppSettings("servername")
strDataBase = System.Configuration.ConfigurationManager.AppSettings("database")
strUserId = System.Configuration.ConfigurationManager.AppSettings("userid")
strPwd = System.Configuration.ConfigurationManager.AppSettings("pwd")

logoninfo.ConnectionInfo.ServerName = strServerName
logoninfo.ConnectionInfo.DatabaseName = strDataBase
logoninfo.ConnectionInfo.UserID = strUserId
logoninfo.ConnectionInfo.Password = strPwd

'信息封装成logoninfo.
Return logoninfo

End Function

''' <summary>
''' 设置报表查看器不再显示登录数据库提示
''' </summary>
''' <param name="crv">当前报表查看器id</param>
''' <param name="coninfo">报表链接到数据库所需信息</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function SetDbLoginForReport(ByVal crv As CrystalReportViewer, ByVal coninfo As ConnectionInfo) As String
'tablelogoninfos 就是包括每个表中的logoninfo对象
Dim tablelogoninfos As TableLogOnInfos = crv.LogOnInfo
Dim logoninfo As New TableLogOnInfo
For Each logoninfo In tablelogoninfos
'绑定每一个logoninfo对象的数据库链接信息，这样可以不再显示数据库登录提示信息。
logoninfo.ConnectionInfo = coninfo
Next
Return Nothing

End Function
End Class

其中一个报表：

'省略....

Dim SelectByDate As New CollectMgr
Dim dt As New DataTable
Dim doc As New ReportDocument
Dim coninfo As New TableLogOnInfo
Dim reportconfig As New ReportConfig

'省略....

'获得报表链接数据库所需的所有参数信息
coninfo = reportconfig.readConfig

Try
'加载报表样表
doc.Load(Server.MapPath("./Cashier.rpt"))
'返回数据源
If txtStartTime.Value = txtEndTime.Value Then
dt = SelectByDate.FoodCollect(txtStartTime.Value)
Else
dt = SelectByDate.FoodCollect(txtStartTime.Value, txtEndTime.Value)
End If
doc.SetDataSource(dt)

crvCashierReport.ReportSource = doc

'防止出现提示登录数据库的情况
reportconfig.SetDbLoginForReport(crvCashierReport, coninfo.ConnectionInfo)

'结束

配置文件：

<appSettings>
<add key="servername" value="****" />
<add key="database" value="***" />
<add key="userid" value="**" />
<add key="pwd" value="***" />
</appSettings>