系统用原foxtable自带的账户管理登陆，现在考虑在输入账户和密码之后，系统进行验证，若不通过将弹出对话框验证，但在目前设置中弹出对话框后仍可以操作；
想弹出对话框之后当前只能操作对话框，其它不允许，请问如何处理？
afteropenproject
Dim fr As DataRow = DataTables("ERPUsers").SQLFind("Name = '"& User.Name &"'")
If fr IsNot Nothing Then
If fr.IsNull("ComputerId") = False Then
If fr("ComputerId") = ComputerId Then
Dim dr As DataRow = DataTables("B_CSlist").SQLFind("姓名 = '"& User.Name &"'")
If dr IsNot Nothing Then
_Quyu = dr("区域中文")
_LabNo = dr("区域")
_UserNo = dr("客服编号")
If dr("版本提醒") = False Then
forms("登录版本提醒").open()
End If
Else
Tables("B_CSlist").addnew
Tables("B_CSlist").Current("姓名") = User.Name
Forms("首次登录用户信息维护").Open()
End If
Else
Forms("ComputerID重新绑定").open
End If
Else
Forms("ComputerId绑定").open
End If
Else
MessageBox.Show("系统未找到您的用户信息,请联系管理员,谢谢!","温馨提示")
Syscmd.Project.Exit()
End If
加好友 
发短信
Post By：2019/6/3 9:54:00 [只看该作者]
