机房收费系统就是增删改查的实现

用.net做机房收费系统的过程中。我想大家要是把对数据库表的增删改查这些基本的功能实现了，那么机房收费系统也就完成。没有想象中的那么难，只要动手。

由于这回我们在vb.net的环境下开发机房收费系统，还有搭建了三层。所以我们对数据库表的操作不能像第一回用vb做那么的直接了，而且代码量要比用vb做要多得多。

我在这里想说说机房收费中，我们应该对数据库表进行的一些操作。

我就写写数据访问层吧（DAL）

用datareader写一下登录窗体。

imports system.data.sqlclientpublic class DalLoginPublic Class D_login    Dim ConnStr As String = "Data Source=192.168.24.146;Initial Catalog=czy_charge;User ID=sa;Password=123456"    Dim conn As SqlConnection = New SqlConnection(ConnStr)    Function Check(ByVal E_loginuser As Entity.Login) As Entity.Login        Dim sql As String = "select * from Login_info where User_ID='" & User.User_Id + "'"        Dim cmd As SqlCommand = New SqlCommand(sql, conn)        Dim read As SqlDataReader        Try            conn.Open()            read = cmd.ExecuteReader            read.Read()            User.User_Id = read.Item("User_ID")            User.User_Pwd = read.Item("User_Pwd")            Return User        Catch ex As Exception            User.User_Pwd = ""            Return User        End Try    End FunctionEnd Class

我们看看要是用DataTable，我们应该怎么写登录窗体。

Imports System.Data.SqlClientImports EntityPublic Class D_login    Dim ConnStr As String = "Data Source=192.168.24.146;Initial Catalog=czy_charge;User ID=sa;Password=123456"    Dim conn As SqlConnection = New SqlConnection(ConnStr)    Function Check(ByVal User As Entity.User) As Entity.User        Dim sql As String = "select * from Login_info where User_ID='" & User.User_Id + "'"        Dim cmd As SqlCommand = New SqlCommand(sql, conn)        Try            conn.Open()            Dim dt As New DataTable            dt.Load(cmd.ExecuteReader)            User.User_Id = dt.Rows(0)(1).ToString            User.User_Pwd = dt.Rows(0)(2).ToString            Return User        Catch ex As Exception            User.User_Pwd = ""            Return User        End Try    End FunctionEnd Class

DataReader对象是一个简单的数据集，用于从数据源中检索只读数据集，常用于检索大量数据。DataReader对象只允许以只读、顺向的方式查看其中所存储的数据，提供一个非常有效率的数据查看模式。DataTable表示内存中数据的一个表。那什么时候用什么，这个视具体情况而定。还是那句话“适合就好”