标题：窗口授权

1楼

lihe60 发表于：2009/6/25 13:34:00

上次狐狸爸爸提供了可视化授权例子,很好用,狐友反响强烈,不过对窗口授权不可用,请问如何设置某个用户可以打开哪几个窗口?

2楼

lihe60 发表于：2009/6/25 13:39:00

狐表功能强大,不怕做不到,就怕想不到.

3楼

mr725 发表于：2009/6/25 13:41:00

afterload: 隐藏所有控件！或close算了～

4楼

lihe60 发表于：2009/6/25 13:48:00

做成"菜单"后,用户A只能打开窗口C、窗口D，用户B只能打开窗口C、窗口D、窗口E，如何做成可视化授权的例子？不用代码对每个用户进行设置。

5楼

mr725 发表于：2009/6/25 13:59:00

if 用户＝A then
打开窗口C
打开窗口D
else
关闭窗口C
关闭窗口D
end if

6楼

blackzhu 发表于：2009/6/25 14:06:00

以下是引用mr725在2009-6-25 13:59:00的发言：
if 用户＝A then
打开窗口C
打开窗口D
else
关闭窗口C
关闭窗口D
end if

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

7楼

lihe60 发表于：2009/6/25 14:17:00

如果用户有几十个，窗口也有几十个，这样授权会很复杂的

8楼

qtcks 发表于：2009/6/25 14:23:00

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

9楼

lihe60 发表于：2009/6/25 14:32:00

把软件交给客户以后，客户根据人员职责的变动进行不同的授权，因此不能用代码进行授权，必须用可视化界面进行授权。

10楼

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

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

共11 条记录, 每页显示 10 条, 页签: [1] [2]