If vars("dljs") = 3 Then
vars("dljs") = 0
MessageBox.Show("三次登录错误之后系统自动退出,如有问题请联系系统管理员.","系统退出")
e.Form.Controls("tq").performclick()
Return
End If
If e.Form.Controls("yhu").value = "" OrElse e.Form.Controls("nim").value = "" Then
MessageBox.Show("用户ID或用户原有密码没有填写,不能完成登录.")
Return
Else
Dim r As DataRow = DataTables("用户权限").sqlfind("工号 = '" & e.Form.Controls("yhu").value & "'")
If r IsNot Nothing Then
If r("已登录") = "是" Then
MessageBox.Show("用户已登录,不能重复登录.")
vars("dljs") = vars("dljs") + 1
Return
Else
If r("密码") = e.Form.Controls("nim").value Then
uid = r("工号")
uname = r("姓名")
If r("工号") = "0057" OrElse r("工号") = "0842" Then '留一个用户解除当非正常关机时登录自锁
r("已登录") = ""
r("上次登录") = cstr(now)
Else
r("已登录") = "是"
r("上次登录") = cstr(now)
End If
r.save()
e.Form.close()
forms("欢迎").open()
vars("dljs") = 0
Else
MessageBox.Show("用户密码错误,无法完成登录.","登录失败")
vars("dljs") = vars("dljs") + 1
End If
End If
Else
MessageBox.Show("用户不存在,无法完成登录.","登录失败")
vars("dljs") = vars("dljs") + 1
End If
End If
加好友 
发短信
Post By：2021/6/1 17:29:00 [只看该作者]
此主题相关图片如下：微信图片_20210601172459.png