Foxtable(狐表)用户栏目专家坐堂 → [求助][求助]定义登录一 制作了登录窗口怎么改可视化授权


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

主题:[求助][求助]定义登录一 制作了登录窗口怎么改可视化授权

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


加好友 发短信
等级:幼狐 帖子:124 积分:1142 威望:0 精华:0 注册:2019/12/27 20:56:00
[求助][求助]定义登录一 制作了登录窗口怎么改可视化授权  发帖心情 Post By:2021/6/14 13:33:00 [只看该作者]

我用帮助里的自定义登录一 制作了登录窗口

那么原来的可视化授权设置代码要怎么改 放在哪个事件里

 

 

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

 

[此贴子已经被作者于2021/6/14 16:04:21编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/14 21:29:00 [只看该作者]

放到登录窗口的确定按钮完成验证之后,关闭登录窗口之前

 回到顶部