分層思想:

三層開發(fā)就是將整個(gè)業(yè)務(wù)應(yīng)用劃分為表示層、業(yè)務(wù)邏輯層、數(shù)據(jù)訪問(wèn)層、數(shù)據(jù)庫(kù)等，明確地將客戶端的表示層、業(yè)務(wù)邏輯訪問(wèn)、和數(shù)據(jù)訪問(wèn)及數(shù)據(jù)庫(kù)訪問(wèn)劃分出來(lái)，有利于系統(tǒng)的開發(fā)，維護(hù)、部署和擴(kuò)展。

其實(shí)總結(jié)一句話，是為了實(shí)現(xiàn)“高內(nèi)聚、低耦合”。采用“分而治之”的思想，把問(wèn)題劃分開來(lái)各個(gè)解決，易于控制，易于延展，易于分配資源。

以登錄demo為例：

工廠+反射+配置文件

三層 UML圖:

通過(guò)UML圖，我們可以很清楚的看到各層間的依賴關(guān)系。

NET設(shè)計(jì)方案：

各層代碼實(shí)現(xiàn)：

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("登錄失?。?quot;)  
        End If  
    End Sub  
End Class  

BLL層

'-- Dim DalF As New Factory，在調(diào)用工廠的時(shí)候?qū)⒔涌诘念愋妥鰹閰?shù)傳進(jìn)去，在工廠中在通過(guò)接口類型去查找具體的實(shí)現(xiàn)對(duì)象   
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類

'-- 反射+配置文件實(shí)現(xiàn)數(shù)據(jù)庫(kù)訪問(wèn)，更換數(shù)據(jù)庫(kù)只需要更改配置文件   
'--AppSetting讀取配置文件中的類別字符串  
Imports [Interface]  
Imports System.Reflection  
Public Class Factory  
    Private Shared ReadOnly AssemblyName As String = "DAL" 
    Dim DataBase As String = System.Configuration.ConfigurationSettings.AppSettings("sql")  
    Function Interface_User() As [Interface].InterfaceUser  
        Dim ClassName As String = AssemblyName + "." + DataBase + "DALUser" 
        Return CType(Assembly.Load(AssemblyName).CreateInstance(ClassName), [Interface].InterfaceUser)  
    End Function  
End Class 

Interface接口層

<span style="color:#000000;">'--定義接口，通過(guò)引用使DAL層繼承，實(shí)現(xiàn)接口  
Imports Entity  
Public Interface InterfaceUser  
    Function GetBase(Entity_User As Entity.EntityUser) As Entity.EntityUser  
End Interface</span> 

DAL層

<span style="color:#000000;">'--操作數(shù)據(jù)庫(kù)  
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)  '---連接收據(jù)庫(kù)  
 
    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語(yǔ)句，從User_Info中讀取所有信息  
        Dim sqlcmd As New SqlCommand(sqldata, sqlconn)    '---連接數(shù)據(jù)庫(kù) 打開User_Info表  
        Dim sqlread As SqlDataReader           '---SqlDataReader讀取數(shù)據(jù)庫(kù)的方法，只讀  
        Try  
            sqlconn.Open()  
            sqlread = sqlcmd.ExecuteReader   '---ExecuteReader 方法，查詢數(shù)據(jù)庫(kù)并得到結(jié)果。ExecuteReader 返回SqlDataReader  
            sqlread.Read()                                    '---sqlcmd.ExecuteReader 的 Read()  讀取表中的記錄，每次調(diào)用都是返回一行的結(jié)果集。  
            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實(shí)體層

'----實(shí)體類負(fù)責(zé)實(shí)體的表示和數(shù)據(jù)的傳遞，不包含任何邏輯性內(nèi)容。  
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)     '---設(shè)置值  
            strUser_ID = value    '---傳值，放在value參數(shù)里  
        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 =""></add> 
  </appSettings> 
</configuration> 

附：時(shí)序圖

雖然只有幾十行的代碼，但是現(xiàn)在理解的還不夠透徹，實(shí)現(xiàn)過(guò)程中也遇到了很多問(wèn)題，學(xué)到了很多，還缺乏更多的實(shí)踐去學(xué)習(xí)，去發(fā)現(xiàn)問(wèn)題。

原文鏈接：http://blog.csdn.net/akkzhjj/article/details/8614726