接着上篇文章关于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.ClassBLLDim result As Booleanresult = uB.query_user(User)If result Then’如果返回True,则显示登陆成功MessageBox.Show("恭喜您，登陆成功！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)Else’否则显示登陆失败MessageBox.Show("对不起，登陆失败！请您查证后重新登陆1", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)’清空文本框里面的内容txtUserID.Text = ""txtUserPWD.Text = ""End IfEnd Sub’取消按钮Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.ClickEndEnd SubEnd 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.ClassDALDim a As Boolean’调用D层函数a = db.Query_User(thisUser)Return aEnd FunctionEnd Class
D层
Imports System.Data.SqlClientPublic Class ClassDAL’数据库连接语句Dim conn As SqlClient.SqlConnectionDim 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.SqlConnectionconn.ConnectionString = strconn.Open()End Sub’查询数据库中的用户是否存在Public Function Query_User(ByVal thisUser As Model.ClassModel) As Boolean’数据库查询语句Dim sqlstr As Stringsqlstr = "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() ‘运行你的查询，结果到readerIf reader.Read() Then ‘如果查询到了数据Return True ‘返回TrueElseReturn False ‘否则返回FalseEnd IfEnd FunctionEnd Class
因为代码是刚开始练习的时候初期敲的，命名不规范、没有用SqlHelper等等，存在诸多的问题，只是拿出来和大家学习一下，因为都有这样一个学习的过程，从完全不懂到稍稍入门这样一个过程，因此代码不具有标准借鉴解决的意义，希望各位谅解。也希望看到我曾经的种种，对个人重构的你有帮助哦
下一篇文章我要介绍在VB.NET<机房收费系统个人重构版>中所学到的SqlHelper了
将会错过更好的风景，保持一份平和，保持一份清醒。
