|
上一篇总结了三层的思想，但是光有思想是不能深刻掌握其中的道理的，所以我就拿登录小试牛刀了一下
登录的逻辑
登录的逻辑没有什么难点，只需要判断一个问题:输入的用户名是否在数据库中存在，相对应的密码是否正确。大家登录会有输错用户名或者密码的情况，但是给出来的提示都是“你输入的用户名或密码有误”或者是诸如“账号密码不匹配”，为什么不是输错了什么就给出明确的提示，有一天我猛然意识到，如果只提示密码有误，如果有人想要盗取别人的账号，就一个劲的输入各种密码就可以了，这样就不能保证我们的信息安全。
- U层：展现给用户的界面，和用户交互的层，用户输入的用户名和密码首先被这层获得
- B层：根据U层用户输入的信息和D层数据返回的信息，判断用户密码是否正确
- D层：连接数据库，得到B层的传递过来的信息，在数据库中查询是否存在这个用户，从数据库中取得密码，和用户名，返回给B层
- 实体层：将数据库中的字段映射成属性，作为载体，在三层中间传递数据。
登录包图
时序图
界面
登录界面
数据库（就是很简单的，设了几个必要的字段，其实有前两个就够了）
代码
实体层（Entity）
Public Class UserInfo
Private _id As String '定义两个私有变量(类里的变量),用于存储和方便来类里边使用它们，方便记忆命名加"_"
Private _pwd As String
Public Property UserID As String '定义可读写的属性
Get '获得数据
Return _id
End Get
Set(value As String) '写数据
_id = value
End Set
End Property
Public Property PassWord As String
Get
Return _pwd
End Get
Set(value As String)
_pwd = value
End Set
End Property
Private _status As String
Public Property Status As String
Get
Return _status
End Get
Set(value As String)
_status = value
End Set
End Property
End Class
UI层：
Public Class LoginFrm
Private Sub cmdOK_Click(sender As Object,e As EventArgs) Handles cmdOK.Click
'实例化Entity实体的对象
Dim loginUser As New Entity.UserInfo
' Dim loginUser As Entity.UserInfo = New Entity.UserInfo(第二种实例化方法)
'实例化BLL层对象
Dim Bcheck As New BLL.LoginAdmin
'将文本框中的字符串赋给实体对象loginUser 使实体对象能够带上参数
'便于让实体传递到B层，使得B层获得登录用户的姓名和密码！！！！！！
loginUser.UserID = txtUserName.Text()
loginUser.PassWord = txtPwd.Text()
'调用B层的方法,传参给B层，B层做出判断后，返回一个布尔值，根据B层的返回值做出相应的响应，反馈给用户
If Bcheck.PassWordRight(loginUser) Then
MsgBox("登录成功！")
Me.Hide()
frmMain.Show()
Else
MsgBox("登录失败！")
End If
End Sub
Private Sub cmdCancel_Click(sender As Object,e As EventArgs) Handles cmdCancel.Click
Me.Close()
End Sub
BLL:
Imports Entity
Imports DAL.UserDAO
Public Class LoginAdmin
'定义D层的对象，和实体层对象
Dim BDUser As New DAL.UserDAO
Dim BEUser As New Entity.UserInfo
'定义一个函数名为PassWordRight的函数，参数为（user），函数值类型是布尔值
Function PassWordRight(ByVal user As Entity.UserInfo) As Boolean
BEUser.UserID = user.UserID
BEUser = BDUser.ExistUser(BEUser)
If BEUser.PassWord.Trim() = user.PassWord Then '根据U层的和D层的用户名做出判断，如果密码正确返回TRUE
Return True
Else
Return False
End If
End Function
End Class
DAL:
Public Class UserDAO
Dim sqlConnectStr As String = "server=SMALLRED;database=hotel;uid=sa;pwd=1;"
'查询数据库 用户是否存在
Function ExistUser(ByVal user As Entity.UserInfo) As Entity.UserInfo
'建立和数据库的连接
Dim sql As String = "select * from User_Info where UserID= '" & user.UserID & "'"
'初始化具有查询文本和sqlConnection的sqlCommand类的新实例
Dim cnn1 As SqlConnection = New SqlConnection(sqlConnectStr)
cnn1.ConnectionString = sqlConnectStr
Dim cmd As SqlCommand = New SqlCommand(sql,cnn1) '定义sqlcommand 对象
cmd.CommandText = sql
cmd.Connection = cnn1
Dim read As SqlDataReader '定义Reader来读数据
Dim userDataTable As New DataTable '定义一个DATATABLE对象
Dim userD As New Entity.UserInfo
Try
'打开连接
cnn1.Open()
'返回一个数据集对象
read = cmd.ExecuteReader
userDataTable.Load(read)
userD.UserID = userDataTable.Rows(0)("UserID") '将数据库的信息传递给实体层
userD.PassWord = userDataTable.Rows(0)("PassWord")
Return userD '返回值是实体层的对象，说明通过实体层船体信息
Catch ex As Exception
userD.PassWord = ""
Return userD
Finally
If Not IsNothing(cnn1) Then
cnn1.Close()
End If
End Try
End Function
End Class
总结：
三层架构是了解软件架构的初探，经过基础知识的整理，登录的实践，和再次总结这篇博客，让我理清了思路，其实在写这篇博客之前，脑袋里还是蒙蒙的，带着“U层调用B层，通过什么来传递参数”，“实体如何做到在各层之间传参”等一些列问题又重新走了一遍代码，思路在渐渐清晰起来。当然也学习了很多师哥师姐的博客，总之，这部分理解了，才能往七层架构进发，加油~~~！！努力做个奋斗不息，战斗不止的编程女超人
（编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
