| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]登录程序 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170110) |
| -- 作者：Cloud -- 发布时间：2021/7/13 9:46:00 -- [求助]登录程序 求大神指点： 在项目事件AfterOpenProject中的代码是： Forms("登录验证").Open() If DataTables("用户表").GetComboListString("用户名") = " " Then Syscmd.Project.Exit() Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错 End If Forms("登录窗口").open() Forms("系统管理").open() “登录窗口”中”取消“的代码是： Syscmd.Project.Exit(False) e.Form.Close “登录窗口”为”共用“ ”系统窗口“为主窗口 正常登录是没有问题的，但是打开了不登录就会报错： ‘窗口[系统管理]指定的所有表者不存在，无法打开此窗口 求大神指点一下怎么样写”取消“代码或项目事件代码 谢谢
|
| -- 作者：有点蓝 -- 发布时间：2021/7/13 9:49:00 -- 参考这里的用法：http://www.foxtable.com/webhelp/topics/2048.htm 去掉按钮代码去掉Syscmd.Project.Exit(False)
|
| -- 作者：Cloud -- 发布时间：2021/7/13 9:54:00 -- 在取消按钮中去掉Syscmd.Project.Exit(False)会直接登录 |
| -- 作者：有点蓝 -- 发布时间：2021/7/13 9:59:00 -- 说明确定按钮和afteropenproject事件的用法不对，参考上面帮助处理 |
| -- 作者：cd_tdh -- 发布时间：2021/7/13 10:02:00 -- 直接写：Syscmd.Project.Exit(False)，后面的代码不要，都退出系统了，哪有关闭窗口呢？ [此贴子已经被作者于2021/7/13 11:05:41编辑过]
|