主题：启动验证

3楼的代码放到窗口的按钮事件里，而不是放到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

下面代码放到afteropenproject事件，LoadUserSetting事件不能有模式窗口打开