📄 backmune.mpr
字号:
ON SELECTION BAR 6 OF (a_menupops[4]) ;
DO _0hz0uq3yz ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
ON SELECTION BAR 8 OF (a_menupops[4]) ;
DO _0hz0uq3z1 ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
ON SELECTION BAR 10 OF (a_menupops[4]) ;
DO _0hz0uq3z3 ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
DEFINE POPUP (a_menupops[5]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[5]) PROMPT "\-"
DEFINE BAR 2 OF (a_menupops[5]) PROMPT "数据整理" ;
KEY CTRL+Y, "CTRL+Y"
DEFINE BAR 3 OF (a_menupops[5]) PROMPT "\-"
DEFINE BAR 4 OF (a_menupops[5]) PROMPT "数据库备份"
ON SELECTION BAR 2 OF (a_menupops[5]) ;
DO _0hz0uq3z6 ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
ON SELECTION BAR 4 OF (a_menupops[5]) ;
DO _0hz0uq3z8 ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
DEFINE POPUP (a_menupops[6]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 2 OF (a_menupops[6]) PROMPT "软件帮助" ;
KEY CTRL+H, "CTRL+H"
DEFINE BAR 3 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 4 OF (a_menupops[6]) PROMPT "选择背景色"
DEFINE BAR 5 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 6 OF (a_menupops[6]) PROMPT "信息反馈"
DEFINE BAR 7 OF (a_menupops[6]) PROMPT "我的主页"
DEFINE BAR 8 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 9 OF (a_menupops[6]) PROMPT "软件注册"
DEFINE BAR 10 OF (a_menupops[6]) PROMPT "关于本软件"
ON SELECTION BAR 2 OF (a_menupops[6]) ;
DO _0hz0uq3zd ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
ON SELECTION BAR 4 OF (a_menupops[6]) ;
DO _0hz0uq3zf ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
ON SELECTION BAR 6 OF (a_menupops[6]) ;
DO _0hz0uq3zh ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
ON SELECTION BAR 7 OF (a_menupops[6]) ;
DO _0hz0uq3zj ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
ON SELECTION BAR 9 OF (a_menupops[6]) ;
DO _0hz0uq3zk ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
ON SELECTION BAR 10 OF (a_menupops[6]) ;
DO _0hz0uq3zm ;
IN LOCFILE("VFP98\管理系统\BACKMUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is BACKMUNE?")
ACTIVATE MENU (m.cMenuName) NOWAIT
IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
* *********************************************************
* *
* * _0HZ0UQ3XR ON SELECTION BAR 2 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 系统维护x
* * Prompt: 系单位创建&删除
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0hz0uq3xr
do form 1_1.scx
* *********************************************************
* *
* * _0HZ0UQ3XT ON SELECTION BAR 3 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 系统维护x
* * Prompt: 系专业创建&删除
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0hz0uq3xt
do form 1_2.scx
* *********************************************************
* *
* * _0HZ0UQ3XV ON SELECTION BAR 4 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 系统维护x
* * Prompt: 系班级创建&删除
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0hz0uq3xv
do form 1_3.scx
* *********************************************************
* *
* * _0HZ0UQ3XX ON SELECTION BAR 6 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 10
* * Called By: ON SELECTION BAR 6 OF POPUP 系统维护x
* * Prompt: 档案库创建&删除
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0hz0uq3xx
do form 1_4.scx
* *********************************************************
* *
* * _0HZ0UQ3XZ ON SELECTION BAR 7 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 11
* * Called By: ON SELECTION BAR 7 OF POPUP 系统维护x
* * Prompt: 成绩库创建&删除
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0hz0uq3xz
do form 1_5.scx
* *********************************************************
* *
* * _0HZ0UQ3Y0 ON SELECTION BAR 9 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 13
* * Called By: ON SELECTION BAR 9 OF POPUP 系统维护x
* * Prompt: 专业号查询&修改
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0hz0uq3y0
do form 1_6.scx
* *********************************************************
* *
* * _0HZ0UQ3Y2 ON SELECTION BAR 10 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 14
* * Called By: ON SELECTION BAR 10 OF POPUP 系统维护x
* * Prompt: 班级人员增删
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _0hz0uq3y2
do form 1_7.scx
* *********************************************************
* *
* * _0HZ0UQ3Y3 ON SELECTION BAR 11 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 15
* * Called By: ON SELECTION BAR 11 OF POPUP 系统维护x
* * Prompt: 课程增删
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _0hz0uq3y3
do form 1_8.scx
* *********************************************************
* *
* * _0HZ0UQ3Y5 ON SELECTION BAR 13 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 17
* * Called By: ON SELECTION BAR 13 OF POPUP 系统维护x
* * Prompt: 退出系统
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _0hz0uq3y5
close all
_screen.activeform.release
* *********************************************************
* *
* * _0HZ0UQ3Y9 ON SELECTION BAR 2 OF POPUP 档案管理d
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 22
* * Called By: ON SELECTION BAR 2 OF POPUP 档案管理d
* * Prompt: 档案库导出
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _0hz0uq3y9
public hh
do form 2_2.scx
if hh<>" "
WAIT windows "档案库导出成功,所导出的库文件在导出文件夹中！......." at 100,40 timeout 2 nowait
else
WAIT windows "档案库导出失败！......." at 100,40 timeout 2 nowait
endif
* *********************************************************
* *
* * _0HZ0UQ3YB ON SELECTION BAR 4 OF POPUP 档案管理d
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 24
* * Called By: ON SELECTION BAR 4 OF POPUP 档案管理d
* * Prompt: 档案录入
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _0hz0uq3yb
biaozi=1
do form 2.scx
* *********************************************************
* *
* * _0HZ0UQ3YE ON SELECTION BAR 5 OF POPUP 档案管理d
* *
* * Procedure Origin:
* *
* * From Menu: BACKMUNE.MPR, Record: 25
* * Called By: ON SELECTION BAR 5 OF POPUP 档案管理d
* * Prompt: 档案查询
* * Snippet: 12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -