📄 mainmenu.mpr
字号:
DEFINE BAR 2 OF (a_menupops[8]) PROMPT "学生信息维护"
DEFINE BAR 3 OF (a_menupops[8]) PROMPT "课程信息维护"
DEFINE BAR 4 OF (a_menupops[8]) PROMPT "奖惩信息维护"
DEFINE BAR 5 OF (a_menupops[8]) PROMPT "学籍信息维护"
DEFINE BAR 6 OF (a_menupops[8]) PROMPT "用户信息维护"
ON BAR 1 OF (a_menupops[8]) ACTIVATE POPUP (a_menupops[9])
ON BAR 2 OF (a_menupops[8]) ACTIVATE POPUP (a_menupops[10])
ON BAR 3 OF (a_menupops[8]) ACTIVATE POPUP (a_menupops[11])
ON BAR 4 OF (a_menupops[8]) ACTIVATE POPUP (a_menupops[12])
ON BAR 5 OF (a_menupops[8]) ACTIVATE POPUP (a_menupops[13])
ON BAR 6 OF (a_menupops[8]) ACTIVATE POPUP (a_menupops[14])
DEFINE POPUP (a_menupops[9]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[9]) PROMPT "学院记录"
DEFINE BAR 2 OF (a_menupops[9]) PROMPT "班级记录"
ON SELECTION BAR 1 OF (a_menupops[9]) do form 学院维护
ON SELECTION BAR 2 OF (a_menupops[9]) do form 班级维护
DEFINE POPUP (a_menupops[10]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[10]) PROMPT "基本信息"
DEFINE BAR 2 OF (a_menupops[10]) PROMPT "学生成绩"
ON SELECTION BAR 1 OF (a_menupops[10]) do form 学生信息维护
ON SELECTION BAR 2 OF (a_menupops[10]) do form 学生成绩维护
DEFINE POPUP (a_menupops[11]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[11]) PROMPT "课程记录"
DEFINE BAR 2 OF (a_menupops[11]) PROMPT "选课记录"
ON SELECTION BAR 1 OF (a_menupops[11]) do form 课程维护
ON SELECTION BAR 2 OF (a_menupops[11]) do form 课程维护
DEFINE POPUP (a_menupops[12]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[12]) PROMPT "奖励记录"
DEFINE BAR 2 OF (a_menupops[12]) PROMPT "处罚记录"
DEFINE BAR 3 OF (a_menupops[12]) PROMPT "奖励代码"
DEFINE BAR 4 OF (a_menupops[12]) PROMPT "处罚代码"
ON SELECTION BAR 1 OF (a_menupops[12]) do form 奖励维护
ON SELECTION BAR 2 OF (a_menupops[12]) do form 处罚维护
ON SELECTION BAR 3 OF (a_menupops[12]) do form 奖励维护
ON SELECTION BAR 4 OF (a_menupops[12]) do form 处罚维护
DEFINE POPUP (a_menupops[13]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[13]) PROMPT "学籍变更"
DEFINE BAR 2 OF (a_menupops[13]) PROMPT "变更代码"
ON SELECTION BAR 1 OF (a_menupops[13]) do form 学籍维护
ON SELECTION BAR 2 OF (a_menupops[13]) do form 学籍维护
DEFINE POPUP (a_menupops[14]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[14]) PROMPT "学生注销"
DEFINE BAR 2 OF (a_menupops[14]) PROMPT "管理员注册"
ON SELECTION BAR 1 OF (a_menupops[14]) do form 学生注销
ON SELECTION BAR 2 OF (a_menupops[14]) do form 管理员注册
DEFINE POPUP (a_menupops[15]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[15]) PROMPT "版本信息"
DEFINE BAR 2 OF (a_menupops[15]) PROMPT "功能简介"
ON SELECTION BAR 1 OF (a_menupops[15]) do form 版本信息
ON SELECTION BAR 2 OF (a_menupops[15]) do form 功能简介
ACTIVATE MENU (m.cMenuName) NOWAIT
IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
* *********************************************************
* *
* * _2DY16XN6P ON SELECTION BAR 5 OF POPUP 系统
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 13
* * Called By: ON SELECTION BAR 5 OF POPUP 系统
* * Prompt: 打印
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _2dy16xn6p
if prt1=0
report form 学生信息 to print
endif
if prt2=0
report form 学生成绩 to print
endif
if prt3=0
report form 选课信息 to print
endif
* *********************************************************
* *
* * _2DY16XN6Y ON SELECTION BAR 6 OF POPUP 系统
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 14
* * Called By: ON SELECTION BAR 6 OF POPUP 系统
* * Prompt: 退出
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _2dy16xn6y
mainform.release
clea events
* *********************************************************
* *
* * _2DY16XN6Z ON SELECTION BAR 1 OF POPUP 用户登录
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 7
* * Called By: ON SELECTION BAR 1 OF POPUP 用户登录
* * Prompt: 学生登录
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _2dy16xn6z
st=0
do form 登录界面
* *********************************************************
* *
* * _2DY16XN70 ON SELECTION BAR 2 OF POPUP 用户登录
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 8
* * Called By: ON SELECTION BAR 2 OF POPUP 用户登录
* * Prompt: 辅导员登录
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _2dy16xn70
st=0
do form 登录界面
* *********************************************************
* *
* * _2DY16XN71 ON SELECTION BAR 3 OF POPUP 用户登录
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 9
* * Called By: ON SELECTION BAR 3 OF POPUP 用户登录
* * Prompt: 管理员登录
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _2dy16xn71
st=0
do form 登录界面
* *********************************************************
* *
* * _2DY16XN72 ON SELECTION BAR 2 OF POPUP 学生选课
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 21
* * Called By: ON SELECTION BAR 2 OF POPUP 学生选课
* * Prompt: 选课
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _2dy16xn72
cm=0
do form 选课系统
* *********************************************************
* *
* * _2DY16XN73 ON SELECTION BAR 3 OF POPUP 学生选课
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 22
* * Called By: ON SELECTION BAR 3 OF POPUP 学生选课
* * Prompt: 退选
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _2dy16xn73
cm1=0
do form 选课系统
* *********************************************************
* *
* * _2DY16XN74 ON SELECTION BAR 1 OF POPUP 报表打印预
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 30
* * Called By: ON SELECTION BAR 1 OF POPUP 报表打印预
* * Prompt: 基本信息预览
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _2dy16xn74
prt1=0
report form 学生信息 to print preview
* *********************************************************
* *
* * _2DY16XN75 ON SELECTION BAR 2 OF POPUP 报表打印预
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 31
* * Called By: ON SELECTION BAR 2 OF POPUP 报表打印预
* * Prompt: 成绩信息预览
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _2dy16xn75
prt2=0
report form 学生成绩 to print preview
* *********************************************************
* *
* * _2DY16XN76 ON SELECTION BAR 3 OF POPUP 报表打印预
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 32
* * Called By: ON SELECTION BAR 3 OF POPUP 报表打印预
* * Prompt: 选课信息预览
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _2dy16xn76
prt3=0
report form 选课信息 to print preview
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -