VB.NET版的“8层”用户登录实例

Imports LoginEntity
Public Interface IuserinfoDAL
    'UserInfo为用户信息的实体，是由实体类实例化来的。
    '即所谓的传实体。
    '此接口定义了一个方法，用以检查用户是否存在
    Function selectUser(ByVal UserInfo As LoginUserEntity) As DataTable
End Interface

Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data
Public Class sqlHelper
    Private Shared ConnectionString As String = ConfigurationManager.AppSettings("ConnString")
    ''' <summary>
    ''' 执行带参数的查询操作
    ''' </summary>
    ''' <param name="cmdTxt">参数cmdTxt为所要执行的sql语句</param>
    ''' <param name="cmdType">查询时的查询方式</param>
    ''' <param name="paras">查询时的命令参数paras</param>
    ''' <returns>查询后以表的方式返回，如下面的adataset.Tables(0)</returns>
    ''' <remarks></remarks>
    Public Shared Function GetDataTable(ByVal cmdTxt As String,ByVal cmdType As CommandType,ByVal paras As SqlParameter()) As DataTable
        Dim conn As SqlConnection = New SqlConnection(ConnectionString) '建立数据库连接
        Dim cmd As SqlCommand '定义命令变量cmd
        Dim adaptor As SqlDataAdapter '定义数据适配器
        Dim adataset As DataSet '定义并实例化数据缓冲区对象,即从数据库传入的对象。
        cmd = New SqlCommand(cmdTxt,conn) '在conn上面执行实例化命令变量，并执行语句cmdType
        cmd.CommandType = cmdType '命令执行的类型
        cmd.Parameters.AddRange(paras) '命令执行时的参数
        adaptor = New SqlDataAdapter(cmd) '将结果绑定到数据适配器变量adaptor上面
        adataset = New DataSet
        Try
            '如果数据库连接状态为关闭则将其打开
            If conn.State = ConnectionState.Closed Then
                conn.Open()
            End If
            adaptor.Fill(adataset) '向adaptor对象中填充查询的数据
        Catch ex As Exception
            '错误处理程序，出错则提示
            MsgBox(ex.Message,"数据库操作")
        Finally
            '如果连接状态为打开则将其关闭，释放内存
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        End Try
        '以表格形式返回结果
        Return adataset.Tables(0)
    End Function
End Class

Imports Factory
Imports IDAL
Imports LoginEntity
Public Class LoginBLL
    '检查用户是否存在
    Public Function IsUserExists(ByVal UserInfo As LoginEntity.LoginUserEntity) As Boolean
        Dim factory As New Factory.LoginFactory()
        Dim Iuser As IDAL.IuserinfoDAL
        '调用"创建用户"的工厂方法
        Iuser = factory.CreateUserInfo()
        Dim table As DataTable
        Dim flag As Boolean
        table = Iuser.selectUser(UserInfo)
        '由于在sqlHelper中返回的形式为表格形式（adataset.Tables(0)），且开头第一列表示为0，所以Item（0）则代表用户名
        If table.Rows(0).Item(0) = 0 Then
            flag = False
        Else
            flag = True
        End If
        Return flag
    End Function
    '查看密码是否正确
    Public Function isPWDright(ByVal UserInfo As LoginEntity.LoginUserEntity) As DataTable
        Dim factory As New Factory.LoginFactory()
        Dim Iuser As IDAL.IuserinfoDAL
        Dim table As DataTable   '中间变量，用于存储D层查询到的数据  
        Iuser = factory.CreateUserInfo   '调用工厂的CreateUserInfo方法创建Iuser接口实例  
        table = Iuser.selectUser(UserInfo)  '调用接口的方法selectUser.  
        Return table
    End Function
End Class

Imports System.Configuration    '添加对配置文件的引用  
Imports System.Reflection       '添加对反射的引用  
Imports IDAL
Public Class LoginFactory
    '读配置文件，D层的每个类都在配置文件里对应一个KEY
  '下面这句是把key设成变量，然后再下面的方法中只用这个变量就可以应用D层的这个类了。
  Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("strDB")
  Public Function CreateUserInfo() As IuserinfoDAL
    'CType是一个内联函数，将前部分的表达式转换为后面的类型
    Return CType(Assembly.Load("LoginDAL").CreateInstance("LoginDAL" & "." & strDB),IuserinfoDAL)   '返回IuserinfoDAL
  End Function
End Class