mnuassets.mpr

同一个数据库开发的系统

*       *********************************************************
*       *                                                         
*       * 01/25/03            MNUASSETS.MPR             00:52:17  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 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 _0va01v8r5 OF _MSYSMENU PROMPT "产品管理(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _0va01v8r6 OF _MSYSMENU PROMPT "原料管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _0va01v8r7 OF _MSYSMENU PROMPT "系统维护(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _0va01v8r8 OF _MSYSMENU PROMPT "数据备份(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _0va01v8r9 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _0va01v8r5 OF _MSYSMENU ACTIVATE POPUP 产品管理p
ON PAD _0va01v8r6 OF _MSYSMENU ACTIVATE POPUP 原料管理m
ON PAD _0va01v8r7 OF _MSYSMENU ACTIVATE POPUP 系统维护s
ON PAD _0va01v8r8 OF _MSYSMENU ACTIVATE POPUP 数据备份b
ON PAD _0va01v8r9 OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 产品管理p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 产品管理p PROMPT "信息输入" ;
	SKIP FOR iif(g_dom(1)=1,.f.,.t.)
DEFINE BAR 2 OF 产品管理p PROMPT "信息修改" ;
	SKIP FOR iif(g_dom(2)=1,.f.,.t.)
DEFINE BAR 3 OF 产品管理p PROMPT "信息删除" ;
	SKIP FOR iif(g_dom(3)=1,.f.,.t.)
DEFINE BAR 4 OF 产品管理p PROMPT "信息查询" ;
	SKIP FOR iif(g_dom(4)=1,.f.,.t.)
DEFINE BAR 5 OF 产品管理p PROMPT "\-"
DEFINE BAR 6 OF 产品管理p PROMPT "数据模拟" ;
	SKIP FOR iif(g_dom(5)=1,.f.,.t.)
ON SELECTION BAR 1 OF 产品管理p do form frmpinfo
ON SELECTION BAR 2 OF 产品管理p do form frmpedit
ON SELECTION BAR 3 OF 产品管理p do form frmpdel
ON SELECTION BAR 4 OF 产品管理p do form frmpquery
ON SELECTION BAR 6 OF 产品管理p do form frmpsimu

DEFINE POPUP 原料管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 原料管理m PROMPT "信息输入" ;
	SKIP FOR iif(g_dom(6)=1,.f.,.t.)
DEFINE BAR 2 OF 原料管理m PROMPT "信息修改" ;
	SKIP FOR iif(g_dom(7)=1,.f.,.t.)
DEFINE BAR 3 OF 原料管理m PROMPT "信息删除" ;
	SKIP FOR iif(g_dom(8)=1,.f.,.t.)
DEFINE BAR 4 OF 原料管理m PROMPT "信息查询" ;
	SKIP FOR iif(g_dom(9)=1,.f.,.t.)
DEFINE BAR 5 OF 原料管理m PROMPT "\-"
DEFINE BAR 6 OF 原料管理m PROMPT "数据模拟" ;
	SKIP FOR iif(g_dom(10)=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 frmmsimu

DEFINE POPUP 系统维护s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护s PROMPT "用户信息"
DEFINE BAR 2 OF 系统维护s PROMPT "权限管理" ;
	SKIP FOR iif(g_dom(11)=1,.f.,.t.)
ON SELECTION BAR 1 OF 系统维护s do form frmlinfo
ON SELECTION BAR 2 OF 系统维护s do form frmset

DEFINE POPUP 数据备份b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据备份b PROMPT "数据备份" ;
	SKIP FOR iif(g_dom(12)=1,.f.,.t.)
DEFINE BAR 2 OF 数据备份b PROMPT "数据恢复" ;
	SKIP FOR iif(g_dom(13)=1,.f.,.t.)
ON SELECTION BAR 1 OF 数据备份b ;
	DO _0va01v8ra ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")
ON SELECTION BAR 2 OF 数据备份b ;
	DO _0va01v8rb ;
	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 "关于"
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "退出系统"
ON SELECTION BAR 1 OF 帮助h do form  frmabout
ON SELECTION BAR 3 OF 帮助h quit


*       *********************************************************
*       *                                                         
*       * _0VA01V8RA  ON SELECTION BAR 1 OF POPUP 数据备份b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   25      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 数据备份b       
*       * Prompt:     数据备份                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0va01v8ra
m_dir=GETDIR('','请输入文件要备份到的目录：')
DO WHILE EMPTY(m_dir)
	IF MESSAGEBOX('您没有选择要备份的目录。'+CHR(13)+'是否要取消备份？',4+32+256,'取消')=7
		m_dir=GETDIR('','请输入文件要备份到的目录：')
	ELSE
		RETURN
	ENDIF
ENDDO
CLOSE ALL
DEFINE WINDOWS win1 FROM 1,1 TO 7,50 IN DESKTOP SYSTEM TITLE '升级向导' COLOR  RGB(0,0,0,192,192,192)
MOVE WINDOWS win1 CENTER
ACTIVATE WINDOWS win1
SET CONSOLE OFF
@ 2,10 SAY '正在备份数据，请稍候'
COPY FILE DATA\*.DBF TO (m_dir+'*.dbf')
COPY FILE DATA\*.CDX TO (m_dir+'*.cdx')
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('数据已成功备份',64,'完成')

OPEN DATA DATA\dbassets
SELE 0
USE DATA\tblpinfo
SELE 0
USE DATA\tbluser



*       *********************************************************
*       *                                                         
*       * _0VA01V8RB  ON SELECTION BAR 2 OF POPUP 数据备份b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   26      
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据备份b       
*       * Prompt:     数据恢复                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0va01v8rb
m_dir=GETDIR('','请输入备份的文件所在的目录：')
DO WHILE EMPTY(m_dir)
	IF MESSAGEBOX('您没有选择目录。'+CHR(13)+'是否要取消恢复数据？',4+32+256,'取消')=7
		m_dir=GETDIR('','请输入备份的文件所在的目录：')
	ELSE
		RETURN
	ENDIF
ENDDO
CLOSE ALL
DEFINE WINDOWS win1 FROM 1,1 TO 7,50 IN DESKTOP SYSTEM TITLE '升级向导' COLOR  RGB(0,0,0,192,192,192)
MOVE WINDOWS win1 CENTER
ACTIVATE WINDOWS win1
SET CONSOLE OFF
@ 2,10 SAY '正在恢复数据，请稍候'
IF !DIRECTORY('data')
	MD DATA
ENDIF
COPY FILE (m_dir+'*.dbf') TO DATA\*.DBF
COPY FILE (m_dir+'*.cdx') TO DATA\*.CDX
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('数据已成功恢复',64,'完成')

OPEN DATA data\dbassets
SELE 0
USE data\tblpinfo
SELE 0
USE data\tbluser