機房重構——報表
在VS中報表的實現還是比較easy的。第一次機房收費時,我們用了三方工具來制作報表,相對倆說是比較麻煩的,我們來看一下,VS中是怎樣制作報表的。
第一步:加入數據集
第二步:依據向導,新建連接,輸入相關信息。
下一步:
下一步:
之後一直下一步,選擇select 語句進行顯示
第三步,加入報表
第四步。選擇新建的報表,右擊加入表。選擇數據集屬性。
下一步,為報表加入相應的字段
watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" width="699" height="129" >
第五步,加入報表容器。
至此。大功告成,以下以周結賬單為例,展示部分代碼:
<span style="font-size:18px;"><strong>Private Sub cmdQuery_Click(sender As Object, e As EventArgs) Handles cmdQuery.Click Dim dateinfo As New Entity.DayWeekEntity Dim dayweekfac As New Facade.DayWeekFac Dim table As DataTable dateinfo.StartDate = Format(DTPstart.Value, "yyyy-MM-dd") dateinfo.StopDate = Format(DTPstop.Value, "yyyy-MM-dd") 'table為依據查詢條件返回的datatable table = dayweekfac.GetWeekInfo(dateinfo) Dim rptDataSource As New ReportDataSource '聲明數據源對象 rptDataSource.Name = "DataSet1" '設置報表數據集名稱 rptDataSource.Value = table '設置數據源實例 ReportViewer1.LocalReport.ReportEmbeddedResource = "WindowsApplication1.CheckDayWeek.rdlc" ReportViewer1.LocalReport.DataSources.Clear() ReportViewer1.LocalReport.DataSources.Add(rptDataSource) Me.ReportViewer1.RefreshReport() End Sub</strong></span>
這僅僅是一個簡單的實現功能,原來看過一個師哥的博客,報表設計的特別美麗,合作的 時候要加油了!
機房重構——報表