配送管理.mpr

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

_BAR=1
nPSSQNUMBER=1
nPSSHNUMBER=1
nPSKPNUMBER=1
nPSJZNUMBER=1
DEFINE PoPup 快捷菜单 Color Scheme 4   SHORTCUT RELATIVE FROM 1.4,42
IF PSSQ=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "配送申请(\<S)"
	nPSSQNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF PSSH=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "配送审核(\<H)"
	nPSSHNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF PSKP=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "配送开票(\<K)"
	nPSKPNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF PSJZ=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "配送结帐(\<J)"
	nPSJZNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF PSSQ=.F. AND PSJZ=.F. AND PSSH=.F. AND PSKP=.F.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "        "
ENDIF
ON SELECTION BAR nPSSQNUMBER OF 快捷菜单 ;
	DO _MU1 
	
ON SELECTION BAR nPSSHNUMBER OF 快捷菜单 ;
	DO _MU2 
	
ON SELECTION BAR nPSKPNUMBER OF 快捷菜单 ;
	DO _MU3 
	
ON SELECTION BAR nPSJZNUMBER OF 快捷菜单 ;
	DO _MU4 
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配送结款