如何在登录器用选项按钮组区分用户权限来设置菜单跳过信息?
新手从未学过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
现在老师要求要在登录器表单上使用选项按钮组来区分用户,然后订成表单通过设置菜单变灰,求助~