维护管理.mpr

来自「各种毕业设计delphi获取程序的图标vb汉字拼音的首字符的获取与运用等等论文都」· MPR 代码 · 共 62 行

_BAR=1
nCQJZ=1
nXTCSH=1
nSJBF=1
nSJHF=1 
DEFINE PoPup 快捷菜单 Color Scheme 4 SHORTCUT RELATIVE FROM 1.4,94.5 
IF CQJZ=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "初期建帐(\<C)"
	nCQJZ=_BAR
	_BAR=_BAR+1
ENDIF
IF XTCSH=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "系统初始化(\<X)"
	nXTCSH=_BAR
	_BAR=_BAR+1
ENDIF
DEFINE BAR _BAR OF 快捷菜单 PROMPT "\-"
_BAR=_BAR+1
IF SJBF=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "数据备份(\<B)" KEY CTRL+B, "CTRL+B"
	nSJBF=_BAR
	_BAR=_BAR+1
ENDIF
IF SJHF=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "数据恢复(\<H)"
	nSJHF=_BAR
	_BAR=_BAR+1
ENDIF
if cqjz=.f. and xtcsh=.f. and sjbf=.f. and sjhf=.f.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "    "
endif
if cqjz=.t.
	ON BAR nCQJZ OF 快捷菜单 ACTIVATE POPUP 快捷菜单2
			DEFINE POPUP 快捷菜单2 MARGIN RELATIVE SHADOW COLOR SCHEME 4 FROM 1.4,77.5 Title "初期建帐"
			DEFINE BAR 1 OF 快捷菜单2 PROMPT "往来帐目(\<Z)"
			DEFINE BAR 2 OF 快捷菜单2 PROMPT "库存商品(\<K)"
			on selection bar 1 of 快捷菜单2;
				DO _mu4
			ON SELECTION BAR 2 OF 快捷菜单2 ;
				DO _MU5 
endif 	
ON SELECTION BAR nXTCSH OF 快捷菜单 ;
	DO _MU1 	
ON SELECTION BAR nSJBF OF 快捷菜单 ;
	DO _MU2
ON SELECTION BAR nSJHF OF 快捷菜单 ;
	DO _MU3 			
ACTIVATE POPUP 快捷菜单

PROCEDURE _MU1
	DO FORM FORMS\frm系统初始化
		
PROCEDURE _MU2
	do form forms\Frm数据备份
PROCEDURE _MU3
	do form forms\Frm数据恢复
PROCEDURE _MU4
	do form forms\Frm往来帐目
PROCEDURE _MU5
	do form forms\Frm库存商品