以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口权限设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12034)

--  作者:youyuweinihao
--  发布时间:2011/8/20 9:55:00
--  窗口权限设置


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20110820094431.png
图片点击可在新窗口打开查看
以下以上传的图片为例说明。

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

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


--  作者:blackzhu
--  发布时间:2011/8/20 10:32:00
--  
if user.Name=" ****" andaslo user.Name=" ****" then

执行代码
else
取消
end if


--  作者:youyuweinihao
--  发布时间:2011/8/20 21:25:00
--  

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


--  作者:狐狸爸爸
--  发布时间: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