菜单权限分配

Question

近日想学学如何开发菜单权限分配自己看了《菜单权限分配源码奉送V2.0》,
不太理解，哪位有这方面的例子请发个给我参考学习，万分感谢。
E-mail：[email protected]

Answer 1

也给我一个，谢谢
[email protected]

Answer 2

可以通过菜单和action事件连接 然后action的tag属根据设置为唯一的植  在根据tag植的不同决定菜单的enable属性

Answer 3

算我一个,也给俺一份吧
[email protected]

Answer 4

方法1：设置mainmenu的tag属性为:1,2,3,4,5.
       然后根据用户的级别设置菜单的visable属性
//例子如下：
for i := 0 to MainMenu1.Items.Count -1 do
begin
  if UserLevel < MainMenu1.Items[i].Tag then
    MainMenu1.Items[i].Visible := False
  else
    MainMenu1.Items[i].Visible := True;
for j := 0 to MainMenu1.Items[i].Count -1 do 
  if UserLevel < MainMenu1.Items[i].Items[j].Tag then
    MainMenu1.Items[i].Items[j].Visible := False
  else 
    MainMenu1.Items[i].Items[j].Visible := True;
end;

Answer 5

将所有菜单的内容写入到一个表中,在另外的一个表中把每个人(或部门)生成记录,哪个菜单项可用可不用做说明.
然后用游标(忘了)的方式层层判断:如果可用就visible:=true else visible:=false;
或者:enabled:=true else enable:=false;不明白的话给我发短消息!!!!111