vb.Net三层架构实例——登录

浏览数：79 / 时间：2015年06月09日

封装给编程带来的巨大的好处我们已感受到了，面向对象编程思想已经深入人心。有了面向对象思想做指导，软件得到了迅速

的发展。在这种发展趋势下，三层架构也随之出现了。

从物理结构上来说，三层可以是客户端、应用服务器、数据库服务器。从逻辑上来说是表现层（Presentation layer）、业务逻

辑层（Business Logic Layer）、数据访问层（Dataaccess layer）。区分层次体现了“高内聚低耦合”的思想。在软件体系架构设

中，分层式结构是最常见，也是最重要的一种结构。下面以vb.net编写的登录小实例来理解三层的美妙。

一、搭建环境

1、基本原则

UI层：负责采集用户数据和显示数据

BLL层：负责接收UI层发来的数据，处理过程中，访问数据时交给DAL层处理，处理完成后，返回数据给UI

DAL层：访问的数据库，可以让BLL层访问并返回数据

技术分享

2、三层框架

技术分享

3、建数据库，含有用户信息的表

技术分享

二、代码实现

1、实体

作用：封装了用户数据，可使数据在三层中传输

Public Class UserInfo
    'UserName属性
    Private _username As String
    Public Property UserName As String
        Get
            Return _username
        End Get
        Set(value As String)
            _username = value
        End Set
    End Property
    'PWD属性
    Private _pwd As String
    Public Property PWD As String
        Get
            Return _pwd
        End Get
        Set(value As String)
            _pwd = value
        End Set
    End Property
End Class

2、表现层UI

技术分享

Public Class Form1

    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        Try
            '获得表现层的数据
            Dim euser2 As New Entity.UserInfo         '实例化新的UserInfo，用来传递B层的实体

            euser2.UserName = txtUserName.Text.Trim  '给euser2对象的UserName属性赋值
            euser2.PWD = txtPassword.Text.Trim       '给euser2对象的PWD属性赋值

            '调用B层
            Dim mgr As New LoginBLL.LoginManager   '实例化一个B层中LoginManager对象mgr
            Dim euser3 As Entity.UserInfo           '定义一个类型为UserInfo的参数，接收B层返回的参数
            euser3 = mgr.UserLogin(euser2)         '通过mgr对象，与B层交互

        Catch ex As Exception                   '异常处理
            MessageBox.Show(ex.Message.ToString())

        End Try
    End Sub
End Class

3、业务逻辑层BLL

Public Class LoginManager
    Public Function UserLogin(ByVal User As Entity.UserInfo) As Entity.UserInfo   '接收Entity.UserInfo类型的变量
        Dim uDao As New LoginDAL.UserDAO   '实例化一个对象uDao ，用于访问D层
        Dim eUser1 As Entity.UserInfo      '定义一个实体参数，用来接收D层给的参数，返回给U实体内所有属性

        eUser1 = uDao.SelectUser(User)   '向D层传入实体类型参数User，并得到一个带有实体参数的返回值

        '判断是否查询到记录，若有，登录成功，并返回实体euser1
        If IsNothing(eUser1.UserName) Then
            Throw New Exception("登录失败，请检查用户名和密码")
        Else
            MsgBox("登录成功"）

	  Return eUser1
        End If
    End Function
End Class

4、数据访问层DAL

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

Public Class UserDAO

    '创建数据库连接
    Public conn As New SqlConnection("server=WANGJU-PC;database=Login;user ID=sa;password=123456")

    '返回一个实体UserInfo函数
    Public Function SelectUser(ByVal User As Entity.UserInfo) As Entity.UserInfo  '传实体UserInfo，而不是参数ID，UserName等，这样方便对实体中的参数进行调用

        Dim reader As SqlDataReader          '定义类型为sqlDataReader的变量reader
        Dim eUser As New Entity.UserInfo    '实例化新的UserInfo

        Dim sql As String = "Select UserName,Password From Users where UserName=@UserName And Password=@PWD"
        Dim cmd As New SqlCommand(sql, conn)  'SqlCommand方法是构造函数，参数为一个执行的SQL语句，一个为连接对象

        cmd.CommandText = sql  '获取要执行的T-sql语句
        cmd.CommandType = CommandType.Text      '获取一个值，该值指示如何解释commandtext属性

        cmd.Parameters.Add(New SqlParameter("@UserName", User.UserName))    '实体的UserName参数
        cmd.Parameters.Add(New SqlParameter("@PWD", User.PWD))

        conn.Open()  '打开数据库连接

        'ExecuteReader()返回类型为SqlDataReader, 这个方法是用于用户进行查询操作
        reader = cmd.ExecuteReader()   '执行sql语句

        While (reader.Read())   '使用SqlDataReader对象Read()方法进行逐行读取,字段非空时，执行下列语句，

            eUser.UserName = reader.GetString(0)   '取出第0列中的属性值
            eUser.PWD = reader.GetString(1)     '取出第1列中的属性值

        End While

        Return eUser        '返回一个对象

        conn.Close()


    End Function
End Class

三、登录效果

用户名：wangju

密码：wj

技术分享