📄 mainmenu.mpr
字号:
* *********************************************************
* *
* * 06/21/05 MAINMENU.MPR 16:53:31
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2005 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1jr107el3 OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _1jr107el5 OF _MSYSMENU PROMPT "档案管理" COLOR SCHEME 3
DEFINE PAD _1jr107el6 OF _MSYSMENU PROMPT "成绩管理" COLOR SCHEME 3
DEFINE PAD _1jr107el7 OF _MSYSMENU PROMPT "查询系统" COLOR SCHEME 3
DEFINE PAD _1jr107el8 OF _MSYSMENU PROMPT "成绩统计" COLOR SCHEME 3
DEFINE PAD _1jr107el9 OF _MSYSMENU PROMPT "关于系统" COLOR SCHEME 3
ON PAD _1jr107el3 OF _MSYSMENU ACTIVATE POPUP 系统维护
ON PAD _1jr107el5 OF _MSYSMENU ACTIVATE POPUP 学生档案管
ON PAD _1jr107el6 OF _MSYSMENU ACTIVATE POPUP 学生成绩管
ON PAD _1jr107el7 OF _MSYSMENU ACTIVATE POPUP 查询系统
ON PAD _1jr107el8 OF _MSYSMENU ACTIVATE POPUP 学生成绩统
ON PAD _1jr107el9 OF _MSYSMENU ACTIVATE POPUP 关于系统
DEFINE POPUP 系统维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护 PROMPT "系单位管理"
DEFINE BAR 2 OF 系统维护 PROMPT "\-"
DEFINE BAR 3 OF 系统维护 PROMPT "系班级管理"
DEFINE BAR 4 OF 系统维护 PROMPT "\-"
DEFINE BAR 5 OF 系统维护 PROMPT "课程管理"
DEFINE BAR 6 OF 系统维护 PROMPT "\-"
DEFINE BAR 7 OF 系统维护 PROMPT "成绩库管理"
DEFINE BAR 8 OF 系统维护 PROMPT "\-"
DEFINE BAR 9 OF 系统维护 PROMPT "用户管理"
DEFINE BAR 10 OF 系统维护 PROMPT "\-"
DEFINE BAR 11 OF 系统维护 PROMPT "退出系统"
ON SELECTION BAR 1 OF 系统维护 do form xiku.scx
ON SELECTION BAR 3 OF 系统维护 do form banji.scx
ON SELECTION BAR 5 OF 系统维护 do form kecheng.scx
ON SELECTION BAR 7 OF 系统维护 do form chengjiku.scx
ON SELECTION BAR 9 OF 系统维护 do form user.scx
ON SELECTION BAR 11 OF 系统维护 clear events
DEFINE POPUP 学生档案管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生档案管 PROMPT "档案浏览"
DEFINE BAR 2 OF 学生档案管 PROMPT "\-"
DEFINE BAR 3 OF 学生档案管 PROMPT "档案修改"
DEFINE BAR 4 OF 学生档案管 PROMPT "\-"
DEFINE BAR 5 OF 学生档案管 PROMPT "档案录入"
DEFINE BAR 6 OF 学生档案管 PROMPT "\-"
DEFINE BAR 7 OF 学生档案管 PROMPT "删除单条"
DEFINE BAR 8 OF 学生档案管 PROMPT "连续删除"
DEFINE BAR 9 OF 学生档案管 PROMPT "全部删除"
ON SELECTION BAR 1 OF 学生档案管 do form browsedangan.scx
ON SELECTION BAR 3 OF 学生档案管 ;
DO _1jr107ela ;
IN LOCFILE("学生档案管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 5 OF 学生档案管 ;
DO _1jr107ell ;
IN LOCFILE("学生档案管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 7 OF 学生档案管 do form xsxxsc.scx
ON SELECTION BAR 8 OF 学生档案管 do form lixushuanchu.scx
ON SELECTION BAR 9 OF 学生档案管 ;
DO _1jr107elm ;
IN LOCFILE("学生档案管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
DEFINE POPUP 学生成绩管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生成绩管 PROMPT "成绩修改"
DEFINE BAR 2 OF 学生成绩管 PROMPT "成绩录入"
DEFINE BAR 3 OF 学生成绩管 PROMPT "\-"
DEFINE BAR 4 OF 学生成绩管 PROMPT "替换"
DEFINE BAR 5 OF 学生成绩管 PROMPT "\-"
DEFINE BAR 6 OF 学生成绩管 PROMPT "成绩删除"
DEFINE BAR 7 OF 学生成绩管 PROMPT "\-"
DEFINE BAR 8 OF 学生成绩管 PROMPT "浏览成绩"
ON SELECTION BAR 1 OF 学生成绩管 do form editgrade.scx
ON SELECTION BAR 2 OF 学生成绩管 do form inputgrade.scx
ON SELECTION BAR 4 OF 学生成绩管 do form tihuan.scx
ON SELECTION BAR 6 OF 学生成绩管 do form shuanchuchengji.scx
ON SELECTION BAR 8 OF 学生成绩管 do form browsegrade.scx
DEFINE POPUP 查询系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询系统 PROMPT "按学名查询"
DEFINE BAR 2 OF 查询系统 PROMPT "按姓名查询"
DEFINE BAR 3 OF 查询系统 PROMPT "\-"
DEFINE BAR 4 OF 查询系统 PROMPT "查询成绩"
DEFINE BAR 5 OF 查询系统 PROMPT "班级补考名单"
DEFINE BAR 6 OF 查询系统 PROMPT "查询课程"
DEFINE BAR 7 OF 查询系统 PROMPT "\-"
DEFINE BAR 8 OF 查询系统 PROMPT "自定义查询"
DEFINE BAR 9 OF 查询系统 PROMPT "\-"
DEFINE BAR 10 OF 查询系统 PROMPT "浏览学生档案"
ON SELECTION BAR 1 OF 查询系统 do form anxuehaochaxun.scx
ON SELECTION BAR 2 OF 查询系统 do form anxingmingchaxun.scx
ON SELECTION BAR 4 OF 查询系统 do form gradefind.scx
ON SELECTION BAR 5 OF 查询系统 do form bukao.scx
ON SELECTION BAR 6 OF 查询系统 do form findkecheng.scx
ON SELECTION BAR 8 OF 查询系统 do form deffind.scx
ON SELECTION BAR 10 OF 查询系统 do form browse.scx
DEFINE POPUP 学生成绩统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生成绩统 PROMPT "统计总分"
DEFINE BAR 2 OF 学生成绩统 PROMPT "排列名次"
DEFINE BAR 3 OF 学生成绩统 PROMPT "\-"
DEFINE BAR 4 OF 学生成绩统 PROMPT "排序"
DEFINE BAR 5 OF 学生成绩统 PROMPT "\-"
DEFINE BAR 6 OF 学生成绩统 PROMPT "高级"
ON SELECTION BAR 1 OF 学生成绩统 do form jszhongfen.scx
ON SELECTION BAR 2 OF 学生成绩统 do form paimingchi.scx
ON SELECTION BAR 4 OF 学生成绩统 do form paixu.scx
ON SELECTION BAR 6 OF 学生成绩统 do form zhaxiangtongji.scx
DEFINE POPUP 关于系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 关于系统 PROMPT "帮助主题"
DEFINE BAR 2 OF 关于系统 PROMPT "\-"
DEFINE BAR 3 OF 关于系统 PROMPT "关于本系统"
ON SELECTION BAR 1 OF 关于系统 ;
DO _1jr107elp ;
IN LOCFILE("学生档案管理系统\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 3 OF 关于系统 do form info.scx
* *********************************************************
* *
* * _1JR107ELA ON SELECTION BAR 3 OF POPUP 学生档案管
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 26
* * Called By: ON SELECTION BAR 3 OF POPUP 学生档案管
* * Prompt: 档案修改
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1jr107ela
do form luruxx
luruxx.command1.visible=.f.
luruxx.command2.visible=.t.
* *********************************************************
* *
* * _1JR107ELL ON SELECTION BAR 5 OF POPUP 学生档案管
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 29
* * Called By: ON SELECTION BAR 5 OF POPUP 学生档案管
* * Prompt: 档案录入
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1jr107ell
do form luruxx.scx
luruxx.command2.visible=.f.
luruxx.command1.visible=.t.
* *********************************************************
* *
* * _1JR107ELM ON SELECTION BAR 9 OF POPUP 学生档案管
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 34
* * Called By: ON SELECTION BAR 9 OF POPUP 学生档案管
* * Prompt: 全部删除
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1jr107elm
close all
use data\学生基本信息
zap
close all
* *********************************************************
* *
* * _1JR107ELP ON SELECTION BAR 1 OF POPUP 关于系统
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 75
* * Called By: ON SELECTION BAR 1 OF POPUP 关于系统
* * Prompt: 帮助主题
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1jr107elp
set help on
set help to info\help.chm
help
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -