menumain.mpr

这次设计的是一个汽配管理系统

*       *********************************************************
*       *                                                         
*       * 09/17/06            MENUMAIN.MPR              12:36:34  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * wgh                                                     
*       *                                                         
*       * 版权所有 (C) 2006 mr                                   
*       * 长春市人民大街8号                                       
*       * 长春市, 吉林  130051                                      
*       * china                                             
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1we0r0y8v OF _MSYSMENU PROMPT "日常业务(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _1we0r0y8w OF _MSYSMENU PROMPT "库存管理(\<K)" COLOR SCHEME 3 ;
	KEY ALT+K, "" ;
	SKIP FOR purview>2 AND purview<>4
DEFINE PAD _1we0r0y8x OF _MSYSMENU PROMPT "查询统计(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, "" ;
	SKIP FOR purview>2 AND purview<>4
DEFINE PAD _1we0r0y8y OF _MSYSMENU PROMPT "报表管理(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, "" ;
	SKIP FOR purview>2 AND purview<>4
DEFINE PAD _1we0r0y8z OF _MSYSMENU PROMPT "基础信息管理(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, "" ;
	SKIP FOR purview>2 AND purview<>4
DEFINE PAD _1we0r0y90 OF _MSYSMENU PROMPT "系统管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, "" ;
	SKIP FOR purview>1 AND purview<>4
DEFINE PAD _1we0r0y91 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1we0r0y8v OF _MSYSMENU ACTIVATE POPUP 日常业务g
ON PAD _1we0r0y8w OF _MSYSMENU ACTIVATE POPUP 库存管理k
ON PAD _1we0r0y8x OF _MSYSMENU ACTIVATE POPUP 查询统计q
ON PAD _1we0r0y8y OF _MSYSMENU ACTIVATE POPUP 报表管理r
ON PAD _1we0r0y8z OF _MSYSMENU ACTIVATE POPUP 基础信息管
ON PAD _1we0r0y90 OF _MSYSMENU ACTIVATE POPUP 系统管理s
ON PAD _1we0r0y91 OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 日常业务g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 日常业务g PROMPT "出库登记(\<O)" ;
	SKIP FOR purview>4 OR pckdj=.f.
DEFINE BAR 2 OF 日常业务g PROMPT "入库登记(\<I)" ;
	SKIP FOR purview>4 OR prkdj=.f.
DEFINE BAR 3 OF 日常业务g PROMPT "\-"
DEFINE BAR 4 OF 日常业务g PROMPT "出库退货(\<T)" ;
	SKIP FOR purview>4 OR pckth=.f.
DEFINE BAR 5 OF 日常业务g PROMPT "入库退货(\<H)" ;
	SKIP FOR purview>4 OR prkth=.f.
DEFINE BAR 6 OF 日常业务g PROMPT "\-"
DEFINE BAR 7 OF 日常业务g PROMPT "退出(\<X)" ;
	KEY ALT+F4, "ALT+F4"
ON SELECTION BAR 1 OF 日常业务g do form qpgl\form\chukudj
ON SELECTION BAR 2 OF 日常业务g do form qpgl\form\rukudj
ON SELECTION BAR 4 OF 日常业务g do form qpgl\form\chukuth
ON SELECTION BAR 5 OF 日常业务g do form qpgl\form\rukuth
ON SELECTION BAR 7 OF 日常业务g quit

DEFINE POPUP 库存管理k MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 库存管理k PROMPT "库存查询" ;
	SKIP FOR pkccx=.f.
DEFINE BAR 2 OF 库存管理k PROMPT "\-"
DEFINE BAR 3 OF 库存管理k PROMPT "库存盘点" ;
	SKIP FOR pkcpd=.f.
ON SELECTION BAR 1 OF 库存管理k do form qpgl\form\kcquery
ON SELECTION BAR 3 OF 库存管理k do form qpgl\form\kcpandian

DEFINE POPUP 查询统计q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询统计q PROMPT "出库查询" ;
	SKIP FOR purview>4 OR pckcx=.f.
