《三层架构之抽象工厂加反射》纠错

每当别人问我关于三层的知识的时候我总是推荐自己的《三层架构之抽象工厂加反射》这篇博客。这篇博客是自己当时学习三层的时候写的一个简单的登录例子。这个例子通过登录这个用例简单的介绍了三层，然后过度的三层+简单工厂再过渡到三层+抽象工厂。不管说从方法命名或者代码风格上来说自己都不敢说是最好的，但是体现三层我感觉还是绰绰有余的。然而最近在给别人讲述三层时候被他人指出这篇博客的代码有些许错误，虽然别人指出的方式有些令自己不快，甚至气愤！但是毕竟还有人关注自己，还有人看自己的博客，还有人给自己指出不足，从这个方面来看这还应该算是好事。有错误就改！有错误才能进步嘛。也许这就是米老师总是说的教学相长吧，这次终于体会到了，而且体会很深刻！！！

教学相长

虽有嘉肴，弗食不知其旨也；虽有至道，弗学不知其善也。是故学然后知不足，教然后知困。知不足，然后能自反也；知困，然后自强也。故曰：教学相长也。

----摘自《礼记•学记》

真的是“知不足”了，真的是想“自强”了，为了验证代码的正确性决定将这个登录的小例子又从最简单的三层开始做起逐步增加难度（降低耦合度），重新实现了一遍。再一次用了用VB.NET，再次回到了傻瓜式的VS环境中。

代码如下：

 简单三层

界面层

Public Class Login Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click Dim LUser As New Entity.User Dim BCheck As New Bll.BllLogin LUser.User_Id = txtUserId.Text LUser.User_Pwd = txtPwd.Text If BCheck.Check(LUser) = True Then MsgBox("登录成功！") Else MsgBox("登录失败！") End If End Sub Private Sub btnCancle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancle.Click End End Sub End Class

BLL层

Public Class BllLogin Function Check(ByVal User As Entity.User) As Boolean Dim DaUser As New DAL.DalUserInfo Dim BlUser As New Entity.User BlUser.User_Id = User.User_Id BlUser = DaUser.Check(BlUser) If BlUser.User_Pwd = User.User_Pwd Then Return True Else Return False End If End Function End Class

DAL层

Imports System.Data.SqlClient Public Class DalUserInfo Dim ConnStr As String = "Data Source=192.168.24.186;Initial Catalog=Student;User ID=sa;Pwd=123456" Dim conn As SqlConnection = New SqlConnection(ConnStr) Function Check(ByVal User As Entity.User) As Entity.User Dim sql As String = "select * from UserInfo 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

实体层

Public Class User Private userId As String Private userPwd As String Public Property User_Id() As String Get Return userId End Get Set(ByVal value As String) userId = value End Set End Property Public Property User_Pwd() As String Get Return userPwd End Get Set(ByVal value As String) userPwd = value End Set End Property End Class

三层+简单工厂

界面层代码不变

Bll层

Public Class BllLogin Function Check(ByVal User As Entity.User) As Boolean Dim DalFactory As New DAL.DFactory Dim BlUser As New Entity.User BlUser.User_Id = User.User_Id BlUser = DalFactory.CreateUserInfo.Check(BlUser) If BlUser.User_Pwd = User.User_Pwd Then Return True Else Return False End If End Function End Class

工厂

Imports [Interface] Public Class DFactory 'Dim DataBase As String = "Access" Dim DataBase As String = "Sql" Function CreateUserInfo() As IUserInfo Dim DB As IUserInfo Select Case DataBase Case "Sql" DB = New DalUserInfo 'Case "Access" ' DB = New D_UserInfoAccess End Select Return DB End Function End Class

接口

Public Interface IUserInfo Function Check(ByVal IUser As Entity.User) As Entity.User End Interface

DAL层

Imports System.Data.SqlClient Public Class DalUserInfo : Implements [Interface].IUserInfo Dim ConnStr As String = "Data Source=192.168.24.186;Initial Catalog=Student;User ID=sa;Pwd=123456" Dim conn As SqlConnection = New SqlConnection(ConnStr) Public Function Check(ByVal IUser As Entity.User) As Entity.User Implements [Interface].IUserInfo.Check Dim sql As String = "select * from UserInfo where User_ID='" & IUser.User_Id + "'" Dim cmd As SqlCommand = New SqlCommand(sql, conn) Dim read As SqlDataReader Try conn.Open() read = cmd.ExecuteReader read.Read() IUser.User_Id = read.Item("User_ID") IUser.User_Pwd = read.Item("User_Pwd") Return IUser Catch ex As Exception IUser.User_Pwd = "" Return IUser End Try End Function End Class

三层+抽象工厂

界面层代码不变

Bll层代码不变

接口代码不变

工厂代码

Imports [Interface] Imports System.Reflection Public Class DFactory 'Dim DataBase As String = "Access" 'Dim DataBase As String = "Sql" Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("DBString") Function CreateUserInfo() As IUserInfo Return CType(Assembly.Load("DAL").CreateInstance("DAL.DalUserInfo" & strDB), IUserInfo) End Function End Class

DAL层

Imports System.Data.SqlClient Public Class DalUserInfoSql : Implements [Interface].IUserInfo 'Dim ConnStr As String = "Data Source=192.168.24.186;Initial Catalog=Student;User ID=sa;Pwd=123456" Dim strConnStr As String = System.Configuration.ConfigurationSettings.AppSettings("ConnStr") Dim conn As SqlConnection = New SqlConnection(strConnStr) Public Function Check(ByVal IUser As Entity.User) As Entity.User Implements [Interface].IUserInfo.Check Dim sql As String = "select * from UserInfo where User_ID='" & IUser.User_Id + "'" Dim cmd As SqlCommand = New SqlCommand(sql, conn) Dim read As SqlDataReader Try conn.Open() read = cmd.ExecuteReader read.Read() IUser.User_Id = read.Item("User_ID") IUser.User_Pwd = read.Item("User_Pwd") Return IUser Catch ex As Exception IUser.User_Pwd = "" Return IUser End Try End Function End Class

配置文件

<?xml version="1.0" encoding="utf-8" ?> <configuration> <startup> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" /> </startup> <appSettings> <add key="ConnStr" value ="Data Source=192.168.24.186;Initial Catalog=Student;User ID=sa;Pwd=123456"></add> <add key="DBString" value ="Sql"></add> </appSettings> </configuration>

对于知识的认知真的是每次都有不同的感受，以前的目标只是实现，无论怎么样只要实现就好，有很多地方都是不理解的，现在再去看那些代码感觉理解起来轻松了很多。敲代码的过程中感触最大的就是java和net平台的区别。通过这段时间做DRP的经历明显感觉net简直是傻瓜化的操作，而java操作起来就要烦人的多，也许现在还是对java的IDE不太熟悉吧。