窗口AfterLoad代码：

DataTables("授权").AllowEdit = False  \'窗口加载表后默认不可编辑,需点击编辑或新增后方可编辑修改

If User.Type <> UserTypeEnum.User Then \' 如果是开发者或者管理员

    e.Form.Controls("Button1").Enabled = True

    e.Form.Controls("Button2").Enabled = True

    e.Form.Controls("Button3").Enabled = True

    e.Form.Controls("Button4").Enabled = True

    e.Form.Controls("Button5").Enabled = True

    e.Form.Controls("Button6").Enabled = True

    e.Form.Controls("Button7").Enabled = True

    e.Form.Controls("Button8").Enabled = True

    e.Form.Controls("Button9").Enabled = True

    e.Form.Controls("Button10").Enabled = True

    e.Form.Controls("Button01").Enabled = True

    e.Form.Controls("Button02").Enabled = True

    e.Form.Controls("Button03").Enabled = True

    e.Form.Controls("Button04").Enabled = True

    e.Form.Controls("Button11").Enabled = True

    e.Form.Controls("Button12").Enabled = True

\'则具备所有权限

Else

    e.Form.Controls("Button1").Enabled = False

    e.Form.Controls("Button2").Enabled = False

    e.Form.Controls("Button3").Enabled = False

    e.Form.Controls("Button4").Enabled = False

    e.Form.Controls("Button5").Enabled = False

    e.Form.Controls("Button6").Enabled = False

    e.Form.Controls("Button7").Enabled = False

    e.Form.Controls("Button8").Enabled = False

    e.Form.Controls("Button9").Enabled = False

    e.Form.Controls("Button10").Enabled = False

    e.Form.Controls("Button01").Enabled = False

    e.Form.Controls("Button02").Enabled = False

    e.Form.Controls("Button03").Enabled = False

    e.Form.Controls("Button04").Enabled = False

    e.Form.Controls("Button11").Enabled = False

    e.Form.Controls("Button12").Enabled = False

End If 

\'上面是可以操作的权限的用户

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")

trv1.BuildTree("授权","分组|权限")

For Each u As UserInfo In Users

    If u.Type = UserTypeEnum.User Then

        If trv2.Nodes.Contains(u.Group) = False Then

            trv2.Nodes.Add(u.Group)

        End If

        trv2.Nodes(u.Group).Nodes.Add(u.Name)

    End If

Next

Trv1.Nodes(0).Expand()

trv2.ExpandAll()