【VB.NET机房重构】七层登录

发布时间：2020-12-17 07:45:44 所属栏目：百科来源：网络整理

导读：万事开头难，是因为后面的学习差不多都是在开始定制的架构基础上填充的，填充的方法也是在开头上稍作修改实现的。所以说三层登录很不简单，在三层的基础上再加上外观层（Facade）、工厂层（Factory）、接口层（IDAL）就形成了七层。（再将SqlHelper单提取出

万事开头难，是因为后面的学习差不多都是在开始定制的架构基础上填充的，填充的方法也是在开头上稍作修改实现的。所以说三层登录很不简单，在三层的基础上再加上外观层（Facade）、工厂层（Factory）、接口层（IDAL）就形成了七层。（再将SqlHelper单提取出来，就是传说中的八层了）。

首先根据包图设置好各层的调用。

再来说一下登陆的顺序和要做的工作。

再来看看各层的代码吧。

实体层：Entity层

实体层最容易了。被各层引用，进行数据传递。登录中用到两张表：UserInfo和WorkLog。所以就需要两个实体类：UserInfoEntity和WorkLogEntity，再加上一个公共变量类（里面包含正在登陆的用户名和密码）（代码就不做展示了）

SQLHelper

SQLHelper是数据库的小助手，被D层引用，用于一系列的数据库操作。只有一个类：Sqlhelper类，代码见SQLHelper类。

接口层：IDAL

接口层被B层和D层引用。提供了D层的对外接口，增加了灵活性。

IDAL-----IUserInfo

Public Interface IUserInfo
    '查询用户
    Function SelectUser(ByVal userinfoentity As Entity.UserInfoEntity) As List(Of Entity.UserInfoEntity)
    '更改用户登录状态
    Function UpdateUserStatus(ByVal userinfoentity As Entity.UserInfoEntity) As Boolean

End Interface

IDAL-----IWorkLog

Public Interface IWorkLog
    '插入工作记录
    Function InsertWorkLog(ByVal worklogentity As Entity.WorkLogEntity)
End Interface

数据访问层：D层

D层引用接口层、SQLHelper和实体层，实现IDAL层中的具体操作，对数据库进行增删改查，代码如下：

D层-----UserInfoDAL

'*************************************

