vb.net写机房收费系统

　　这是第一次用vb.net写机房收费系统的系统登录，用到了三层的知识，三天前当我正准备去做着手做系统的时候，还不知道从那里下手，经过查资料，看博客自己也写出了一个登录的例子，通过这次能够了解了三层每一层的真正的含义，也为自己以后做机房收费系统做一个基础的开端

　　'DAL层

　　Imports System.Data.SqlClient

　　Public Class LoginDAL

　　Public Function LoginDALSelectUser(ByVal UserName As String) As Model.LoginModel

　　'建立数据库连接字符串

　　Dim LoginConn As New SqlClient.SqlConnection("server=yiqing-pc;database=charge_sys;user id=sa;password=******")

　　'建立数据库命令字符串

　　Dim LoginCmm As New SqlClient.SqlCommand("select userid ,pwd from user_info where userid='" & UserName & "'", LoginConn)

　　'打开数据库

　　LoginConn.Open()

　　'定义一个数据库库读取方式

　　Dim LoginReader As SqlDataReader

　　'读取数据库中的内容

　　LoginReader = LoginCmm.ExecuteReader

　　Dim testUser As New Model.LoginModel

　　If LoginReader.Read() Then

　　testUser.userName = LoginReader.GetFieldValue(Of String)(0)

　　testUser.passWord = Trim(LoginReader.GetFieldValue(Of String)(1))

　　Return testUser

　　LoginReader.Close()

　　LoginConn.Close()

　　Else

　　Return Nothing

　　End If

　　End Function

　　End Class

　　'BLL层

　　Public Class LoginBLL

　　Public Shared Function isnullLoginBLL(ByVal UI_testUser As Model.LoginModel) As String

　　Dim DAL_testUser As Model.LoginModel

　　Dim BLL_user As New DAL.LoginDAL

　　DAL_testUser = BLL_user.LoginDALSelectUser(UI_testUser.userName)

　　'判断BLL_testUser.LoginDALSelectUser的返回值

　　If DAL_testUser Is Nothing Then

　　Return False

　　End If

　　If UI_testUser.passWord = DAL_testUser.passWord Then

　　Return True

　　Else

　　Return False

　　End If

　　End Function

　　End Class

　　'系统登录UI层

　　Private Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click