main_menu.bak

这是我学VFP数据库的期末设计一个员工工资管理系统有点瑕疵

*       *********************************************************
*       *                                                         
*       * 06/26/07            MAIN_MENU.MPR             21:55:09  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO parameter
SET SYSMENU AUTOMATIC

DEFINE PAD _msm_file OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	NEGOTIATE  LEFT, NONE ;
	KEY ALT+F, "" ;
	MESSAGE "创建、打开、保存、打印文件或退出 Visual FoxPro"
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, LEFT ;
	KEY ALT+E, "" ;
	MESSAGE "编辑文本或当前选定内容"
DEFINE PAD _msm_view OF _MSYSMENU PROMPT "查询(\<V)" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, LEFT ;
	KEY ALT+V, "" ;
	MESSAGE "设置显示选项"
DEFINE PAD _24a1azb0a OF _MSYSMENU PROMPT "统计(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _24a1azb0b OF _MSYSMENU PROMPT "打印(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _24a1azb0c OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
ON PAD _msm_view OF _MSYSMENU ACTIVATE POPUP 查询v
ON SELECTION PAD _24a1azb0c OF _MSYSMENU QUIT

DEFINE POPUP _mfile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF _mfile PROMPT "新建(\<N)..." ;
	KEY CTRL+N, "Ctrl+N" ;
	MESSAGE "创建新文件"
DEFINE BAR _mfi_open OF _mfile PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR _mfi_close OF _mfile PROMPT "关闭(\<C)" ;
	MESSAGE "关闭当前文件"
DEFINE BAR _mfi_save OF _mfile PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"

DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _medit PROMPT "档案数据(\<U)" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	MESSAGE "撤消上一次命令或操作"
DEFINE BAR 2 OF _medit PROMPT "工资数据(\<D)" ;
	KEY CTRL+R, "Ctrl+R" ;
	MESSAGE "重复上一次命令或操作"
DEFINE BAR _med_sp100 OF _medit PROMPT "\-"
DEFINE BAR 4 OF _medit PROMPT "增加员工(\<T)"
DEFINE BAR 5 OF _medit PROMPT "删除员工(\<C)"
DEFINE BAR _med_sp400 OF _medit PROMPT "\-"
DEFINE BAR _med_insob OF _medit PROMPT "插入对象(\<I)..." ;
	MESSAGE "在通用类型字段中嵌入一个对象"
ON BAR 1 OF _medit ACTIVATE POPUP 撤消u
ON SELECTION BAR 4 OF _medit DO FORM E:\期末作业\添加员工
ON SELECTION BAR 5 OF _medit DO FORM E:\期末作业\删除员工

DEFINE POPUP 撤消u MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 撤消u PROMPT "所有员工"
DEFINE BAR 2 OF 撤消u PROMPT "指定员工"
ON SELECTION BAR 1 OF 撤消u DO FORM E:\期末作业\编辑档案
ON SELECTION BAR 2 OF 撤消u DO FORM E:\期末作业\编辑档案2

DEFINE POPUP 查询v MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mvi_toolb OF 查询v PROMPT "工具栏(\<T)..." ;
	MESSAGE "显示、隐藏或定制工具栏"