Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限


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

主题：权限
帅哥，在线噢！
有点蓝
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

放到用户登录窗口的确定按钮，验证登录之后

……
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
权限控制代码放这里
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2021/6/30 10:58:00 [只看该作者]

For Each dr55 As DataRow In DataTables("表权限").sqlSelect("','+角色用户+',' like '%," & _userGroup & ",%' " )

  If dr55.Isnull("表名") AndAlso dr55.Isnull("列名") Then
            For Each t As Table In Tables
                t.Visible = Not dr55("权限表不可见")
                t.AllowEdit = Not dr55("权限表不可编缉")
            Next
        Else If dr55.isnull("列名") Then
            Tables(dr55("表名")).Visible = Not dr55("权限表不可见")
            For Each c As Col In Tables(dr55("表名")).Cols
                c.Visible = Not dr55("权限表不可见")
                c.AllowEdit = Not dr55("权限表不可编缉")
            Next
        Else
            Tables(dr55("表名")).Visible = Not dr55("权限表不可见")
            For Each c As Col In Tables(dr55("表名")).Cols
                If dr55("列名") = c.name OrElse dr55("列名") Like c.name & ",*" OrElse dr55("列名") Like "*," & c.name & ",*" OrElse dr55("列名") Like "*," & c.name Then
                    c.Visible = Not dr55("权限表不可见")
                    c.AllowEdit = Not dr55("权限表不可编缉")
                End If
            Next
        End If
    Next




图片点击可在新窗口打开查看此主题相关图片如下：qq浏览器截图20210630105510.png
图片点击可在新窗口打开查看



不可见列名里有内容，表什么不可见了，不是应该是列不可见吗
 回到顶部
帅哥，在线噢！
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

去掉下面判断和代码

If dr55.Isnull("表名") AndAlso dr55.Isnull("列名") Then
            For Each t As Table In Tables
                t.Visible = Not dr55("权限表不可见")
                t.AllowEdit = Not dr55("权限表不可编缉")
            Next
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2021/6/30 11:15:00 [只看该作者]

还是一样
 回到顶部
帅哥，在线噢！
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2021/6/30 11:21:00 [只看该作者]

必须要加两行，一行不可见，一行可见才行

 回到顶部
总数 26 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询