主菜单.bak

VFP 一个简单的例子

*       *********************************************************
*       *                                                         
*       * 05/10/10             主菜单.MPR               22:41:57  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2010 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2xk1cnhby OF _MSYSMENU PROMPT "学生管理" COLOR SCHEME 3
DEFINE PAD _2xk1cnhbz OF _MSYSMENU PROMPT "成绩管理" COLOR SCHEME 3
DEFINE PAD _2xk1cnhc0 OF _MSYSMENU PROMPT "授课管理" COLOR SCHEME 3
DEFINE PAD _2xk1cnhc1 OF _MSYSMENU PROMPT "课程管理" COLOR SCHEME 3
DEFINE PAD _2xk1cnhc2 OF _MSYSMENU PROMPT "\<E退出" COLOR SCHEME 3 ;
	KEY ALT+E, ""
ON PAD _2xk1cnhby OF _MSYSMENU ACTIVATE POPUP 学生管理
ON PAD _2xk1cnhbz OF _MSYSMENU ACTIVATE POPUP 成绩管理
ON PAD _2xk1cnhc0 OF _MSYSMENU ACTIVATE POPUP 授课管理
ON PAD _2xk1cnhc1 OF _MSYSMENU ACTIVATE POPUP 课程管理
ON SELECTION PAD _2xk1cnhc2 OF _MSYSMENU ;
	DO _2xk1cnhc3 ;
	IN LOCFILE("教学管理系统\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")

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 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 "课程对照表"
DEFINE BAR 2 OF 课程管理 PROMPT "课程表"


*       *********************************************************
*       *                                                         
*       * _2XK1CNHC3  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主菜单.MPR,            Record:   20         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     E退出                                       
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2xk1cnhc3
set sysmenu to default   &&&&设置系统菜单为缺省菜单
show menu 主菜单
*quit