VB.Net机房收费系统（三层）——用datagirdview 控件显示数据库数据

概述　　机房收费系统中，对于其需求而言，其中少不了要用到datagridview控件来显示一些从数据库中检索到的信息。现在用其中的一个实例来实现以下系统中查询用户充值记录的用例。 　　以前自己学习的三层资料中，得到的一个学习信息是在三层中，应该把业务逻辑层作为出发点，然后进行功能的实现。或许一个人一个感觉吧，我总是感觉从数据访问层出发，更符合我们的思维逻辑，从而方便业务功能的实现。对于用户充值记录。

　　机房收费系统中，对于其需求而言，其中少不了要用到datagrIDvIEw控件来显示一些从数据库中检索到的信息。现在用其中的一个实例来实现以下系统中查询用户充值记录的用例。

　　以前自己学习的三层资料中，得到的一个学习信息是在三层中，应该把业务逻辑层作为出发点，然后进行功能的实现。或许一个人一个感觉吧，我总是感觉从数据访问层出发，更符合我们的思维逻辑，从而方便业务功能的实现。对于用户充值记录。

Dal数据访问层：

importsSystem.Data.sqlClIEnt

Public Function Checkrecord(ByVal Student AsEntity.RechargeRecord) As Datatable

Dim conn As sqlConnection = NewsqlConnection(DAL.DbConnection.Constr)

Dim da As New sqlDataAdapter

Dim dst As New DataSet

Dim dt As New Datatable

conn.open()

Dim sql As String = "select *from Recharge_Info where CardID='"& Student.CardID & "'"

Dim cmd As sqlCommand = NewsqlCommand(sql,conn)

da.SelectCommand = cmd

da.Fill(dst,"Recharge_Info")

dt =dst.tables("Recharge_Info")

conn.Close()

Return dt

End Function

BLL业务逻辑层:

PublicFunction CheckRecord(ByVal Student As Entity.RechargeRecord) As Datatable

Dim dalRechargeRecord As NewDAL.RechargeRecordDAL

Dim dt As New Datatable

dt =dalRechargeRecord.Checkrecord(Student)

Return dt

End Function

UI用户界面层：

Dim entityStuRecordAs New Entity.RechargeRecord

entityStuRecord.CardID = txtCardID.Text

Dim bllRechargeRecord As NewBLL.RechargeRecord

DataGrIDVIEw1.DataSource =bllRechargeRecord.CheckRecord(entityStuRecord)

当然，在entity 实体类中需要声明相应的属性，其中用到的是CardID属性，声明即可。 总结

以上是内存溢出为你收集整理的VB.Net机房收费系统（三层）——用datagirdview 控件显示数据库数据全部内容，希望文章能够帮你解决VB.Net机房收费系统（三层）——用datagirdview 控件显示数据库数据所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。