主菜单.mpr

VFP 一个简单的例子

*       *********************************************************
*       *                                                         
*       * 02/24/03             主菜单.MPR               20:58:57  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0w418z1gj OF _MSYSMENU PROMPT "员工管理" COLOR SCHEME 3
DEFINE PAD _0w418z1gk OF _MSYSMENU PROMPT "成绩管理" COLOR SCHEME 3
DEFINE PAD _0w418z1gl OF _MSYSMENU PROMPT "授课管理" COLOR SCHEME 3
DEFINE PAD _0w418z1gm OF _MSYSMENU PROMPT "课程管理" COLOR SCHEME 3
DEFINE PAD _0w418z1gn OF _MSYSMENU PROMPT "\<E退出" COLOR SCHEME 3 ;
	KEY ALT+E, ""
ON PAD _0w418z1gj OF _MSYSMENU ACTIVATE POPUP 员工管理
ON PAD _0w418z1gk OF _MSYSMENU ACTIVATE POPUP 成绩管理
ON PAD _0w418z1gl OF _MSYSMENU ACTIVATE POPUP 授课管理
ON PAD _0w418z1gm OF _MSYSMENU ACTIVATE POPUP 课程管理
ON SELECTION PAD _0w418z1gn OF _MSYSMENU ;
	DO _0w418z1go ;
	IN LOCFILE("D:\兼职材料\VISUALFOXPRO\WORD文档\案例分析\教学管理系统\主菜单" ,"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 "课程表"


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