菜单1.mpr

教务管理系统．．．．．我们ＶＦＰ的大作业

*       *********************************************************
*       *                                                         
*       * 07/09/05              菜单1.MPR               09:52:28  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2005 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1k90l5xng OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3 ;
	KEY ALT+Q, "ALT+Q"
DEFINE PAD _1k90l5xnh OF _MSYSMENU PROMPT "维护" COLOR SCHEME 3
DEFINE PAD _1k90l5xni OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD _1k90l5xnj OF _MSYSMENU PROMPT "选课" COLOR SCHEME 3
DEFINE PAD _1k90l5xnk OF _MSYSMENU PROMPT "打印" COLOR SCHEME 3
DEFINE PAD _1k90l5xnl OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3 ;
	KEY F1, "F1"
DEFINE PAD _1k90l5xnm OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3 ;
	KEY ALT+E, "ALT+E"
ON PAD _1k90l5xng OF _MSYSMENU ACTIVATE POPUP 查询
ON SELECTION PAD _1k90l5xnh OF _MSYSMENU ;
	DO _1k90l5xnn ;
	IN LOCFILE("E:\0412309\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON PAD _1k90l5xni OF _MSYSMENU ACTIVATE POPUP 统计
ON SELECTION PAD _1k90l5xnj OF _MSYSMENU ;
	DO _1k90l5xno ;
	IN LOCFILE("E:\0412309\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON PAD _1k90l5xnk OF _MSYSMENU ACTIVATE POPUP 打印
ON PAD _1k90l5xnl OF _MSYSMENU ACTIVATE POPUP 帮助
ON SELECTION PAD _1k90l5xnm OF _MSYSMENU quit

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 "学生成绩"
ON SELECTION BAR 1 OF 查询 do form "表单\学生信息.scx"
ON SELECTION BAR 2 OF 查询 do form "表单\教师.scx"
ON SELECTION BAR 3 OF 查询 do form "表单\课程.scx"
ON SELECTION BAR 5 OF 查询 do form "表单\成绩查询.scx"

DEFINE POPUP 统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计 PROMPT "统计"
DEFINE BAR 2 OF 统计 PROMPT "统计课程"
ON SELECTION BAR 1 OF 统计 do form "表单\统计.scx"
ON SELECTION BAR 2 OF 统计 do form "表单\统计课程.scx"

DEFINE POPUP 打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印 PROMPT "课程成绩"
DEFINE BAR 2 OF 打印 PROMPT "班级信息"
ON SELECTION BAR 1 OF 打印 ;
	DO _1k90l5xnp ;
	IN LOCFILE("E:\0412309\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 2 OF 打印 ;
	DO _1k90l5xnv ;
	IN LOCFILE("E:\0412309\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")

DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "关于"
ON SELECTION BAR 1 OF 帮助 ;
	DO _1k90l5xnw ;
	IN LOCFILE("E:\0412309\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")


*       *********************************************************
*       *                                                         
*       * _1K90L5XNN  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   10          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     维护                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1k90l5xnn
do form "表单\维护.scx"


*       *********************************************************
*       *                                                         
*       * _1K90L5XNO  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   15          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     选课                                        
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1k90l5xno
do form "表单\选课.scx"


*       *********************************************************
*       *                                                         
*       * _1K90L5XNP  ON SELECTION BAR 1 OF POPUP 打印            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   18          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 打印            
*       * Prompt:     课程成绩                                    
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1k90l5xnp
report form "课程成绩.frx" preview



*       *********************************************************
*       *                                                         
*       * _1K90L5XNV  ON SELECTION BAR 2 OF POPUP 打印            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   19          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 打印            
*       * Prompt:     班级信息                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1k90l5xnv
report form "班级.frx" preview



*       *********************************************************
*       *                                                         
*       * _1K90L5XNW  ON SELECTION BAR 1 OF POPUP 帮助            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   22          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 帮助            
*       * Prompt:     关于                                        
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1k90l5xnw
tempstr="教务信息管理系统"+chr(13)
messagebox(tempstr, 0+64 ,"教务信息管理软件")