房费制——登录优化

房费制——登录优化

大家好,又见面了,我是全栈君,今天给大家准备了Idea注册码。

     《客房收费系统个人版》基本完成,矿U层的代码是非常非常混乱。基本上D层有几个函数,B层就相应有几个函数,U层使用相应B层中的每个函数。比方说在登录中,U层首次要使用一个函数检查username和用户password是否正确,然后再使用“加入用户上机记录”的函数。以下是登录的时序图:

房费制——登录优化

        登录业务比較简单,可是对于复杂的上机过程呢?U层要检查卡是否注冊。剩余金额是否充足,卡的状态是否在使用中。该卡是否如今不在线,通过这一系列检验后,还要查询学生表显示学生信息等等。

这样就造成U层有好多函数,和B层的耦合度太大。如今我们来回想一下三层中各层的功能:

 表现层(UI):採集用户的输入信息和操作,向用户展现特定业务数据。通俗讲就是用户界面,即用户在使用一个系统的时候他的所见所得。

 业务逻辑层(BLL):针对详细问题的操作。也能够说是对数据层的操作。对数据业务逻辑处理。主要有三种方式:从UI中获取用户指令和数据,运行业务逻辑;从DAL中获取数据,以供UI显示;从UI中获取用户指令和数据,通过DAL写入数据源。

 数据訪问层(DAL):该层所做事务直接操作数据库,针对数据的增添、删除、改动、查找等。

    

        

    在师傅的指点下,进行了改动:

U层:

