怎样写权限设置，通过用户权限控制菜单？？？

通过登录用户，控制整个的菜单明、暗。请写一例子。

解决方案 »

  1.   

    建一张权限的表rights，字段1为用户编号（integer），字段2开始为各功能名称，类型为boolean型，每次用户登陆时通过用户编号去对应rights表，去读取各功能的值，并赋给菜单的enabled属性，就可以控制了。
    给分吧：）
      

  2.   

    菜单里有一个属性enabled,控制它就OK了。
    if xx = true then
      submenu1.enabled := true
    else
      submenu1.enabled := false;就是这样写，OK。
      

  3.   

    简单的办法就是 DelphiLover2002(么么茶) 的，也是最直观的，还可以有许多方法，比如为每一个菜单项建立标识，然后存到某表的一个字段里，然后可以看此用户是否具有此标识，如果有，则有权限，否则，没有权限，可以使用函数pos(菜单标识，权限列表）>0则有权限。
    控制菜单可以进行enabled赋值，如果进行visible赋值如果没有权限则将看不见
      

  4.   

    有几种方法
    1、建立一个权限数组，分别对应你的每个菜单
    用户注册的时候，提供权限选择栏，供用户选择
    选中的，对应数值里的值就为1  然后在Form create事件里根据数组里的值来决定form.enable的boolean值2、如果用户只是分三种或以下权限的
    直接在注册用户的时候赋一个变量来决定就可以了。
      

  5.   

    我也做过这个东西方法和 DelphiLover2002(么么茶) 是一样的，很简单！
      

  6.   

    权限设置和角色分配至少要三张表：用户信息，菜单功能信息，角色信息
    然后控制Enable或visible根据角色分配菜单功能！