📄 mainmenu.mpr
字号:
* *********************************************************
* *
* * 2007/11/27 MAINMENU.MPR 15:36:05
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2007 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _28k0xfth8 OF _MSYSMENU PROMPT "浏览(\<L)" COLOR SCHEME 3 ;
KEY ALT+L, "ALT+L"
DEFINE PAD _28k0xfth9 OF _MSYSMENU PROMPT "查询(\<Q)" COLOR SCHEME 3 ;
KEY ALT+Q, "ALT+Q"
DEFINE PAD _28k0xftha OF _MSYSMENU PROMPT "修改(\<M)" COLOR SCHEME 3 ;
KEY ALT+M, "ALT+M"
DEFINE PAD _28k0xfthb OF _MSYSMENU PROMPT "统计(\<C)" COLOR SCHEME 3 ;
KEY ALT+C, "ALT+C"
DEFINE PAD _28k0xfthc OF _MSYSMENU PROMPT "打印(\<P)" COLOR SCHEME 3 ;
KEY ALT+P, "ALT+P"
DEFINE PAD _28k0xfthd OF _MSYSMENU PROMPT "关于(\<R)" COLOR SCHEME 3 ;
KEY ALT+R, "ALT+R"
DEFINE PAD _28k0xfthe OF _MSYSMENU PROMPT "高级(\<A)" COLOR SCHEME 3 ;
KEY ALT+A, "ALT+A"
DEFINE PAD _28k0xfthf OF _MSYSMENU PROMPT "退出(\<E)" COLOR SCHEME 3 ;
KEY ALT+E, "ALT+E"
ON PAD _28k0xfth8 OF _MSYSMENU ACTIVATE POPUP 浏览l
ON PAD _28k0xfth9 OF _MSYSMENU ACTIVATE POPUP 查询q
ON PAD _28k0xftha OF _MSYSMENU ACTIVATE POPUP 修改m
ON PAD _28k0xfthb OF _MSYSMENU ACTIVATE POPUP 统计c
ON PAD _28k0xfthc OF _MSYSMENU ACTIVATE POPUP 打印p
ON PAD _28k0xfthd OF _MSYSMENU ACTIVATE POPUP 关于r
ON PAD _28k0xfthe OF _MSYSMENU ACTIVATE POPUP 高级a
ON PAD _28k0xfthf OF _MSYSMENU ACTIVATE POPUP 退出e
DEFINE POPUP 浏览l MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 浏览l PROMPT "个人信息"
DEFINE BAR 2 OF 浏览l PROMPT "教师信息"
DEFINE BAR 3 OF 浏览l PROMPT "\-"
DEFINE BAR 4 OF 浏览l PROMPT "班级信息"
DEFINE BAR 5 OF 浏览l PROMPT "系信息"
DEFINE BAR 6 OF 浏览l PROMPT "课程信息"
ON SELECTION BAR 1 OF 浏览l do form "d:\vfp98\教务信息管理系统\forms\个人信息.scx"
ON SELECTION BAR 2 OF 浏览l do form "d:\vfp98\教务信息管理系统\forms\教师信息.scx"
ON SELECTION BAR 4 OF 浏览l do form "d:\vfp98\教务信息管理系统\forms\班级信息.scx"
ON SELECTION BAR 5 OF 浏览l do form "d:\vfp98\教务信息管理系统\forms\系信息.scx"
ON SELECTION BAR 6 OF 浏览l do form "d:\vfp98\教务信息管理系统\forms\课程信息.scx"
DEFINE POPUP 查询q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询q PROMPT "查询学生"
DEFINE BAR 2 OF 查询q PROMPT "查询教师"
DEFINE BAR 3 OF 查询q PROMPT "\-"
DEFINE BAR 4 OF 查询q PROMPT "查询系"
DEFINE BAR 5 OF 查询q PROMPT "查询班级"
ON BAR 1 OF 查询q ACTIVATE POPUP 查询学生
ON BAR 2 OF 查询q ACTIVATE POPUP 查询教师
ON BAR 4 OF 查询q ACTIVATE POPUP 查询系
ON BAR 5 OF 查询q ACTIVATE POPUP 查询班级
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 "d:\vfp98\教务信息管理系统\forms\axhc.scx"
ON SELECTION BAR 2 OF 查询学生 do form "d:\vfp98\教务信息管理系统\forms\axmc1.scx"
ON SELECTION BAR 3 OF 查询学生 do form "d:\vfp98\教务信息管理系统\forms\ajgc.scx"
DEFINE POPUP 查询教师 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询教师 PROMPT "按编号查"
DEFINE BAR 2 OF 查询教师 PROMPT "按姓名查"
ON SELECTION BAR 1 OF 查询教师 do form "d:\vfp98\教务信息管理系统\forms\ajsbhc.scx"
ON SELECTION BAR 2 OF 查询教师 do form "d:\vfp98\教务信息管理系统\forms\axmc2.scx"
DEFINE POPUP 查询系 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询系 PROMPT "按编号查"
DEFINE BAR 2 OF 查询系 PROMPT "按名称查"
ON SELECTION BAR 1 OF 查询系 do form "d:\vfp98\教务信息管理系统\forms\axbhc.scx"
ON SELECTION BAR 2 OF 查询系 do form "d:\vfp98\教务信息管理系统\forms\axmc3.scx"
DEFINE POPUP 查询班级 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询班级 PROMPT "按编号查"
DEFINE BAR 2 OF 查询班级 PROMPT "按名称查"
ON SELECTION BAR 1 OF 查询班级 do form "d:\vfp98\教务信息管理系统\forms\abjbhc.scx"
ON SELECTION BAR 2 OF 查询班级 do form "d:\vfp98\教务信息管理系统\forms\axmc4.scx"
DEFINE POPUP 修改m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改m PROMPT "个人信息"
DEFINE BAR 2 OF 修改m PROMPT "教师信息"
DEFINE BAR 3 OF 修改m PROMPT "\-"
DEFINE BAR 4 OF 修改m PROMPT "班级信息"
DEFINE BAR 5 OF 修改m PROMPT "系信息"
DEFINE BAR 6 OF 修改m PROMPT "课程信息"
DEFINE BAR 7 OF 修改m PROMPT "成绩信息"
ON SELECTION BAR 1 OF 修改m do form "d:\vfp98\教务信息管理系统\forms\修改个人信息.scx"
ON SELECTION BAR 2 OF 修改m do form "d:\vfp98\教务信息管理系统\forms\修改教师信息.scx"
ON SELECTION BAR 4 OF 修改m do form "d:\vfp98\教务信息管理系统\forms\修改班级信息.scx"
ON SELECTION BAR 5 OF 修改m do form "d:\vfp98\教务信息管理系统\forms\修改系信息.scx"
ON SELECTION BAR 6 OF 修改m do form "d:\vfp98\教务信息管理系统\forms\修改课程信息.scx"
ON SELECTION BAR 7 OF 修改m do form "d:\vfp98\教务信息管理系统\forms\修改成绩信息.scx"
DEFINE POPUP 统计c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计c PROMPT "个人成绩"
DEFINE BAR 2 OF 统计c PROMPT "统计课程"
ON SELECTION BAR 1 OF 统计c do form "d:\vfp98\教务信息管理系统\forms\统计个人成绩.scx"
ON SELECTION BAR 2 OF 统计c do form "d:\vfp98\教务信息管理系统\forms\统计课程.scx"
DEFINE POPUP 打印p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印p PROMPT "班级信息"
DEFINE BAR 2 OF 打印p PROMPT "课程信息"
ON SELECTION BAR 1 OF 打印p ;
DO _28k0xfthi ;
IN LOCFILE("教务信息管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 2 OF 打印p ;
DO _28k0xfthj ;
IN LOCFILE("教务信息管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
DEFINE POPUP 关于r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 关于r PROMPT "关于系统"
ON SELECTION BAR 1 OF 关于r ;
DO _28k0xfthk ;
IN LOCFILE("教务信息管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
DEFINE POPUP 高级a MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 高级a PROMPT "修改密码"
DEFINE BAR 2 OF 高级a PROMPT "更改管理员"
ON SELECTION BAR 1 OF 高级a do form "d:\vfp98\教务信息管理系统\forms\修改密码.scx"
ON SELECTION BAR 2 OF 高级a do form "d:\vfp98\教务信息管理系统\forms\修改管理员.scx"
DEFINE POPUP 退出e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出e PROMPT "退出系统"
ON SELECTION BAR 1 OF 退出e ;
DO _28k0xfthl ;
IN LOCFILE("教务信息管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION POPUP 打印p ;
DO _28k0xfthm ;
IN LOCFILE("教务信息管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
* *********************************************************
* *
* * _28K0XFTHI ON SELECTION BAR 1 OF POPUP 打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 46
* * Called By: ON SELECTION BAR 1 OF POPUP 打印p
* * Prompt: 班级信息
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _28k0xfthi
report form "d:\vfp98\教务信息管理系统\reports\打印班级信息.frx" PREVIEW
* *********************************************************
* *
* * _28K0XFTHJ ON SELECTION BAR 2 OF POPUP 打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 47
* * Called By: ON SELECTION BAR 2 OF POPUP 打印p
* * Prompt: 课程信息
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _28k0xfthj
report form "d:\vfp98\教务信息管理系统\reports\打印班级信息.frx" PREVIEW
* *********************************************************
* *
* * _28K0XFTHK ON SELECTION BAR 1 OF POPUP 关于r
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 50
* * Called By: ON SELECTION BAR 1 OF POPUP 关于r
* * Prompt: 关于系统
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _28k0xfthk
tempstr="教务信息管理系统 "+chr(10)+"河海大学物理系"+chr(13);
+chr(10)+chr(13);
+"2007年11月"
messagebox(tempstr,0+48+0,"教务信息管理系统")
* *********************************************************
* *
* * _28K0XFTHL ON SELECTION BAR 1 OF POPUP 退出e
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 57
* * Called By: ON SELECTION BAR 1 OF POPUP 退出e
* * Prompt: 退出系统
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _28k0xfthl
tempstr=messagebox("确定要退出本系统吗?",4+32+256,"退出本系统")
if tempstr=6
release all
clear events
quit
endif
* *********************************************************
* *
* * _28K0XFTHM ON SELECTION POPUP 打印p
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 45
* * Called By: ON SELECTION POPUP 打印p
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _28k0xfthm
if sys(13)="OFFLINE"
MESSAGEBOX("打印机出错，请重试!")
else
messagebox("打印机准备就绪，关闭对话框准备打印!")
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -