【个人机房重构】——DataGridView控件绑定数据㈡

雨点打透心脏的1/2处 2022-08-10 13:53 324阅读 0赞

在上一篇文章中，说了一下使用DataGridView控件直接绑定数据源的做法，那样做虽然方便，但是有缺陷（[详情请看上一篇文章][Link 1]）。现在，我将从使用实体类填充泛型集合，用泛型集合来传递数据的方法，来展示DataGridView如何显示数据的。

# 一、设置DataGridView控件 #

首先，插入DataGridView控件后，进行相应的设置：

![SouthEast][]

注：设置时，4、5是特别需要注意的。数据DataPropertyName这里，必须要与实体的属性名相同。

**设置成功：**

![SouthEast 1][]

# 二、编写代码 #

**U层**

'********************************************** 
    ' 文 件 名：frmCheckRecharge
    ' 命名空间：UI
    ' 内    容：
    ' 功    能：查询学生充值记录
    ' 文件关系：
    ' 作    者：杨晨光
    ' 小    组：
    ' 生成日期：2014/8/12 22:17:44
    ' 版 本 号：V1.0.0.0
    ' 修改日志：
    ' 版权说明：
    '**********************************************
    
    Public Class frmCheckRecharge
        Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click
            '卡号不为空的话，开始进行传值
            Dim EUser As New Entity.RechargeEntity    '实例化新的RechargeEntity，用来传递B层的实体
            Dim BUser As New BLL.CheckRechargeBLL     '实例化新的CheckRechargeBLL，传递参数
            Dim LUser As New List(Of Entity.RechargeEntity)   '实例化新的List泛型集合
    
            EUser.cardNo = VarType(txtCID.Text.Trim)    '将卡号赋值给实体层的EUser,VarType将字符串类型转换成integer类型
    
            LUser = BUser.Check(EUser)     '调用B层的Check方法
    
            '判断返回的泛型集合是否为空
            '不为空
            If IsNothing(LUser) = False Then
                '将泛型集合中数据，显示在DataGridView控件上
                DataGridView1.DataSource = LUser
            Else
                txtCID.Text = ""     '清空输入卡号文本框
                txtCID.Focus()      '获得光标输入焦点
            End If
        End Sub
    
        '自动显示行号
        Private Sub DataGridView1_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs)
            Try
                e.Graphics.DrawString((e.RowIndex + 1).ToString(),
                                      e.InheritedRowStyle.Font, New SolidBrush(Color.CadetBlue),
                                      e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + 5)
            Catch
                MsgBox("操作失败")
            End Try
        End Sub
    End Class

**B层**

Public Class CheckRechargeBLL
        Function Check(ByVal user As Entity.RechargeEntity) As List(Of Entity.RechargeEntity)  '返回值为泛型集合
            '先判断卡号是否为空，为空的话
            If user.cardNo.ToString.Trim = "" Then
                MsgBox("卡号不能为空，请输入卡号！", MsgBoxStyle.Exclamation, "警告")
                Return Nothing
            End If
    
            '卡号不为空，则进行赋值判断
            Dim LUser As List(Of Entity.RechargeEntity)
            Dim DUser As New DAL.CheckRechargeDAL
    
            LUser = DUser.Query(user)    '将user值通过D层的Query方法，传到泛型集合LUser中
    
            '判断返回的泛型集合是否为空
            If IsNothing(LUser) = False Then     '不为空
                Return LUser
            Else
                MsgBox("没有此卡号的记录，请重新输入卡号", MsgBoxStyle.Exclamation, "警告")
                Return Nothing
            End If
        End Function
    End Class

**D层**

Imports System.Data
    Imports System.Data.SqlClient
    Public Class CheckRechargeDAL
        Function Query(ByVal user As Entity.RechargeEntity) As List(Of Entity.RechargeEntity)
            '定义一个操作数据库的助手类
            Dim MySqlHelper As New SqlHelper
            '定义对数据库的操作语句
            Dim strSql As String
            strSql = "select * from T_Recharge where cardNo=@cardNo"
            '加入参数
            Dim paras As SqlParameter()
            paras = {New SqlParameter("@cardNo", user.cardNo)}
            '执行查询，并将查询的结果保存到dt里边
            Dim dt As DataTable
    
    
            '保存转换后的泛型集合
            Dim myList As List(Of Entity.RechargeEntity)
            '执行查询
            dt = MySqlHelper.ExecSelect(strSql, CommandType.Text, paras)
    
    
            '进行判断，dt中是否有记录
            If dt.Rows.Count > 0 Then    'dt中有记录
                '将dt转换为泛型集合
                myList = ConvertHelper.convertToList(Of Entity.RechargeEntity)(dt)
                Return myList      '返回myList
            Else
                Return Nothing
            End If
        End Function
    End Class

# 三、结果 #

![SouthEast 2][]

[Link 1]: http://blog.csdn.net/u010164936/article/details/38537263#t9
[SouthEast]: /images/20220810/39618522629249a5bb7a42f998a74e18.png
[SouthEast 1]: /images/20220810/8efe0efab5934854a7707098d4943e3c.png
[SouthEast 2]: /images/20220810/e008e28d201b49ab8e2910d4304e3e95.png