'文件名：UserInfoDAL
'命名空间：DAL
'作者：郑艳霞
'小组：
'创建时间：
'版本号：v1.0
'修改时间：
'修改人：
'*************************************
Imports System.Data.SqlClient
Imports System.Data
Public Class UserInfoDAL : Implements IDAL.IUserInfo
    ''' <summary>
    ''' 查询用户
    ''' </summary>
    ''' <param name="userinfoentity"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ''' 
    Function SelectUser(ByVal userinfoentity As Entity.UserInfoEntity) As List(Of Entity.UserInfoEntity) Implements IDAL.IUserInfo.SelectUser
        Dim sql As New SQLHelper.SqlHelper
        Dim dt As DataTable
        Dim mylist As List(Of Entity.UserInfoEntity)

        Dim sqlparams As SqlParameter() = {New SqlParameter("@UserID",userinfoentity.UserID),New SqlParameter("@Password",userinfoentity.Password)}
        Dim strsql As String = "Select * from UserInfo where UserID=@UserID and Password=@Password  and IsUse='使用'"

        dt = sql.ExecSelect(strsql,CommandType.Text,sqlparams)
        mylist = ConvertHelper.convertToList(Of Entity.UserInfoEntity)(dt)

        Return mylist
    End Function

    ''' <summary>
    ''' 更改用户登录状态
    ''' </summary>
    ''' <param name="userinfoentity"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function UpdateUserStatus(ByVal userinfoentity As Entity.UserInfoEntity) As Boolean Implements IDAL.IUserInfo.UpdateUserStatus
        Dim sql As New SQLHelper.SqlHelper
        Dim dt As New Integer
        Dim sqlparams As SqlParameter() = {New SqlParameter("@UserID",Entity.CommonVariable.strCurrentUserID),New SqlParameter("@Status","True")}
        Dim strsql As String = "Update UserInfo set Status=@Status where UserID=@UserID"
        dt = sql.ExecAddDelUpdate(strsql,sqlparams)

        If dt > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

D层--------WorkLogDAL

'*************************************
'文件名：WorkLogDAL
'命名空间：DAL
'作者：郑艳霞
'小组：
'创建时间：
'版本号：v1.0
'修改时间：
'修改人：
'*************************************
Imports System.Data.SqlClient
Imports System.Data
Public Class WorkLogDAL : Implements IDAL.IWorkLog
    ''' <summary>
    ''' 插入工作记录
    ''' </summary>
    ''' <param name="worklogentity"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function InsertWorkLog(ByVal worklogentity As Entity.WorkLogEntity) Implements IDAL.IWorkLog.InsertWorkLog

        Dim sql As New SQLHelper.SqlHelper
        Dim dt As Integer
        worklogentity.LoginTime = Format(Now,"yyyy-MM-dd HH:mm:ss")
        '声明并实例化参数数组
        Dim sqlparams As SqlParameter() = {New SqlParameter("@UserID","正在值班"),New SqlParameter("@LoginTime",worklogentity.LoginTime)}
        Dim strsql As String = "Insert into WorkLog(UserID,LoginTime,Status)values(@UserID,@LoginTime,@Status)"
        dt = sql.ExecAddDelUpdate(strsql,sqlparams)

        If dt > 0 Then
            Return True
        Else
            Return False
        End If

    End Function
End Class

D层-------ConvertHelper

该类用于DataTable转换为泛型，详见http://www.52php.cn/article/p-gncyllqn-xx.html

工厂层-----Factory层

Factory层被B层引用，引用接口层、实体层，创建接口。

'*************************************
'文件名：UserInfoFactory
'命名空间：Factory
'作者：郑艳霞
'小组：
'创建时间：
'版本号：v1.0
'修改时间：
'修改人：
'*************************************
Imports System.Reflection '添加反射的引用
Imports IDAL
Imports System.Configuration
Public Class UserInfoFactory
    Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("DB")
    '用户工厂
    Public Function CreateIUserInfo() As IUserInfo
        Return CType(Assembly.Load("DAL").CreateInstance("DAL" & "." & strDB),IUserInfo)

    End Function

End Class

'*************************************
'文件名：WorkLogFactory
'命名空间：Factory
'作者：郑艳霞
'小组：
'创建时间：
'版本号：v1.0
'修改时间：
'修改人：
'*************************************
Imports System.Reflection '添加反射的引用
Imports IDAL
Imports System.Configuration
Public Class WorkLogFactory
    Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("DB")

    '工作记录工厂
    Public Function CreateIWorkLog() As IWorkLog
        Return CType(Assembly.Load("DAL").CreateInstance("DAL" & "." & strDB),IWorkLog)

    End Function

End Class

业务逻辑层：B层

B层引用实体层、工厂层、接口层，被外观层引用，实例化工厂类、接口类，并且进行各种业务逻辑判断。

'*************************************
'文件名：LoginBLL
'命名空间：BLL
'作者：郑艳霞
'小组：
'创建时间：
'版本号：v1.0
'修改时间：
'修改人：
'*************************************
Public Class LoginBLL
    ''' <summary>
    ''' 查询用户是否存在
    ''' </summary>
    ''' <param name="userinfoentity"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function IsUserOK(ByVal userinfoentity As Entity.UserInfoEntity) As List(Of Entity.UserInfoEntity)
        Dim userinfofactory As New Factory.UserInfoFactory
        Dim iuserinfo As IDAL.IUserInfo
        Dim mylist As List(Of Entity.UserInfoEntity)
        iuserinfo = userinfofactory.CreateIUserInfo()
        mylist = iuserinfo.SelectUser(userinfoentity)
        '判断是否查询到记录  
        If mylist.Count = 0 Then
            Throw New Exception("登录失败，用户名和密码不正确！")
        End If
        If mylist(0).Status.Trim() = "True" Then
            Throw New Exception("该用户正在登陆，请重新输入")
        Else
            MsgBox("登录成功，进入系统！")
        End If
        Return mylist
    End Function

    ''' <summary>
    ''' 更改用户登录状态
    ''' </summary>
    ''' <param name="userinfoentity"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ModifyUserStatus(ByVal userinfoentity As Entity.UserInfoEntity)
        Dim dt As Integer
        Dim userinfofactory As New Factory.UserInfoFactory
        Dim iuserinfo As IDAL.IUserInfo
        iuserinfo = userinfofactory.CreateIUserInfo()
        dt = iuserinfo.UpdateUserStatus(userinfoentity)
        If dt > 0 Then
            Return True
        Else
            Return False
        End If
    End Function

    ''' <summary>
    ''' 插入工作记录
    ''' </summary>
    ''' <param name="worklogentity"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function AddWorkLog(ByVal worklogentity As Entity.WorkLogEntity)
        Dim dt As Integer
        Dim worklogfactory As New Factory.WorkLogFactory
        Dim iworklog As IDAL.IWorkLog
        iworklog = worklogfactory.CreateIWorkLog()
        dt = iworklog.InsertWorkLog(worklogentity)
        If dt > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

外观层：Facade层

外观层，被U层引用，应用实体层B层，进一步解耦U层和B层，为所有的逻辑判断等提供一个统一的界面，减少了U层繁杂的B层实例化。

'*************************************
'文件名：LoginFacade
'命名空间：Facade
'作者：郑艳霞
'小组：
'创建时间：
'版本号：v1.0
'修改时间：
'修改人：
'*************************************
Public Class LoginFacade
    '判断用户和密码是否正确
    Public Function IsUserOK(ByVal userinfoentity As Entity.UserInfoEntity) As List(Of Entity.UserInfoEntity)
        Dim mylist As List(Of Entity.UserInfoEntity)
        Dim loginbll As New BLL.LoginBLL

        mylist = loginbll.IsUserOK(userinfoentity)
        Return mylist
    End Function

    '更新用户工作状态
    Public Function ModifyUserStatus(ByVal userinfoentity As Entity.UserInfoEntity)
        Dim dt As Integer
        Dim loginbll As New BLL.LoginBLL
        dt = loginbll.ModifyUserStatus(userinfoentity)
        Return dt
    End Function

    '添加工作记录
    Public Function AddWorkLog(ByVal worklogentity As Entity.WorkLogEntity)
        Dim dt As Integer
        Dim loginbll As New BLL.LoginBLL
        dt = loginbll.AddWorkLog(worklogentity)
        Return dt
    End Function
End Class

用户界面层：U层

U层，引用实体层、外观层，向外面向用户，向内面向外观层，并且进行数据的传递，App.config文件也写在U层。

Public Class frmLogin
    Private Sub btnLogin_Click(sender As Object,e As EventArgs) Handles btnLogin.Click
        Dim userinfoentity As New Entity.UserInfoEntity '实例化UserInfoEntity
        Dim worklogeneity As New Entity.WorkLogEntity '实例化WorkLogEntity
        Dim loginfacade As New Facade.LoginFacade
        Dim mylist As New List(Of Entity.UserInfoEntity)

        '判断输入框是否为空
        If txtUserID.Text = "" Then
            MsgBox("用户名不能为空")
            Return
        End If

        If txtPassword.Text = "" Then
            MsgBox("密码不能为空")
            Return
        End If

        Try
            '将界面中的数据传给实体层
            userinfoentity.UserID = txtUserID.Text.Trim()
            userinfoentity.Password = txtPassword.Text.Trim()

            '判断用户能否登录
            mylist = loginfacade.IsUserOK(userinfoentity)

            '将正在登录的用户登录信息传给全局变量
            Entity.CommonVariable.strCurrentUserID = userinfoentity.UserID
            Entity.CommonVariable.strCurrentPassword = userinfoentity.Password

            '登录成功，更新用户的登录状态
            loginfacade.ModifyUserStatus(userinfoentity)
            '更新Worklog
            loginfacade.AddWorkLog(worklogeneity)

            '判断用户级别
            Select Case mylist(0).Level.Trim()
                Case "操作员"
                    frmMain.管理员ToolStripMenuItem.Visible = False
                Case "一般用户"
                    frmMain.操作员ToolStripMenuItem.Visible = False
                    frmMain.管理员ToolStripMenuItem.Visible = False
            End Select

            frmMain.Show()
            Me.Hide()

        Catch ex As Exception
            MsgBox(ex.Message.ToString())
            txtUserID.Focus()
            txtUserID.SelectAll()
            txtPassword.Text = ""
        End Try

    End Sub
End Class

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <appSettings>
    <add key="DB" value="Sqlserver" />
    <add key="strConnection" value="server=.;database=JF;UID=sa;PWD=123456" />
    <add key="ClientSettingsProvider.ServiceUri" value="" />
  </appSettings>
</configuration>

至此，七层完成。

小结：

理解了各层的关系和要做的工作，差不多七层的逻辑就出来了，登录时机房收费中最小的功能，但是却是最不简单的一步，登录清除了，各层的调用和关系就清楚了，一些对数据库的操作：增查也清楚了，后续功能的实现就简单多了。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!