vb.net版三层登录

vb.net的语言和VB很相像，但和C#还是有点差别的。这段时间一直看C#的东西，刚换成vb.net还有点不适应。

登录逻辑

1.创建实体类

2.UI实例化一个实体，并把界面数据创给实体，调用BLL的UserLogin方法。

3.实例化DAL层的DAO类，调用D层的SelectUser方法并判断用户是否存在

4.创建打开数据连接；把user清空，如果数据库中有要找的数据就把这些数据赋给user

登录实例

三层及实体

U层

Public Class LoginUI
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
Try
'获得介面层数据
Dim user As New Entity.UserInfo

user.ID = txtUserID.Text.Trim()
user.PSW = txtPassWord.Text.Trim()

'调用B层，登录判断
Dim svc As New LoginBLL.LoginService
user = svc.UserLogin(user)

'显示登录成功
MsgBox("用户" + "'" + user.UserName + "'" + "登录成功")

Catch ex As Exception
MessageBox.Show(ex.Message.ToString())
End Try

End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Me.Close()
End Sub

BLL层

'B层，主要涉及业务逻辑
Public Class LoginService
Public Function UserLogin(ByVal user As Entity.UserInfo) As Entity.UserInfo
Dim uDao As New LoginDAL.UserDAO

user = uDao.SelectUser(user)

'判断是否有记录，有记录返回user，不成功给出提示
If IsNothing(user) Then
Throw New Exception("登录失败，请检查用户ID和密码") '这里抛出错误，在UI层Catch
Else

Return user
End If
End Function
End Class

D层

'引用空间命名
Imports System.Data
Imports System.Data.SqlClient

'D层，只涉及到对数据的操作
Public Class UserDAO
'创建数据库连接
Public conn As New SqlConnection("server= jf; database = Login; user=sa;password= summer")
Public Function SelectUser(ByVal user As Entity.UserInfo) As Entity.UserInfo
Dim reader As SqlDataReader
'其实下面的这段程序就相当于dim sql as string ="select  ID,UserName,PWD From Users Where UserName='"User.UserName"' And PWD='"User.PWD"'"
Dim sql As String = "Select ID,PassWord,UserName From Users Where ID = @ID And PassWord = @PassWord"
Dim cmd As New SqlCommand(sql, conn)   '创建一个sql命令，第一个参数是CommandText，第二个是sqlConnection
cmd.CommandText = sql
cmd.CommandType = CommandType.Text
cmd.Parameters.Add(New SqlParameter("@ID", user.ID))
cmd.Parameters.Add(New SqlParameter("@PassWord", user.PSW))

conn.Open()   '打开数据连接
reader = cmd.ExecuteReader()  '执行查询命令操作

user = Nothing
'读取查询到的数据，并返回给相应的属性
While reader.Read()
If user Is Nothing Then  '如果没有找到对应的数据就把user设为空，在UI层判断如果user是空就报错
user = New Entity.UserInfo
End If
'获取数据库相应字段的数据
user.ID = reader.GetInt32(0)
user.PSW = reader.GetString(2)
user.UserName = reader.GetString(1)

End While
Return user
conn.Close()

End Function
End Class

Entity实体

Public Class UserInfo
'ID属性
'不用括号，和分号
Private _id As Integer
Public Property ID As Integer
Get
Return _id
End Get
Set(value As Integer)
_id = value
End Set
End Property

'用户名
Private _username As String
Public Property UserName As String
Get
Return _username
End Get
Set(value As String)
_username = value
End Set
End Property

'密码
Private _psw As String
Public Property PSW As String
Get
Return _psw
End Get
Set(value As String)
_psw = value
End Set
End Property

End Class

总结

C#版的登录时看着视频敲的，敲完后感觉糊里糊涂，知道有三层，具体三层怎么运作有些疑问。Vb.net版是我看了一遍师哥的成果后，自己敲的，有的地方，像user的处理和他有点不一样，他每一层都定义了一个user，user1，user2, user3 是调用时为了区分是哪个层的user。我感觉没有必要区分，因为不管UI层是叫user1还是user2，到BLL层传进去都叫user，返回的也是user。做了一个大胆的尝试，不过还是运行成功了，好开森。

还有一个尝试是模仿C#版的，在D层写了一个DBConnection的类，把连接数据库的代码写 进去，想着如果以后改数据库，就该这个类就好了，不用修改UserDAO类，也算是解耦了，但是在UserDAOI类中总是做不好引用，只能暂时放弃了。Vb.net和C#还是有些不同的，有待继续研究。