主题：启动验证

系统用原foxtable自带的账户管理登陆，现在考虑在输入账户和密码之后，系统进行验证，若不通过将弹出对话框验证，但在目前设置中弹出对话框后仍可以操作；

把窗口类型，改成模式窗口

 

http://www.foxtable.com/webhelp/scr/0697.htm

 

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

 

加入msgbox，看执行到了什么地方，哪些代码不执行

 

 

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

3楼的代码放到窗口的按钮事件里，而不是放到afteropenproject事件

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

看msgbox弹出什么内容：http://www.foxtable.com/webhelp/scr/1485.htm

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 &"'") msgbox(dr IsNot Nothing) If dr IsNot Nothing Then msgbox(User.name) msgbox(dr("Name"))     If dr("Name") = User.name Then msgbox(dr("ID").SubString(dr("ID").Length - 6))         If yzm = dr("ID").SubString(dr("ID").Length - 6) Then msgbox(ComputerId) msgbox(dr("ComputerId") )             dr("ComputerId") = ComputerId             dr.save             MessageBox.Show("系统已更新机器码,在点击确认之后系统将退出,请重启!","温馨提示")             Syscmd.Project.Exit()         Else             MessageBox.Show("输入验证错误!","警告")             Return         End If     Else         MessageBox.Show("用户名与工号信息不一致,请确认之后再输入,谢谢!","警告")         Return

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

具体实例发上来测试。