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

用.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 Class

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