📄 xjgl_main.bak
字号:
* *********************************************************
* *
* * _0Y81AZGWR ON SELECTION BAR 1 OF POPUP 数据查询s
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 17
* * Called By: ON SELECTION BAR 1 OF POPUP 数据查询s
* * Prompt: 学生注册查询(K)...
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0y81azgwr
CLEA
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(0,200,128)
DO FORM 注册CQ.SCX
* *********************************************************
* *
* * _0Y81AZGWS ON SELECTION BAR 4 OF POPUP 数据查询s
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 26
* * Called By: ON SELECTION BAR 4 OF POPUP 数据查询s
* * Prompt: 课程设置(C)...
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0y81azgws
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
* *********************************************************
* *
* * _0Y81AZGWT ON SELECTION BAR 1 OF POPUP 学生成绩查
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 20
* * Called By: ON SELECTION BAR 1 OF POPUP 学生成绩查
* * Prompt: 按班级学期查询(Z)...
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0y81azgwt
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
* *********************************************************
* *
* * _0Y81AZGWU ON SELECTION BAR 2 OF POPUP 学生成绩查
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 21
* * Called By: ON SELECTION BAR 2 OF POPUP 学生成绩查
* * Prompt: 按学号姓名查询(Q)...
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0y81azgwu
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
* *********************************************************
* *
* * _0Y81AZGWV ON SELECTION BAR 4 OF POPUP 学生成绩查
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 23
* * Called By: ON SELECTION BAR 4 OF POPUP 学生成绩查
* * Prompt: 补考成绩查询(U)...
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0y81azgwv
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
* *********************************************************
* *
* * _0Y81AZGWX ON SELECTION BAR 1 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 31
* * Called By: ON SELECTION BAR 1 OF POPUP 信息录入i
* * Prompt: 班级名单录入(I)...
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _0y81azgwx
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
* *********************************************************
* *
* * _0Y81AZGWY ON SELECTION BAR 2 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 32
* * Called By: ON SELECTION BAR 2 OF POPUP 信息录入i
* * Prompt: 学生基本情况(W)...
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _0y81azgwy
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
* *********************************************************
* *
* * _0Y81AZGWZ ON SELECTION BAR 4 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 34
* * Called By: ON SELECTION BAR 4 OF POPUP 信息录入i
* * Prompt: 学生注册登记(D)...
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _0y81azgwz
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
* *********************************************************
* *
* * _0Y81AZGX0 ON SELECTION BAR 5 OF POPUP 信息录入i
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 35
* * Called By: ON SELECTION BAR 5 OF POPUP 信息录入i
* * Prompt: 时钟(T)...
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _0y81azgx0
clea
open 时钟.scx
* *********************************************************
* *
* * _0Y81AZGX1 ON SELECTION BAR 1 OF POPUP 课程管理g
* *
* * Procedure Origin:
* *
* * From Menu: XJGL_MAIN.MPR, Record: 38
* * Called By: ON SELECTION BAR 1 OF POPUP 课程管理g
* * Prompt: 教学计划设置(L)...
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _0y81azgx1
_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
* *********************************************************
* *
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -