三层实践

今天上专业课，学习了一点东西，收获就是如何请教别人，首先问题要有水平，问问题前你对这个问题有多少了解，做了多少的准备工作，自己理解到什么程度，问题点在什么地方，如果你做到了这些很好，你会给别人很好的印象，勤奋好学虚心请教。但是你看了一下问题，什么都没做，你去问别人，别人就会说，你对这个问题有多少理解呀！没有理解，别人就会回复你，百度查一下吧！询问失败。 下面正题，三层登录实践，感谢帮助自己的师傅。 Model：

Public Class UserInfo '定义两个私有属性 Private UserID As String Private Password As String '定义属性过程，通过属性过程，允许其他类访问 Public Property ID As String Get Return UserID End Get Set(value As String) UserID = value End Set End Property Public Property PWD As String Get Return Password End Get Set(value As String) Password = value End Set End Property End Class

UI:

Public Class frmLogin Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click '实例化传实体对象； Dim LoginUser As New Login.Model.UserInfo '用来接收用户的登录名和密码； '实例化B层对象 Dim Bcheck As New Login.BLL.LoginManager '将文本框中的字符串送给实体对象login.user使实体对象能够带上参数； LoginUser.ID = txtUserName.Text() LoginUser.PWD = txtPassword.Text() If Bcheck.selectUIandModel(LoginUser) Then MsgBox("恭喜你，成功了！Amazing") Else MsgBox("这也太笨了吧，连这个都做不好，怎么谈是精英？") End If End Sub End Class

BLL:

Public Class LoginManager 'B层业务处理逻辑：承接U层的参数和传递到D层； Function selectUIandModel(ByVal user As Login.Model.UserInfo) As Boolean Dim DAOuser As New Login.DAL.UserDAO '实例化D层的UserDAO类 Dim Moderuser As New Login.Model.UserInfo '实例化实体层UserInfo类 Moderuser.ID = user.ID Moderuser = DAOuser.selectUserInfoFormUserInfoTable(Moderuser) '引用了DAL层的方法 If Trim(Moderuser.PWD) = user.PWD Then Return True Else Return False End If End Function End Class

DAL :

Public Class UserDAO 'server是服务器的名称，可以是local，IP地址，计算机名称； 'database是数据库的名称； 'userid是登录的用户名； 'pwd是登录的密码； Dim sqlConnectStr As String = "server =gao;database=Login;uid=sa;pwd=123456" '下面可以用windows身份验证登录； 'Dim sqlConnectStr1 As String = "server=gao;database=Login;integrated Security=true" Dim sqlConnect1 As SqlConnection = New SqlConnection(sqlConnectStr) Function selectUserInfoFormUserInfoTable(ByVal user As Login.Model.UserInfo) As Login.Model.UserInfo Dim sql As String = "select * from Users where Username='" & user.ID & "'" Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnect1) '定义sqlcommand对象； Dim read As SqlDataReader '定义sqldatareader对象； Dim UserDataTable As New DataTable '定义一个Datatable对象； Dim user1 As New Login.Model.UserInfo Try sqlConnect1.Open() read = cmd.ExecuteReader UserDataTable.Load(read) user1.ID = UserDataTable.Rows(0)("Username") user1.PWD = UserDataTable.Rows(0)("Password") Return user1 Catch ex As Exception user1.PWD = "" Return user1 Finally If Not IsNothing(sqlConnect1) Then sqlConnect1.Close() End If End Try End Function End Class

大家在敲完代码后，一定要记得引用，不引用的话会出现错误的。引用关系看看上一篇博客。