Foxtable(狐表)用户栏目专家坐堂 → [求助]自定义用户登陆


  共有1695人关注过本帖树形打印复制链接

主题:[求助]自定义用户登陆

帅哥哟,离线,有人找我吗?
WENFEIZHU
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:67 积分:588 威望:0 精华:0 注册:2017/3/17 21:53:00
[求助]自定义用户登陆  发帖心情 Post By:2017/8/31 16:03:00 [只看该作者]

3.13.4.6 自定义用户与权限管理

帮助文件这一章节里讲的有些疑问,自定义了登陆窗口后,如果仅仅只在项目事件AfterOpenProject加上载入登陆窗口代码。
用户如果关闭用户登陆窗口,系统照常开启,此时的User是默认用户。
请问如何解决以下问题:
用户输入账户密码正确,可以载入系统;
用户关闭登陆窗口,则系统关闭,不再载入。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/31 16:14:00 [只看该作者]

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

 

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

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

else

    msgbox("登陆成功了")
End If


 回到顶部
帅哥哟,离线,有人找我吗?
WENFEIZHU
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:67 积分:588 威望:0 精华:0 注册:2017/3/17 21:53:00
  发帖心情 Post By:2017/8/31 16:48:00 [只看该作者]

用了自定义登录后,系统的user.name就没用了,对吗?user.name永远是默认用户。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/31 17:25:00 [只看该作者]

以下是引用WENFEIZHU在2017/8/31 16:48:00的发言:
用了自定义登录后,系统的user.name就没用了,对吗?user.name永远是默认用户。

 

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


 回到顶部