?? menumain.mpr
字號:
* *********************************************************
* *
* * 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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -