主题：窗口授权

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

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

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

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

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

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

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

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

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

If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        forms("" & dr("窗口名") & "").open()
   Next
End If

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