[求助] 可视化授权的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我的项目是采用外部用户表作为登录用户表；现在我希望实现：1、通过授权表根据用户名、表名、列名的随意组合来控制某用户的不可见或者不可编辑权限；2、通过授权表根据分组名、表名、列名的随意组合来控制某用户的不可见或者不可编辑权限。在项目属性LoadUserSetting事件中该如何设置命令

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

我看了，我用的是外部数据表做登录用户表；以下命令不太理解该怎么处理

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then

那我的项目那样设置公式应该没有什么问题啦。怎么就是没有看到效果呢？

这样啊？我试一下看看

我的登录用户管理是使用外部数据表进行管理的；我在登录窗口的登录按钮中写入以下命令；在授权表中录有3条内容。但是当我登录项目时出现以下问题：1、授权表不见了；2、授权表中所录入的内容也不生效啦。是不是我命令哪里错误？造成授权表看不到同时也就造成授权表中录入的内容也就不起效啦？

此主题相关图片如下：360截图20140705195439406.jpg

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

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

For Each dl As DataRow In DataTables("授权表").Select("Name = '" & _UserName & "'" )

If dl.IsNull("列名") Then

Tables(dl("表名")).Visible = Not dl("不可见")

Tables(dl("表名")).AllowEdit = Not dl("不可编辑")

Else

Tables(dl("表名")).Cols(dl("列名")).Visible = Not dl("不可见")

Tables(dl("表名")).Cols(dl("列名")).AllowEdit = Not dl("不可编辑")

End If

End If '到此为止以上内容为读取"授权表"确认哪些用户不可以编辑或者不可以看到哪些列

此主题相关图片如下：360截图20140705195627843.jpg

授权表是能够看到了；但是内容还是没有生效。

此主题相关图片如下：360截图20140706140757953.jpg

此主题相关图片如下：360截图20140706140923765.jpg

此主题相关图片如下：360截图20140706140948984.jpg

[此贴子已经被作者于2014-7-6 14:14:44编辑过]

主题：[求助] 可视化授权的问题