主菜单.mpr

是一个学校的评教评学软件

*       *********************************************************
*       *                                                         
*       * 12/23/04             主菜单.MPR               04:23:00  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1eq09e8c9 OF _MSYSMENU PROMPT "评教表(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _1eq09e8ca OF _MSYSMENU PROMPT "修改数据(\<l)" COLOR SCHEME 3 ;
	KEY ALT+L, ""
DEFINE PAD _1eq09e8cb OF _MSYSMENU PROMPT "退出(\<x)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON SELECTION PAD _1eq09e8c9 OF _MSYSMENU ;
	DO _1eq09e8cc ;
	IN LOCFILE("\南湖学校\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION PAD _1eq09e8ca OF _MSYSMENU ;
	DO _1eq09e8cj ;
	IN LOCFILE("\南湖学校\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION PAD _1eq09e8cb OF _MSYSMENU ;
	DO _1eq09e8ck ;
	IN LOCFILE("\南湖学校\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")


*       *********************************************************
*       *                                                         
*       * _1EQ09E8CC  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主菜单.MPR,            Record:    3         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     评教表(P)                                   
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1eq09e8cc
if wexist('修改')
return .f.
else
do form 评教表.scx
endif


*       *********************************************************
*       *                                                         
*       * _1EQ09E8CJ  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主菜单.MPR,            Record:    4         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     修改数据(l)                                 
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1eq09e8cj
if wexist('评教表')
return .f.
else
do form 口令.scx
endif


*       *********************************************************
*       *                                                         
*       * _1EQ09E8CK  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主菜单.MPR,            Record:    5         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出(x)                                     
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1eq09e8ck
set sysmenu nosave
set sysmenu to default
clear  events