浅谈三层架构（2）

感受：

    对于三层的学习，自己刚開始的感觉真的是一头雾水啊。当时真的出现了非常烦躁的感觉，我想这样的感觉的出现真的是非常可怕的，就这样耽误了两天，在网上也搜寻者自己想要的资料，昨天四姐也好心给调试了一番，顿时把自己的大脑打通了。事实上问题难不难。就在于能不能打开思路了！

VB.NET的三层实现：

     上篇文章主要是对于三层有了一个表面的理解，以下针对机房收费登陆界面来进行一下简单的理解：

     UI层主要就是表面的构建。多以须要使用windows窗口来完毕，而其它BLL和DAL则不须要。之间建立一个类库则能够完毕自己所须要的功能。

三层的详细表现形式：

对于三层的设计。要用一个实体层来调节：

     实体层是全然面向对象的思想，作为数据的载体。在各个层之间传递。使用实体层的长处就是降低错误的发生，举一个最简单的样例：

     DAL中有一个Select方法，须要用到Username，PWD，Head三个类，使用实体层的话，则仅仅须要传递User这一个类就可，极大的减少了系统出错的可能。

游刃当中的Entity层：

Public Class Models
    '//定义的私有属性
    Private _userID As String
    Private _PWD As String
    '定义属性过程，通过属性过程，才干同意它的类来訪问
    Public Property userID() As String   '将user表中的每个数据都传上去，实体是依据表来建立的

        Get
            Return _userID
        End Get
        Set(value As String)
            _userID = value
        End Set
    End Property

前方招待的UI层：

Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        Dim mgr As New Login.BLL.UserBLL   '实例业务层
        Dim user As New Entity.Models   '实例实体
        Dim users As New Entity.Models   '接收实体，用于接收UserLogin（）返回的数据类型，实例化的标准必须加new

        user.userID = txtUserName.Text.Trim()  '给实体层传入值
        user.PWD = txtPassword.Text.Trim()

        If txtUserName.Text = " " Then    '推断输入是否正确
            MsgBox("username不能为空！
")
            Return
        End If
        If txtPassword.Text = " " Then   '推断password是否输入正确
            MsgBox("password不能为空！")
            Return
        End If

        Try
            users = mgr.UserLogin(user)

            If (users.userID Is Nothing And users.PWD Is Nothing) Then  '假设user不为空，则能够进行下一步登陆
                MsgBox("登陆失败。username和password不匹配")
                Return
            Else
                MsgBox("登陆成功！登陆用户:  " + user.userID)
            End If
        Catch ex As Exception
            MsgBox(ex.Message())    '有错误则提示错误窗口
        End Try

    End Sub

掌管中心的BLL层：

Public Class UserBLL
    Function UserLogin(ByVal user As Entity.Models) As Entity.Models
        Dim uDAL As New Login.DAL.UserDAL    '实例化了DAl中的UserDAL
        Dim users As New Entity.Models  '实例化实体层信息表

        users = uDAL.SelectUser(user)      'SelectUser方法返回一个实体类，给他赋值User

        Return users
    End Function
End Class

默默奉献的DAL层：

 Public Function SelectUser(ByVal user As entity.models) As entity.models   '对user中增加一个selectuser的方法
        Dim conn As SqlConnection   '定义连接打开数据库
        Dim cmd As New SqlCommand    '定义数据库命令
        conn = New SqlConnection("Server=huoyajing; Database=charge_sys; User ID=sa ;Password=123456")    '实例化SQLUtil中返回的字符串
        cmd.Connection = conn

        cmd.CommandText = "select * from  User_Info Where userID=@UserID and PWD=@Password"   '存储过程

        cmd.Parameters.Add(New SqlParameter("@UserID ", user.userID))   '赋值，传參
        cmd.Parameters.Add(New SqlParameter("@Password", user.PWD))
        cmd.CommandType = CommandType.Text
        conn.Open()   '打开连接

        Dim reader As SqlClient.SqlDataReader    '读取数据库中的表
        reader = cmd.ExecuteReader()

        Dim users As New Entity.Models   '实例化实体

        While (reader.Read())   '无错误，则持续运行
            users.userID = reader.GetString(reader.GetOrdinal("userID"))   '调用一次GetOrdinal方法，便在循环中使用
            users.PWD = reader.GetString(reader.GetOrdinal("PWD"))
        End While

        conn.Close()
        Return users
    End Function

通过登录窗口。对于三层也有了一个大概的了解，下边说说其优缺点：

长处：

• 1）安全性高。极大的减少了错误的发生率；
• 2）三层的目的就是为了实现“高内聚。低耦合”。达到了解耦的目的；
• 4）减轻了开发者的大脑思维。他们能够仅仅关注于整个结构中的某一层；
• 5）项目分工明白，适应性非常强。有利于对代码的改动以及后期的维护与升级。

缺点：

• 1）添加了代码量。添加了工作量。

• 2）因为把原有的一层划分为了三层，这样大大减少了系统的性能，使之前的很多可以直接訪问数据库的。如今却要通过中间层来完毕。

总结：

   对于三层架构的使用，尽管可以提高代码的适应性，可是对于逻辑简单的程序来说还是避免使用为好，否则仅仅会得到适得其反的效果.合理的使用三层架构，才干让其各司其职，各尽所能。