机房收费系统个人版——DataGridView控件怎么用？

     在VB.NET机房收费系统个人重构的进行当中，发现在vb6.0中的MSHFlexGrid控件，在VS中用哪个控件呢？所以，便出现了DataGridView控件。可是，这个控件怎么用呢？我们以机房收费系统中的“收取金额查询”为例，讲一下DataGridView控件如何使用。

下面是“收取金额查询”的界面：

            当然，位于界面下方的那个灰色的控件就是DataGridView了。那么。如何能将数据库中查到的数据显示在DataGridView中呢？我们在D层查询的过程中返回值是什么呢？是布尔值？表？还是实体呢？返回布尔值当然不行，因为是要在DataGridView中显示出数据。答案是返回表或者是实体都行。下面，我以返回表为例，看一下我实现的代码吧。

U层代码：

Public Class FormUI_QueryCollectSum    '查询按钮    Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click        '一共实例化两个实体类对象，将起始日期和终止日期分别赋给这两个实体类对象        '定义一个实体类对象，并实例化这个对象        Dim BeginData As Model.Model_CZRecord = New Model.Model_CZRecord        '将起始日期文本框里面的时间内容赋给实体类对象        BeginData.cz_date = datetimeBegin.Text.ToString()        '定义另一个实体类对象        Dim EndData As Model.Model_CZRecord = New Model.Model_CZRecord        '将终止日期文本框里面的时间内容赋给实体类对象        EndData.cz_date = datetimeEnd.Text.ToString()        '定义一个B层对象，用来返回B层的结果        Dim uB As BLL.BLL_QueryCollectSum = New BLL.BLL_QueryCollectSum        Dim a As DataTable        '调用B层的方法        a = uB.query_rechargerecord(BeginData, EndData)        '将返回值在DataGridView中显示出来        DataGridView1.DataSource = a    End Sub

B层代码：

Public Class BLL_QueryCollectSum    '定义一个函数，用来返回D层的查询结果    Public Function query_rechargerecord(ByVal model1 As Model.Model_CZRecord, ByVal model2 As Model.Model_CZRecord) As DataTable        '定义一个D层对象        Dim bD As DAL.DAL_QueryCollectSum = New DAL.DAL_QueryCollectSum        Dim a As DataTable        '调用D层函数        a = bD.Query_RechargeRecord(model1, model2)   '！！注意这里是两个参数！！！！        '返回值是一个表        Return a    End FunctionEnd Class

D层函数：

 '定义一个函数，用来查询表中的数据    Public Function Query_RechargeRecord(ByVal tstData As Model.Model_CZRecord, ByVal txtData As Model.Model_CZRecord) As DataTable        '查询语句        Dim sqlstr As String        sqlstr = "select * from CZRecord where cz_date>'" & tstData.cz_date & "' And cz_date<'" & txtData.cz_date & "'"        '执行        Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, conn)        Dim myTable As New DataTable()        myAdapter.Fill(myTable)        Return myTable    End FunctionEnd Class

            

            大致的代码就介绍到这里，估计这一块的难点就是有返回值了之后不知道在DataGridView控件中如何显示.有了上面的代码，希望能给大家提供一些思路。当然，知道了DataTable类型，还有下面这句话可是重点哦。

DataGridView1.DataSource = a