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

概述              接着上篇文章关于UML图的叙述，今天我们来说一下关于我在VB.NET<机房收费系统个人重构版>中所学到的三层架构的知识。             1、UML图             2、三层结构             3、Sqlhelper             4、配置文件             5、接口             6、设计模式       其实

接着上篇文章关于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 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.ClassDAL        Dim a As Boolean        '调用D层函数        a = db.query_User(thisUser)        Return a    End FunctionEnd Class

D层

imports System.Data.sqlClIEntPublic 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 FunctionEnd Class

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

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

总结

以上是内存溢出为你收集整理的VB.NET<机房收费系统个人重构版>你都学会了什么（之二）全部内容，希望文章能够帮你解决VB.NET<机房收费系统个人重构版>你都学会了什么（之二）所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。