*       *********************************************************
*       *                                                         
*       * 09/17/06            MENUMAIN.MPR              12:36:34  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * wgh                                                     
*       *                                                         
*       * 版權(quán)所有 (C) 2006 mr                                   
*       * 長春市人民大街8號                                       
*       * 長春市, 吉林  130051                                      
*       * china                                             
*       *                                                         
*       * 說明:                                            
*       * 此程序由 GENMENU 自動生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜單定義                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1we0r0y8v OF _MSYSMENU PROMPT "日常業(yè)務(wù)(\<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 "查詢統(tǒng)計(jì)(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, "" ;
	SKIP FOR purview>2 AND purview<>4
DEFINE PAD _1we0r0y8y OF _MSYSMENU PROMPT "報(bào)表管理(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, "" ;
	SKIP FOR purview>2 AND purview<>4
DEFINE PAD _1we0r0y8z OF _MSYSMENU PROMPT "基礎(chǔ)信息管理(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, "" ;
	SKIP FOR purview>2 AND purview<>4
DEFINE PAD _1we0r0y90 OF _MSYSMENU PROMPT "系統(tǒng)管理(\<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 日常業(yè)務(wù)g
ON PAD _1we0r0y8w OF _MSYSMENU ACTIVATE POPUP 庫存管理k
ON PAD _1we0r0y8x OF _MSYSMENU ACTIVATE POPUP 查詢統(tǒng)計(jì)q
ON PAD _1we0r0y8y OF _MSYSMENU ACTIVATE POPUP 報(bào)表管理r
ON PAD _1we0r0y8z OF _MSYSMENU ACTIVATE POPUP 基礎(chǔ)信息管
ON PAD _1we0r0y90 OF _MSYSMENU ACTIVATE POPUP 系統(tǒng)管理s
ON PAD _1we0r0y91 OF _MSYSMENU ACTIVATE POPUP 幫助h

DEFINE POPUP 日常業(yè)務(wù)g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 日常業(yè)務(wù)g PROMPT "出庫登記(\<O)" ;
	SKIP FOR purview>4 OR pckdj=.f.
DEFINE BAR 2 OF 日常業(yè)務(wù)g PROMPT "入庫登記(\<I)" ;
	SKIP FOR purview>4 OR prkdj=.f.
DEFINE BAR 3 OF 日常業(yè)務(wù)g PROMPT "\-"
DEFINE BAR 4 OF 日常業(yè)務(wù)g PROMPT "出庫退貨(\<T)" ;
	SKIP FOR purview>4 OR pckth=.f.
DEFINE BAR 5 OF 日常業(yè)務(wù)g PROMPT "入庫退貨(\<H)" ;
	SKIP FOR purview>4 OR prkth=.f.
DEFINE BAR 6 OF 日常業(yè)務(wù)g PROMPT "\-"
DEFINE BAR 7 OF 日常業(yè)務(wù)g PROMPT "退出(\<X)" ;
	KEY ALT+F4, "ALT+F4"
ON SELECTION BAR 1 OF 日常業(yè)務(wù)g do form qpgl\form\chukudj
ON SELECTION BAR 2 OF 日常業(yè)務(wù)g do form qpgl\form\rukudj
ON SELECTION BAR 4 OF 日常業(yè)務(wù)g do form qpgl\form\chukuth
ON SELECTION BAR 5 OF 日常業(yè)務(wù)g do form qpgl\form\rukuth
ON SELECTION BAR 7 OF 日常業(yè)務(wù)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 "庫存盤點(diǎn)" ;
	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 查詢統(tǒng)計(jì)q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查詢統(tǒng)計(jì)q PROMPT "出庫查詢" ;
	SKIP FOR purview>4 OR pckcx=.f.
DEFINE BAR 2 OF 查詢統(tǒng)計(jì)q PROMPT "入庫查詢" ;
	SKIP FOR purview>4 OR prkcx=.f.
DEFINE BAR 3 OF 查詢統(tǒng)計(jì)q PROMPT "\-"
DEFINE BAR 4 OF 查詢統(tǒng)計(jì)q PROMPT "出庫退貨查詢" ;
	SKIP FOR purview>4 OR pckthcx=.f.
DEFINE BAR 5 OF 查詢統(tǒng)計(jì)q PROMPT "入庫退貨查詢" ;
	SKIP FOR purview>4 OR prkthcx=.f.
ON SELECTION BAR 1 OF 查詢統(tǒng)計(jì)q do form qpgl\form\chukuquery
ON SELECTION BAR 2 OF 查詢統(tǒng)計(jì)q do form qpgl\form\rukuquery
ON SELECTION BAR 4 OF 查詢統(tǒng)計(jì)q do form qpgl\form\ckthquery
ON SELECTION BAR 5 OF 查詢統(tǒng)計(jì)q do form qpgl\form\rkthquery

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

DEFINE POPUP 基礎(chǔ)信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 基礎(chǔ)信息管 PROMPT "商品信息" ;
	SKIP FOR purview>4 OR pspinfo=.f.
DEFINE BAR 2 OF 基礎(chǔ)信息管 PROMPT "\-"
DEFINE BAR 3 OF 基礎(chǔ)信息管 PROMPT "員工信息" ;
	SKIP FOR purview>4 OR pyginfo=.f.
DEFINE BAR 4 OF 基礎(chǔ)信息管 PROMPT "\-"
DEFINE BAR 5 OF 基礎(chǔ)信息管 PROMPT "客戶信息" ;
	SKIP FOR purview>4 OR pkhinfo=.f.
DEFINE BAR 6 OF 基礎(chǔ)信息管 PROMPT "\-"
DEFINE BAR 7 OF 基礎(chǔ)信息管 PROMPT "供應(yīng)商信息" ;
	SKIP FOR purview>4 OR pgysinfo=.f.
ON SELECTION BAR 1 OF 基礎(chǔ)信息管 do form qpgl\form\spmanage
ON SELECTION BAR 3 OF 基礎(chǔ)信息管 do form qpgl\form\ygmanage
ON SELECTION BAR 5 OF 基礎(chǔ)信息管 do form qpgl\form\khmanage
ON SELECTION BAR 7 OF 基礎(chǔ)信息管 do form qpgl\form\gysmanage

DEFINE POPUP 系統(tǒng)管理s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系統(tǒng)管理s PROMPT "操作員管理" ;
	SKIP FOR purview>4 OR pczygl=.f.
DEFINE BAR 2 OF 系統(tǒng)管理s PROMPT "權(quán)限管理" ;
	SKIP FOR purview>4 OR pqxgl=.f.
DEFINE BAR 3 OF 系統(tǒng)管理s PROMPT "\-"
DEFINE BAR 4 OF 系統(tǒng)管理s PROMPT "數(shù)據(jù)備份" ;
	SKIP FOR purview>4 OR psjbf=.f.
DEFINE BAR 5 OF 系統(tǒng)管理s PROMPT "數(shù)據(jù)恢復(fù)" ;
	SKIP FOR purview>4 OR psjhf=.f.
ON SELECTION BAR 1 OF 系統(tǒng)管理s do form qpgl\form\modifypassword
ON SELECTION BAR 2 OF 系統(tǒng)管理s do form qpgl\form\fpurview
ON SELECTION BAR 4 OF 系統(tǒng)管理s do form qpgl\form\databasebak
ON SELECTION BAR 5 OF 系統(tǒng)管理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 "關(guān)于本軟件..."
ON SELECTION BAR 1 OF 幫助h do form qpgl\form\help
ON SELECTION BAR 3 OF 幫助h do form qpgl\form\about