标题：窗口权限设置

此主题相关图片如下：qq截图20110820094431.png

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

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

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

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

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

在窗口的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