我想做个三级权限表单管理菜单里面的东东，但不知道怎么做？那位大哥能给个例子学习一下谢谢了!

public qx
qd=yfdl.用户权限   这是登陆的时候表单里面的init代码。在确定里面代码是这个PUBLIC qx
qx=用户权限
public i
i=i+1
if alltrim(ThisForm.nametxt.value)==''
    messagebox("请输入用户名",0+64,"系统提示")
    thisform.nametxt.setfocus
    return
endif
if alltrim(ThisForm.wpdtxt.value)==''
     messagebox("请输入密码",0+64,"系统提示")
    thisform.wpdtxt.setfocus
    return
endif    
locate for alltrim(ThisForm.nametxt.value)==alltrim(yfdl.用户名)
if found()=.T.
    if alltrim(ThisForm.wpdtxt.value)==alltrim(yfdl.密码)
        release thisform
        messagebox("登录成功",0+48,"系统提示")
        if yfdl.用户权限="1"
            qx=1
        else
            qx=2
        endif
        do FORM 表单1
    else
        if i<3
            messagebox("密码不正确",0+16,"系统提示")
            thisform.wpdtxt.value=" "
            thisform.wpdtxt.setfocus
        else
            messagebox("非法用户，无权登录",0+48,"警告")
            thisform.release
        endif    
    endif
else
    if i<3
        messagebox("该用户不存在!",0+48,"系统提示")
        thisform.nametxt.value=" "
        thisform.nametxt.setfocus
    else
        messagebox("非法用户，无权登录",0+18,"警告")
        thisform.release
    endif    
endif
这样写有问题吗？能不能判断用户权限。我里面的其它表单应该怎么写呢？

菜单没有你说的那个skip for啊。我的想这样做，登陆的时候从user表里确认权限，再通过表单里面的init写的判断语句，不知道这样是不是可行，我试过好多次都不行。
IF bsadmin="系统管理员"
    this.enabled= .T.
    ELSE
    this.Enabled= .F.
    ENDIF
    这样判断有没有问题啊？

呵呵，我们都差不多，现在比较郁闷。找不到你说的那顶，我想用一个类改表单属性，但不知道怎么改了。

谢谢兄弟，我已经搞定，跟你的思想差不多，我在菜单里面加个判断语句，如果正确就do form调用表单，但是问题又出来了，提示权限不够时那个小框框上面写得有Visual FoxPro 能不能去掉他，不然人家会看出我是用VF编出来的。

谢谢各位啊，搞定了，我在菜单里面把需要权限的项目都加个判断就搞定了。呵呵，，，谢谢各位，