*       *********************************************************
*       *                                                         
*       * 05/03/03            MNUASSETS.MPR             18:22:27  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2003 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0y013drzo OF _MSYSMENU PROMPT "產(chǎn)品管理(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _0y013drzp OF _MSYSMENU PROMPT "原料管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _0y013drzq OF _MSYSMENU PROMPT "生產(chǎn)規(guī)劃(\<L)" COLOR SCHEME 3 ;
	KEY ALT+L, ""
DEFINE PAD _0y013drzr OF _MSYSMENU PROMPT "統(tǒng)計(jì)報(bào)表(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _0y013drzs OF _MSYSMENU PROMPT "系統(tǒng)維護(hù)(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _0y013drzt OF _MSYSMENU PROMPT "數(shù)據(jù)備份(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _0y013drzu OF _MSYSMENU PROMPT "幫助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _0y013drzo OF _MSYSMENU ACTIVATE POPUP 產(chǎn)品管理p
ON PAD _0y013drzp OF _MSYSMENU ACTIVATE POPUP 原料管理m
ON PAD _0y013drzq OF _MSYSMENU ACTIVATE POPUP 生產(chǎn)規(guī)劃l
ON PAD _0y013drzr OF _MSYSMENU ACTIVATE POPUP 統(tǒng)計(jì)報(bào)表r
ON PAD _0y013drzs OF _MSYSMENU ACTIVATE POPUP 系統(tǒng)維護(hù)s
ON PAD _0y013drzt OF _MSYSMENU ACTIVATE POPUP 數(shù)據(jù)備份b
ON PAD _0y013drzu OF _MSYSMENU ACTIVATE POPUP 幫助h

DEFINE POPUP 產(chǎn)品管理p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 產(chǎn)品管理p PROMPT "信息輸入" ;
	SKIP FOR iif(g_dom(1)=1,.f.,.t.)
DEFINE BAR 2 OF 產(chǎn)品管理p PROMPT "信息修改" ;
	SKIP FOR iif(g_dom(2)=1,.f.,.t.)
DEFINE BAR 3 OF 產(chǎn)品管理p PROMPT "信息刪除" ;
	SKIP FOR iif(g_dom(3)=1,.f.,.t.)
DEFINE BAR 4 OF 產(chǎn)品管理p PROMPT "信息查詢" ;
	SKIP FOR iif(g_dom(4)=1,.f.,.t.)
DEFINE BAR 5 OF 產(chǎn)品管理p PROMPT "\-"
DEFINE BAR 6 OF 產(chǎn)品管理p PROMPT "生產(chǎn)單" ;
	SKIP FOR iif(g_dom(5)=1,.f.,.t.)
DEFINE BAR 7 OF 產(chǎn)品管理p PROMPT "銷售單" ;
	SKIP FOR iif(g_dom(6)=1,.f.,.t.)
ON SELECTION BAR 1 OF 產(chǎn)品管理p do form frmpinfo
ON SELECTION BAR 2 OF 產(chǎn)品管理p do form frmpedit
ON SELECTION BAR 3 OF 產(chǎn)品管理p do form frmpdel
ON SELECTION BAR 4 OF 產(chǎn)品管理p do form frmpquery
ON SELECTION BAR 6 OF 產(chǎn)品管理p do form frmpoutput
ON SELECTION BAR 7 OF 產(chǎn)品管理p do form frmpsale

DEFINE POPUP 原料管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 原料管理m PROMPT "信息輸入" ;
	SKIP FOR iif(g_dom(7)=1,.f.,.t.)
DEFINE BAR 2 OF 原料管理m PROMPT "信息修改" ;
	SKIP FOR iif(g_dom(8)=1,.f.,.t.)
DEFINE BAR 3 OF 原料管理m PROMPT "信息刪除" ;
	SKIP FOR iif(g_dom(9)=1,.f.,.t.)
DEFINE BAR 4 OF 原料管理m PROMPT "信息查詢" ;
	SKIP FOR iif(g_dom(10)=1,.f.,.t.)
DEFINE BAR 5 OF 原料管理m PROMPT "\-"
DEFINE BAR 6 OF 原料管理m PROMPT "訂購(gòu)單" ;
	SKIP FOR iif(g_dom(11)=1,.f.,.t.)
ON SELECTION BAR 1 OF 原料管理m do form frmminfo
ON SELECTION BAR 2 OF 原料管理m do form frmmedit
ON SELECTION BAR 3 OF 原料管理m do form frmmdel
ON SELECTION BAR 4 OF 原料管理m do form frmmquery
ON SELECTION BAR 6 OF 原料管理m do form frmmorder

DEFINE POPUP 生產(chǎn)規(guī)劃l MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 生產(chǎn)規(guī)劃l PROMPT "產(chǎn)品銷售計(jì)算" ;
	SKIP FOR iif(g_dom(12)=1,.f.,.t.)
DEFINE BAR 2 OF 生產(chǎn)規(guī)劃l PROMPT "原料訂購(gòu)計(jì)算" ;
	SKIP FOR iif(g_dom(13)=1,.f.,.t.)
ON SELECTION BAR 1 OF 生產(chǎn)規(guī)劃l do form frmpsimu
ON SELECTION BAR 2 OF 生產(chǎn)規(guī)劃l do form frmmsimu

DEFINE POPUP 統(tǒng)計(jì)報(bào)表r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 統(tǒng)計(jì)報(bào)表r PROMPT "產(chǎn)品生產(chǎn)統(tǒng)計(jì)報(bào)表" ;
	SKIP FOR iif(g_dom(14)=1,.f.,.t.)
DEFINE BAR 2 OF 統(tǒng)計(jì)報(bào)表r PROMPT "產(chǎn)品銷售統(tǒng)計(jì)報(bào)表" ;
	SKIP FOR iif(g_dom(15)=1,.f.,.t.)
DEFINE BAR 3 OF 統(tǒng)計(jì)報(bào)表r PROMPT "原料訂購(gòu)統(tǒng)計(jì)報(bào)表" ;
	SKIP FOR iif(g_dom(16)=1,.f.,.t.)
ON SELECTION BAR 1 OF 統(tǒng)計(jì)報(bào)表r ;
	DO _0y013drzv ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")
ON SELECTION BAR 2 OF 統(tǒng)計(jì)報(bào)表r ;
	DO _0y013drzw ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")
ON SELECTION BAR 3 OF 統(tǒng)計(jì)報(bào)表r ;
	DO _0y013drzx ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")

DEFINE POPUP 系統(tǒng)維護(hù)s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系統(tǒng)維護(hù)s PROMPT "用戶信息"
DEFINE BAR 2 OF 系統(tǒng)維護(hù)s PROMPT "權(quán)限管理" ;
	SKIP FOR iif(g_dom(17)=1,.f.,.t.)
ON SELECTION BAR 1 OF 系統(tǒng)維護(hù)s do form frmlinfo
ON SELECTION BAR 2 OF 系統(tǒng)維護(hù)s do form frmset

DEFINE POPUP 數(shù)據(jù)備份b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 數(shù)據(jù)備份b PROMPT "數(shù)據(jù)備份" ;
	SKIP FOR iif(g_dom(18)=1,.f.,.t.)
DEFINE BAR 2 OF 數(shù)據(jù)備份b PROMPT "數(shù)據(jù)恢復(fù)" ;
	SKIP FOR iif(g_dom(19)=1,.f.,.t.)
ON SELECTION BAR 1 OF 數(shù)據(jù)備份b ;
	DO _0y013drzy ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")
ON SELECTION BAR 2 OF 數(shù)據(jù)備份b ;
	DO _0y013ds01 ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")

DEFINE POPUP 幫助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 幫助h PROMPT "關(guān)于"
DEFINE BAR 2 OF 幫助h PROMPT "\-"
DEFINE BAR 3 OF 幫助h PROMPT "退出系統(tǒng)"
ON SELECTION BAR 1 OF 幫助h do form  frmabout
ON SELECTION BAR 3 OF 幫助h quit


*       *********************************************************
*       *                                                         
*       * _0Y013DRZV  ON SELECTION BAR 1 OF POPUP 統(tǒng)計(jì)報(bào)表r       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   26      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 統(tǒng)計(jì)報(bào)表r       
*       * Prompt:     產(chǎn)品生產(chǎn)統(tǒng)計(jì)報(bào)表                            
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013drzv
do form frmreport1


*       *********************************************************
*       *                                                         
*       * _0Y013DRZW  ON SELECTION BAR 2 OF POPUP 統(tǒng)計(jì)報(bào)表r       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   27      
*       * Called By:  ON SELECTION BAR 2 OF POPUP 統(tǒng)計(jì)報(bào)表r       
*       * Prompt:     產(chǎn)品銷售統(tǒng)計(jì)報(bào)表                            
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013drzw
do form frmreport2


*       *********************************************************
*       *                                                         
*       * _0Y013DRZX  ON SELECTION BAR 3 OF POPUP 統(tǒng)計(jì)報(bào)表r       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   28      
*       * Called By:  ON SELECTION BAR 3 OF POPUP 統(tǒng)計(jì)報(bào)表r       
*       * Prompt:     原料訂購(gòu)統(tǒng)計(jì)報(bào)表                            
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013drzx
do form frmreport3


*       *********************************************************
*       *                                                         
*       * _0Y013DRZY  ON SELECTION BAR 1 OF POPUP 數(shù)據(jù)備份b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   35      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 數(shù)據(jù)備份b       
*       * Prompt:     數(shù)據(jù)備份                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013drzy
****讓用戶選擇一個(gè)備份的目錄*****
m.dir=GETDIR('','請(qǐng)輸入文件要備份到的目錄：')
****確認(rèn)選擇了目錄*****
DO WHILE EMPTY(m.dir)
	IF MESSAGEBOX('您沒(méi)有選擇要備份的目錄。'+CHR(13)+'是否要取消備份？',4+32+256,'取消')=7
		m.dir=GETDIR('','請(qǐng)輸入文件要備份到的目錄：')
	ELSE
		RETURN
	ENDIF
ENDDO

*****************************************************************************
****關(guān)閉打開(kāi)的數(shù)據(jù)庫(kù)及表，然后用文件拷貝函數(shù)COPY進(jìn)行通配符拷貝
****注意：如果不是使用子目錄存放數(shù)據(jù)文件，數(shù)據(jù)文件直接存放在應(yīng)用程序所在目錄下，
****則文件拷貝不能使用通配符
****因?yàn)閂isual Foxpro同時(shí)還打開(kāi)了系統(tǒng)數(shù)據(jù)表FOXUSER，這個(gè)表存放在應(yīng)用程序所在目錄下
****它在打開(kāi)時(shí)是不能被拷貝的
CLOSE ALL
*****自定義系統(tǒng)窗口******
DEFINE WINDOWS win1 FROM 1,1 TO 7,50 IN DESKTOP SYSTEM TITLE '數(shù)據(jù)備份' COLOR  RGB(0,0,0,192,192,192)
MOVE WINDOWS win1 CENTER
ACTIVATE WINDOWS win1
SET CONSOLE OFF
@ 2,10 SAY '正在備份數(shù)據(jù)，請(qǐng)稍候'
COPY FILE DATA\*.* TO (m.dir+'*.*')
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('數(shù)據(jù)已成功備份。',64,'完成')

