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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口权限设置

共有12476人关注过本帖树形打印复制链接主题：窗口权限设置

youyuweinihao

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

加好友

发短信

等级：童狐帖子：219 积分：1890 威望：0 精华：0 注册：2011/6/10 9:12:00

窗口权限设置 发帖心情

Post By：2011/8/20 9:55:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20110820094431.png

以下以上传的图片为例说明。

我新建的导航窗口中，有个页面“系统设置”。如果以普通员工的身份登录就看不到这个页面，以老总的身份或管理软件的身份才可以看到和进行这个操作。还有页面“基础数据”里面有个任务为“校区管理”，这个任务普通员工登录能看到但不能操作。

这个怎么设置，代码怎么写

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/8/20 10:32:00 [只看该作者]

if user.Name=" ****" andaslo user.Name=" ****" then

执行代码

else

取消

end if

youyuweinihao

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

加好友

发短信

等级：童狐帖子：219 积分：1890 威望：0 精华：0 注册：2011/6/10 9:12:00

Post By：2011/8/20 21:25:00 [只看该作者]

我要的是您省略的“执行”代码的内容

狐狸爸爸

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

加好友

发短信

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

Post By：2011/8/20 21:44:00 [只看该作者]

在窗口的AfterLoad事件设置代码：

IF user.Goup = "XXX" Then

e.Controls("TabControl1").TabPages(1).Visible = False

End if

IF user.Goup = "XXX" Then

Forms("窗口1").Controls("TopicBar1").Pages(0).Links(0).Vsible = False

End if

命令只有Visible属性，没有Enabed属性，也就是只能设置命令是否可见，而不能设置是否可用。

但是你可以在命令的Click事件代码改为：

IF user.Goup = "XXX" Then

MessageBox.show("你无权执行")

else

'你原来的代码

End if

下一主题 >> << 上一主题

主题：窗口权限设置