管理员.mpr

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

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _28h1byd62 OF _MSYSMENU PROMPT "教师信息" COLOR SCHEME 3
DEFINE PAD _28h1byd63 OF _MSYSMENU PROMPT "学生信息" COLOR SCHEME 3
DEFINE PAD _28h1byd64 OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _28h1byd65 OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
DEFINE PAD _28h1byd66 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _28h1byd62 OF _MSYSMENU ACTIVATE POPUP 教师信息
ON PAD _28h1byd63 OF _MSYSMENU ACTIVATE POPUP 学生信息
ON PAD _28h1byd64 OF _MSYSMENU ACTIVATE POPUP 报表打印
ON PAD _28h1byd65 OF _MSYSMENU ACTIVATE POPUP 帮助
ON PAD _28h1byd66 OF _MSYSMENU ACTIVATE POPUP 退出

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 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 _28h1byd67 ;
	IN LOCFILE("\学生信息管理系统XIN\管理员" ,"MPX;MPR|FXP;PRG" ,"WHERE is 管理员?")


*       *********************************************************
*       *                                                         
*       * _28H1BYD67  ON SELECTION BAR 1 OF POPUP 退出            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  管理员.MPR,            Record:   20         
*       * Called By:  ON SELECTION BAR 1 OF POPUP 退出            
*       * Prompt:     退出系统                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _28h1byd67
use
modify window screen
set sysmenu to default
activate window command