请问……

enuname.Enable=False 
dbcontrols(泰山)：真够快的

解决方案 »

  1.   

    设计几个权限级别
    再通过Select case 来完成权限设制。能够对您有所帮助是我最大的快乐！！
      

  2.   

    谢谢！！
    可是我还是不明白。能说得再清楚一点吗？to：dbcontrols(泰山)
    你说的menuname.Enable=False在哪用呢？
      

  3.   

    if he<>admin then
         menuname.Enable=False
    endif
      

  4.   

    form1.load()
    if 系统管理员 then
     menuname.enable=true
    else
     menuname.enabled=false
    end if
    end sub
      

  5.   

    将这段程序加载到你的登陆窗体中---假设form1为登陆窗体,菜单在form2中
    form1_load()
    if 登陆名="系统管理员" and 密码="pass1" then
    load form2
    form2.show
    form2.menuname.enable=true
    else
    if 登陆名="用户" and 密码="pass2" then
    load form2
    form2.show
    form2.menuname.enabled=false
    else
    msgbox"非法用户,请离开!"
    end if
    end if
    end sub