📄 xjgl_main.bak
字号:
* * _0Y81AZGX2 ON SELECTION BAR 2 OF POPUP 课程管理g
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 39
* * Called By: ON SELECTION BAR 2 OF POPUP 课程管理g
* * Prompt: 班级课程设置(G)...
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _0y81azgx2
_SCREEN.WINDOWSTATE=2
_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
* *********************************************************
* *
* * _0Y81AZGX3 ON SELECTION BAR 4 OF POPUP 课程管理g
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 41
* * Called By: ON SELECTION BAR 4 OF POPUP 课程管理g
* * Prompt: 专业名称设置(E)...
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _0y81azgx3
_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
* *********************************************************
* *
* * _0Y81AZGX4 ON SELECTION BAR 5 OF POPUP 课程管理g
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 42
* * Called By: ON SELECTION BAR 5 OF POPUP 课程管理g
* * Prompt: 课程名称设置(O)
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _0y81azgx4
_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
* *********************************************************
* *
* * _0Y81AZGX5 ON SELECTION BAR 1 OF POPUP 成绩管理m
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 45
* * Called By: ON SELECTION BAR 1 OF POPUP 成绩管理m
* * Prompt: 学生成绩录入(H)...
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _0y81azgx5
_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
* *********************************************************
* *
* * _0Y81AZGX6 ON SELECTION BAR 3 OF POPUP 成绩管理m
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 48
* * Called By: ON SELECTION BAR 3 OF POPUP 成绩管理m
* * Prompt: 第一次补考成绩(N)...
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _0y81azgx6
_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
* *********************************************************
* *
* * _0Y81AZGX7 ON SELECTION BAR 4 OF POPUP 成绩管理m
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 49
* * Called By: ON SELECTION BAR 4 OF POPUP 成绩管理m
* * Prompt: 第二次补考成绩(K)...
* * Snippet: 17
* *
* *********************************************************
*
PROCEDURE _0y81azgx7
_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
* *********************************************************
* *
* * _0Y81AZGX8 ON SELECTION BAR 1 OF POPUP 数据管理d
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 52
* * Called By: ON SELECTION BAR 1 OF POPUP 数据管理d
* * Prompt: 修改学生信息(M)...
* * Snippet: 18
* *
* *********************************************************
*
PROCEDURE _0y81azgx8
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
* *********************************************************
* *
* * _0Y81AZGX9 ON SELECTION BAR 2 OF POPUP 数据管理d
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 53
* * Called By: ON SELECTION BAR 2 OF POPUP 数据管理d
* * Prompt: 修改学生注册信息(R)...
* * Snippet: 19
* *
* *********************************************************
*
PROCEDURE _0y81azgx9
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
* *********************************************************
* *
* * _0Y81AZGXA ON SELECTION BAR 4 OF POPUP 数据管理d
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 55
* * Called By: ON SELECTION BAR 4 OF POPUP 数据管理d
* * Prompt: 数据维护(B)...
* * Snippet: 20
* *
* *********************************************************
*
PROCEDURE _0y81azgxa
use
_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 xjgl_xsda1
* *********************************************************
* *
* * _0Y81AZGXB ON SELECTION BAR 5 OF POPUP 数据管理d
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 56
* * Called By: ON SELECTION BAR 5 OF POPUP 数据管理d
* * Prompt: 修改密码(P)...
* * Snippet: 21
* *
* *********************************************************
*
PROCEDURE _0y81azgxb
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -