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

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

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

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

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

用datareader写一下登录窗体。

imports system.data.sqlclient public class DalLogin Public 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 Function End Class我们看看要是用DataTable，我们应该怎么写登录窗体。

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