- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]我使用了CaseStudy目录下的文件：自定义用户管理.Table，然后又使用了可视化授权.Table，却不能使用？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46207)
-- 发布时间：2014/2/19 9:29:00
-- [求助]我使用了CaseStudy目录下的文件：自定义用户管理.Table，然后又使用了可视化授权.Table，却不能使用？
[求助]我使用了CaseStudy目录下的文件：自定义用户管理.Table，然后又使用了可视化授权.Table，却不能使用？
却发现 可视化授权设置的用户权限，不能实现管理功能？
求助是那里的问题。
-- 发布时间：2014/2/19 9:31:00
--
可视化授权默认用的是 User.Name 判断 自定义用户管理用的是全局变量_Username 你看东西不仔细,只是盲目套用,当然是不可以的.
-- 发布时间：2014/2/19 9:48: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("用户名 = \'" & _UserName & "\'" ) \'User.Name 修改为 _UserName 了，还是不行的。
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
-- 发布时间：2014/2/19 9:48:00
--
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
-- 发布时间：2014/2/19 10:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自定义用户的可视化授权.rar |
我把两个功能合成在一起了。
这里不用User，用Username吗？
没有搞明白。
请帮忙修改例子，谢谢！
-- 发布时间：2014/2/19 10:28:00
--
我使用了狐表里面的两个例子：
自定义用户 和 可视化管理
把这两个功能结合在一起了
却起不到 可视化管理的 效果
请帮忙修改代码
谢谢！
-- 发布时间：2014/2/19 10:33:00
--
帮助一定要慢慢看,慢慢理解. 不能永远都是盲目套用帮助的代码和别人的代码. 你不尝试去理解它,稍微需求变动一点点,你就傻眼了.
-- 发布时间：2014/2/19 10:59:00
--
首先谢谢教导，我清楚这个道理，会仔细学习的。
但我不懂老师又把我上传的例子，没有任何修改又传上来是什么意思？
我设置了授权，杨刚，不可见表B，登陆后，还是可见。
此主题相关图片如下：qq图片20140219135528.jpg
-- 发布时间：2014/2/19 11:11:00
--
你打开了错的文件吧
-- 发布时间：2014/2/19 11:20:00
--
不好意思，是打开错了。谢谢老师。
我能够理解你的恼火，这么简单的问题，我还需要问。
可能是对这些代码接触不久的原因，不太敏感。
不好意思了。
再次谢谢！