小弟最近在编写一个名为学生信息管理系统的程序,到了最后的收关阶段却出现了问题,让我头疼请各位大哥大姐们帮帮小弟,度过难关,先在这里感谢了!
问题是这样的,我最后在用主程序连编成可执行文件时,提示菜单程序代码中“找不到parameter语句”,改如何解决?
这是 学生信息管理系统.mpr的代码:
DEFINE PAD _21m0sy4v7 OF _MSYSMENU PROMPT "系统登陆" COLOR SCHEME 3
DEFINE PAD _21m0sy4v8 OF _MSYSMENU PROMPT "学生信息输入" COLOR SCHEME 3 ;
KEY CTRL+S, "CTRL+S"
DEFINE PAD _21m0sy4v9 OF _MSYSMENU PROMPT "学生信息修改" COLOR SCHEME 3
DEFINE PAD _21m0sy4va OF _MSYSMENU PROMPT "学生信息查询" COLOR SCHEME 3
DEFINE PAD _21m0sy4vb OF _MSYSMENU PROMPT "打印" COLOR SCHEME 3
DEFINE PAD _21m0sy4vc OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _21m0sy4v7 OF _MSYSMENU ACTIVATE POPUP 系统登陆
ON PAD _21m0sy4v8 OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON PAD _21m0sy4v9 OF _MSYSMENU ACTIVATE POPUP _21l0w8jol
ON SELECTION PAD _21m0sy4va OF _MSYSMENU do form E:\Vfp98\表单\查询结果
ON PAD _21m0sy4vb OF _MSYSMENU ACTIVATE POPUP _21l0wcmvm
ON PAD _21m0sy4vc OF _MSYSMENU ACTIVATE POPUP _21l0wftfr
DEFINE POPUP 系统登陆 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统登陆 PROMPT "登陆"
DEFINE BAR 2 OF 系统登陆 PROMPT "\-"
DEFINE BAR 3 OF 系统登陆 PROMPT "退出"
ON SELECTION BAR 1 OF 系统登陆 do form E:\vfp98\表单\系统登陆
ON SELECTION BAR 3 OF 系统登陆 quit
DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "学生基本信息输入"
DEFINE BAR 2 OF 新菜单项 PROMPT "\-"
DEFINE BAR 3 OF 新菜单项 PROMPT "学生期终成绩输入"
DEFINE BAR 4 OF 新菜单项 PROMPT "\-"
DEFINE BAR 5 OF 新菜单项 PROMPT "学生文体活动输入"
DEFINE BAR 6 OF 新菜单项 PROMPT "\-"
DEFINE BAR 7 OF 新菜单项 PROMPT "学生品行评价输入"
ON SELECTION BAR 1 OF 新菜单项 do form E:\Vfp98\表单\信息输入
ON SELECTION BAR 3 OF 新菜单项 do form E:\Vfp98\表单\成绩输入
ON SELECTION BAR 5 OF 新菜单项 do form E:\Vfp98\表单\活动输入
ON SELECTION BAR 7 OF 新菜单项 do form E:\Vfp98\表单\评价输入
DEFINE POPUP _21l0w8jol MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _21l0w8jol PROMPT "学生基本信息修改"
DEFINE BAR 2 OF _21l0w8jol PROMPT "\-"
DEFINE BAR 3 OF _21l0w8jol PROMPT "学生期终成绩修改"
DEFINE BAR 4 OF _21l0w8jol PROMPT "\-"
DEFINE BAR 5 OF _21l0w8jol PROMPT "学生文体活动修改"
DEFINE BAR 6 OF _21l0w8jol PROMPT "\-"
DEFINE BAR 7 OF _21l0w8jol PROMPT "学生品行评价修改"
ON SELECTION BAR 1 OF _21l0w8jol do form E:\Vfp98\表单\信息修改
ON SELECTION BAR 3 OF _21l0w8jol do form E:\Vfp98\表单\成绩修改
ON SELECTION BAR 5 OF _21l0w8jol do form E:\Vfp98\表单\活动修改
ON SELECTION BAR 7 OF _21l0w8jol do form E:\Vfp98\表单\评价修改
DEFINE POPUP _21l0wcmvm MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _21l0wcmvm PROMPT "学生基本信息"
DEFINE BAR 2 OF _21l0wcmvm PROMPT "\-"
DEFINE BAR 3 OF _21l0wcmvm PROMPT "学生期终成绩"
DEFINE BAR 4 OF _21l0wcmvm PROMPT "\-"
DEFINE BAR 5 OF _21l0wcmvm PROMPT "学生文体活动"
DEFINE BAR 6 OF _21l0wcmvm PROMPT "\-"
DEFINE BAR 7 OF _21l0wcmvm PROMPT "学生品行评价"
ON SELECTION BAR 1 OF _21l0wcmvm do form E:\vfp98\表单\打印
ON SELECTION BAR 3 OF _21l0wcmvm do form E:\vfp98\表单\打印1
ON SELECTION BAR 5 OF _21l0wcmvm do form E:\vfp98\表单\打印2
ON SELECTION BAR 7 OF _21l0wcmvm do form E:\vfp98\表单\打印3
DEFINE POPUP _21l0wftfr MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _21l0wftfr PROMPT "返回"
DEFINE BAR 2 OF _21l0wftfr PROMPT "\-"
DEFINE BAR 3 OF _21l0wftfr PROMPT "退出"
ON SELECTION BAR 1 OF _21l0wftfr set sysmenu to default
ON SELECTION BAR 3 OF _21l0wftfr quit
这是主程序的代码:
SET TALK OFF
SET SYSMENU OFF
SET SYSMENU TO
SET DELETED OFF
SET STATUS BAR OFF
SET DATE ANSI
SET SAFETY OFF
CLEAR ALL
CLOSE ALL
_screen.windowstate=0
_screen.caption="学生信息管理系统"
DO 学生信息管理系统.mpr
READ EVENTS
SET SYSMENU ON
SET SYSMENU TO DEFAULT
SET STATUS BAR ON
CLOSE ALL
CLEAR ALL
RETURN