图解机房收费系统报表制作的全过程

在学习vb6.0时，使用的报表是第三方的Grid++Report，纠结了一番，现在换到了VB.Net，又花费了一天的时间来学习。不过感觉还是很有收获，拿出来分享一下。

第一阶段【添加数据集】

经过简单的设计出现下图：

下面的图显示的添加报表Reporting

（注意：必须选中Report.dlc）

注意：添加数据集（右击）

第二阶段【连接数据库】

添加我们需要连接到数据库中的表，如下的表：

下面就是连接数据库的简单过程了，按图索骥即可。

下面一定的选择你将要打印报表的数据表

第三阶段【设计报表】

第四阶段【编程部分】

首先在窗体代码页最上面引入2个命名空间

首先在窗体代码页最上面引入2个命名空间
Imports System  
 Imports Microsoft.Reporting.WinForms  
双击查询，打开Click事件：
Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click  
  
  
  
  
 
   
   
   
   
   
 
   
   
   
   
        Dim dt As DataTable   
 
   
   
   
   
        Dim CheckWeekMgr As New  CheckWeekLogMgr    
 
   
   
   
   
           
 
   
   
   
   
        '大家可以自己的实际情况查询数据。我这里用了分层，查询的具体实现不在这层。    
 
   
   
   
   
        If chkEnd.Checked Then   
 
   
   
   
   
            If chkUser.Checked Then   
 
   
   
   
   
                '获取记录    
 
   
   
   
   
                dt =  CheckWeekMgr.QueryCheckLog(cmbUserID.Text, dtpStart.Text, dtpEnd.Text)   
 
   
   
   
   
            Else   
 
   
   
   
   
                '获取记录    
 
   
   
   
   
         dt =  CheckWeekMgr.QueryCheckLog(dtpStart.Text, dtpEnd.Text)   
 
   
   
   
   
            End If   
 
   
   
   
   
        Else   
 
   
   
   
   
            '获取记录    
 
   
   
   
   
            dt =  CheckWeekMgr.QueryCheckLog(dtpStart.Text)   
 
   
   
   
   
        End If   
 
   
   
   
   
   
 
   
   
   
   
        '【这里是重点】    
 
   
   
   
   
        '声明一个报表数据源对象    
 
   
   
   
   
        Dim rptDataSource As New ReportDataSource   
 
   
   
   
   
   
 
   
   
   
   
        '设置报表数据源名称，这个名称必须与你创建数据集时起的名称一致。    
 
   
   
   
   
        rptDataSource.Name = "Check"   
 
   
   
   
   
        '设置报表数据源实例    
 
   
   
   
   
        rptDataSource.Value = dt   
 
   
   
   
   
   
 
   
   
   
   
        '设置嵌入报表的资源的名称    
 
   
   
   
   
        ReportViewer1.LocalReport.ReportEmbeddedResource = "UI.CheckWeek.rdlc"   
 
   
   
   
   
        '清空报表数据源    
 
   
   
   
   
        ReportViewer1.LocalReport.DataSources.Clear()   
 
   
   
   
   
        '添加报表数据源    
 
   
   
   
   
        ReportViewer1.LocalReport.DataSources.Add(rptDataSource)   
 
   
   
   
   
   
 
   
   
   
   
        '设置报表中的参数集合，这里传递的参数，名字大小写必须一致，    
 
   
   
   
   
        '且其本身数据类型必须与报表中定义的数据类型也必须一致。    
 
   
   
   
   
        Dim params() As ReportParameter =   
 
   
   
   
   
            {   
 
   
   
   
   
 
 
   
   
   
   
                New ReportParameter("DateStart", Date.Parse(dtpStart.Text)),   
 
   
   
   
   
                New ReportParameter("DateEnd", Date.Parse(dtpEnd.Text))    
 
   
   
   
   
            }   
 
   
   
   
   
   
 
   
   
   
   
        '传递报表中的参数集合    
 
   
   
   
   
        ReportViewer1.LocalReport.SetParameters(params)   
 
   
   
   
   
   
 
   
   
   
   
        '刷新报表    
 
   
   
   
   
        Me.ReportViewer1.RefreshReport()   
 
   
   
   
   
   
  
  
  
  
    End Sub  

现在一切OK了，运行部分就交给你自己测试了。我也算初识报表吧，如果有什么错误的地方，欢迎大家指正，大家共同探讨，共同进步。