menua.mpr

2002年全国计算机等级考试 二级VFP的上机题(WORD文档),里面有上机环境!

*       *********************************************************
*       *                                                         
*       * 05/30/05              MENUA.MPR               11:12:32  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2005 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1j50o0vts OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
DEFINE PAD _1j50o0vtt OF _MSYSMENU PROMPT "学生档案管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
ON PAD _1j50o0vts OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _1j50o0vtt OF _MSYSMENU ACTIVATE POPUP 学生档案管

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_prevu OF 文件f PROMPT "打印预览(\<V)" ;
	MESSAGE "在打印前显示整个页面"
DEFINE BAR 2 OF 文件f PROMPT "恢复系统菜单" ;
	KEY CTRL+D, "CTRL+D"
ON SELECTION BAR 2 OF 文件f set sysmenu to default

DEFINE POPUP 学生档案管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生档案管 PROMPT "录入"
DEFINE BAR 2 OF 学生档案管 PROMPT "\-"
DEFINE BAR 3 OF 学生档案管 PROMPT "查询"
ON SELECTION BAR 1 OF 学生档案管 do form formc
ON SELECTION BAR 3 OF 学生档案管 ;
	DO _1j50o0vu2 ;
	IN LOCFILE("\2003-2\MENUA" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENUA?")


*       *********************************************************
*       *                                                         
*       * _1J50O0VU2  ON SELECTION BAR 3 OF POPUP 学生档案管      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENUA.MPR,            Record:   11          
*       * Called By:  ON SELECTION BAR 3 OF POPUP 学生档案管      
*       * Prompt:     查询                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1j50o0vu2
 IF !USED("XS")
USE XS
         ELSE
SELECT XS
         ENDIF
         BROWSE