【机房收费系统】DataGridView控件的使用

本文主要是介绍【机房收费系统】DataGridView控件的使用，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

机房重构的过程，有许多功能的实现需要将数据库表中的数据显示在DataGridView控件中。这个功能的实现很简单，只要将D层中查询出来的数据以DataTable对象或者实体泛型加载到DataGridView控件即可。以查询退卡记录窗体为例：

    Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click'实例化实体ReturnEntity类Dim UReturnCard = New Entity.ReturnEntity()'实例化B层中ReturnBll类Dim Breturncard = New BLL.ReturnCardBLL()'获取退卡日期UReturnCard.ReturnDate = DateTimePicker1.Value'给参数赋值Dim date1 = CStr(DateTimePicker1.Value.Date)Dim date2 = CStr(DateTimePicker2.Value)'经过查询ReturnCard_info表，返回实体泛型returnListDim returnList = Breturncard.SelectDate(date1, date2)'通过DataGridView控件的DataSource属性为其加载数据源returnListDataGridView1.DataSource = returnListEnd Sub

显示结果为：

咦，大家会发现虽然实现了功能，但是DataGridView控件中的列名是ReturnCard_info表中的字段。这对于用户来说是一件非常匪夷所思的事情，用户虽然看到了信息，但是并不知道这个表的列和行代表什么意思。作为一名软件设计人员来说，UI的设计是很重要的。很显然，这样的UI肯定不是用户想看到的。那么我们就要去优化它，把该它改成用户想要看到的界面。这里给大家提供两种方法。

一、通过设置DataGridView属性。

右击DataGridView —>编辑列—>添加

2、编辑要显示的列名

3、修改要替换的字段名

通过这种方法能够实现我们想要的，另外的一种的方法是编写代码。

二、编写代码

    Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click'实例化实体ReturnEntity类Dim UReturnCard = New Entity.ReturnEntity()'实例化B层中ReturnBll类Dim Breturncard = New BLL.ReturnCardBLL()'获取退卡日期UReturnCard.ReturnDate = DateTimePicker1.Value'给参数赋值Dim date1 = CStr(DateTimePicker1.Value.Date)Dim date2 = CStr(DateTimePicker2.Value)'经过查询ReturnCard_info表，返回实体泛型returnListDim returnList = Breturncard.SelectDate(date1, date2)'通过DataGridView控件的DataSource属性为其加载数据源returnList()'DataGridView1.DataSource = returnListDim dt As New Data.DataTabledt.Columns.Add("卡号")dt.Columns.Add("退卡教师")dt.Columns.Add("退卡日期")dt.Columns.Add("退卡时间")dt.Columns.Add("退卡金额")dt.Columns.Add("结账状态")'申明一新行Dim dataNewRow As DataRowFor i = 0 To returnList.Count - 1UReturnCard = returnList.Item(i)dataNewRow = dt.NewRow()'显示数据dataNewRow.Item(0) = UReturnCard.CardIDdataNewRow.Item(1) = UReturnCard.ReturnCashdataNewRow.Item(2) = UReturnCard.ReturnDatedataNewRow.Item(3) = UReturnCard.ReturnTimedataNewRow.Item(4) = UReturnCard.UserIDdataNewRow.Item(5) = UReturnCard.ICheckdt.Rows.Add(dataNewRow)Next'绑定数据源DataGridView1.AutoGenerateColumns = TrueDataGridView1.AllowUserToAddRows = FalseMe.DataGridView1.DataSource = dtMe.DataGridView1.Refresh()End Sub

看一下显示后的效果吧！