库存管理.mpr

各种毕业设计delphi获取程序的图标vb汉字拼音的首字符的获取与运用等等论文都有

_BAR=1
nRKGLNUMBER=1
nRKTHNUMBER=1
nKCCXNUMBER=1
nKCPDNUMBER=1
nSPYXQGLNUMBER=1
nSPSXXGLNUMBER=1
nSPBSBYGLNUMBER=1
DEFINE PoPup 快捷菜单 Color Scheme 4   SHORTCUT RELATIVE FROM 1.4,21  
IF RKGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "入库管理(\<R)"  KEY CTRL+R, "CTRL+R" 
	nRKGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF RKTH=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "入库退货(\<T)"
	nRKTHNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
DEFINE BAR _BAR OF 快捷菜单 PROMPT "\-"
_BAR=_BAR+1
IF KCCX=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "库存查询(\<K)" KEY CTRL+K, "CTRL+K" 
	nKCCXNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF KCPD=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "库存盘点(\<P)"
	
	nKCPDNUMBER=_BAR
	_BAR=_BAR+1
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "\-"
	_BAR=_BAR+1
ENDIF	
IF SPYXQGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品有效期查询(\<S)"
	nSPYXQGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF SPSXXGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "库存上下限管理(\<X)"
	nSPSXXGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF SPBSBYGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品报损报溢管理(\<B)"
	nSPBSBYGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF RKGL=.F.AND RKTH=.F. AND KCCX=.F. AND KCPD=.F. AND SPYXQGL=.F.AND SPSXXGL=.F. AND SPBSBYGL=.F.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "           "
ENDIF
ON SELECTION BAR nRKGLNUMBER OF 快捷菜单 ;
	DO _MU1 	
ON SELECTION BAR nRKTHNUMBER OF 快捷菜单 ;
	DO _MU2 	
ON SELECTION BAR nKCCXNUMBER OF 快捷菜单 ;
	DO _MU3 
ON SELECTION BAR nKCPDNUMBER OF 快捷菜单 ;
	DO _MU4 
ON SELECTION BAR nSPYXQGLNUMBER OF 快捷菜单 ;
	DO _MU5 
ON SELECTION BAR nSPSXXGLNUMBER OF 快捷菜单 ;
	DO _MU6 
ON SELECTION BAR nSPBSBYGLNUMBER OF 快捷菜单 ;
	DO _MU7 
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商品有效期管理
PROCEDURE _MU6
	do form forms\frm库存上下限设置
PROCEDURE _MU7
	do form forms\frm报损报溢