编程论坛 » VFP论坛 » 掉不出菜单

zhaocqdx 发表于 2007-12-8 11:39

掉不出菜单

小弟初习VFP做了一个系统，登陆“确定”后掉不出表单，表单里面写了do e:\人事\人事管理系统\功能菜单.mpr with this, .t.并设置了作为主文件和顶层菜单，但是一运行就说找不到菜单，我单独运行菜单就可以运行。确定的代码是：public qx
i=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
那位大哥能帮我改改告诉我哪里出错了。

zhaocqdx 发表于 2007-12-8 13:04

一打上DO 菜单1.mpr with this,.t.这几个就提示找不到菜单1.mpr是哪里没有设置好，请高手指点

hu9jj 发表于 2007-12-8 13:59

是不是菜单没有生成？在VFP中利用菜单编辑器编辑菜单时，要注意在保存的时还要在主菜单的“菜单”中选择“生成”菜单文件，菜单才能被调用。

小路加油! 发表于 2007-12-8 14:52

帮顶呀

zhaocqdx 发表于 2007-12-8 14:57

我试过了啊。有生成啊。我刚以为是详细路径没对，就加E:\详细路径还是不行，是不是空白表单设置没对啊，教教我最后关头了!菜单搞定基本上就可以了

baichuan 发表于 2007-12-11 08:15

我也曾经做过这样的东东，感觉思路如下:
1、登陆菜单初始化加入 read  event
2\为什么要菜单1?不是功能菜单么?

zhaocqdx 发表于 2007-12-13 20:20

谢谢版主，这个问题我已经搞定了，是没有设置相对路径，谢谢!

锦屏信使 发表于 2007-12-13 22:29

你试一下这样写：do "e:\人事\人事管理系统\"+"功能菜单.mpr" with this, .t.

查看完整版本: 掉不出菜单