?? 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 "系統(tǒng)維護(\<S)" COLOR SCHEME 3 ;
KEY ALT+S, ""
DEFINE PAD _0va01v8r8 OF _MSYSMENU PROMPT "數(shù)據(jù)備份(\<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 系統(tǒng)維護s
ON PAD _0va01v8r8 OF _MSYSMENU ACTIVATE POPUP 數(shù)據(jù)備份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 "數(shù)據(jù)模擬" ;
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 "數(shù)據(jù)模擬" ;
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 系統(tǒng)維護s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系統(tǒng)維護s PROMPT "用戶信息"
DEFINE BAR 2 OF 系統(tǒng)維護s PROMPT "權限管理" ;
SKIP FOR iif(g_dom(11)=1,.f.,.t.)
ON SELECTION BAR 1 OF 系統(tǒng)維護s do form frmlinfo
ON SELECTION BAR 2 OF 系統(tǒng)維護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(12)=1,.f.,.t.)
DEFINE BAR 2 OF 數(shù)據(jù)備份b PROMPT "數(shù)據(jù)恢復" ;
SKIP FOR iif(g_dom(13)=1,.f.,.t.)
ON SELECTION BAR 1 OF 數(shù)據(jù)備份b ;
DO _0va01v8ra ;
IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")
ON SELECTION BAR 2 OF 數(shù)據(jù)備份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 "退出系統(tǒng)"
ON SELECTION BAR 1 OF 幫助h do form frmabout
ON SELECTION BAR 3 OF 幫助h quit
* *********************************************************
* *
* * _0VA01V8RA ON SELECTION BAR 1 OF POPUP 數(shù)據(jù)備份b
* *
* * Procedure Origin:
* *
* * From Menu: MNUASSETS.MPR, Record: 25
* * Called By: ON SELECTION BAR 1 OF POPUP 數(shù)據(jù)備份b
* * Prompt: 數(shù)據(jù)備份
* * 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 '正在備份數(shù)據(jù),請稍候'
COPY FILE DATA\*.DBF TO (m_dir+'*.dbf')
COPY FILE DATA\*.CDX TO (m_dir+'*.cdx')
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('數(shù)據(jù)已成功備份',64,'完成')
OPEN DATA DATA\dbassets
SELE 0
USE DATA\tblpinfo
SELE 0
USE DATA\tbluser
* *********************************************************
* *
* * _0VA01V8RB ON SELECTION BAR 2 OF POPUP 數(shù)據(jù)備份b
* *
* * Procedure Origin:
* *
* * From Menu: MNUASSETS.MPR, Record: 26
* * Called By: ON SELECTION BAR 2 OF POPUP 數(shù)據(jù)備份b
* * Prompt: 數(shù)據(jù)恢復
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0va01v8rb
m_dir=GETDIR('','請輸入備份的文件所在的目錄:')
DO WHILE EMPTY(m_dir)
IF MESSAGEBOX('您沒有選擇目錄。'+CHR(13)+'是否要取消恢復數(shù)據(jù)?',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 '正在恢復數(shù)據(jù),請稍候'
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('數(shù)據(jù)已成功恢復',64,'完成')
OPEN DATA data\dbassets
SELE 0
USE data\tblpinfo
SELE 0
USE data\tbluser
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -