机房重构——报表

淡淡的烟草味﹌ 2022-08-21 03:23 180阅读 0赞

强烈推荐一个大神的人工智能的教程：[http://www.captainbed.net/zhanghan][http_www.captainbed.net_zhanghan]

# ●前言 #

一个星期 又一个星期，犹记第一次敲机房时候的感受，弄报表这一块的时候觉得很乱。这次用.net重构听说VS自带报表功能，心里就开心了不少，结果弄得时候弄了几天没有成功，就开始完善窗体。后来又接着弄，还是没有成功，心里上就有点“怕”了。一提到报表自己第一心态是我不会！今天我想找师傅验收一下，所以下午自己的心里特别的轻松，今天一定要弄出来，就一点点的重头开始做了。最终！我成功的做出来了！开心啊！

# ●步骤 #

## 1.创建窗体 ##

在机房中我们有周结和日结，做相应的部分时候创建相应的窗体。现在我以周结账单为例！创建出窗体后将下边的报表控件拖到窗体上！

![Center][]

将日期控件也放到窗体上之后，窗体界面如下：

![Center 1][]

## 2.创建报表 ##

### 2.1创建 ###

![Center 2][]

![Center 3][]

### 2.2创建后的界面 ###

![Center 4][]

### 2.3添加表 ###

在上述创建的界面中右击添加表

![Center 5][]

出现如下的界面，点击新建：

![Center 6][]

![Center 7][]

![Center 8][]

![Center 9][]

### 2.4添加表头和数据 ###

添加完表后界面如下，表头可以单击进行修改，数据区可以点击下图中框出来的地方选择相应数据库中的字段。

![Center 10][]

### 2.5简单设计后的报表 ###

![Center 11][]

### 2.6配置 ###

这样就完了吗？NO！接下里我们再回到周结账单的窗体上。在下图中的小三角中选择报表。

![Center 12][]

选择好报表后进行配置：

![Center 13][]

点击在数据设计器中编辑查询后，出现如下界面，按照红框中画出的步骤进行操作。

![Center 14][]

点击配置后出现如下向导，点击查询生成器：

![Center 15][]

点击查询生成器后界面如下，可以去掉不需要查出的字段，添加自己的SQL查询条件，然后一直下一步直到完成。其中的@DateStart和@DateEnd都是参数，一会需要在U层代码中传入参数。

![Center 16][]

## 3.代码实现 ##

Imports Microsoft.Reporting.WinForms   '引用

Private Sub frmWeekCheck_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.ReportViewer1.RefreshReport()  '显示报表
    
        End Sub

Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click
            Dim daychecksource As New ReportDataSource
            'Me.T_BillTableAdapter.Fill(Me.ChargeSystemDataSet.T_Bill, Format(DateStart.Value, "yyyy-MM-dd"))
            '设置报表数据源名称
            daychecksource.Name = "WeekCheck"
            '设置报表数据源实例
            daychecksource.Value = ChargeSystemDataSet1.T_Bill
            Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "UI.WeekCheck.rdlc"
            '清空存在报表 
            Me.ReportViewer1.LocalReport.DataSources.Clear()
            '添加数据源
            Me.ReportViewer1.LocalReport.DataSources.Add(daychecksource)
            '传递参数  
            Me.T_BillTableAdapter.Fill(Me.ChargeSystemDataSet1.T_Bill, Format(DateStart.Value, "yyyy-MM-dd"), Format(DateEnd.Value, ("yyyy-MM-dd")))
            '刷新报表
            Me.ReportViewer1.RefreshReport()
        End Sub

# ●总结 #

我用的是比较简单的这种绑定数据源的方法。代码只需要在U层中编写就可以。关键容易出错的地方就是参数的传递。而且DateTimePicker这个控件的日期还需要转换一下格式，否则传进数据库也无法正确的执行。通过这次报表发现自己如果内心就打败自己，那将会浪费很多时间，遇事要耐心一点，认真的解决！

[http_www.captainbed.net_zhanghan]: http://www.captainbed.net/zhanghan
[Center]: /images/20220731/b0ac3b2819c242fb9f92e89eb37934d7.png
[Center 1]: /images/20220731/f57d1d2a6cc84c498d710ed9b41c4b8e.png
[Center 2]: /images/20220731/68674b91d213484786a11639615230d6.png
[Center 3]: /images/20220731/b09f32d391644599870c28fd7b4a9fae.png
[Center 4]: /images/20220731/e7cb384d2122463a86ec5055d73d4a6b.png
[Center 5]: /images/20220731/c6bf0f00536947d894b7c7a27e998c88.png
[Center 6]: /images/20220731/5bc7c310b23944c4aea411cd28163c8e.png
[Center 7]: /images/20220731/233fa14060684ce4a577990542452b96.png
[Center 8]: /images/20220731/f6f1c6e5540347298cd52b810913d297.png
[Center 9]: /images/20220731/613834fe0f4347dca8140fedc37cc467.png
[Center 10]: /images/20220731/8228f4ebb80247f89c9b451385d9127c.png
[Center 11]: /images/20220731/e9c0280282dd449fb21ddf0ac17dc95e.png
[Center 12]: /images/20220731/449445423d154cce80ded1f05f2ad62c.png
[Center 13]: /images/20220731/c7ea96a1dfef439fbb87b2fa15160bf7.png
[Center 14]: /images/20220731/f8feceaf9ed6428394ad17a05cfd7daf.png
[Center 15]: /images/20220731/460749512c2e4471a3e0b75d1f06fe39.png
[Center 16]: /images/20220731/4b357885a58246559645243f5ee3a4c3.png