学生管理菜单.mpr

学生管理系统

*       *********************************************************
*       *                                                         
*       * 12/17/05          学生管理菜单.MPR            17:27:35  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2005 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1oq11f7hc OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
DEFINE PAD _1oq11f7hd OF _MSYSMENU PROMPT "浏览" COLOR SCHEME 3
DEFINE PAD _1oq11f7he OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _1oq11f7hf OF _MSYSMENU PROMPT "录入" COLOR SCHEME 3
DEFINE PAD _1oq11f7hg OF _MSYSMENU PROMPT "修改" COLOR SCHEME 3
DEFINE PAD _1oq11f7hh OF _MSYSMENU PROMPT "删除" COLOR SCHEME 3
ON PAD _1oq11f7hc OF _MSYSMENU ACTIVATE POPUP 文件
ON SELECTION PAD _1oq11f7hd OF _MSYSMENU do form f:\学生管理系统\学生基本情况表单
ON PAD _1oq11f7he OF _MSYSMENU ACTIVATE POPUP 查询
ON SELECTION PAD _1oq11f7hf OF _MSYSMENU ;
	DO _1oq11f7hi ;
	IN LOCFILE("\学生管理系统\学生管理菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 学生管理菜单?")
ON PAD _1oq11f7hg OF _MSYSMENU ACTIVATE POPUP 修改
ON PAD _1oq11f7hh OF _MSYSMENU ACTIVATE POPUP 删除

DEFINE POPUP 文件 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF 文件 PROMPT "新建(\<N)..." ;
	KEY CTRL+N, "Ctrl+N" ;
	MESSAGE "创建新文件"
DEFINE BAR _mfi_open OF 文件 PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR _mfi_close OF 文件 PROMPT "关闭(\<C)" ;
	MESSAGE "关闭当前文件"
DEFINE BAR _mfi_save OF 文件 PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"
DEFINE BAR _mfi_savas OF 文件 PROMPT "另存为(\<A)..." ;
	MESSAGE "用新文件名保存当前改动了的文件"
DEFINE BAR 6 OF 文件 PROMPT "退出(\<X)" ;
	MESSAGE "退出 Visual FoxPro"
ON SELECTION BAR 6 OF 文件 ;
	DO _1oq11f7hj ;
	IN LOCFILE("\学生管理系统\学生管理菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 学生管理菜单?")

DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询 PROMPT "按姓名查询"
DEFINE BAR 2 OF 查询 PROMPT "按学号查询"
ON SELECTION BAR 1 OF 查询 do form f:\学生管理系统\姓名查询表单
ON SELECTION BAR 2 OF 查询 do form f:\学生管理系统\查询表单

DEFINE POPUP 修改 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改 PROMPT "按姓名查询"
DEFINE BAR 2 OF 修改 PROMPT "按学号查询"
ON SELECTION BAR 1 OF 修改 do form f:\学生管理系统\姓名查询表单
ON SELECTION BAR 2 OF 修改 do form f:\学生管理系统\查询表单

DEFINE POPUP 删除 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 删除 PROMPT "按姓名查询"
DEFINE BAR 2 OF 删除 PROMPT "按学号查询"
ON SELECTION BAR 1 OF 删除 do form f:\学生管理系统\姓名查询表单
ON SELECTION BAR 2 OF 删除 do form f:\学生管理系统\查询表单


*       *********************************************************
*       *                                                         
*       * _1OQ11F7HI  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  学生管理菜单.MPR,            Record:   16   
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     录入                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1oq11f7hi
use 基本情况 in 1
use 学习情况 in 2
use 违纪情况 in 3
use 社会关系 in 4
use 补助情况 in 5

select 基本情况
append
select 学习情况
append
select 违纪情况
append
select 社会关系
append
select 补助情况
append




*       *********************************************************
*       *                                                         
*       * _1OQ11F7HJ  ON SELECTION BAR 6 OF POPUP 文件            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  学生管理菜单.MPR,            Record:   10   
*       * Called By:  ON SELECTION BAR 6 OF POPUP 文件            
*       * Prompt:     退出(X)                                     
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1oq11f7hj
SET SYSMENU TO DEFAULT
CLEAR EVENTS