新手从未学过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楼是补充一楼的图，这是我原先弄的。现在想通过登录器表单选项按钮组来区分用户权限，生成系统菜单根据权限不一样变成灰色。

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

确实是我说的乱了。。

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

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

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

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

弄灰也不会 表达式不知道怎么写T.T

例如你前面的例子：
ABC用户进去系统菜单的“维护”显示为灰色不可用
DEF用户进去“维护”就可以正常使用。

如何设置菜单为灰色？百度说是给一个全局变量啊或者set skip of 语句。。我不会用~

这不是我弄的  找的例子。现在还为使菜单变灰发愁呢

表单中有两个init事件该怎么写？

就是你给我的实例，我本身主界面表单init事件还有一个调用顶层菜单的事件