标题:掉不出菜单
只看楼主
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
 问题点数:0 回复次数:7 
掉不出菜单
小弟初习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
那位大哥能帮我改改告诉我哪里出错了。
搜索更多相关主题的帖子: 菜单 系统 value 表单 
2007-12-08 11:39
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
得分:0 
一打上DO 菜单1.mpr with this,.t.这几个就提示找不到菜单1.mpr是哪里没有设置好,请高手指点
2007-12-08 13:04
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:0 
是不是菜单没有生成?在VFP中利用菜单编辑器编辑菜单时,要注意在保存的时还要在主菜单的“菜单”中选择“生成”菜单文件,菜单才能被调用。

活到老,学到老! http://www. E-mail:hu-jj@
2007-12-08 13:59
小路加油!
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-12-7
得分:0 
帮顶呀
2007-12-08 14:52
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
得分:0 
我试过了啊。有生成啊。我刚以为是详细路径没对,就加E:\详细路径还是不行,是不是空白表单设置没对啊,教教我最后关头了!菜单搞定基本上就可以了
2007-12-08 14:57
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
得分:0 
我也曾经做过这样的东东,感觉思路如下:
1、登陆菜单初始化加入 read  event
2\为什么要菜单1?不是功能菜单么?

2007-12-11 08:15
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
得分:0 
谢谢版主,这个问题我已经搞定了,是没有设置相对路径,谢谢!
2007-12-13 20:20
锦屏信使
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-3-22
得分:0 
你试一下这样写:do "e:\人事\人事管理系统\"+"功能菜单.mpr" with this, .t.
2007-12-13 22:29



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-191130-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.907714 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved