📄 mainmenu.mpr
字号:
DEFINE BAR 3 OF (a_menupops[5]) PROMPT "花名册预览"
DEFINE BAR 4 OF (a_menupops[5]) PROMPT "考试证预览"
DEFINE BAR 5 OF (a_menupops[5]) PROMPT "成绩单预览"
DEFINE BAR 6 OF (a_menupops[5]) PROMPT "任课教师一览表预览"
DEFINE BAR 7 OF (a_menupops[5]) PROMPT "课程表预览"
DEFINE BAR 8 OF (a_menupops[5]) PROMPT "课程设置预览"
DEFINE BAR 9 OF (a_menupops[5]) PROMPT "教室情况列表预览"
DEFINE BAR 10 OF (a_menupops[5]) PROMPT "\-"
DEFINE BAR 11 OF (a_menupops[5]) PROMPT "页面设置(\<U)..." ;
KEY CTRL+U, "CTRL+U" ;
MESSAGE "修改页面布局和打印机设置"
DEFINE BAR 12 OF (a_menupops[5]) PROMPT "打印报表(\<P)" ;
KEY CTRL+P, "CTRL+P"
ON SELECTION BAR 1 OF (a_menupops[5]) ;
DO _12h0k5dji ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 2 OF (a_menupops[5]) ;
DO _12h0k5djk ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 3 OF (a_menupops[5]) ;
DO _12h0k5djl ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 4 OF (a_menupops[5]) ;
DO _12h0k5djm ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 5 OF (a_menupops[5]) ;
DO _12h0k5djn ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 6 OF (a_menupops[5]) ;
DO _12h0k5djo ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 7 OF (a_menupops[5]) ;
DO _12h0k5djq ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 8 OF (a_menupops[5]) ;
DO _12h0k5djr ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 9 OF (a_menupops[5]) ;
DO _12h0k5djs ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 11 OF (a_menupops[5]) sys(1037)
ON SELECTION BAR 12 OF (a_menupops[5]) ;
DO _12h0k5dju ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
DEFINE POPUP (a_menupops[6]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[6]) PROMPT "帮助主题(\<H)" ;
KEY F1, "F1"
DEFINE BAR 2 OF (a_menupops[6]) PROMPT "每日一贴(\<E)"
DEFINE BAR 3 OF (a_menupops[6]) PROMPT "关于 学生管理系统(\<A)"
ON SELECTION BAR 1 OF (a_menupops[6]) ;
DO _12h0k5djw ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 2 OF (a_menupops[6]) ;
DO _12h0k5djx ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 3 OF (a_menupops[6]) ;
DO _12h0k5djy ;
IN LOCFILE("\学生管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ACTIVATE MENU (m.cMenuName) NOWAIT
IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
* *********************************************************
* *
* * _12H0K5DII ON SELECTION BAR 1 OF POPUP 系统维护s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 系统维护s
* * Prompt: 初始化(I)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _12h0k5dii
close all
ask=messagebox("初始化将会清空当前所有数据，继续吗？",48+4,"初始化")
if ask=6
do form tempo
endif
* *********************************************************
* *
* * _12H0K5DIJ ON SELECTION BAR 2 OF POPUP 系统维护s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 系统维护s
* * Prompt: 数据备份(B)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _12h0k5dij
close all
do form save
* *********************************************************
* *
* * _12H0K5DIK ON SELECTION BAR 3 OF POPUP 系统维护s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 系统维护s
* * Prompt: 数据恢复(R)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _12h0k5dik
close all
do form recover
* *********************************************************
* *
* * _12H0K5DIL ON SELECTION BAR 4 OF POPUP 系统维护s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 系统维护s
* * Prompt: 清空数据(D)
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _12h0k5dil
do form empty
* *********************************************************
* *
* * _12H0K5DIN ON SELECTION BAR 7 OF POPUP 系统维护s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 16
* * Called By: ON SELECTION BAR 7 OF POPUP 系统维护s
* * Prompt: 更换背景(C)
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _12h0k5din
_screen.activeform.cmdcbg.click
* *********************************************************
* *
* * _12H0K5DIO ON SELECTION BAR 8 OF POPUP 系统维护s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 17
* * Called By: ON SELECTION BAR 8 OF POPUP 系统维护s
* * Prompt: 显示登录界面(V)
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _12h0k5dio
close all
do form show
* *********************************************************
* *
* * _12H0K5DIP ON SELECTION BAR 9 OF POPUP 系统维护s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 18
* * Called By: ON SELECTION BAR 9 OF POPUP 系统维护s
* * Prompt: 显示工具栏(T)
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _12h0k5dip
if tbar=.F.
do form toolbar
tbar=.T.
endif
* *********************************************************
* *
* * _12H0K5DIR ON SELECTION BAR 11 OF POPUP 系统维护s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 21
* * Called By: ON SELECTION BAR 11 OF POPUP 系统维护s
* * Prompt: 重登录(R)
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _12h0k5dir
close all
if _screen.activeform.caption="学生管理系统"
_screen.activeform.tag="0"
_screen.activeform.release
else
_screen.activeform.release
_screen.activeform.tag="0"
_screen.activeform.release
endif
do form welcome
* *********************************************************
* *
* * _12H0K5DIS ON SELECTION BAR 12 OF POPUP 系统维护s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 22
* * Called By: ON SELECTION BAR 12 OF POPUP 系统维护s
* * Prompt: 退出(X)
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _12h0k5dis
_screen.activeform.tag="0"
ask=messagebox("确实要退出系统吗？",4+32+256,"学生管理系统")
if ask=6
close all
clear all
release all
clear events
else
_screen.activeform.tag="1"
endif
* *********************************************************
* *
* * _12H0K5DIT ON SELECTION BAR 1 OF POPUP 用户设置s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 13
* * Called By: ON SELECTION BAR 1 OF POPUP 用户设置s
* * Prompt: 添加用户(A)
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _12h0k5dit
do form adduser
* *********************************************************
* *
* * _12H0K5DIV ON SELECTION BAR 2 OF POPUP 用户设置s
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 14
* * Called By: ON SELECTION BAR 2 OF POPUP 用户设置s
* * Prompt: 删除用户(D)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -