启动验证 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

系统用原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

已经修改为模式窗口，但如以下代码测试的时候可以，但是放在afteropenproject时却点击没有反应；

Dim gh As String = e.Form.Controls("工号").value

Dim yzm As String = e.Form.Controls("验证码").value

Dim dr As DataRow = DataTables("ERPUsers").sqlfind("UserNo = '"& gh &"'")

If dr IsNot Nothing Then

If dr("Name") = User.name Then

If yzm = dr("ID").SubString(dr("ID").Length - 6) Then

dr("ComputerId") = ComputerId

dr.save

MessageBox.Show("系统已更新机器码,在点击确认之后系统将退出,请重启!","温馨提示")

Syscmd.Project.Exit()

Else

MessageBox.Show("输入验证错误!","警告")

Return

End If

Else

MessageBox.Show("用户名与工号信息不一致,请确认之后再输入,谢谢!","警告")

Return

End If

Else

MessageBox.Show("未找到此工号信息!","警告")

Return

End If

点击按钮都没有反应，好像不执行代码一样的

是的，放在窗口中若在设计界面测试是可以的，但若通过afteropenproject事件代码启动窗口，点击窗口的按钮事件就没有反应

点击还是没有反应，但我在系统加个文本框，若找到行将显示行中某列的数据是可以的

下载信息 [文件大小：下载次数： ]
点击浏览该文件:启动验证.rar

请见附件

主题：启动验证