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

         
    接着上篇文章关于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", "信息提示", MessageBoxButtons.OK, 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了