menu.mpr

把每次考试的成绩导入库中

*       *********************************************************
*       *                                                         
*       * 11/17/08              MENU.MPR                18:06:21  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2008 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2ii12t1zk OF _MSYSMENU PROMPT "查  询" COLOR SCHEME 3 ;
	SKIP FOR cdbz<>1
DEFINE PAD _2ii12t1zl OF _MSYSMENU PROMPT "退  出" COLOR SCHEME 3
ON SELECTION PAD _2ii12t1zk OF _MSYSMENU ;
	DO _2ii12t1zm ;
	IN LOCFILE("\CJCX\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION PAD _2ii12t1zl OF _MSYSMENU ;
	DO _2ii12t1zn ;
	IN LOCFILE("\CJCX\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")


*       *********************************************************
*       *                                                         
*       * _2II12T1ZM  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:    3           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     查  询                                      
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2ii12t1zm
do form cjcx



*       *********************************************************
*       *                                                         
*       * _2II12T1ZN  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:    4           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退  出                                      
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2ii12t1zn
releas all
clear events
clear menus main
clos all
retu