三层架构实现登录（工厂+反射+配置文件）

分层思想:

三层开发就是将整个业务应用划分为表示层、业务逻辑层、数据访问层、数据库等，明确地将客户端的表示层、业务逻辑访问、和数据访问及数据库访问划分出来，有利于系统的开发，维护、部署和扩展。

其实总结一句话，是为了实现“高内聚、低耦合”。采用“分而治之”的思想，把问题划分开来各个解决，易于控制，易于延展，易于分配资源。

以登录demo为例：

工厂+反射+配置文件

三层 UML图:

通过UML图，我们可以很清楚的看到各层间的依赖关系。

.NET设计方案：

各层代码实现：

UI层

'--界面
Imports Entity
Imports BLL
Public Class Login
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim EntityUser As New Entity.EntityUser
Dim BLLUser As New BLL.BLLUser
EntityUser.User_ID = txtID.Text
EntityUser.User_Key = txtKey.Text
If BLLUser.GetBase(EntityUser) Then
MsgBox("登录成功！")
Else
MsgBox("登录失败！")
End If
End Sub
End Class

BLL层

'-- Dim DalF As New Factory，在调用工厂的时候将接口的类型做为参数传进去，在工厂中在通过接口类型去查找具体的实现对象
Imports Entity
Imports [Interface]
Imports FactoryClass
Public Class BLLUser
Public Function GetBase(ByVal EntityUser As Entity.EntityUser) As Boolean
Dim DalF As New Factory
Dim Entity_User As New Entity.EntityUser
Entity_User.User_ID = EntityUser.User_ID
Entity_User = DalF.Interface_User.GetBase(Entity_User)
If Entity_User.User_Key = EntityUser.User_Key Then
Return True
Else
Return False
End If
End Function
End Class

Factory类

'-- 反射+配置文件实现数据库访问，更换数据库只需要更改配置文件
'--AppSetting读取配置文件中的类别字符串
Imports [Interface]
Imports System.Reflection
Public Class Factory
'Private Shared ReadOnly AssemblyName As String = "DAL"
Dim AssemblyName As String = System.Configuration.ConfigurationSettings.AppSettings("sql")
Function Interface_User() As [Interface].InterfaceUser
Dim ClassName As String = AssemblyName + "." + "DALUser"
Return CType(Assembly.Load(AssemblyName).CreateInstance(ClassName), [Interface].InterfaceUser)
End Function
End Class

Interface接口层

<span style="color:#000000;">'--定义接口，通过引用使DAL层继承，实现接口
Imports Entity
Public Interface InterfaceUser
Function GetBase(Entity_User As Entity.EntityUser) As Entity.EntityUser
End Interface</span>

DAL层

<span style="color:#000000;">'--操作数据库
Imports Entity
Imports [Interface]
Imports System.Data.SqlClient

Public Class DALUser : Implements [Interface].InterfaceUser
Dim ConnStr As String = System.Configuration.ConfigurationSettings.AppSettings("ConnStr")
Dim sqlconn As SqlConnection = New SqlConnection(ConnStr)  '---连接收据库

Function GetBase(Entity_User As Entity.EntityUser) As Entity.EntityUser Implements [Interface].InterfaceUser.GetBase
Dim sqldata As String = "select * from User_Info where User_ID='" & Entity_User.User_ID & "'"   '---SQL语句，从User_Info中读取所有信息
Dim sqlcmd As New SqlCommand(sqldata, sqlconn)    '---连接数据库 打开User_Info表
Dim sqlread As SqlDataReader           '---SqlDataReader读取数据库的方法，只读
Try
sqlconn.Open()
sqlread = sqlcmd.ExecuteReader   '---ExecuteReader 方法，查询数据库并得到结果。ExecuteReader 返回SqlDataReader
sqlread.Read()                                    '---sqlcmd.ExecuteReader 的 Read()  读取表中的记录，每次调用都是返回一行的结果集。
Entity_User.User_ID = sqlread.Item("User_ID")
Entity_User.User_Key = sqlread.Item("User_Key")

Return Entity_User
Catch ex As Exception
Entity_User.User_Key = ""
Return Entity_User
End Try
End Function
End Class
</span>

Entity实体层

'----实体类负责实体的表示和数据的传递，不包含任何逻辑性内容。
Public Class EntityUser
Private strUser_ID As String
Private strUser_Key As String
Public Property User_ID As String
Get                                  '---获取值
Return (strUser_ID)  '---获取User_ID属性返回strUser_ID
End Get
Set(value As String)     '---设置值
strUser_ID = value    '---传值，放在value参数里
End Set
End Property
Public Property User_Key As String
Get
Return (strUser_Key)
End Get
Set(value As String)
strUser_Key = value
End Set
End Property
End Class

配置文件

'--
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
</startup>
<appSettings>
<add key ="ConnStr" value="Data Source=(Local);DataBase=Login;User ID=sa;Password=123456"></add>
<add key ="sql" value ="DAL"></add>
</appSettings>
</configuration>

附：时序图

虽然只有几十行的代码，但是现在理解的还不够透彻，实现过程中也遇到了很多问题，学到了很多，还缺乏更多的实践去学习，去发现问题。