📄 菜单.mpr
字号:
* *********************************************************
* *
* * 01/14/07 菜单.MPR 21:47:25
* *
* *********************************************************
* *
* * 张晶
* *
* * 版权所有 (C) 2007 北京机电高级技校
* * 北京市海淀区五棵松路18号
* * 北京市, 100089
* * 中国
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD 信息录入 OF _MSYSMENU PROMPT "信息录入(\<I)" COLOR SCHEME 3 ;
KEY ALT+I, "ALT+I"
DEFINE PAD 课程管理 OF _MSYSMENU PROMPT "课程管理(\<C)" COLOR SCHEME 3 ;
KEY ALT+C, "ALT+C"
DEFINE PAD _1zr1apctg OF _MSYSMENU PROMPT "成绩管理(\<S)" COLOR SCHEME 3 ;
KEY ALT+S, "ALT+S" ;
MESSAGE "学生成绩录入、成绩修改"
DEFINE PAD 数据修改 OF _MSYSMENU PROMPT "数据修改(\<M)" COLOR SCHEME 3 ;
KEY ALT+M, ""
DEFINE PAD 数据查询 OF _MSYSMENU PROMPT "数据查询(\<Q)" COLOR SCHEME 3 ;
KEY ALT+Q, "ALT+Q"
DEFINE PAD 打印输出 OF _MSYSMENU PROMPT "打印输出(\<P)" COLOR SCHEME 3 ;
KEY ALT+S, "ALT+S"
DEFINE PAD _1zr1apcth OF _MSYSMENU PROMPT "数据维护(\<W)" COLOR SCHEME 3 ;
KEY ALT+W, ""
DEFINE PAD 退出 OF _MSYSMENU PROMPT "退 出(\<E)" COLOR SCHEME 3 ;
KEY ALT+E, "ALT+E" ;
MESSAGE "退出学籍管理系统"
ON PAD 信息录入 OF _MSYSMENU ACTIVATE POPUP 信息录入i
ON PAD 课程管理 OF _MSYSMENU ACTIVATE POPUP 课程管理c
ON PAD _1zr1apctg OF _MSYSMENU ACTIVATE POPUP 成绩管理s
ON PAD 数据修改 OF _MSYSMENU ACTIVATE POPUP 数据修改m
ON PAD 数据查询 OF _MSYSMENU ACTIVATE POPUP 数据查询q
ON SELECTION PAD 打印输出 OF _MSYSMENU DO FORM 打印.SCX
ON PAD _1zr1apcth OF _MSYSMENU ACTIVATE POPUP 数据维护w
ON SELECTION PAD 退出 OF _MSYSMENU ;
DO _1zr1apcti ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
DEFINE POPUP 信息录入i MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息录入i PROMPT "班级名单录入" ;
MESSAGE "录入各班级的基本信息"
DEFINE BAR 2 OF 信息录入i PROMPT "\-"
DEFINE BAR 3 OF 信息录入i PROMPT "学生基本情况" ;
MESSAGE "录入学生的基本情况信息"
DEFINE BAR 4 OF 信息录入i PROMPT "学生注册登记" ;
MESSAGE "录入学生的注册信息"
ON SELECTION BAR 1 OF 信息录入i ;
DO _1zr1apctj ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 3 OF 信息录入i ;
DO _1zr1apctk ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 4 OF 信息录入i ;
DO _1zr1apctl ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
DEFINE POPUP 课程管理c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 课程管理c PROMPT "教学计划设置" ;
MESSAGE "按专业设置各学期课程名称"
DEFINE BAR 2 OF 课程管理c PROMPT "班级课程设置" ;
MESSAGE "设置每学期各班级的课程名称、讲授学时、讲授教师信息"
DEFINE BAR 3 OF 课程管理c PROMPT "\-"
DEFINE BAR 4 OF 课程管理c PROMPT "专业名称设置" ;
MESSAGE "设置有关专业代码及专业名称的信息"
DEFINE BAR 5 OF 课程管理c PROMPT "课程名称设置" ;
MESSAGE "设置有关课程编号和课程名称的信息"
ON SELECTION BAR 1 OF 课程管理c ;
DO _1zr1apctm ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 2 OF 课程管理c ;
DO _1zr1apctn ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 4 OF 课程管理c ;
DO _1zr1apcto ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 5 OF 课程管理c ;
DO _1zr1apctp ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
DEFINE POPUP 成绩管理s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 成绩管理s PROMPT "学生考试成绩录入" ;
MESSAGE "按班级和学期输入每门课程的学生成绩"
DEFINE BAR 2 OF 成绩管理s PROMPT "第一次补考成绩录入" ;
MESSAGE "输入补考学生成绩"
DEFINE BAR 3 OF 成绩管理s PROMPT "第二次补考成绩录入"
DEFINE BAR 4 OF 成绩管理s PROMPT "\-"
DEFINE BAR 5 OF 成绩管理s PROMPT "学生成绩修改" ;
MESSAGE "按课程名称修改学生成绩"
ON SELECTION BAR 1 OF 成绩管理s ;
DO _1zr1apctq ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 2 OF 成绩管理s ;
DO _1zr1apctr ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 3 OF 成绩管理s ;
DO _1zr1apcts ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 5 OF 成绩管理s ;
DO _1zr1apctt ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
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 "修改密码"
ON SELECTION BAR 1 OF 数据修改m ;
DO _1zr1apctu ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 2 OF 数据修改m ;
DO _1zr1apctv ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 4 OF 数据修改m ;
DO _1zr1apctw ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
DEFINE POPUP 数据查询q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据查询q PROMPT "学生注册查询" ;
MESSAGE "查询学生的注册情况"
DEFINE BAR 2 OF 数据查询q PROMPT "学生成绩查询" ;
MESSAGE "查询学生的成绩情况"
DEFINE BAR 3 OF 数据查询q PROMPT "\-"
DEFINE BAR 4 OF 数据查询q PROMPT "课程设置查询" ;
MESSAGE "查询每个班级每个学期的课程设置情况"
ON SELECTION BAR 1 OF 数据查询q ;
DO _1zr1apctx ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON BAR 2 OF 数据查询q ACTIVATE POPUP 查询学生成
ON SELECTION BAR 4 OF 数据查询q ;
DO _1zr1apcty ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
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 "补考不及格查询"
ON SELECTION BAR 1 OF 查询学生成 ;
DO _1zr1apctz ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 2 OF 查询学生成 ;
DO _1zr1apcu0 ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 4 OF 查询学生成 ;
DO _1zr1apcu1 ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 5 OF 查询学生成 ;
DO _1zr1apcu2 ;
IN LOCFILE("学籍管理系统\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
DEFINE POPUP 数据维护w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据维护w PROMPT "历史数据转储"
DEFINE BAR 2 OF 数据维护w PROMPT "\-"
DEFINE BAR 3 OF 数据维护w PROMPT "历史数据查询"
* *********************************************************
* *
* * _1ZR1APCTI ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 47
* * Called By: ON SELECTION PAD
* * Prompt: 退 出(E)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1zr1apcti
??CHR(7)
RE=MESSAGEBOX("是否退出学籍管理系统?",4+32+256,"信息窗口")
IF RE=6
CLEAR EVENT
quit
ENDIF
* *********************************************************
* *
* * _1ZR1APCTJ ON SELECTION BAR 1 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 信息录入i
* * Prompt: 班级名单录入
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1zr1apctj
CLEAR
DO FORM 班级信息.SCX
* *********************************************************
* *
* * _1ZR1APCTK ON SELECTION BAR 3 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 信息录入i
* * Prompt: 学生基本情况
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1zr1apctk
clear
do form 基本情况.SCX
* *********************************************************
* *
* * _1ZR1APCTL ON SELECTION BAR 4 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 信息录入i
* * Prompt: 学生注册登记
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1zr1apctl
CLEAR
DO FORM 注册.SCX
* *********************************************************
* *
* * _1ZR1APCTM ON SELECTION BAR 1 OF POPUP 课程管理c
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 11
* * Called By: ON SELECTION BAR 1 OF POPUP 课程管理c
* * Prompt: 教学计划设置
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1zr1apctm
CLEA
PUBLIC zydm,xq,kcbh,it
ZYDM=""
XQ=""
KCBH=""
IT=""
DO FORM 教学计划.SCX
* *********************************************************
* *
* * _1ZR1APCTN ON SELECTION BAR 2 OF POPUP 课程管理c
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 12
* * Called By: ON SELECTION BAR 2 OF POPUP 课程管理c
* * Prompt: 班级课程设置
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1zr1apctn
CLEAR
PUBLIC JIANG,SHANG,TEACHER
JIANG=50
SHANG=0
TEACHER=SPACE(8)
DO FORM 课程表.SCX
* *********************************************************
* *
* * _1ZR1APCTO ON SELECTION BAR 4 OF POPUP 课程管理c
* *
* * Procedure Origin:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -