ITPub博客

首页 > 应用开发 > IT综合 > 在 Visual Studio .NET中使用Crystal Report(下) (转)

在 Visual Studio .NET中使用Crystal Report(下) (转)

原创 IT综合 作者:amyz 时间:2007-10-31 13:08:07 0 删除 编辑
在 Visual Studio .NET中使用Crystal Report(下) (转)[@more@]


Visual Studio .NET中使用Crystal Report()XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />







from ASPfree.com/">www.aspfree.com
translated by cash(天下第七)
Mailto:cashcao@msn.com">cashcao@msn.com




 




Crystal Report 演示-使用Push Model




 




下面看看如何使用Push Model实现Crystal Reports




 




1.创建一个设计时的dataset




2.创建一个.rpt文件并指向我们前面创建的dataset




3.在.aspx页面上放置Crystal Report Viewer控件,设定它的属性指向上一步创建的.rpt文件。




4.在code behind page中,书写连接数据库函数




5. 加上databind方法。 




 




创建一个设计时的dataset去定义ReportsFielsds.




 




1)在"Solution Explorer"右击,选择"Add" --> select "Add New Item--> Select "DataSet"




 










 




2) 从"Server Explorer"面板中的"sql SERVER"中拖进"Stores"表




 










 




3) 这将在dataset中创建一个"Stores" table







 










 




用这种方法创建的.xsd文件仅仅包含了field的定义,里面没有任何数据。需要你创建一个与数据库的链接并且将数据填充进去。







创建.rpt文件




 




4)创建一个.rpt文件。与前面唯一不同的是不通过Crystal Report得到表,我们将用dataset来创建它。




 




5)建立.rpt文件后,右击"Details" section,选择"Add/Remove Database"




 




6) 在"Database Expert"窗口,展开"Project Data",展开"ado.net DataSet","DataSet1", 选择 "Stores" table.




 




7)点击">"将"Stores" table包括进"Selected Tables" 




 










 




8) 接下来设定report的布局。




 




创建一个Crystal Report Viewer Control




 




9) 接下来的步骤是用PULL Model创建一个Crystal Report viewer Control并设定它的属性。




 




code behind page 代码:




 




10)为你的page load里设计如下了程序




 




  Sub BindReport()




  Dim myConnection As New SqlClient.SqlConnection()




  myConnection.ConnectionString= "server= (local)NetSDK;database=pubs;Trusted_Connection=yes"




  Dim MyCommand As New SqlClient.SqlCommand()




  MyCommand.Connection = myConnection




  MyCommand.CommandText = "Select * from Stores"




  MyCommand.CommandType = CommandType.Text




  Dim MyDA As New SqlClient.SqlDataAdapter()




  MyDA.SelectCommand = MyCommand




 




  Dim myDS As New Dataset1()




  'This is our DataSet created at Design Time 




 




  MyDA.Fill(myDS, "Stores")  




 




  'You have to use the same name as that of your Dataset that you created during design time




 




  Dim oRpt As New CrystalReport1()




 ' This is the Crystal Report file created at Design Time




 




  oRpt.SetDatasource(myDS)




  ' Set the SetDataSource property of the Report to the Dataset




 




  CrystalReportViewer1.ReportSource = oRpt




  ' Set the Crystal Report Viewer's property to the oRpt Report object that we created




 




  End Sub




 




注意:在上面的代码中,你可能会注意到oRpt对象是"Strongly Typed" Report file的一个实例。 如果我们用"UnTyped" Report,我们将不得不使用ReportDocument 对象并且手工load这个report文件进去。




 




运行你的程序




 




11) F5 运行。




 




输出report文件到另一种格式




 




你可以选择将你的report文件输出成以下格式:




 




1. PDF (Portable Document Format)




2. DOC (MS word Document)




3. XLS (MS excel Spreadsheet)




4. HTML (Hyper Text Markup Language – 3.2 or 4.0 compliant)




5. RTF (Rich Text Format)




 




事实上,你可以放置一个button来引发一个输出函数。




 




输出一个以Pull Model创建的report文件




 




当输出一个以Pull Model创建的report文件的时候,Crystal Report对与数据库的连接及所需的记录很敏感,所以你只可使用下面提供的代码:




 




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click




 




  Dim myReport As CrystalReport1 = New CrystalReport1()




  'Note : we are creating an instance of the strongly-typed Crystal Report file here.




 




  Dim DiskOpts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions()




 




 




  myReport.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile




    ' You also have the option to export the report to other sources




  ' like Microsoft Exchange, Mapi, etc. 




 




  myReport.ExportOptions.ExportFormatType = CrystalDecisions. [Shared].ExportFormatType.PortableDocFormat




    'Here we are exporting the report to a .pdf format.  You can




  ' also choose any of the other formats specified above.




 




  DiskOpts.DiskFileName = "c:Output.pdf"




  'If you do not specify the exact path here (i.e. including




   ' the drive and Directory),




   'then you would find your output file landing up in the




 'c:WinNTSystem32 directory - atleast in case of a




 ' windows 2000 System




 




  myReport.ExportOptions.DestinationOptions = DiskOpts




    'The Reports Export Options does not have a filename property




    'that can be directly set. Instead, you will have to use




  'the DiskFileDestinationOptions object and set its DiskFileName




    'property to the file name (including the path) of your  choice.




    'Then you would set the Report Export Options




    'DestinationOptions property to point to the




   'DiskFileDestinationOption object. 




 




  myReport.Export()




  'This statement exports the report based on the previously set properties.




 




End Sub




 




输出一个由Push Model创建的report文件




 




当输出一个由Push Model创建的report文件时,第一步是必需手工创建一个连接并绑定数据库。设定这个reports的‘SetDataSource’为此dataset(如前所述)。然后就可以调用上面所示的代码了。




_______________________________________________________________________________




 




提交者:




hotmail.com">Ajay Varghese & Shankar N.S.




Sr. Software Engineers,




Jarvis Infotech 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-980115/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7335613