以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义用户登陆  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106033)
--  作者：WENFEIZHU
--  发布时间：2017/8/31 16:03:00
--  [求助]自定义用户登陆

3.13.4.6 自定义用户与权限管理

帮助文件这一章节里讲的有些疑问，自定义了登陆窗口后，如果仅仅只在项目事件AfterOpenProject加上载入登陆窗口代码。
用户如果关闭用户登陆窗口，系统照常开启，此时的User是默认用户。
请问如何解决以下问题：
用户输入账户密码正确，可以载入系统；
用户关闭登陆窗口，则系统关闭，不再载入。
--  作者：有点甜
--  发布时间：2017/8/31 16:14:00
--  

不会的。登陆窗口是模式窗口，如果_UserName的值为空，说明没有成功登陆，那么就会关闭系统的。

 

Forms("用户登录").Open()
If _UserName = "" Then

    msgbox("登陆失败")
    Syscmd.Project.Exit()
    Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错

else

    msgbox("登陆成功了")
End If
--  作者：WENFEIZHU
--  发布时间：2017/8/31 16:48:00
--  
用了自定义登录后，系统的user.name就没用了，对吗？user.name永远是默认用户。
--  作者：有点甜
--  发布时间：2017/8/31 17:25:00
--  
以下是引用WENFEIZHU在2017/8/31 16:48:00的发言：
用了自定义登录后，系统的user.name就没用了，对吗？user.name永远是默认用户。

 

嗯嗯，是的。一般都设置成默认用户了。