📄 菜单.mpr
字号:
* *
* * From Menu: 菜单.MPR, Record: 14
* * Called By: ON SELECTION BAR 4 OF POPUP 课程管理c
* * Prompt: 专业名称设置
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1zr1apcto
CLEA
DO FORM 专业.SCX
* *********************************************************
* *
* * _1ZR1APCTP ON SELECTION BAR 5 OF POPUP 课程管理c
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 15
* * Called By: ON SELECTION BAR 5 OF POPUP 课程管理c
* * Prompt: 课程名称设置
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1zr1apctp
CLEAR
DO FORM 课程.SCX
* *********************************************************
* *
* * _1ZR1APCTQ ON SELECTION BAR 1 OF POPUP 成绩管理s
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 18
* * Called By: ON SELECTION BAR 1 OF POPUP 成绩管理s
* * Prompt: 学生考试成绩录入
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _1zr1apctq
PUBLIC CJJ,BZ
BZ=SPACE(6)
CJJ=-1
DO FORM 成绩登记表.SCX
* *********************************************************
* *
* * _1ZR1APCTR ON SELECTION BAR 2 OF POPUP 成绩管理s
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 19
* * Called By: ON SELECTION BAR 2 OF POPUP 成绩管理s
* * Prompt: 第一次补考成绩录入
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _1zr1apctr
CLEA
DO FORM 补考成绩.SCX
* *********************************************************
* *
* * _1ZR1APCTS ON SELECTION BAR 3 OF POPUP 成绩管理s
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 20
* * Called By: ON SELECTION BAR 3 OF POPUP 成绩管理s
* * Prompt: 第二次补考成绩录入
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _1zr1apcts
CLEA
DO FORM 补考成绩2.SCX
* *********************************************************
* *
* * _1ZR1APCTT ON SELECTION BAR 5 OF POPUP 成绩管理s
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 22
* * Called By: ON SELECTION BAR 5 OF POPUP 成绩管理s
* * Prompt: 学生成绩修改
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _1zr1apctt
CLEA
DO FORM XG密码.SCX TO X
IF X
DO FORM 修改CJ2.SCX
ENDIF
* *********************************************************
* *
* * _1ZR1APCTU ON SELECTION BAR 1 OF POPUP 数据修改m
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 25
* * Called By: ON SELECTION BAR 1 OF POPUP 数据修改m
* * Prompt: 修改学生基本信息
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _1zr1apctu
CLEA
RESTORE FROM PASS1.MEM ADDI
DO FORM XG密码.SCX TO X
IF X
DO FORM 修改JIBEN.SCX
ENDIF
* *********************************************************
* *
* * _1ZR1APCTV ON SELECTION BAR 2 OF POPUP 数据修改m
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 26
* * Called By: ON SELECTION BAR 2 OF POPUP 数据修改m
* * Prompt: 修改学生注册信息
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _1zr1apctv
CLEA
RESTORE FROM PASS1.MEM ADDI
DO FORM XG密码.SCX TO X
IF X
DO FORM 修改ZC.SCX
ENDIF
* *********************************************************
* *
* * _1ZR1APCTW ON SELECTION BAR 4 OF POPUP 数据修改m
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 28
* * Called By: ON SELECTION BAR 4 OF POPUP 数据修改m
* * Prompt: 修改密码
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _1zr1apctw
CLEA
RESTORE FROM PASS1 ADDI
DO FORM 密码.SCX
* *********************************************************
* *
* * _1ZR1APCTX ON SELECTION BAR 1 OF POPUP 数据查询q
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 31
* * Called By: ON SELECTION BAR 1 OF POPUP 数据查询q
* * Prompt: 学生注册查询
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _1zr1apctx
CLEA
DO FORM 注册CQ.SCX
* *********************************************************
* *
* * _1ZR1APCTY ON SELECTION BAR 4 OF POPUP 数据查询q
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 40
* * Called By: ON SELECTION BAR 4 OF POPUP 数据查询q
* * Prompt: 课程设置查询
* * Snippet: 17
* *
* *********************************************************
*
PROCEDURE _1zr1apcty
CLEAR
PUBLIC BJBH,XQ
BJBH=""
XQ=""
DO FORM 课程查询.SCX
* *********************************************************
* *
* * _1ZR1APCTZ ON SELECTION BAR 1 OF POPUP 查询学生成
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 34
* * Called By: ON SELECTION BAR 1 OF POPUP 查询学生成
* * Prompt: 按班级学期查询
* * Snippet: 18
* *
* *********************************************************
*
PROCEDURE _1zr1apctz
CLEAR
PUBLIC BJBH,XQ,KCMC
BJBH=SPACE(3)
XQ=SPACE(1)
KCMC=SPACE(20)
DO FORM 成绩查询.SCX
* *********************************************************
* *
* * _1ZR1APCU0 ON SELECTION BAR 2 OF POPUP 查询学生成
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 35
* * Called By: ON SELECTION BAR 2 OF POPUP 查询学生成
* * Prompt: 按学号姓名查询
* * Snippet: 19
* *
* *********************************************************
*
PROCEDURE _1zr1apcu0
CLEAR
PUBLIC BJBH,XQ,XH
BJBH=SPACE(3)
XQ=SPACE(1)
XH=SPACE(6)
DO FORM 成绩CQ.SCX
* *********************************************************
* *
* * _1ZR1APCU1 ON SELECTION BAR 4 OF POPUP 查询学生成
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 37
* * Called By: ON SELECTION BAR 4 OF POPUP 查询学生成
* * Prompt: 补考成绩查询
* * Snippet: 20
* *
* *********************************************************
*
PROCEDURE _1zr1apcu1
CLEA
DO FORM 不及格CQ.SCX
* *********************************************************
* *
* * _1ZR1APCU2 ON SELECTION BAR 5 OF POPUP 查询学生成
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 38
* * Called By: ON SELECTION BAR 5 OF POPUP 查询学生成
* * Prompt: 补考不及格查询
* * Snippet: 21
* *
* *********************************************************
*
PROCEDURE _1zr1apcu2
CLEA
DO FORM 补考不及格CQ.SCX
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -