以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于实例授权表的求助(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73861)

--  作者：jiterp --  发布时间：2015/8/27 22:50:00 --  关于实例授权表的求助(已解决) 系统自带的实例:授权表,现有方式是以[表名称]与[列名称]来做权限控制的,可否改成以[表标题]与[列标题]来做权限可视化操作. 需要调整哪几处代码?  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:可视化授权.foxdb [此贴子已经被作者于2015/9/6 16:46:08编辑过]

--  作者：大红袍 --  发布时间：2015/8/27 22:57: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     Return End If For Each dr As DataRow In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )     If dr.IsNull("列名") Then         For Each t As Table In Tables             If t.DataTable.Name = dr("表名") OrElse t.DataTable.Caption = dr("表名") Then                 t.Visible = Not dr("不可见")                 t.AllowEdit = Not dr("不可编辑")             End If         Next     Else         For Each t As Table In Tables             If t.DataTable.Name = dr("表名") OrElse t.DataTable.Caption = dr("表名") Then                 For Each c As Col In t.Cols                     If c.Caption = dr("列名") OrElse c.Name = dr("列名") Then                         c.Visible = Not dr("不可见")                         c.AllowEdit = Not dr("不可编辑")                     End If                 Next             End If         Next     End If Next

--  作者：jiterp --  发布时间：2015/8/28 6:34:00 --   谢谢