Foxtable(狐表)用户栏目专家坐堂 → 可视化授权中直接登录自己设计的用户登录窗口


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

主题:可视化授权中直接登录自己设计的用户登录窗口

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


加好友 发短信
等级:婴狐 帖子:5 积分:147 威望:0 精华:0 注册:2015/11/19 14:32:00
可视化授权中直接登录自己设计的用户登录窗口  发帖心情 Post By:2015/12/18 1:08:00 [显示全部帖子]

可视化授权中能否直接登录自己设计的登录窗口,跳过系统自身用户登录窗口呢?现在需要登录两次,一次是系统的,一次是自己的窗口。


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


加好友 发短信
等级:婴狐 帖子:5 积分:147 威望:0 精华:0 注册:2015/11/19 14:32:00
内置用户登录能跳过,可视化授权不起作用  发帖心情 Post By:2015/12/18 8:38:00 [显示全部帖子]

内置用户登录已经能跳过了,但是可视化授权不起作用呀。

代码:

然后项目事件LoadUserSetting中,加入如下代码:

 

For Each t As Table In Tables
    t.Visible =
True
    t.AllowEdit =
true
    For Each c As Col In t.Cols
        c.Visible =
True
        c.AllowEdit =
True
    Next

Next
Tables
("表").Visible = (User.Type <> UserTypeEnum.User )
If
User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("表").Select("用户名 = '" & User.Name & "'" )
        If
dr.IsNull("列名")
Then
       
    Tables(dr("表名")).Visible = Not dr("不见")
            Tables
(dr("表名")).AllowEdit = Not dr("不编辑")

        Else
           
Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不见")
            Tables
(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不编辑")
        End
If
    Next
End
If

 

将user.name改为_username,也不起作用,为啥呀


 回到顶部