以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口授权  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3282)

--  作者:lihe60
--  发布时间:2009/6/25 13:34:00
--  窗口授权
上次狐狸爸爸提供了可视化授权例子,很好用,狐友反响强烈,不过对窗口授权不可用,请问如何设置某个用户可以打开哪几个窗口?
--  作者:lihe60
--  发布时间:2009/6/25 13:39:00
--  
狐表功能强大,不怕做不到,就怕想不到.
--  作者:mr725
--  发布时间:2009/6/25 13:41:00
--  
afterload: 隐藏所有控件!或close算了~
--  作者:lihe60
--  发布时间:2009/6/25 13:48:00
--  
做成"菜单"后,用户A只能打开窗口C、窗口D,用户B只能打开窗口C、窗口D、窗口E,如何做成可视化授权的例子?不用代码对每个用户进行设置。
--  作者:mr725
--  发布时间:2009/6/25 13:59:00
--  
if 用户=A then
  打开窗口C
  打开窗口D
else
  关闭窗口C
  关闭窗口D
end if

--  作者:blackzhu
--  发布时间:2009/6/25 14:06:00
--  
以下是引用mr725在2009-6-25 13:59:00的发言:
if 用户=A then
  打开窗口C
  打开窗口D
else
  关闭窗口C
  关闭窗口D
end if

  就是这样的,窗口跟着表走的.


--  作者:lihe60
--  发布时间:2009/6/25 14:17:00
--  
如果用户有几十个,窗口也有几十个,这样授权会很复杂的
--  作者:qtcks
--  发布时间:2009/6/25 14:23:00
--  

用户分组.分组,分角色,这样交叉授权好弄些


--  作者:lihe60
--  发布时间:2009/6/25 14:32:00
--  
把软件交给客户以后,客户根据人员职责的变动进行不同的授权,因此不能用代码进行授权,必须用可视化界面进行授权。
--  作者:lihe60
--  发布时间:2009/6/25 14:46:00
--  
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )
        forms("" & dr("窗口名") & "").open()
   Next
End If


大家看看这个代码有什么问题?