vb.net版机房重构--充值记录查询

前言

vb.net和VB两种的差距并不是非常大，但是使用起来还是有一些不同的，拿机房的充值记录查询功能实现来具体说明。使用 vs就比使用VB要简单很多，省去了很多人工的操作。

操作说明

在vb.net版机房收费系统中我对需求做了修改，学生端的充值记录查询就变成了如下界面：

1、 功能：当充值记录查询界面打开的时候学号会将登录界面的学号同步过来，相应的DataGridView中就会显示出相应的记录信息，无需再次查询，同时，也为了保护用户的信息，学生端的用户只能查询个人的信息。
2、接下来就谈谈DataGridView的具体使用，首次使用的时候会觉得有些困难，但是操作一遍之后再进行就会发现非常简单了。
（1）点击工具右上角的小三角，选择“获取项目数据源”，如图：

（2）根据出来的页面依次点击下一步即可

（3）然后点击如下图的新建链接

（4）根据如下图片进行填写内容

（5）点击确定后进行接下来的操作，本部分内容选择的数据表为recharge，为了进行各个dataset的区分，将其重新命名，如图：

（6）进行完以上操作之后设计结果如图，但是我们会发现它是将数据库中的表导出，那么这样不方便用户查看，我们就要进行相应的修改

（7）点击表的右上角的小三角，选择“编辑列”，然后修改外观的HeaderText，如图所示：

（8）修改完成之后就会看到如下图了，这样就更贴近客户了一些

（9）DataGridView还有非常好的一点就是简单方便，可以通过添加查询来实现表格和数据库中数据的链接，修改红框中的数据，这里需要根据自己的代码来写，如图所示：

（10）然后点击查询生成器，进行如下图的操作

（11）最后也就大功告成了！

（12）然后我们会发现有一些自动生成的代码

'TODO: 这行代码将数据加载到表“Rechargerecord.recharge”中。您可以根据需要移动或删除它。
        Me.RechargeTableAdapter.Fill(Me.Rechargerecord.recharge)

Private Sub FillByToolStripButton_Click(sender As Object,e As EventArgs) Handles FillByToolStripButton.Click
        Try
            Me.RechargeTableAdapter.FillBy(Me.Rechargerecord.recharge,UserNameToolStripTextBox.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub

部分代码展示
U层

Public Class U_Rechargerecord

    Private Sub U_Rechargerecord_Load(sender As Object,e As EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“Rechargerecord.recharge”中。您可以根据需要移动或删除它。
        Me.RechargeTableAdapter.Fill(Me.Rechargerecord.recharge)
        '删除最后一行空行
        DataGridView1.AllowUserToAddRows = False
        '隐藏工具栏
        FillByToolStrip.Hide()

        '接下来要进行的就是将登录窗体的用户名传入此窗体的文本框中
        Dim facadeRechargerecord As New Facade.Fe_Rechargerecord
        Dim table As DataTable
        Dim UserInfo As New Entity.E_Rechargerecord
        table = facadeRechargerecord.CheckLink(UserInfo)
        txtstudentNo.Text = table.Rows(0)(1)
    End Sub

    Private Sub FillByToolStripButton_Click(sender As Object,UserNameToolStripTextBox.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub txtstudentNo_TextChanged(sender As Object,e As EventArgs) Handles txtstudentNo.TextChanged
        '因为这里不需要点击按钮，txtstudentNo文本框中的数据直接接受登录窗体的用户名，所以这里需要
        '做的就是当文本框中同步登录窗体的内容时触发tool工具
        '将文本框中的值赋值给添加的查询tootextbox
        UserNameToolStripTextBox.Text = txtstudentNo.Text
        Try
            Me.RechargeTableAdapter.FillBy(Me.Rechargerecord.recharge,UserNameToolStripTextBox.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub


End Class

外观层

Public Class Fe_Rechargerecord
    Public Function CheckLink(ByVal UserInfo As Entity.E_Rechargerecord) As DataTable
        Dim isLink As New BLL.B_Rechargerecord
        Dim flag As DataTable
        flag = isLink.Link(UserInfo)
        Return flag
    End Function
End Class

B层

Public Class B_Rechargerecord
    Public Function Link(ByVal UserInfo As Entity.E_Rechargerecord) As DataTable
        Dim IRechargerecord As IDAL.I_Rechargerecord
        '调用创建用户的工厂方法
        IRechargerecord = Factory.Fy_Rechargerecord.CreateUserInterface
        Dim table As DataTable
        table = IRechargerecord.selectUser(UserInfo)
        Return table
    End Function
End Class

D层

Imports System.Data.SqlClient
Public Class D_Rechargerecord : Implements IDAL.I_Rechargerecord
    '声明并实例化sqlhelper类
    Private SqlHelper As SQLHelper.sqlhelper = New SQLHelper.sqlhelper
    '增删改查
    Public Function selectUser(UserInfo As Entity.E_Rechargerecord) As DataTable Implements IDAL.I_Rechargerecord.selectUser
        '定义
        Dim Sql As String
        '中间变量用于存储从数据库中查找信息
        Dim table As DataTable
        '声明并实例化参数数组
        '这里需要调用登录窗体的用户名
        Dim UserInfo1 As New Entity.E_Login
        Dim sqlParams As SqlParameter() = {New SqlParameter("@UserName",UserInfo.UserName = UserInfo1.UserName)}
        Sql = "select * from recharge where studentNo=@UserName"
        table = SqlHelper.GetDataTable(Sql,CommandType.Text,sqlParams)
        Return table
    End Function
End Class

计算机小白学习到了一个新的知识，兴奋！