教师.mpr

能够实现学生管理的基本功能

*       *********************************************************
*       *                                                         
*       * 11/24/07              教师.MPR                22:32:06  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _28h1catf1 OF _MSYSMENU PROMPT "教师信息" COLOR SCHEME 3
DEFINE PAD _28h1catf2 OF _MSYSMENU PROMPT "学生信息" COLOR SCHEME 3
DEFINE PAD _28h1catf3 OF _MSYSMENU PROMPT "院系信息" COLOR SCHEME 3
DEFINE PAD _28h1catf4 OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _28h1catf5 OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
DEFINE PAD _28h1catf6 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _28h1catf1 OF _MSYSMENU ACTIVATE POPUP 教师信息
ON PAD _28h1catf2 OF _MSYSMENU ACTIVATE POPUP 学生信息
ON PAD _28h1catf3 OF _MSYSMENU ACTIVATE POPUP 院系信息
ON PAD _28h1catf4 OF _MSYSMENU ACTIVATE POPUP 报表打印
ON PAD _28h1catf5 OF _MSYSMENU ACTIVATE POPUP 帮助
ON PAD _28h1catf6 OF _MSYSMENU ACTIVATE POPUP 退出

DEFINE POPUP 教师信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 教师信息 PROMPT "教师基本信息"
ON SELECTION BAR 1 OF 教师信息 do form 教师信息11

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 学生信息11
ON SELECTION BAR 2 OF 学生信息 do form 学生信息查询

DEFINE POPUP 院系信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 院系信息 PROMPT "院系信息查询"
ON SELECTION BAR 1 OF 院系信息 do form 院系查询

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 学生报表
ON SELECTION BAR 2 OF 报表打印 do form 教师报表

DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "帮助"

DEFINE POPUP 退出 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出 PROMPT "退出系统"
ON SELECTION BAR 1 OF 退出 ;
	DO _28h1catf7 ;
	IN LOCFILE("\学生信息管理系统XIN\教师" ,"MPX;MPR|FXP;PRG" ,"WHERE is 教师?")


*       *********************************************************
*       *                                                         
*       * _28H1CATF7  ON SELECTION BAR 1 OF POPUP 退出            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  教师.MPR,            Record:   22           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 退出            
*       * Prompt:     退出系统                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _28h1catf7
use
modify window screen
set sysmenu to default
activate window command