main.mpr

该系统主要对教学信息进行管理

*       *********************************************************
*       *                                                         
*       * 05/01/04              MAIN.MPR                02:38:23  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2005 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         设置代码                        
*       *                                                         
*       *********************************************************
*




*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD mnu_query OF _MSYSMENU PROMPT "查询(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, "" ;
	MESSAGE "查询学生、教师和课程信息"
DEFINE PAD _1f305nooj OF _MSYSMENU PROMPT "维护(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _1f305nook OF _MSYSMENU PROMPT "统计(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _1f305nool OF _MSYSMENU PROMPT "选课(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, "" ;
	SKIP FOR mainMenuValid(4,1)
DEFINE PAD _1f305noom OF _MSYSMENU PROMPT "打印(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _1f305noon OF _MSYSMENU PROMPT "帮助(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _1f305nooo OF _MSYSMENU PROMPT "退出(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, "" ;
	SKIP FOR mainMenuValid(7,1)
ON PAD mnu_query OF _MSYSMENU ACTIVATE POPUP 查询q
ON PAD _1f305nooj OF _MSYSMENU ACTIVATE POPUP 维护w
ON PAD _1f305nook OF _MSYSMENU ACTIVATE POPUP 统计t
ON SELECTION PAD _1f305nool OF _MSYSMENU do form "\教学管理信息系统\Forms\xsselke.scx"
ON PAD _1f305noom OF _MSYSMENU ACTIVATE POPUP 打印p
ON PAD _1f305noon OF _MSYSMENU ACTIVATE POPUP 帮助x
ON SELECTION PAD _1f305nooo OF _MSYSMENU ;
	DO _1f305noop ;
	IN LOCFILE("MENU\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")

DEFINE POPUP 查询q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询q PROMPT "学生成绩查询" ;
	SKIP FOR mainMenuValid(1,1)
DEFINE BAR 2 OF 查询q PROMPT "\-"
DEFINE BAR 3 OF 查询q PROMPT "学生信息查询" ;
	SKIP FOR mainMenuValid(1,2)
DEFINE BAR 4 OF 查询q PROMPT "教师信息查询" ;
	SKIP FOR mainMenuValid(1,3)
DEFINE BAR 5 OF 查询q PROMPT "课程信息查询" ;
	SKIP FOR mainMenuValid(1,4)
ON SELECTION BAR 1 OF 查询q do form "\教学管理信息系统\Forms\xscj.scx"
ON SELECTION BAR 3 OF 查询q do form "\教学管理信息系统\Forms\xs.scx"
ON SELECTION BAR 4 OF 查询q do form "\教学管理信息系统\Forms\js.scx"
ON SELECTION BAR 5 OF 查询q do form "\教学管理信息系统\Forms\kc.scx"

DEFINE POPUP 维护w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 维护w PROMPT "学生信息维护" ;
	SKIP FOR mainMenuValid(2,1)
DEFINE BAR 2 OF 维护w PROMPT "课程信息维护" ;
	SKIP FOR mainMenuValid(2,2)
DEFINE BAR 3 OF 维护w PROMPT "成绩信息维护" ;
	SKIP FOR mainMenuValid(2,3)
DEFINE BAR 4 OF 维护w PROMPT "班级信息维护" ;
	SKIP FOR mainMenuValid(2,4)
DEFINE BAR 5 OF 维护w PROMPT "系科信息维护" ;
	SKIP FOR mainMenuValid(2,5)
DEFINE BAR 6 OF 维护w PROMPT "教师信息维护" ;
	SKIP FOR mainMenuValid(2,6)
ON SELECTION BAR 1 OF 维护w do form "\教学管理信息系统\Forms\xsmanagement.scx"
ON SELECTION BAR 2 OF 维护w do form "\教学管理信息系统\Forms\kcmanagement.scx"
ON SELECTION BAR 3 OF 维护w do form "\教学管理信息系统\Forms\cjmanagement.scx"
ON SELECTION BAR 4 OF 维护w do form "\教学管理信息系统\Forms\bjmanagement.scx"
ON SELECTION BAR 5 OF 维护w do form "\教学管理信息系统\Forms\xkmanagement.scx"
ON SELECTION BAR 6 OF 维护w do form "\教学管理信息系统\Forms\jsmanagement.scx"

DEFINE POPUP 统计t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计t PROMPT "成绩统计" ;
	SKIP FOR mainMenuValid(3,1)
DEFINE BAR 2 OF 统计t PROMPT "课程统计" ;
	SKIP FOR mainMenuValid(3,2)
DEFINE BAR 3 OF 统计t PROMPT "班级统计" ;
	SKIP FOR mainMenuValid(3,3)
ON SELECTION BAR 1 OF 统计t do form "\教学管理信息系统\Forms\xscjstatistics.scx"
ON SELECTION BAR 2 OF 统计t do form "\教学管理信息系统\Forms\xskcstatistics.scx"
ON SELECTION BAR 3 OF 统计t do form "\教学管理信息系统\Forms\bjxsstatistics.scx"

DEFINE POPUP 打印p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印p PROMPT "学生课表打印" ;
	SKIP FOR mainMenuValid(5,1)
DEFINE BAR 2 OF 打印p PROMPT "班级信息打印" ;
	SKIP FOR mainMenuValid(5,2)
DEFINE BAR 3 OF 打印p PROMPT "课程成绩打印" ;
	SKIP FOR mainMenuValid(5,3)
ON SELECTION BAR 1 OF 打印p do form "\教学管理信息系统\Forms\dyxskb.scx"
ON SELECTION BAR 2 OF 打印p do form "\教学管理信息系统\Forms\dybjxs.scx"
ON SELECTION BAR 3 OF 打印p do form "\教学管理信息系统\Forms\dykccj.scx"

DEFINE POPUP 帮助x MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助x PROMPT "关于教学管理信息系统" ;
	SKIP FOR mainMenuValid(6,1)
ON SELECTION BAR 1 OF 帮助x do form "\教学管理信息系统\Forms\about.scx"

ON SELECTION POPUP 打印p ;
	DO _1f305nooq ;
	IN LOCFILE("MENU\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")

*       *********************************************************
*       *                                                         
*       * _1F305NOOP  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   32           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出(E)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f305noop
if messagebox("请确认是否退出?",292,"教学管理信息系统")=6
  wait "正在退出教学管理信息系统" window nowait
  wait clea
  CLEAR EVENT
endif


*       *********************************************************
*       *                                                         
*       * _1F305NOOQ  ON SELECTION POPUP 打印p                    
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   25           
*       * Called By:  ON SELECTION POPUP 打印p                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f305nooq
if sys(13)="offline"
messagebox("不能进行打印，请重试！")
else
messagebox("打印机设置完毕，请开始打印！")
endif