student.mpr

％8D通信05-1班-姜海中-0502020130-学生信息管理系统

*       *********************************************************
*       *                                                         
*       * 09/12/04             STUDENT.MPR              08:14:26  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 韩江恩                                                  
*       *                                                         
*       * 版权所有 (C) 2004 河南理工大学                         
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1bw0hnv3u OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _1bw0hnv3v OF _MSYSMENU PROMPT "信息查询(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _1bw0hnv3w OF _MSYSMENU PROMPT "个人资料修改(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _1bw0hnv3x OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _1bw0hnv3y OF _MSYSMENU PROMPT "退出系统(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
ON PAD _1bw0hnv3u OF _MSYSMENU ACTIVATE POPUP 文件f
ON SELECTION PAD _1bw0hnv3v OF _MSYSMENU do form 学生查询.scx
ON SELECTION PAD _1bw0hnv3w OF _MSYSMENU do form student.scx
ON SELECTION PAD _1bw0hnv3x OF _MSYSMENU do form help.scx
ON SELECTION PAD _1bw0hnv3y OF _MSYSMENU ;
	DO _1bw0hnv3z ;
	IN LOCFILE("学生信息管理系统\STUDENT" ,"MPX;MPR|FXP;PRG" ,"WHERE is STUDENT?")

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_open OF 文件f PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR _mfi_save OF 文件f PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"
DEFINE BAR _mfi_savas OF 文件f PROMPT "另存为(\<A)..." ;
	MESSAGE "用新文件名保存当前改动了的文件"
DEFINE BAR _mfi_quit OF 文件f PROMPT "退出(\<X)" ;
	MESSAGE "退出 Visual FoxPro"


*       *********************************************************
*       *                                                         
*       * _1BW0HNV3Z  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  STUDENT.MPR,            Record:   12        
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出系统(E)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1bw0hnv3z
clear events
quit