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

根据用户的级别，做一个动态菜单，不就能解决你的问题了吗？话简单，实现起来烦琐。

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，可以判断登录时获得的具有权限标识的条件
比如菜单中有个“系统设置”项，设skip for为qx!="admin"
普通用户，就用不了这个灰色的菜单了

当然，还要有个全局变量来帮忙

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

菜单生成器里，没有skip for？不解。。。。。。

我这6.0中文版的VFP，菜单设计器里是
菜单名称，结果，子菜单：创建（命令：输入命令行），最后都有个选项
点选项，就是提示选项，6.0中“跳过”
7.0以后，叫skip for
这样多简单啊
。。。。。。老兄肯定也是受了以前学的过程化的语言的影响
我也感同身受。。。
我也是10年前学的Foxbase，上个月因为工作中遇了问题，才抓起来一本VFP6.0的书开始学的，感觉很多问题，第一时间总会想到老命令和老方法，那些所谓的向后兼容性命令。。。
不怕你笑啊，前几天，做表单，还用过@ 10,20 say "ＸＸＸ"这种语句在表单上显示提示信息呢。。。。。

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

我今天正在照着书做个实例，这个方法，你看可行不
用main.prg初始化并加载登录表单，其中包含语句声明全局账号标识变量bsAdmin，并赋空值
登录表单，加载数据环境为user.dbf
user.dbf内容
账号，密码，级别
admin,admin888,管理员
user,user,普通用户
user1,123,普通用户
登录click事件代码主要内容
============================
set exact on
thisform.i=thisform.i+1   &&这句是今天新学到的，用于标识试图登录的次数
select user               &&当然是打开数据环境对应的账号信息表
locate for alltrim(账号)=alltrim(thisform.txt账号.value)
if found() and alltrim(密码)=alltrim(thisform.txt密码.value)       &&说明找到了用户名，并且密码与名对应
  if 级别="管理员"
      bsadmin="sysadmin"
  else
      bsadmin=""      &&仍然等到空，可以根据此扩充为二级权限管理员，三级权限。。
  endif
  do form 主表单
  thisform.release
else
  if thisform.i<3　　　&&试图登录三次以内
    重输账号、密码
  else
    三次都错，clear events，quit
  endif
endif
set exact off
=========================================
主菜单都是执行一些具体功能的子表单，不想让普通用户组使用的命令，就用skip for屏蔽　就是我上面说的那种
有些子表单，普通用户也可以用，但上面有些按钮，只能管理员才能用的，就在子表单的init中判断
将不能让普通用户点的，enabled=.f.或直接visible=.f.
就这些。。。。

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