机房收费系统个人版——DataGridView控件怎么用?
2013-05-10 18:02
225 查看
在VB.NET机房收费系统个人重构的进行当中,发现在vb6.0中的MSHFlexGrid控件,在VS中用哪个控件呢?所以,便出现了DataGridView控件。可是,这个控件怎么用呢?我们以机房收费系统中的“收取金额查询”为例,讲一下DataGridView控件如何使用。
下面是“收取金额查询”的界面:
![](https://img-blog.csdn.net/20130510174028834)
当然,位于界面下方的那个灰色的控件就是DataGridView了。那么。如何能将数据库中查到的数据显示在DataGridView中呢?我们在D层查询的过程中返回值是什么呢?是布尔值?表?还是实体呢?返回布尔值当然不行,因为是要在DataGridView中显示出数据。答案是返回表或者是实体都行。下面,我以返回表为例,看一下我实现的代码吧。
U层代码:
B层代码:
D层函数:
大致的代码就介绍到这里,估计这一块的难点就是有返回值了之后不知道在DataGridView控件中如何显示.有了上面的代码,希望能给大家提供一些思路。当然,知道了DataTable类型,还有下面这句话可是重点哦。
下面是“收取金额查询”的界面:
当然,位于界面下方的那个灰色的控件就是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 Function End 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 Function End Class
大致的代码就介绍到这里,估计这一块的难点就是有返回值了之后不知道在DataGridView控件中如何显示.有了上面的代码,希望能给大家提供一些思路。当然,知道了DataTable类型,还有下面这句话可是重点哦。
DataGridView1.DataSource = a
相关文章推荐
- 机房收费系统个人版——DataGridView控件怎么用?
- 机房收费系统个人版——DataGridView控件怎么用?
- 【机房收费系统】DataGridView控件的使用
- 机房收费系统——起步阶段需要做的工作,怎么附加数据库?怎么注册控件?
- 机房收费系统(1)-注册控件
- 总结个人版机房收费系统
- 机房收费系统-MDI窗体控件不能放置以及子窗体不能显示问题
- 小结:VB.NET机房收费系统个人版
- 机房收费系统之如何注册控件
- 机房收费系统之DTPicker控件和时间段查询
- 重构个人版机房收费系统——模板模式
- VB.NET版机房收费系统—DataGridView应用
- 机房收费系统之日历控件
- 【第一遍机房收费系统】——Grid++Report5.0怎么做报表
- 【机房收费系统个人版】三层登陆
- 重构个人版机房收费系统——外观模式
- 机房收费系统个人版-----触发器
- 机房收费系统二次重构个人版总结
- 机房收费系统个人版——VB.NET组合查询
- 机房收费系统遇到的问题(一) datagridview一次性移除多行选中数据,同时删除数据库数据