📄 xjgl_main.mpr
字号:
* * From Menu: XJGL_MAIN.MPR, Record: 14
* * Called By: ON SELECTION BAR 4 OF POPUP 数据查询s
* * Prompt: 课程设置(C)...
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1o40uj4z8
CLEAR
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(0,200,128)
PUBLIC BJBH,XQ
BJBH=""
XQ=""
DO FORM 课程查询.SCX
* *********************************************************
* *
* * _1O40UJ4Z9 ON SELECTION BAR 1 OF POPUP 学生成绩查
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 8
* * Called By: ON SELECTION BAR 1 OF POPUP 学生成绩查
* * Prompt: 按班级学期查询(Z)...
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1o40uj4z9
CLEAR
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(50,125,100)
PUBLIC BJBH,XQ,KCMC
BJBH=SPACE(3)
XQ=SPACE(1)
KCMC=SPACE(20)
DO FORM 成绩查询.SCX
* *********************************************************
* *
* * _1O40UJ4ZA ON SELECTION BAR 2 OF POPUP 学生成绩查
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 9
* * Called By: ON SELECTION BAR 2 OF POPUP 学生成绩查
* * Prompt: 按学号姓名查询(Q)...
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1o40uj4za
CLEAR
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(0,100,128)
PUBLIC BJBH,XQ,XH
BJBH=SPACE(3)
XQ=SPACE(1)
XH=SPACE(6)
DO FORM 成绩CQ.SCX
* *********************************************************
* *
* * _1O40UJ4ZB ON SELECTION BAR 4 OF POPUP 学生成绩查
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 11
* * Called By: ON SELECTION BAR 4 OF POPUP 学生成绩查
* * Prompt: 补考成绩查询(U)...
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1o40uj4zb
CLEA
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(0,20,128)
DO FORM 不及格CQ.SCX
* *********************************************************
* *
* * _1O40UJ4ZC ON SELECTION BAR 1 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 17
* * Called By: ON SELECTION BAR 1 OF POPUP 信息录入i
* * Prompt: 班级名单录入(I)...
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1o40uj4zc
CLEAR
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(200,200,50)
DO FORM 班级信息.SCX
* *********************************************************
* *
* * _1O40UJ4ZD ON SELECTION BAR 2 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 18
* * Called By: ON SELECTION BAR 2 OF POPUP 信息录入i
* * Prompt: 学生基本情况(W)...
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1o40uj4zd
clear
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(200,200,50)
do form 基本情况.SCX
* *********************************************************
* *
* * _1O40UJ4ZE ON SELECTION BAR 4 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 20
* * Called By: ON SELECTION BAR 4 OF POPUP 信息录入i
* * Prompt: 学生注册登记(D)...
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _1o40uj4ze
CLEAR
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(200,200,50)
DO FORM 注册.SCX
* *********************************************************
* *
* * _1O40UJ4ZF ON SELECTION BAR 5 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 21
* * Called By: ON SELECTION BAR 5 OF POPUP 信息录入i
* * Prompt: 时钟(T)...
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _1o40uj4zf
clea
do form 时钟.scx
* *********************************************************
* *
* * _1O40UJ4ZG ON SELECTION BAR 1 OF POPUP 课程管理g
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 24
* * Called By: ON SELECTION BAR 1 OF POPUP 课程管理g
* * Prompt: 教学计划设置(L)...
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _1o40uj4zg
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(100,100,50)
CLEA
PUBLIC zydm,xq,kcbh,it
ZYDM=""
XQ=""
KCBH=""
IT=""
DO FORM 教学计划.SCX
* *********************************************************
* *
* * _1O40UJ4ZH ON SELECTION BAR 2 OF POPUP 课程管理g
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 25
* * Called By: ON SELECTION BAR 2 OF POPUP 课程管理g
* * Prompt: 班级课程设置(G)...
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _1o40uj4zh
_SCREEN.WINDOWSTATE=2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -