三层架构实战篇 下

         上篇博客几乎是手把手的教大家怎样做一个三层结构的demo，但是实现和运行出这个例子不是我们的目的，我们的目标是学习，所以这一次我们要用VB.NET将demo实现，并且还要对demo进行一些完善。

         作为一个系统登录的demo，其核心业务就是用户输入信息，然后系统验证此用户是否有权限进入系统，并返回验证结果，仅此而已，那么有什么需求是会变化呢？仔细一想，UI不会有什么大的变化，BLL层主要是处理业务逻辑的，对登录来讲也没什么变化，那么只有DAL层了，DAL层是用来访问数据库，而数据库不仅仅有SQL Server一种，如果换成Oracle或者DB2，还能实现登录系统吗？显然是不能的，如何解决?

         这时候，是该考虑使用设计模式了，那么用什么模式呢？根据需求，当然是工厂方法模式了，但是单纯的工厂方法模式并不能解决多个数据库和多个表之间的切换问题，再想有什么办法，那就是抽象工厂模式了，它可以解决这种涉及多个产品系列的问题，但是如果要增加功能，那么改动的地方太多……算了直接使用绝招吧——反射+抽象工厂+配置文件。

         首先我给出加了设计模式的包图

        

         然后我们就打开VS2012，新建一个VB.NET的Windows窗体应用程序，然后按照包图的结构，构建三层结构，并为每层添加需要的类和接口，完成后如下图：

        

         然后我们就可以，按照一定的顺序去编写各个类的代码了，我偏好从下往上写，也就是从数据访问层开始，当然要考虑继承关系，总得先有父类吧，还有就是高层类比如抽象类等就得先写，come on……

         插入代码

         实体层DataEntity的UserInfo类

        

Public Class UserInfo
    Private _userID As Integer
    Private _userName As String
    Private _password As String
    '各个属性值的定义
    Public Property UserID() As Integer
        Get
            Return _userID
        End Get
        Set(value As Integer)
            _userID = value
        End Set
    End Property

    Public Property UserName() As String
        Get
            Return _userName
        End Get
        Set(value As String)
            _userName = value
        End Set
    End Property

    Public Property Password() As String
        Get
            Return _password
        End Get
        Set(value As String)
            _password = value
        End Set
    End Property
End Class

         接口层IDAL的IUserInfo类

        

Imports DataEntity

Public Interface IUserInfo
    Function UserLogin(ByVal user As DataEntity.UserInfo) As DataEntity.UserInfo

End Interface

         抽象工厂Factory的DataAccess类

Imports System.Reflection
Imports System.Configuration
Imports IDAL

Public Class DataAccess
    Dim DBstr As String = System.Configuration.ConfigurationSettings.AppSettings("DB")

    Public Function CreateUser() As IDAL.IUserInfo
        Return CType(Assembly.Load("LoginDAL").CreateInstance("LoginDAL" & "." & DBstr), IUserInfo)
    End Function
End Class<span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;">	</span>

         表示层LoginUI的配置文件App.config

        

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <appSettings>
        <add key ="Connstr" value ="server =192.168.24.191;database=login;user id=sa;password=123456;" />
		<add key ="DB" value ="Sqlserver"/>
    </appSettings>
</configuration>

         数据访问层LoginDAL的Sqlserver类

        

Imports System.Data.SqlClient
Imports DataEntity
Imports IDAL

Public Class Sqlserver : Implements IUserInfo
    Dim strConn As String = System.Configuration.ConfigurationSettings.AppSettings("Connstr")
    Dim conn As SqlConnection = New SqlConnection(strConn)

    Public Function UserLogin(user As UserInfo) As UserInfo Implements IUserInfo.UserLogin
        Dim Sqlserver As String = "select * from Users where UserName =@username"
        Dim cmd As SqlCommand = New SqlCommand(Sqlserver, conn)
        cmd.Parameters.Add(New SqlParameter("@username", user.UserName))
        Dim reader As SqlDataReader

        Dim user1 As New UserInfo
        Try
            conn.Open()
            reader = cmd.ExecuteReader
            While reader.Read()
                user1.UserName = reader.Item("UserName")
                user1.Password = reader.Item("Password")
            End While

            Return user1
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
            Return user
        Finally
            conn.Close()
        End Try
    End Function
End Class

         业务逻辑层LoginBLL的LoginManager类

Imports Factory
Imports IDAL
Imports DataEntity

Public Class LoginManager
    Public Function IdentifyUser(ByVal user As DataEntity.UserInfo) As UserInfo
        Dim Iuser As IDAL.IUserInfo
        Dim dataAccess As New DataAccess
        Dim duser As UserInfo

        Iuser = dataAccess.CreateUser()
        duser = Iuser.UserLogin(user)
        Return duser

    End Function
End Class

         表示层LoginUI的客户端代码

        

Imports DataEntity
Imports LoginBLL

Public Class Form1

    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        Try
            Dim user1 As New UserInfo
            Dim user2 As New UserInfo
            Dim loginmanager As New LoginManager

            user1.UserName = txtUserName.Text.Trim()
            user1.Password = txtPassword.Text

            user2 = loginmanager.IdentifyUser(user1)
            If user2.UserName = user1.UserName And user2.Password = user1.Password Then
                MsgBox("登陆成功！请稍后……")
                Exit Sub
            Else
                MsgBox("该用户信息不存在，请重新输入！")
                Exit Sub
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
       

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class

         总结：通过对这么一个小的例子加设计模式和反射机制以及配置文件等等，主要是为了学习和实践，一开始我也觉得根本没有必要，甚至认为是过度设计，但是当自己参考设计模式的书准备将这个例子进行改进和扩展的时候，才发现自己根本不知道如何下手，不过经过查阅博客和贵人相助，终究是调试运行起来了，同时也对三层的理解加深了一些。