接着上篇文章关于UML图的叙述，今天我们来说一下关于我在VB.NET<机房收费系统个人重构版>中所学到的三层架构的知识。

1、UML图

2、三层结构

3、sqlhelper

4、配置文件

5、接口

6、设计模式

其实对于三层结构这一块的学习，我拖的时间是比较长的。原因不是我三层架构的内容，而是我不会函数。对于数学上的函数是熟知的，从小学就开始接触，像y=f(x);y=sin x;y=cos x等，一些人为规定好的直接可以用的叫函数。可是计算机上面的函数，我就搞不清了，所以从关键字、修饰符、参数、返回值等等开始入手，开始知道函数的基本结构，如何写函数、调函数，返回什么值....搞清楚了函数之后才开始研究三层登陆的例子，三层登陆的例子写完了之后在此基础上又开始写注册的例子。总而言之拖的时间是比较长的，也是比较纠结的。从开始的什么都不知道。处于混沌状态到慢慢理清各个层放什么东西，各个层需要什么东西，需要去哪个层调等等。基本的写代码的过程是先从U层写，写一点之后要调用B层的函数的时候，就去B层写，B层还没有写完，B层又要调用D层的东西，所以又转向D层，直至把D层的内容全部完善好，再返回去补充B层的内容，再返回到U层把U层的内容完善好。总而言之写的过程是一个逆回转折的过程。也就是对之前的函数的理解、三层的理解才能很好的搞清三层结构下的机房收费系统，敲着敲着你就会发现能理清逻辑了，知道每个层需要什么，需要各个层返回什么了。

这是三层的代码——U层

Public Class FormUI
    '确定按钮
    Private Sub btnOK_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnOK.Click
        '定义一个实体类对象，将文本框中的内容赋给实体类对象
        Dim User As Model.ClassModel    '定义一个实体类对象
        User = New Model.ClassModel   '实例化这个对象
        User.user_name = txtUserID.Text.ToString()
        User.user_pwd = txtUserPWD.Text.ToString()
        '定义一个业务逻辑层对象，根据业务逻辑层返回的结果通知用户信息
        Dim uB As BLL.ClassBLL = New BLL.ClassBLL
        Dim result As Boolean
        result = uB.query_user(User)
        If result Then
            '如果返回True,则显示登陆成功
            MessageBox.Show("恭喜您，登陆成功！","信息提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            '否则显示登陆失败
            MessageBox.Show("对不起，登陆失败！请您查证后重新登陆1",MessageBoxIcon.Warning)
            '清空文本框里面的内容
            txtUserID.Text = ""
            txtUserPWD.Text = ""
        End If
    End Sub
    '取消按钮
    Private Sub btnCancel_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnCancel.Click
        End
    End Sub
End Class

B层

Public Class ClassBLL
    '此函数的作用是返回D层的执行结果
    Public Function query_user(ByVal thisUser As Model.ClassModel) As Boolean
        '定义一个D层对象
        Dim db As DAL.ClassDAL = New DAL.ClassDAL
        Dim a As Boolean
        '调用D层函数
        a = db.Query_User(thisUser)
        Return a
    End Function
End Class

D层

Imports System.Data.sqlClient
Public Class ClassDAL
    '数据库连接语句
    Dim conn As sqlClient.sqlConnection
    Dim str As String= "server=.;database=SanCengTest;integrated security=sspi"   '我的数据库登陆是不用用户名和密码，直接本地登陆的。下面这条语句是用用户名和密码登陆数据库的
    ' Dim str As String = "Data Source=localhost;Initial Catalog=SanCengTest;Persist Security Info=True;User ID=sa;PassWord=123456"

    'Data Source 是服务器名，Data Source=localhost意思是服务器为本机   
    'Initial Catalog是数据库名，
    'Persist Security Info=True简单理解为ADO在数据库连接成功后保存密码信息，True为保存，False为不保存

    Public Sub New()  '构造函数，建立连接，打开数据库
        conn = New sqlClient.sqlConnection
        conn.ConnectionString = str
        conn.Open()
    End Sub

    '查询数据库中的用户是否存在
    Public Function Query_User(ByVal thisUser As Model.ClassModel) As Boolean
        '数据库查询语句
        Dim sqlstr As String
        sqlstr = "select *from UserTable where user_id='" & thisUser.user_name & "' And user_pwd='" & thisUser.user_pwd & "'"
        '查询
        Dim sqlcmd As sqlClient.sqlCommand = New sqlClient.sqlCommand(sqlstr,conn)
        Dim reader As sqlDataReader '定义一个reader来读数据
        reader = sqlcmd.ExecuteReader()  '运行你的查询，结果到reader
        If reader.Read() Then  '如果查询到了数据
            Return True    '返回True
        Else
            Return False   '否则返回False
        End If
    End Function
End Class

因为代码是刚开始练习的时候初期敲的，命名不规范、没有用sqlHelper等等，存在诸多的问题，只是拿出来和大家学习一下，因为都有这样一个学习的过程，从完全不懂到稍稍入门这样一个过程，因此代码不具有标准借鉴解决的意义，希望各位谅解。也希望看到我曾经的种种，对个人重构的你有帮助哦

下一篇文章我要介绍在VB.NET<机房收费系统个人重构版>中所学到的sqlHelper了

原文链接：/vb/258847.html

VB.NET<机房收费系统个人重构版>你都学会了什么（之二）