*****重新打開(kāi)數(shù)據(jù)庫(kù)及表*****
OPEN DATA DATA\dbassets
SELE 0
USE DATA\tblpinfo
SELE 0
USE DATA\tbluser
SELE 0
USE data\tblmconsume
SELE 0
USE data\tblmorder



*       *********************************************************
*       *                                                         
*       * _0Y013DS01  ON SELECTION BAR 2 OF POPUP 數(shù)據(jù)備份b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   36      
*       * Called By:  ON SELECTION BAR 2 OF POPUP 數(shù)據(jù)備份b       
*       * Prompt:     數(shù)據(jù)恢復(fù)                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013ds01
****讓用戶選擇備份所在的目錄*****
m.dir=GETDIR('','請(qǐng)輸入備份的文件所在的目錄：')
DO WHILE EMPTY(m.dir)
	IF MESSAGEBOX('您沒(méi)有選擇目錄。'+CHR(13)+'是否要取消恢復(fù)數(shù)據(jù)？',4+32+256,'取消')=7
		m.dir=GETDIR('','請(qǐng)輸入備份的文件所在的目錄：')
	ELSE
		RETURN
	ENDIF
ENDDO
CLOSE ALL
DEFINE WINDOWS win1 FROM 1,1 TO 7,50 IN DESKTOP SYSTEM TITLE '數(shù)據(jù)恢復(fù)' COLOR  RGB(0,0,0,192,192,192)
MOVE WINDOWS win1 CENTER
ACTIVATE WINDOWS win1
SET CONSOLE OFF
@ 2,10 SAY '正在恢復(fù)數(shù)據(jù)，請(qǐng)稍候'
IF !DIRECTORY('data')     &&如果不存在子目錄，則創(chuàng)建之
	MD DATA
ENDIF
COPY FILE (m.dir+'*.*') TO DATA\*.*
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('數(shù)據(jù)已恢復(fù)。',64,'完成')

*****重新打開(kāi)數(shù)據(jù)庫(kù)及表*****
OPEN DATA data\dbassets
SELE 0
USE data\tblpinfo
SELE 0
USE data\tbluser
SELE 0
USE data\tblmconsume
SELE 0
USE data\tblmorder