📄 xjgl_main.mpr
字号:
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(100,100,50)
CLEAR
PUBLIC JIANG,SHANG,TEACHER
JIANG=50
SHANG=0
TEACHER=SPACE(8)
DO FORM 课程表.SCX
* *********************************************************
* *
* * _1O40UJ4ZI ON SELECTION BAR 4 OF POPUP 课程管理g
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 27
* * Called By: ON SELECTION BAR 4 OF POPUP 课程管理g
* * Prompt: 专业名称设置(E)...
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _1o40uj4zi
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(100,100,50)
CLEA
DO FORM 专业.SCX
* *********************************************************
* *
* * _1O40UJ4ZJ ON SELECTION BAR 5 OF POPUP 课程管理g
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 28
* * Called By: ON SELECTION BAR 5 OF POPUP 课程管理g
* * Prompt: 课程名称设置(O)
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _1o40uj4zj
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(100,100,50)
CLEAR
DO FORM 课程.SCX
* *********************************************************
* *
* * _1O40UJ4ZK ON SELECTION BAR 1 OF POPUP 成绩管理m
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 31
* * Called By: ON SELECTION BAR 1 OF POPUP 成绩管理m
* * Prompt: 学生成绩录入(H)...
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _1o40uj4zk
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(200,100,50)
PUBLIC CJJ,BZ
BZ=SPACE(6)
CJJ=-1
DO FORM 成绩登记表.SCX
* *********************************************************
* *
* * _1O40UJ4ZL ON SELECTION BAR 3 OF POPUP 成绩管理m
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 34
* * Called By: ON SELECTION BAR 3 OF POPUP 成绩管理m
* * Prompt: 第一次补考成绩(N)...
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _1o40uj4zl
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(200,100,50)
CLEA
DO FORM 补考成绩.SCX
* *********************************************************
* *
* * _1O40UJ4ZM ON SELECTION BAR 4 OF POPUP 成绩管理m
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 35
* * Called By: ON SELECTION BAR 4 OF POPUP 成绩管理m
* * Prompt: 第二次补考成绩(K)...
* * Snippet: 17
* *
* *********************************************************
*
PROCEDURE _1o40uj4zm
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(200,100,50)
CLEA
DO FORM 补考成绩2.SCX
* *********************************************************
* *
* * _1O40UJ4ZN ON SELECTION BAR 1 OF POPUP 数据管理d
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 38
* * Called By: ON SELECTION BAR 1 OF POPUP 数据管理d
* * Prompt: 修改学生信息(M)...
* * Snippet: 18
* *
* *********************************************************
*
PROCEDURE _1o40uj4zn
clea
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(200,200,128)
DO FORM XG密码.SCX TO X
IF X
DO FORM 修改JIBEN.SCX
ENDIF
* *********************************************************
* *
* * _1O40UJ4ZO ON SELECTION BAR 2 OF POPUP 数据管理d
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 39
* * Called By: ON SELECTION BAR 2 OF POPUP 数据管理d
* * Prompt: 修改学生注册信息(R)...
* * Snippet: 19
* *
* *********************************************************
*
PROCEDURE _1o40uj4zo
clea
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(200,200,128)
DO FORM XG密码.SCX TO X
IF X
DO FORM 修改ZC.SCX
ENDIF
* *********************************************************
* *
* * _1O40UJ4ZP ON SELECTION BAR 4 OF POPUP 数据管理d
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 41
* * Called By: ON SELECTION BAR 4 OF POPUP 数据管理d
* * Prompt: 修改密码(P)...
* * Snippet: 20
* *
* *********************************************************
*
PROCEDURE _1o40uj4zp
CLEA
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(200,200,128)
DO FORM 密码.SCX
* *********************************************************
* *
* * _1O40UJ4ZQ ON SELECTION BAR 1 OF POPUP 打印输出p
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 45
* * Called By: ON SELECTION BAR 1 OF POPUP 打印输出p
* * Prompt: 打印(P)...
* * Snippet: 21
* *
* *********************************************************
*
PROCEDURE _1o40uj4zq
clea
do form 打印.scx
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -