以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我按照用户手册的“自定义用户与权限管理”这一章节,做了一个自定义的登陆,可是点击登陆界面的“取消”按钮,确出现一系列的错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23188)

--  作者:akzzwj
--  发布时间:2012/9/5 10:25:00
--  我按照用户手册的“自定义用户与权限管理”这一章节,做了一个自定义的登陆,可是点击登陆界面的“取消”按钮,确出现一系列的错误

我按照用户手册的“自定义用户与权限管理”这一章节,做了一个自定义的登陆,可是点击登陆界面的“取消”按钮,确出现一系列的错误。

“取消”按钮的代码如下: 

e.Form.Close()
Syscmd.Project.
Exit()

 

点击登陆界面的“取消”按钮,出现一系列的如下图所示的错误:

 


此主题相关图片如下:100.jpg
按此在新窗口浏览图片

此主题相关图片如下:101.jpg
按此在新窗口浏览图片

此主题相关图片如下:102.jpg
按此在新窗口浏览图片

--  作者:akzzwj
--  发布时间:2012/9/5 10:26:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:103.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:104.jpg
图片点击可在新窗口打开查看

--  作者:akzzwj
--  发布时间:2012/9/5 10:26:00
--  
请狐狸爸爸,帮我看一下,为什么会出现这样的错误提示?
--  作者:blackzhu
--  发布时间:2012/9/5 10:36:00
--  
未登录  就没有启用呗.
--  作者:狐狸爸爸
--  发布时间:2012/9/5 11:00:00
--  
“取消”按钮的代码改为:
 
e.Form.Close()

 
AfterOpenProject事件改为:
 
Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
End If

--  作者:akzzwj
--  发布时间:2012/9/5 11:27:00
--  
狐狸爸爸,我按照你的要求 调整了代码 还是出现这样的错误。
--  作者:lin_hailun
--  发布时间:2012/9/5 11:38:00
--  
 要不要上传项目来看看?图片点击可在新窗口打开查看
--  作者:狐狸爸爸
--  发布时间:2012/9/5 11:58:00
--  
贴出你的AfterOpenProject事件代码看看
--  作者:程兴刚
--  发布时间:2012/9/5 12:01:00
--  
试试这一句:Syscmd.Project.Exit(False)
--  作者:blackzhu
--  发布时间:2012/9/5 12:19:00
--  
这个 代码放错位置了,再调整一下.