[url]http://blog.csdn.net/wangxuhebeibd/article/details/9104383[/url]
三层实例是以传实体层中的实体为例子的。UI层引用BLL层和Entity层,BLL层引用DAL层和Entity层,DAL层引用Entity层。
实体层(Entity)创建数据库中的实体类名称为EntityUserinfo。
BLL层创建名称为LoginBLL的类库,DAL层创建名称为LoginDAL的类库。
UI层:(用户界面,接收和现实数据)
BLL层:(业务逻辑层,调用DAL层的方法,被UI层调用 即连接UI层和DAL 层)
DAL 层(数据访问层,实现数据库的连接)
三层实例是以传实体层中的实体为例子的。UI层引用BLL层和Entity层,BLL层引用DAL层和Entity层,DAL层引用Entity层。
实体层(Entity)创建数据库中的实体类名称为EntityUserinfo。
BLL层创建名称为LoginBLL的类库,DAL层创建名称为LoginDAL的类库。
Public Class EntityUserInfo
'定义两个私有属性
Private id As String
Private password As String
'定义属性过程,通过属性过程,允许他的类访问该属性
Public Property UserID() As String
Get
Return id
End Get
Set(value As String)
id = 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 btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
'实例化 传 实体的 对象 userinfo
Dim userinfo As New Entity.EntityUserInfo
'实例化 BLL层 的对象 loginbll
Dim LoginBll As New BLL.LoginBLL
'将文本框中的字符串赋值给 实体对象 userinfo ,使实体对象能够带上参数
userinfo.UserID = txtUserName.Text.ToString
userinfo.PWD = txtPassword.Text.ToString
'实例化一个实体层 的 model 对象
Dim model As New Entity.EntityUserInfo
'调用BLL层的方法(返回值为 实体对象,所有上面定义一个 实体对象model)
'通过调用Bll层的方法,返回实体对象,比较model的属性是否与文本框一致
model = LoginBll.UserLogin(userinfo)
If model.UserID = txtUserName.Text And model.PWD = txtPassword.Text Then
Me.Hide()
Applycation.Show()
Else
MessageBox.Show("登陆失败")
End If
End Sub
BLL层:(业务逻辑层,调用DAL层的方法,被UI层调用 即连接UI层和DAL 层)
Imports Entity.EntityUserInfo
Imports DAL.LoginDAL
Public Class LoginBLL
'定义一个函数方法 userlogin 传递的参数为 实体层类型的变量 model 返回值为 一个实体
Public Function UserLogin(ByVal model As Entity.EntityUserInfo) As Entity.EntityUserInfo
'定义DAL层 的 对象LoginDAL
Dim LoginDAL As New DAL.LoginDAL
'定义实体层 对象 userinfo
Dim userinfo As New Entity.EntityUserInfo
'调用DAL层的方法,返回 实体
userinfo = LoginDAL.selectuser(model)
Return userinfo
End Function
End Class
DAL 层(数据访问层,实现数据库的连接)
Imports System.Data.SqlClient
Imports System.Data
Imports Entity.EntityUserInfo
Public Class LoginDAL
'数据库连接,将数据库连接定义为构造函数,当实例化 LoginDAL 的时候,自动完成数据库连接
Dim str As String = "server=.;database=Charge_System;integrated security=sspi" '这里字符串用的是windows 验证方式,所有不需要用户名和密码的操作。
Dim conn As New SqlConnection(str)
'在数据库中查询数据,执行命令语句
Public Function selectuser(ByVal model As Entity.EntityUserInfo) As Entity.EntityUserInfo
'连接数据库
conn.Open()
Dim sql As String = "select * from T_Users where UserID= '" & model.UserID & " ' and PWD= '" & model.PWD & "'"
Dim cmd As New SqlCommand(sql, conn)
'定义一个 SqlDataReader 类型的变量 reader
Dim reader As SqlDataReader
reader = cmd.ExecuteReader() '由于cmd 对象的属性 EcecuteReader 返回之是一个DataReader,所以只能定义一个Datareader类型的变量来接收数据。
'实例化一个实体层的对象 userinfo
Dim userinfo As New Entity.EntityUserInfo
'reader.read 的返回值为true 执行给 userinfo 的属性赋值操作
While (reader.Read())
userinfo.UserID = reader.GetString(0)
userinfo.PWD = reader.GetString(1)
End While
'返回 实体对象 userinfo
Return userinfo
End Function
End Class