Foxtable(狐表)用户栏目专家坐堂 → [求助]关于取消系统自带登陆,用自己的登陆界面和“用户”表


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

主题:[求助]关于取消系统自带登陆,用自己的登陆界面和“用户”表

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/15 0:13:00 [显示全部帖子]

1、取消系统自带的登陆。设置一个默认用户即可

 

http://www.foxtable.com/help/topics/1796.htm

 

2、有什么问题?你权限表的数据不生效?你控制可见、可编辑的代码怎么写?如果是帮助文档那里的,只需要把 User.Name,User.Group对应改成_UserName,_UserGroup 即可。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/15 10:20:00 [显示全部帖子]

加入msgbox看看弹出什么

 

msgbox(_UserGroup)

Dim roles() As String = _UserGroup.Split(",")

msgbox(_UserGroup)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/15 10:39:00 [显示全部帖子]

那你就这样写

 

If _UserGroup = "" Then

    '一种显示

Else

    '另一种显示

End If


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/15 10:52:00 [显示全部帖子]

这句代码,写在判断后面,如果_UserGroup没有值,就额外处理。

 

Dim roles() As String = _UserGroup.Split(",")


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/15 11:22:00 [显示全部帖子]

在登陆窗口那里,msgbox(dr("Post")),看看值是什么。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/15 11:56:00 [显示全部帖子]

你肯定在什么地方又给 _UserGroup 赋值为空值了。不然没理由为空值的。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/15 12:20:00 [显示全部帖子]

你不是在AfterOpenProject打开了登陆窗口吗?你登陆窗口,不是模式窗口吗?关闭登陆窗口以后,才会执行后面的代码啊

 

Forms("login").Show()


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/15 12:20:00 [显示全部帖子]

 或者是,你把代码拷贝到登陆窗口的确定按钮里去,也行

 回到顶部