mainmenu.bak

一个功能较单一的企业工资管理系统。用FoxPro开发

*       *********************************************************
*       *                                                         
*       * 11/02/05            MAINMENU.MPR              15:14:25  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2005 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1nh0wnyb5 OF _MSYSMENU PROMPT "工资管理(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _1nh0wnyb6 OF _MSYSMENU PROMPT "工资发放(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _1nh0wnyb7 OF _MSYSMENU PROMPT "工资查询(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _1nh0wnyb8 OF _MSYSMENU PROMPT "系统管理(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _1nh0wnyb9 OF _MSYSMENU PROMPT "更改密码(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _1nh0wnyba OF _MSYSMENU PROMPT "退出(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
ON PAD _1nh0wnyb5 OF _MSYSMENU ACTIVATE POPUP 工资管理g
ON PAD _1nh0wnyb6 OF _MSYSMENU ACTIVATE POPUP 工资发放f
ON PAD _1nh0wnyb7 OF _MSYSMENU ACTIVATE POPUP 工资查询c
ON PAD _1nh0wnyb8 OF _MSYSMENU ACTIVATE POPUP 系统管理x
ON PAD _1nh0wnyb9 OF _MSYSMENU ACTIVATE POPUP 更改密码p
ON SELECTION PAD _1nh0wnyba OF _MSYSMENU quit

DEFINE POPUP 工资管理g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工资管理g PROMPT "基础信息维护(\<W)"
DEFINE BAR 2 OF 工资管理g PROMPT "\-"
DEFINE BAR 3 OF 工资管理g PROMPT "计算提租补贴(\<G)"
DEFINE BAR 4 OF 工资管理g PROMPT "计算个调税(\<S)"
DEFINE BAR 5 OF 工资管理g PROMPT "\-"
DEFINE BAR 6 OF 工资管理g PROMPT "工资统调(\<T)"
DEFINE BAR 7 OF 工资管理g PROMPT "单项调整(\<D)"
DEFINE BAR 8 OF 工资管理g PROMPT "部门调整(\<Z)"
ON SELECTION BAR 1 OF 工资管理g do form gzgl.scx
ON SELECTION BAR 3 OF 工资管理g do tzbt.prg
ON SELECTION BAR 4 OF 工资管理g do gts.prg
ON SELECTION BAR 6 OF 工资管理g do form gztt.scx
ON SELECTION BAR 7 OF 工资管理g do form gzdt.scx
ON SELECTION BAR 8 OF 工资管理g do form zgbmtz.scx

DEFINE POPUP 工资发放f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工资发放f PROMPT "发放确认(\<Q|"
DEFINE BAR 2 OF 工资发放f PROMPT "\-"
DEFINE BAR 3 OF 工资发放f PROMPT "报表打印"
ON SELECTION BAR 1 OF 工资发放f do form gzff.scx
ON BAR 3 OF 工资发放f ACTIVATE POPUP 报表打印p

DEFINE POPUP 报表打印p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表打印p PROMPT "部门工资清单"
DEFINE BAR 2 OF 报表打印p PROMPT "汇总清单"
ON SELECTION BAR 1 OF 报表打印p do form gzbm.scx
ON SELECTION BAR 2 OF 报表打印p do form hzbb.scx

DEFINE POPUP 工资查询c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工资查询c PROMPT "工资查询"
DEFINE BAR 2 OF 工资查询c PROMPT "实发数查询"
ON SELECTION BAR 1 OF 工资查询c do form gzcx.scx
ON SELECTION BAR 2 OF 工资查询c do form sfcx.scx

DEFINE POPUP 系统管理x MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理x PROMPT "项目管理(\<M)"
DEFINE BAR 2 OF 系统管理x PROMPT "部门管理(\<B)"
DEFINE BAR 3 OF 系统管理x PROMPT "\-"
DEFINE BAR 4 OF 系统管理x PROMPT "提租补贴设置(\<J)"
DEFINE BAR 5 OF 系统管理x PROMPT "\-"
DEFINE BAR 6 OF 系统管理x PROMPT "打印设置(\<P)"
ON SELECTION BAR 1 OF 系统管理x do form xmgl.scx
ON SELECTION BAR 2 OF 系统管理x do form bmgl.scx
ON SELECTION BAR 4 OF 系统管理x do form tzsz.scx
ON SELECTION BAR 6 OF 系统管理x do setpr.prg

DEFINE POPUP 更改密码p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 更改密码p PROMPT "更改密码"
ON SELECTION BAR 1 OF 更改密码p do form user_pw.scx