查询管理.mpr

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

_BAR=1
nSPXSCXNUMBER=1
nSPRKCXNUMBER=1
nSPTHCXNUMBER=1
nSPPSCXNUMBER=1
nSPBSBYCXNUMBER=1
DEFINE PoPup 快捷菜单 Color Scheme 4   SHORTCUT RELATIVE FROM 1.4,63
IF SPXSCX=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品销售查询(\<X)"
	nSPXSCXNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF SPRKCX=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品入库查询(\<R)"
	nSPRKCXNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF SPTHCX=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品退货查询(\<T)"
	nSPTHCXNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF SPPSCX=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品配送查询(\<P)"
	nSPPSCXNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
DEFINE BAR _BAR OF 快捷菜单 PROMPT "\-"
_BAR=_BAR+1
IF SPBSBYCX=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品报损报溢查询(\<S)"
	nSPBSBYCXNUMBER=_BAR
	_BAR=_BAR+1
ENDIF	
if SPXSCX=.F. and SPTHCX=.f. and SPPSCX=.f. and SPRKCX=.f. and SPBSBYCX=.f.     &&如果此菜单上没有菜单项
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "        " 
endif
ON SELECTION BAR nSPXSCXNUMBER OF 快捷菜单;
	DO _MU1 
ON SELECTION BAR nSPRKCXNUMBER OF 快捷菜单 ;
	DO _MU2 	
ON SELECTION BAR nSPTHCXNUMBER OF 快捷菜单 ;
	DO _MU3 
ON SELECTION BAR nSPPSCXNUMBER OF 快捷菜单 ;
	DO _MU4	
ON SELECTION BAR nSPBSBYCXNUMBER OF 快捷菜单 ;
	DO _MU5 
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报损报溢查询