【机房】登陆窗体判断用户级别
【摘要】
【前言】
登陆窗体需要判断用户级别,然后进入不同的系统,这里的用户级别有管理员、操作员和一般用户,用户级别越大权限就越大。
【正文】
首先要在登陆按钮下面申明变量,因为还需要把登陆记录更新到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)