回 帖 发 新 帖 刷新版面

主题:学生管理系统不能运行

本人编的学生管理系统不能运行:1)打开项目管理器2时,单击其他\菜单\菜单时提示:该菜单只能从顶层调用,确保表单showwidow属性设置为2.请问这里要怎样修改? 2)点击代码\主程序\主文件时不能运行程序。

本人vf9安装路径:C:\Program Files\VFP9\vfp9.exe
文件存放位置:c:\documents and settings\administrator\桌面\教材用例数据表
求高手指教!

回复列表 (共4个回复)

沙发

我看你提了几次没人回复,我测试了一下,如下操作不知能不能解决你的问题
1、启动VFP9
进入VFP的命令界面
2、键入:
set defa to '准确的路径。。。\教材用例数据表'
modi proj
DO 准确的路径。。。\教材用例数据表\主文件.prg
就进入那个'学生信息管理系统'界面啦

板凳

在:界面.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 楼

那要在登录界面那里加什么参数?

4 楼

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 不要将表单退出
针对第一个文件就解决

我来回复

您尚未登录,请登录后再回复。点此登录或注册