'登录
    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        '查空
        If PublicFunction.IsEmptyText(Me) = True Then
            Exit Sub
        End If

        '实例化实体User,引用B层
        Dim euser As New Entity.User
        Dim euserRecord As New Entity.UserRecord
        Dim blogin As New BLL.LoginBLL

        Try
            '将用户输入的信息传给实体
            euser.ProuserID = txtUserID.Text.Trim
            euser.ProuserPwd = txtUserPwd.Text

            '用户验证后反馈信息
            If blogin.Check(euser, euserRecord) Then '登录成功
                ''UserID和UserLevel为全局变量,其它功能要用到
                UserID = euser.ProuserID.Trim  '去空格
                UserLevel = euser.ProuserLevel.Trim '去空格
                '主窗口显示
                Me.Hide()
                frmMain.Show()
            Else
                MsgBox("登录失败!username或password有误。

", vbExclamation, "系统提示") txtUserID.Focus() Exit Sub End If Catch ex As Exception MsgBox("错误!", vbExclamation, "系统提示") End Try End Sub

B层:

Public Function Check(ByVal euser As Entity.User, ByVal euserRecord As Entity.UserRecord) As Boolean
        Dim dt As DataTable
        dt = iuser.QueryUser(euser)

        Try
            If dt.Rows.Count = 0 Then
                Return False
            Else 'username和password输入正确
                euser.ProuserID = dt.Rows(0).Item(0) '用户ID
                euser.ProuserLevel = dt.Rows(0).Item(2) '用户级别

                '输入用户上机记录信息
                euserRecord.ProuserID = euser.ProuserID
                euserRecord.ProuserLevel = euser.ProuserLevel
                euserRecord.ProloginTime = Now
                euserRecord.PrologoutTime = Now
                euserRecord.ProisOnline = 1  '1表示在线。0表示不在线
                euserRecord.Procomputer = My.Computer.Name '获得当前电脑的username
                '加入用户上机记录
                Dim result As Integer
                result = iuser.AddUserRecord(euserRecord)

                If result <> 0 Then '加入用户记录成功
                    Return True
                End If
            End If
        Catch ex As Exception
            Throw New Exception
        End Try
     
    End Function


D层:

  '查找用户的方法
    Public Function QueryUser(euser As Entity.User) As DataTable Implements IUser.QueryUser
        Try
            Dim strSQL As String = "select * from T_User where userID=@userID and userPwd=@userPwd "
            Dim params() As SqlParameter = {New SqlParameter("@userID", euser.ProuserID), New SqlParameter("@userPwd", euser.ProuserPwd)}
            Dim helper As New SqlHelper.sqlHelper
            Dim table = helper.GetDataTable(strSQL, CommandType.Text, params)
            Return table
        Catch ex As Exception
            Throw New Exception
        End Try
      
    End Function

    '用户登录成功加入记录到UserRecord
    Public Function AddUserRecord(euserRecord As Entity.UserRecord) As Integer Implements IUser.AddUserRecord
        '每个字段都填写时,可省略前面括号里的内容
        'Dim strSQL As String = "insert into T_UserRecord values(@userID,@level,@loginTime,@logoutTime,@computer,@isOnline)"
        Try
            Dim strSQL As String = "insert into T_UserRecord (userID,userLevel,loginTime,logoutTime,computer,isOnline)values(@userID,@level,@loginTime,@logoutTime,@computer,@isOnline)"

            Dim params() As SqlParameter = {New SqlParameter("@userID", euserRecord.ProuserID),
                                            New SqlParameter("@level", euserRecord.ProuserLevel),
                                            New SqlParameter("@loginTime", euserRecord.ProloginTime),
                                            New SqlParameter("@logoutTime", euserRecord.PrologoutTime),
                                            New SqlParameter("@computer", euserRecord.Procomputer),
                                            New SqlParameter("@isOnline", euserRecord.ProisOnline)}
            Dim helper As New SqlHelper.sqlHelper
            Dim intResult = helper.ExecuteNoQuery(strSQL, CommandType.Text, params)
            Return intResult
        Catch ex As Exception
            Throw New Exception
        End Try
       
    End Function

改动后的登录时序图:

房费制——登录优化

       两幅登录时序图形成鲜明的对照,这样用户点击“登录”button后,U层负责採集用户输入的username和password,然后仅仅需调用一个Check()函数进行验证。B层处理业务逻辑。先推断用户信息,若输入正确则进行下一步加入用户上机记录。D层和数据库打交道。进行增删改查。U层根本不知道详细的验证用户细节。这样就解耦了,各司其职。

       

       小结:从去年的第一次机房收费系统。到如今的个人版重构。以及接下来的合作重构,每一步都是跨越。最初我们是纯面向过程的,如今学习了三层架构,使用了设计模式,但距离面向对象仍然非常遥远。我们正在一步一步向前走,这个过程非常重要。好比是唐僧西天取经,假设让孙悟空翻个跟头就能取到经。那就不会有经典的《西游记》了。


版权声明:本文博主原创文章,博客,未经同意不得转载。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/116772.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • shell基础 — 基本语法

    shell基础 — 基本语法本文介绍一下shell的语法。一、变量在shell里,使用变量之前通常并不需要事先为他们做出声明,需要使用的时候直接创建就行了。默认情况下,所有变量都被看做字符串并以字符串来存储,即使它们

  • CTK通用插件使用

    CTK通用插件使用1.把release版本和debug版本的CTK库文件拷贝到QT的bin目录下2.把release版本下的CTKWidgetsPlugins拷贝到qtplugins目录下Qtdesigner中就可以看到集成的CTK通用插件了3.建立一个qtgui程序,设置ctk的链接目录设置CTK的dll目录设置CTK的头文件目录设置CTK的lib路径4….

  • 快速查找Python安装路径方法「建议收藏」

    快速查找Python安装路径方法「建议收藏」我相信一定有很多的人跟我一样,经常忘记Python安装的路径,每当用到的时候,最笨的办法就是在全局电脑里,直接查找Python,这样是肯定能查到的,但是如果你的电脑文件超级多,这将是一个工厂量很大的事情,你要等好久的。便捷的方法时:打开我们的cmd命令输入Python输入importsys输入print(sys.path)列表中的第五个将是你的安装路径…

  • ssm管理系统课题_p2实验室

    ssm管理系统课题_p2实验室开发目的方便高效地实验室设备统一管理,除了实现基本的增删改查,还提供借用、归还、购买和问题反馈功能,可实现对实验室设备的基本业务的处理本项目由本人负责开发完成,项目能保证正常运行,当然其中不免也会有缺漏或不完善的地方解决方案1.后端Java框架使用spring+springmvc+mybatisspring功能是实现参数参数注入,请求分发处理,对数据库操作进行事务控制,其中mybatis使用注解查询,整体上大部分使用xml配置,少部分使用注解2.前端使用HTML+javascript+css+j

    2022年10月13日
  • clion激活码 2021激活码[在线序列号]

    clion激活码 2021激活码[在线序列号],https://javaforall.cn/100143.html。详细ieda激活码不妨到全栈程序员必看教程网一起来了解一下吧!

  • java截取某个字符后面的字符串_java如何截取字符串

    java截取某个字符后面的字符串_java如何截取字符串提示:java截取某个字符之前或者之后的字符串文章目录一、java截取某个字符之前或者之后的字符串:1.截取”_”之前字符串2.截取”_”之后字符串二、截取正数第二个”_”后面的内容一、java截取某个字符之前或者之后的字符串:1.截取”_”之前字符串代码如下(示例)://java截取某个字符之前的字符串publicstaticvoidsubstringTest01(){Stringstr=”test_https://www.baidu.com/”;//截

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号