新手从未学过vfp，现在临时自个看书需要弄个简单的管理系统。
之前弄成这样：[local]1[/local]

登录器代码：
private kl,yh,st
st="密码不正确，请重新输入!"
use user
kl=alltrim(thisform.text1.value)
yh=alltrim()
*将用户输入的用户名和密码的值分别保存在yh和kl变量中
locate for alltrim()==alltrim(user.用户名)
*在 user 表中查找是否有与yh和kl匹配的记录
if found()and alltrim(user.密码)==kl
*正确的用户名和密码
    thisform.visible=.f.
    close tables all
    do form 主界面1.scx
    if yh=='admin'
    *如果是超级用户管理员，则允许他使用 主界面1 表单中的第三组按钮（即修改模块）
    主界面1.optiongroup1.option3.enabled=.t.
    endif
else
*错误的用户名和密码，系统给出提示，延迟2秒
wait window st timeout 2
thisform.text1.setfocus
endif


现在老师要求要在登录器表单上使用选项按钮组来区分用户，然后订成表单通过设置菜单变灰，求助~

你好！我2楼是补充一楼的图，这是我原先弄的。现在想通过登录器表单选项按钮组来区分用户权限，生成系统菜单根据权限不一样变成灰色。

谢谢你的回复！但是你的回答是我之前弄的，可能你没看清楚我的问题

设置一个用户：登录表
结构
用户名 C(10)
密码   C(10)
权限   N(1)

数据显示
用户名　密码　权限
ABC     1234     1
DEF     4321     2

*---------------------------
登录表单确定按钮 CLICK 事件代码

private kl,yh,st
st="密码不正确，请重新输入!"
use user
kl=alltrim(thisform.text1.value)
yh=alltrim()
*将用户输入的用户名和密码的值分别保存在yh和kl变量中
locate for alltrim(用户名)==yh and alltrim(密码)==kl
*在 user 表中查找是否有与yh和kl匹配的记录
if found()
*正确的用户名和密码
    thisform.visible=.f.
    do form 主界面1.scx with 权限
    if yh=='admin'
    *如果是超级用户管理员，则允许他使用 主界面1 表单中的第三组按钮（即修改模块）
    主界面1.optiongroup1.option3.enabled=.t.
    endif
else
*错误的用户名和密码，系统给出提示，延迟2秒
wait window st timeout 2
thisform.text1.setfocus
endif
*-------------------------------------------
主界面1表单的 INIT 事件代码
PARAMETERS N
IF N=2 &&超级用户
    THISFORM.OPTIONGROUP1.OPTION3.ENABLED=.T.
ENDIF
THISFORM.REFRESH

是你没说明白吧   每个系统都可以配置N个用户  而这N个用户的权限也许是不一致的  采用某种方案将其权限分离开来 这没神马啊

确实是我说的乱了。。

如下图，我就是想要这种登陆效果。
登录时选择学生或者教师登录就能获得不同的系统权限。

如果是学生登录那么在菜单栏上“录入成绩”这一个菜单就是灰色，不可用。

如果是教师登录那么在菜单栏上“录入成绩”这一个菜单可以用。大概这种效果~

大神，谢谢您的回复。您说的我明白一些，但我具体需要的大概是我7楼回复的那种效果，您给看看？

就是把菜单弄灰不会吗  我觉得其他也没啥 啊

我好久不弄 都忘记了  

根据某些条件 把主菜单某些项或者子菜单某些项弄灰是很容易的一件事情