📄 main.mpr
字号:
* *********************************************************
* *
* * 05/23/06 MAIN.MPR 14:45:09
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2006 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1t50vmbfj OF _MSYSMENU PROMPT "【学生管理】" COLOR SCHEME 3
DEFINE PAD _1t50vmbfk OF _MSYSMENU PROMPT "【宿舍管理】" COLOR SCHEME 3
DEFINE PAD _1t50vmbfl OF _MSYSMENU PROMPT "【课程管理】" COLOR SCHEME 3
DEFINE PAD _1t50vmbfm OF _MSYSMENU PROMPT "【班级管理】" COLOR SCHEME 3
DEFINE PAD _1t50vmbfn OF _MSYSMENU PROMPT "【系统菜单】" COLOR SCHEME 3
ON PAD _1t50vmbfj OF _MSYSMENU ACTIVATE POPUP 【学生管理
ON PAD _1t50vmbfk OF _MSYSMENU ACTIVATE POPUP 【宿舍管理
ON PAD _1t50vmbfl OF _MSYSMENU ACTIVATE POPUP 【课程管理
ON PAD _1t50vmbfm OF _MSYSMENU ACTIVATE POPUP 【班级管理
ON PAD _1t50vmbfn OF _MSYSMENU ACTIVATE POPUP 【系统菜单
DEFINE POPUP 【学生管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【学生管理 PROMPT "学生基本资料"
DEFINE BAR 2 OF 【学生管理 PROMPT "学生选修课程"
ON SELECTION BAR 1 OF 【学生管理 ;
DO _1t50vmbfz ;
IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 2 OF 【学生管理 ;
DO _1t50vmbg0 ;
IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
DEFINE POPUP 【宿舍管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【宿舍管理 PROMPT "宿舍基本资料"
ON SELECTION BAR 1 OF 【宿舍管理 ;
DO _1t50vmbg1 ;
IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
DEFINE POPUP 【课程管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【课程管理 PROMPT "课程基本资料"
ON SELECTION BAR 1 OF 【课程管理 ;
DO _1t50vmbg2 ;
IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
DEFINE POPUP 【班级管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【班级管理 PROMPT "班级基本资料"
DEFINE BAR 2 OF 【班级管理 PROMPT "班级必修课程"
ON SELECTION BAR 1 OF 【班级管理 ;
DO _1t50vmbg3 ;
IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 2 OF 【班级管理 ;
DO _1t50vmbg4 ;
IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
DEFINE POPUP 【系统菜单 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 【系统菜单 PROMPT "修改用户密码"
DEFINE BAR 2 OF 【系统菜单 PROMPT "退出系统"
ON SELECTION BAR 1 OF 【系统菜单 ;
DO _1t50vmbg5 ;
IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 2 OF 【系统菜单 ;
DO _1t50vmbg6 ;
IN LOCFILE("\STUDENTSINFO\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
* *********************************************************
* *
* * _1T50VMBFZ ON SELECTION BAR 1 OF POPUP 【学生管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 【学生管理
* * Prompt: 学生基本资料
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1t50vmbfz
if ShowFlg then
messageBox('请关闭其他窗口再打开',48,'学生信息管理系统')
else
do form froms\studentfrm
endif
* *********************************************************
* *
* * _1T50VMBG0 ON SELECTION BAR 2 OF POPUP 【学生管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 【学生管理
* * Prompt: 学生选修课程
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1t50vmbg0
if ShowFlg then
messageBox('请关闭其他窗口再打开',48,'学生信息管理系统')
else
do form froms\std_curFrm
endif
* *********************************************************
* *
* * _1T50VMBG1 ON SELECTION BAR 1 OF POPUP 【宿舍管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 9
* * Called By: ON SELECTION BAR 1 OF POPUP 【宿舍管理
* * Prompt: 宿舍基本资料
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1t50vmbg1
if ShowFlg then
messageBox('请关闭其他窗口再打开',48,'学生信息管理系统')
else
do Form Forms\housefrm
endif
* *********************************************************
* *
* * _1T50VMBG2 ON SELECTION BAR 1 OF POPUP 【课程管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 12
* * Called By: ON SELECTION BAR 1 OF POPUP 【课程管理
* * Prompt: 课程基本资料
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1t50vmbg2
if ShowFlg then
messageBox('请关闭其他窗口再打开',48,'学生信息管理系统')
else
do form forms\curriculafrm
endif
* *********************************************************
* *
* * _1T50VMBG3 ON SELECTION BAR 1 OF POPUP 【班级管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 15
* * Called By: ON SELECTION BAR 1 OF POPUP 【班级管理
* * Prompt: 班级基本资料
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1t50vmbg3
if ShowFlg then
messageBox('请关闭其他窗口再打开',48,'学生信息管理系统')
else
do Form Forms\ClassFrm
endif
* *********************************************************
* *
* * _1T50VMBG4 ON SELECTION BAR 2 OF POPUP 【班级管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 16
* * Called By: ON SELECTION BAR 2 OF POPUP 【班级管理
* * Prompt: 班级必修课程
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1t50vmbg4
if ShowFlg then
messageBox('请关闭其他窗口再打开',48,'学生信息管理系统')
else
do Form Froms\cls_curFrm
endif
* *********************************************************
* *
* * _1T50VMBG5 ON SELECTION BAR 1 OF POPUP 【系统菜单
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 19
* * Called By: ON SELECTION BAR 1 OF POPUP 【系统菜单
* * Prompt: 修改用户密码
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1t50vmbg5
if ShowFlg then
messageBox('请关闭其他窗口再打开',48,'学生信息管理系统')
else
do Form Forms\chpwfrm
endif
* *********************************************************
* *
* * _1T50VMBG6 ON SELECTION BAR 2 OF POPUP 【系统菜单
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 20
* * Called By: ON SELECTION BAR 2 OF POPUP 【系统菜单
* * Prompt: 退出系统
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1t50vmbg6
if messagebox("是否确认退出系统?",292,"学生信息管理系统")=6
wait "正在退出系统" window nowait
wait clea
CLEAR EVENT
set talk on
set safe on
set sysmenu to defa
wait clea
_screen.closable=.t.
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -