掉不出菜单
小弟初习VFP做了一个系统,登陆“确定”后掉不出表单,表单里面写了do e:\人事\人事管理系统\功能菜单.mpr with this, .t.并设置了作为主文件和顶层菜单,但是一运行就说找不到菜单,我单独运行菜单就可以运行。确定的代码是:public qxi=i+1
if alltrim(ThisForm.nametxt.value)==''
messagebox("请输入用户名",0+64,"系统提示")
thisform.nnaemtxt.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 功能菜单.mpr
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
那位大哥能帮我改改告诉我哪里出错了。