DEFINE BAR 2 OF 查询统计q PROMPT "入库查询" ;
	SKIP FOR purview>4 OR prkcx=.f.
DEFINE BAR 3 OF 查询统计q PROMPT "\-"
DEFINE BAR 4 OF 查询统计q PROMPT "出库退货查询" ;
	SKIP FOR purview>4 OR pckthcx=.f.
DEFINE BAR 5 OF 查询统计q PROMPT "入库退货查询" ;
	SKIP FOR purview>4 OR prkthcx=.f.
ON SELECTION BAR 1 OF 查询统计q do form qpgl\form\chukuquery
ON SELECTION BAR 2 OF 查询统计q do form qpgl\form\rukuquery
ON SELECTION BAR 4 OF 查询统计q do form qpgl\form\ckthquery
ON SELECTION BAR 5 OF 查询统计q do form qpgl\form\rkthquery

DEFINE POPUP 报表管理r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表管理r PROMPT "出库报表" ;
	SKIP FOR purview>4 OR pckbb=.f.
DEFINE BAR 2 OF 报表管理r PROMPT "入库报表" ;
	SKIP FOR purview>4 OR prkbb=.f.
DEFINE BAR 3 OF 报表管理r PROMPT "\-"
DEFINE BAR 4 OF 报表管理r PROMPT "库存报表" ;
	SKIP FOR purview>4 OR pkcbb=.f.
ON SELECTION BAR 1 OF 报表管理r do form qpgl\form\chukureports
ON SELECTION BAR 2 OF 报表管理r do form qpgl\form\rukureports
ON SELECTION BAR 4 OF 报表管理r do form qpgl\form\kcreports

DEFINE POPUP 基础信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 基础信息管 PROMPT "商品信息" ;
	SKIP FOR purview>4 OR pspinfo=.f.
DEFINE BAR 2 OF 基础信息管 PROMPT "\-"
DEFINE BAR 3 OF 基础信息管 PROMPT "员工信息" ;
	SKIP FOR purview>4 OR pyginfo=.f.
DEFINE BAR 4 OF 基础信息管 PROMPT "\-"
DEFINE BAR 5 OF 基础信息管 PROMPT "客户信息" ;
	SKIP FOR purview>4 OR pkhinfo=.f.
DEFINE BAR 6 OF 基础信息管 PROMPT "\-"
DEFINE BAR 7 OF 基础信息管 PROMPT "供应商信息" ;
	SKIP FOR purview>4 OR pgysinfo=.f.
ON SELECTION BAR 1 OF 基础信息管 do form qpgl\form\spmanage
ON SELECTION BAR 3 OF 基础信息管 do form qpgl\form\ygmanage
ON SELECTION BAR 5 OF 基础信息管 do form qpgl\form\khmanage
ON SELECTION BAR 7 OF 基础信息管 do form qpgl\form\gysmanage

DEFINE POPUP 系统管理s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理s PROMPT "操作员管理" ;
	SKIP FOR purview>4 OR pczygl=.f.
DEFINE BAR 2 OF 系统管理s PROMPT "权限管理" ;
	SKIP FOR purview>4 OR pqxgl=.f.
DEFINE BAR 3 OF 系统管理s PROMPT "\-"
DEFINE BAR 4 OF 系统管理s PROMPT "数据备份" ;
	SKIP FOR purview>4 OR psjbf=.f.
DEFINE BAR 5 OF 系统管理s PROMPT "数据恢复" ;
	SKIP FOR purview>4 OR psjhf=.f.
ON SELECTION BAR 1 OF 系统管理s do form qpgl\form\modifypassword
ON SELECTION BAR 2 OF 系统管理s do form qpgl\form\fpurview
ON SELECTION BAR 4 OF 系统管理s do form qpgl\form\databasebak
ON SELECTION BAR 5 OF 系统管理s do form qpgl\form\databasebackup

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助"
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "关于本软件..."
ON SELECTION BAR 1 OF 帮助h do form qpgl\form\help
ON SELECTION BAR 3 OF 帮助h do form qpgl\form\about