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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可视化授权的例子

共有33664人关注过本帖树形打印复制链接主题：可视化授权的例子

狐狸爸爸

小大 31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/6/12 8:31:00 [只看该作者]

有空再写一个。

wcs

小大 32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1034 积分：7408 威望：0 精华：0 注册：2008/8/31 22:52:00

Post By：2009/6/12 8:32:00 [只看该作者]

我一直都有用一个授权表来设置权限的想法

只是思路不太清楚，不好动手！

现在好啦!

lihe60

小大 33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6849 积分：43345 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2009/6/12 9:00:00 [只看该作者]

32楼,你的成果让大家分享一下吧.

实话实说

小大 34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2009/6/12 17:09:00 [只看该作者]

以下是引用狐狸爸爸在2009-6-12 8:31:00的发言：
有空再写一个。

我急等

实话实说

小大 35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2009/6/14 8:46:00 [只看该作者]

狐爸来了,我在等你代码呢

狐狸爸爸

小大 36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/6/14 9:07:00 [只看该作者]

呵呵，其实是完全一样的代码，为何就不肯自己尝试一下？
例如下面的例子，我用*号表示对所有用户有效，不管谁登陆，表D的第一列和第八列都会隐藏的：

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

[此贴子已经被作者于2009-6-14 9:08:14编辑过]

yangming

小大 37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/6/14 9:22:00 [只看该作者]

我是又加了一个这段代码,呵呵,就是没想到用OR
For Each dr1 As DataRow In DataTables("授权表").Select("用户名 = '*'" )
        If dr1.IsNull("列名") Then
            Tables(dr1("表名")).Visible = Not dr1("不可见")
            Tables(dr1("表名")).AllowEdit = Not dr1("不可编辑")
        Else
            Tables(dr1("表名")).Cols(dr1("列名")).Visible = Not dr1("不可见")
            Tables(dr1("表名")).Cols(dr1("列名")).AllowEdit = Not dr1("不可编辑")
        End If
    Next