CS下在C#里调用显示水晶报表

/// <summary>

/// CS下在C#里调用显示水晶报表

/// 水晶报表在CrystalReport9中定义，数据源可以是表、视图、存储过程（最后一句必须是select语句），可以包含子报表

/// 调用实例：LoadReport(this.crystalReportViewer1,"D:\\66.rpt","kys","hrdb","sa","kys");

/// 2004-10-29 writed by 华阳

/// </summary>

/// <param name="ReportViewer">报表浏览器CrystalDecisions.Windows.Forms.CrystalReportViewer</param>

/// <param name="StrRptPaht">报表文件的路径</param>

/// <param name="StrServer">服务器</param>

/// <param name="StrDatabase">数据库</param>

/// <param name="StrUser">登陆名称</param>

/// <param name="StrPassword">密码</param>

public void LoadReport(CrystalDecisions.Windows.Forms.CrystalReportViewer ReportViewer,string StrRptPaht,

string StrServer, string StrDatabase, string StrUser, string StrPassword)

{



string StrParaName="";

string StrRptTableName="";

string StrLocation="";

ReportDocument Rpt =new ReportDocument();//表示一个报表，并且包含定义、格式化、加载、导出和打印该报表的属性和方法

SubreportObject SubRptObj;//表示放在报表中的子报表。子报表是主报表内的独立或链接的报表。

ReportDocument SubRpt;

ParameterFields ParamFields=new ParameterFields();

ParameterField ParamField ;

ParameterDiscreteValue ParamDiscreteValue;

TableLogOnInfo LogOnInfo;

try

{

//加载报表

Rpt.Load(StrRptPaht);

//报表参数的赋值****************************************************

foreach(CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition ParaFieldDef in Rpt.DataDefinition.ParameterFields )

{

//只为主报表的参数进行赋值

if(ParaFieldDef.ReportName=="")

{

StrParaName=ParaFieldDef.Name;

ParamField=new ParameterField();

ParamDiscreteValue=new ParameterDiscreteValue();

ParamField.ParameterFieldName = StrParaName;

//注：用户自定义为参数赋值!!!!!!!!!!!!!!!!!!!!!!!!!

if(StrParaName.ToLower()=="depid")

ParamDiscreteValue.Value = "dg00";

else

ParamDiscreteValue.Value = "ky0001";

//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ParamField.CurrentValues.Add (ParamDiscreteValue);

ParamFields.Add (ParamField);

}

}

//******************************************************************

// 将参数字段集合放入查看器控件。

if(ParamFields.Count>0)

ReportViewer.ParameterFieldInfo = ParamFields;

//设置数据库连接参数

ConnectionInfo CnInfo = new ConnectionInfo();

CnInfo.ServerName = StrServer;

CnInfo.DatabaseName = StrDatabase;

CnInfo.UserID = StrUser;

CnInfo.Password = StrPassword;

foreach( CrystalDecisions.CrystalReports.Engine.Table DTable in Rpt.Database.Tables)

{

LogOnInfo=DTable.LogOnInfo;

LogOnInfo.ConnectionInfo=CnInfo;

DTable.ApplyLogOnInfo(LogOnInfo);

//更换服务器数据库验证

StrRptTableName=DTable.Location.Substring(DTable.Location.LastIndexOf(".") + 1);

StrLocation=StrDatabase+".dbo."+StrRptTableName;

DTable.Location=StrLocation;

}



#region 对所有子报表更换服务器数据库验证

//获取主报表的所有子报表

foreach (ReportObject obj in Rpt.ReportDefinition.ReportObjects)

{

//判断是否为子报表对象

if (obj.Kind == ReportObjectKind.SubreportObject)

{

SubRptObj = (SubreportObject) obj;

SubRpt = Rpt.OpenSubreport(SubRptObj.SubreportName);

//读取子报表的所有数据库表

foreach (CrystalDecisions.CrystalReports.Engine.Table DTable in SubRpt.Database.Tables)

{

LogOnInfo = DTable.LogOnInfo;

LogOnInfo.ConnectionInfo = CnInfo;



//加载数据库连接信息

DTable.ApplyLogOnInfo(LogOnInfo);

//更换服务器和数据库

StrRptTableName=DTable.Location.Substring(DTable.Location.LastIndexOf(".") + 1);

StrLocation=StrDatabase+".dbo."+StrRptTableName;

DTable.Location=StrLocation;

}

}

}

#endregion

//将报表赋给报表浏览器

ReportViewer.ReportSource=Rpt;

//ReportViewer.RefreshReport();



}

catch(Exception ee)

{

string StrMsg=ee.Source+ee.Message;

System.Windows.Forms.MessageBox.Show(StrMsg);



}

}