三层架构学习（一）

关于机房收费系统的三层架构的图画好了，纠结了好一阵子，终于要写代码了，心里异常兴奋。但是一开始我就碰到钉子了，心里虽然有想法，但是仍然不知道用vb.net如何形容。一开始想着就这样稀里糊涂的过去算了，看看中间能不能做出来，但是刚刚做了两个小功能就发现走不下去了，发现死板硬套是行不通的。我仔细琢磨了一下我的病因，发现了我的问题。

    首先就是关于vb.net数据库方面的知识是极为欠缺的，这也告诉其他的同学们，这方面的知识应该仔仔细细看看。之前看vb.net视频的时候就认为：它应该和vb差不多，所以就没有理会，加上那个老师的口音那么浓重，所以总是怨天尤人，也为自己偷懒找了借口。现在想想，看完vb.net视频之后，数据库方面的知识就应该好好梳理一下，比较一下它和vb有哪些不同。希望大家不要为了完成任务而急功近利忽视这些整理的过程。这些知识可以参看我以前的博客，可能会对你有帮助。

    其次就是关于面向对象的知识方面的欠缺。我们以前学习的知识大部分是面向过程的，虽然一开始都在激烈的讨论着面向对象的好处，但是真正接触到面向对象的时候理论和实际就分家了，仿佛丈二和尚摸不着头脑一般。总是想着用面向过程的思维来思考问题。关于这方面的问题我建议大家真正操作一番。接下来是我的做的机房收费系统登录功能的一段代码，可能中间还有不足之处，希望大家批评指出：

1、  登录界面的功能：

     如果登录成功，则显示提示信息“登录成功”；如果未能登录成功，则显示提示信息“登录失败”

2、  三次架构的框架

3、  各层之间的引用关系：UI层引用BLL层和Entity层，BLL层引用DAL层和Entity层，DAL层引用Entity层

4、  下面是实现过程中的代码

（1）实体层代码设计

'声明user表里的属性
Public Class E_User
    Private e_UserID As String
    Public Property userID As String
        Get
            Return e_UserID
        End Get
        Set(ByVal value As String)
            e_UserID = value
        End Set
    End Property

    Private e_PWD As String
    Public Property PWD As String
        Get
            Return e_PWD
        End Get
        Set(ByVal value As String)
            e_PWD = value
        End Set
    End Property
End Class

（2）数据访问层的代码设计

Public Class D_User
    '连接数据库
    Dim sqlConnectStr As String = "server=WBX-PC;database=charge_sys;uid=sa;pwd=123;"


    '自定义检查参数
    Function selectUserInfo(ByVal User As Entity.E_User) As Entity.E_User
        Dim sql As String = "select * from User_Info where UserID='" & User.userID & "'"
        '初始化具有查询文本和 SqlConnection 的 SqlCommand 类的新实例。
        Dim sqlConnection1 As SqlConnection = New SqlConnection()
        sqlConnection1.ConnectionString = sqlConnectStr

        Dim cmd As SqlCommand = New SqlCommand()
        cmd.CommandText = sql
        cmd.Connection = sqlConnection1
        Dim read As SqlDataReader
        Dim UserDataTable As New DataTable
        Dim User1 As New Entity.E_User

        Try
            '打开连接
            sqlConnection1.Open()
            '返回一个数据集对象
            read = cmd.ExecuteReader()
            UserDataTable.Load(read)
            User1.userID = UserDataTable.Rows(0)("userID")
            User1.PWD = UserDataTable.Rows(0)("PWD")
            Return User1
        Catch ex As Exception
            User1.PWD = ""
            Return User1
        Finally
            If Not IsNothing(sqlConnection1) Then
                sqlConnection1.Close()
            End If
        End Try
    End Function
End Class

（3）业务逻辑层

'业务处理，做出逻辑判断
Public Class B_Login
    Function SelectUIandEntity(ByVal User As Entity.E_User) As Boolean
        Dim DalUser As New DAL.D_User
        Dim EntityUser As New Entity.E_User

        EntityUser.userID = User.userID
        EntityUser = DalUser.selectUserInfo(EntityUser)
        '判断操作
        If EntityUser.PWD.Trim() = User.PWD Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

（4）界面层

Public Class frmLogin
    '单击确定按钮，判断是否登录成功
    Private Sub btLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLogin.Click
        Dim LoginUser As New Entity.E_User
        Dim Bcheck As New BLL.B_Login
        LoginUser.userID = txtID.Text()
        LoginUser.PWD = txtPw.Text()

        If Bcheck.SelectUIandEntity(LoginUser) Then
            MsgBox("登录成功")
        Else
            MsgBox("登录失败")
        End If
    End Sub
    '退出系统

    Private Sub btCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancel.Click
        End
    End Sub
End Class