【机房】登陆窗体判断用户级别

举报
Laura_张 发表于 2022/08/26 23:16:22 2022/08/26
【摘要】 【前言】 登陆窗体需要判断用户级别,然后进入不同的系统,这里的用户级别有管理员、操作员和一般用户,用户级别越大权限就越大。 【正文】 首先要在登陆按钮下面申明变量,因为还需要把登陆记录更新到onwo...

【前言】

登陆窗体需要判断用户级别,然后进入不同的系统,这里的用户级别有管理员、操作员和一般用户,用户级别越大权限就越大。

【正文】

首先要在登陆按钮下面申明变量,因为还需要把登陆记录更新到onwork和worklog数据表中,所以这里有三个变量。

	'判断输入密码是否正确
    Dim mrc As ADODB.Recordset
    Dim txtsql As String
    Dim msgtext As String
    Dim frmlogin As Boolean
    
    '用来连接onwork数据表
    Dim mrc1 As ADODB.Recordset
    Dim txtsql1 As String
    Dim msgtext1 As String
    
    '用来连接worklog数据表
    Dim mrc2 As ADODB.Recordset
    Dim txtsql2 As String
    Dim msgtext2 As String

  
 
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15

下面需要判断用户名和密码是否为空,是否正确

 '判断用户名和密码输入是否为空
    If Testtxt(txtUserName.Text) = False Then
        MsgBox "用户名不能为空,请输入用户名!", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
        Exit Sub
    End If
    
    If Testtxt(txtPassword.Text) = False Then
        MsgBox "密码不能为空,请输入密码!", vbOKOnly + vbExclamation, "警告"
        txtPassword.SetFocus
        Exit Sub
    End If

    '判断用户名和密码输入是否正确
    txtsql = "select * from user_info where userID='" & Trim(txtUserName.Text) & "'"
    '执行sql语句
    Set mrc = ExecuteSQL(txtsql, msgtext)
    '判断是否有该用户
    If mrc.EOF = True Then
        MsgBox "没有这个用户,重新输入用户名!", vbOKOnly + vbExclamation, "警告"
        txtUserName.Text = "'"
        txtPassword.Text = ""
        txtUserName.SetFocus
    Else
        If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
        '登录名和密码正确,登录主窗体

        frmMain.Show
        Unload Me

  
 
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29

登陆成功之后需要判断用户级别,不同的用户级别有不同的权限。

'判断用户级别
        If Trim(mrc.Fields(2)) = "一般用户" Then
            '冻结相应的菜单栏
            frmMain.Administrator.Enabled = False
            frmMain.Operator.Enabled = False
        End If
        If Trim(mrc.Fields(2)) = "操作员" Then
            frmMain.Administrator.Enabled = False
        End If

  
 
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9

需要注意的是,我们在判断密码是否输入正确的时候,输入三次错误密码就要退出程序。

 '记载输入密码不正确
        micount = micount
        If micount = 1 Then
            MsgBox "用户名或密码错误,请重新输入", vbOKOnly + vbExclamation, "警告"
            txtPassword = ""
            txtPassword.SetFocus
        End If
        If micount = 2 Then
            MsgBox "用户名或密码再错一次将会退出", vbOKOnly + vbExclamation, "警告"
            txtPassword.SetFocus
            txtPassword.Text = ""
        End If
        If micount = 3 Then
            MsgBox "次数超出,即将退出", vbOKOnly + vbExclamation, "警告"
            txtPassword.SetFocus
            txtPassword.Text = ""
        End
        End If

  
 
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18

我们需要把登陆记录更新到onwork和Wordlog的数据表中

 '将登陆记录写入onwork表中
    txtsql1 = "select * from OnWork_Info"
    Set mrc1 = ExecuteSQL(txtsql1, msgtext1)

    '添加内容到数据库中
    mrc1.AddNew
    mrc1.Fields(0) = mrc.Fields(0) 'userid
    mrc1.Fields(1) = mrc.Fields(2) '级别
    mrc1.Fields(2) = Trim(Date) '上线日期
    mrc1.Fields(3) = Trim(Time) '上线时间
    mrc1.Fields(4) = Trim(VBA.Environ("computername")) '电脑名称

    
    '将登陆记录记录到worklog数据表中
    txtsql2 = "select *from worklog_info"
    Set mrc2 = ExecuteSQL(txtsql2, msgtext2)
    
    mrc2.AddNew
    mrc2.Fields(1) = mrc.Fields(0) 'useid
    mrc2.Fields(2) = mrc.Fields(2) '级别
    mrc2.Fields(3) = Trim(Date) '上线日期
    mrc2.Fields(4) = Trim(Time) '上线时间
    mrc2.Fields(7) = Trim(VBA.Environ("computername")) '电脑名称
    mrc2.Fields(8) = True '判断正常下线
      
    
'    更新数据库
    mrc1.Update
    mrc1.Close
    mrc2.Update
    mrc2.Close
    mrc.Close

  
 
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32

【结尾】

还有更简洁的代码实现吗,可以交流一下。

文章来源: blog.csdn.net,作者:张艳伟_Laura,版权归原作者所有,如需转载,请联系作者。

原文链接:blog.csdn.net/Laura__zhang/article/details/107446532

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。