*       *********************************************************
*       *                                                         
*       * 2002.03.18           MAINMENU.MPR             09:53:45  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名稱                                                
*       *                                                         
*       * 版權(quán)所有 (C) 2002 公司名稱                             
*       * 地址                                                    
*       * 城市,     郵編                                          
*       * 國(guó)家                                              
*       *                                                         
*       * 說(shuō)明:                                            
*       * 此程序由 GENMENU 自動(dòng)生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0mj0l7l6k OF _MSYSMENU PROMPT "貨品管理" COLOR SCHEME 3
DEFINE PAD _0mj0l7l6l OF _MSYSMENU PROMPT "系統(tǒng)維護(hù)" COLOR SCHEME 3
DEFINE PAD _0mj0l7l6m OF _MSYSMENU PROMPT "退  出" COLOR SCHEME 3
ON PAD _0mj0l7l6k OF _MSYSMENU ACTIVATE POPUP 貨品管理
ON PAD _0mj0l7l6l OF _MSYSMENU ACTIVATE POPUP _rx90u4et6
ON SELECTION PAD _0mj0l7l6m OF _MSYSMENU DO ONSHUTD

DEFINE POPUP 貨品管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 貨品管理 PROMPT "貨品管理"
DEFINE BAR 2 OF 貨品管理 PROMPT "\-"
DEFINE BAR 3 OF 貨品管理 PROMPT "數(shù)據(jù)查詢" ;
	SKIP FOR !FILE('SEARCHDATA.EXE')
DEFINE BAR 4 OF 貨品管理 PROMPT "\-"
DEFINE BAR 5 OF 貨品管理 PROMPT "進(jìn)銷存統(tǒng)計(jì)" ;
	SKIP FOR !FILE('進(jìn)銷存統(tǒng)計(jì).exe')
DEFINE BAR 6 OF 貨品管理 PROMPT "\-"
DEFINE BAR 7 OF 貨品管理 PROMPT "數(shù)據(jù)報(bào)送" ;
	SKIP FOR !FILE('數(shù)據(jù)報(bào)送.exe')
ON SELECTION BAR 1 OF 貨品管理 DO FORM KEEPLIST NAME FORMKEEPLIST LINK
ON SELECTION BAR 3 OF 貨品管理 EXEC('SEARCHDATA.EXE')
ON SELECTION BAR 5 OF 貨品管理 EXEC('進(jìn)銷存統(tǒng)計(jì).exe')
ON SELECTION BAR 7 OF 貨品管理 EXEC('數(shù)據(jù)報(bào)送.exe')

DEFINE POPUP _rx90u4et6 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _rx90u4et6 PROMPT "往來(lái)單位"
DEFINE BAR 2 OF _rx90u4et6 PROMPT "\-"
DEFINE BAR 3 OF _rx90u4et6 PROMPT "單位員工"
DEFINE BAR 4 OF _rx90u4et6 PROMPT "\-"
DEFINE BAR 5 OF _rx90u4et6 PROMPT "數(shù)據(jù)損壞恢復(fù)"
DEFINE BAR 6 OF _rx90u4et6 PROMPT "\-"
DEFINE BAR 7 OF _rx90u4et6 PROMPT "數(shù)據(jù)備份"
ON SELECTION BAR 1 OF _rx90u4et6  DO FORM COMPANY NAME FORMCOMPANY LINK
ON SELECTION BAR 3 OF _rx90u4et6 DO FORM EMPLOYEE NAME FORMEMPLOYEE LINK
ON SELECTION BAR 5 OF _rx90u4et6 DO RESTORE
ON SELECTION BAR 7 OF _rx90u4et6 DO BACKUP