【个人机房重构】——报表ReportViewer

不念不忘少年蓝@ 2022-08-12 00:20 165阅读 0赞

**前言：**在机房个人重构的过程中，报表算是一个比较难弄的地方。之前做VB版机房收费系统用的报表是Grid++Report，这次VB.NET重构中用到了VisualStudio自带的报表控件—ReportViewer。刚着手去做的时候，根本不知道如何下手，后来站在巨人的肩膀上，终于缕出点眉目了。

** 在VB版的机房收费系统中，报表应该是每个人心中的噩梦。要不是弄不出来，要不就是弄出来了，里边的数据也不对。那么，到我们现在的VB.NET版机房收费系统中，这个像噩梦一样存在的东西，又应该是什么样的呢？**

# 设计报表的具体步骤： #

**1、首先，添加报表控件：ReportViewer**

**2、添加和编辑编辑RDLC文件：**

** ** ①点击ReportViewer右上的三角，选择“设计新报表”

![SouthEast][]

②在“报表向导”中，我们可以重命名数据集的名称，然后选择数据源新建

![SouthEast 1][]

③然后在“配置数据源向导”中，选择数据库，一直“下一步”点下去

![SouthEast 2][]

④在“选择您的数据连接”中，选择“新建连接”

![SouthEast 3][]

⑤在“添加连接”中，进行数据源的设置

![SouthEast 4][]

⑥然后选择“是”之后，会出现下边的对话框，直接点下一步即可

![SouthEast 5][]

⑦在“选择数据库对象”中，选择你报表需要用到的数据库中的表

![SouthEast 6][]

⑧点击“完成”后，会回到“报表向导”的对话框，然后点击下一步即可

![SouthEast 7][]

⑨在这里，直接把需要的字段（报表中的字段）按顺序拖入到“∑值”即可。

![SouthEast 8][]

⑩下边是我设计好的报表

![SouthEast 9][]

其中，在报表中的一些细节：标题、参数、时间等

**添加文本框**：添加标题 “机房收费系统结账汇总” 就是在【工具箱】中加入文本框就可以。

**添加内置字段**：如下图，制表日期就是报表中自带的函数，可以在【报表数据】的内置字段中添加。然后右击选择表达式，可以对其设定属性

**参数**：可以自己进行添加

![SouthEast 10][]

![SouthEast 11][]

然后在报表窗体上，在报表控件ReportViewer的右上方，点击三角

![SouthEast 12][]

至此，整个报表的设计就算完成了。

**下边是代码部分（报表刷新部分的U层代码）**

'********************************************** 
    ' 文 件 名：frmDayAmount
    ' 命名空间：UI
    ' 内    容：
    ' 功    能：报表
    ' 文件关系：
    ' 作    者：杨晨光
    ' 小    组：
    ' 生成日期：2014/9/3 16:16:11
    ' 版 本 号：V1.0.0.0
    ' 修改日志：
    ' 版权说明：
    '**********************************************
    Imports System
    Imports Microsoft.Reporting.WinForms
    Public Class frmDayAmount
    
        Private Sub frmDayAmount_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'TODO: 这行代码将数据加载到表“ChargeSystemDataSet.T_DayAmount”中。您可以根据需要移动或删除它。
            Me.T_DayAmountTableAdapter.Fill(Me.ChargeSystemDataSet.T_DayAmount)
    
            Me.ReportViewer.RefreshReport()
        End Sub
        '刷新报表
        Private Sub btnR_Click(sender As Object, e As EventArgs) Handles btnR.Click
            '定义两个变量，把时间赋值给它们
            Dim StartTime As String = Format(DtpStart.Value, "yyyy-MM-dd")
            Dim EndTime As String = Format(DtpEnd.Value, "yyyy-MM-dd")
    
            '判断两个时间的大小
            If StartTime > EndTime Then
                MsgBox("起始时间不能超过终止时间，请重新选择！", MsgBoxStyle.Exclamation, "警告")
                Exit Sub
            End If
    
            Dim myList As List(Of Entity.DayAmountEntity)   '定义一个泛型集合，用来承载返回的数据
            Dim BUser As New BLL.DayAmountBLL               '实例化B层的一个新对象
            myList = BUser.Check(StartTime, EndTime)        '调用B层的方法，并将两个时间变量传给它
    
            '返回的泛型集合为0，则里边没有东西
            If myList.Count = 0 Then
                MsgBox("这段时间内没有您要的查询内容，请重新选择时间！", MsgBoxStyle.Exclamation, "警告")
                Exit Sub
            Else
    
                '声明一个报表数据源对象  
                Dim rptDateSource = New ReportDataSource
                '设置报表数据集名称  
                rptDateSource.Name = "DataSetAmount"
                '设置报表数据源实例  
                rptDateSource.Value = myList
                '设置嵌入报表的资源名称  
                ReportViewer.LocalReport.ReportEmbeddedResource = "UI.Report1.rdlc"
                '清空报表数据源  
                ReportViewer.LocalReport.DataSources.Clear()
                '添加报表数据源  
                ReportViewer.LocalReport.DataSources.Add(rptDateSource)
    
                '刷新报表  
                Me.ReportViewer.RefreshReport()
            End If
    
        End Sub
    End Class

B层、D层的代码在此省略。

# 总结 #

虽然报表做完了，但是我还是有些疑问。这样的设计出来报表，直接跟数据源打交道，从而违背了三层架构的思想。但是，使用别的方法吧，还不会。所以只好妥协，采用这种方法。

其实，整张报表做完，发现也没有想象中的那么难。有时候，有些事情，只要迈开第一步，放手去做，你会发现，原来世界也是挺美好的，因为你已经成功了一半了。

[SouthEast]: /images/20220810/881c0c7e1a3f43638ec02887fbcedc4d.png
[SouthEast 1]: /images/20220810/2d2ca1044365412faf08bf265838ad8b.png
[SouthEast 2]: /images/20220810/9d4e4f2ef50843d49cad61f881b7e642.png
[SouthEast 3]: /images/20220810/5b761e7a1150438a8a293885331f9b4d.png
[SouthEast 4]: /images/20220810/cbd9f744856f4362973d7411e22399f1.png
[SouthEast 5]: /images/20220810/f0a857a5d64348e5833117d11fc50093.png
[SouthEast 6]: /images/20220810/bf4ac90f0a5e440a9f41de99346374bc.png
[SouthEast 7]: /images/20220810/2b0663a352d346658343fa7c9f58c463.png
[SouthEast 8]: /images/20220810/4c35731755db4772ab48c5334a2d100f.png
[SouthEast 9]: /images/20220810/de3c16dc300140e2aa2d1d1e3c17fc2d.png
[SouthEast 10]: /images/20220810/981bca5063ac4670a785067afa8c88f4.png
[SouthEast 11]: /images/20220810/65f1c13d1d4d4a1985d3e852d3b1061e.png
[SouthEast 12]: /images/20220810/2767ef142a05444d87b3c41c4e5dd1fc.png