主题:学生管理系统不能运行
充满烦恼的青年
[专家分:0] 发布于 2012-07-03 21:57:00
本人编的学生管理系统不能运行:1)打开项目管理器2时,单击其他\菜单\菜单时提示:该菜单只能从顶层调用,确保表单showwidow属性设置为2.请问这里要怎样修改? 2)点击代码\主程序\主文件时不能运行程序。
本人vf9安装路径:C:\Program Files\VFP9\vfp9.exe
文件存放位置:c:\documents and settings\administrator\桌面\教材用例数据表
求高手指教!
回复列表 (共4个回复)
沙发
alpen [专家分:1140] 发布于 2012-07-06 13:23:00
我看你提了几次没人回复,我测试了一下,如下操作不知能不能解决你的问题
1、启动VFP9
进入VFP的命令界面
2、键入:
set defa to '准确的路径。。。\教材用例数据表'
modi proj
DO 准确的路径。。。\教材用例数据表\主文件.prg
就进入那个'学生信息管理系统'界面啦
板凳
alpen [专家分:1140] 发布于 2012-07-06 16:03:00
在:界面.scx表单中
MODIFY FORM 界面.scx
登陆命令中,语句:
DO 菜单.mpr
后面没有参数。
而:菜单.mpr
MODIFY COMMAND 菜单.mpr
里面有提示,要求要用到三个参数
* call it from the Init event of the form:
* Syntax: DO <mprname> WITH <oFormRef> [,<cMenuname>|<lRename>][<lUniquePopups>]
* oFormRef - form object reference (THIS)
* cMenuname - name for menu (this is required for Append menus - see below)
* lRename - renames Name property of your form
* lUniquePopups - determines whether to generate unique ids for popup names
所以
根据代码的判断,就永远执行:出错提示啦。
3 楼
充满烦恼的青年 [专家分:0] 发布于 2012-07-07 14:02:00
那要在登录界面那里加什么参数?
4 楼
alpen [专家分:1140] 发布于 2012-07-14 08:09:00
Lname=ALLTRIM(thisform.text1.Value)
pwd=ALLTRIM(thisform.text2.Value)
USE 管理员表
LOCATE FOR ALLTRIM(用户名)=Lname
IF FOUND() .and. ALLTRIM(密码)==pwd
use
*!* thisform.Release
MESSAGEBOX("登陆成功!",0,"确认")
*!* DO 菜单.mpr WITH this,.T.
ELSE
MESSAGEBOX("用户名和密码错误,请重新输入!",0,"错误")
thisform.text2.Value=""
USE
endif
上面的事件语句中
关键:1、DO 菜单.mpr WITH this,.T.
放在 事件 INIT 中
2、thisform.Release 不要将表单退出
针对第一个文件就解决
我来回复