窗口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()
加好友 
发短信
Post By：2014/9/23 21:04:00 [显示全部帖子]
此主题相关图片如下：1.bmp
