以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]我使用了CaseStudy目录下的文件:自定义用户管理.Table,然后又使用了可视化授权.Table,却不能使用?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46207)

--  作者:小刚
--  发布时间:2014/2/19 9:29:00
--  [求助]我使用了CaseStudy目录下的文件:自定义用户管理.Table,然后又使用了可视化授权.Table,却不能使用?

[求助]我使用了CaseStudy目录下的文件:自定义用户管理.Table,然后又使用了可视化授权.Table,却不能使用?

却发现 可视化授权设置的用户权限,不能实现管理功能?

求助是那里的问题。


--  作者:Bin
--  发布时间: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


--  作者:Bin
--  发布时间:2014/2/19 9:48:00
--  
Tables("授表").Visible = (User.Type <> UserTypeEnum.User )
If
 User.Type = UserTypeEnum.User Then


你这里判断的不还是User吗

--  作者:小刚
--  发布时间:2014/2/19 10:11:00
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自定义用户的可视化授权.rar

 

我把两个功能合成在一起了。

 

这里不用User,用Username吗?

没有搞明白。

请帮忙修改例子,谢谢!


--  作者:小刚
--  发布时间:2014/2/19 10:28:00
--  
我使用了狐表里面的两个例子:
自定义用户 和 可视化管理
把这两个功能结合在一起了
却起不到 可视化管理的 效果
请帮忙修改代码
谢谢!
--  作者:Bin
--  发布时间:2014/2/19 10:33:00
--  
帮助一定要慢慢看,慢慢理解. 不能永远都是盲目套用帮助的代码和别人的代码.  你不尝试去理解它,稍微需求变动一点点,你就傻眼了.

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自定义用户管理的可视化授权.table



--  作者:小刚
--  发布时间:2014/2/19 10:59:00
--  

首先谢谢教导,我清楚这个道理,会仔细学习的。

但我不懂老师又把我上传的例子,没有任何修改又传上来是什么意思?

我设置了授权,杨刚,不可见表B,登陆后,还是可见。

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140219135528.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/2/19 11:11:00
--  
你打开了错的文件吧
--  作者:小刚
--  发布时间:2014/2/19 11:20:00
--  

不好意思,是打开错了。谢谢老师。

我能够理解你的恼火,这么简单的问题,我还需要问。

可能是对这些代码接触不久的原因,不太敏感。

不好意思了。

再次谢谢!