基础信息.mpr

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

_BAR=1
nSPXXGLNUMBER=1
nGYSXXGLNUMBER=1
nKHXXGLNUMBER=1
nYGXXGLNUMBER=1
nYXZHGLNUMBER=1
DEFINE PoPup 快捷菜单 Color Scheme 4   SHORTCUT RELATIVE FROM 1.4,32  
IF SPXXGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品信息管理(\<S)" KEY CTRL+A, "CTRL+A" 
	nSPXXGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF GYSXXGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "供应商信息管理(\<G)"
	nGYSXXGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF KHXXGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "客户信息管理(\<K)"
	nKHXXGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
DEFINE BAR _BAR OF 快捷菜单 PROMPT "\-"
_BAR=_BAR+1
IF YGXXGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "员工信息管理(\<Y)"
	nYGXXGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF YXZHGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "银行帐户管理(\<H)"
	nYXZHGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF SPXXGL=.F.AND GYSXXGL=.F. AND KHXXGL=.F. AND YGXXGL=.F. AND YXZHGL=.F.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "         "
ENDIF
ON SELECTION BAR nSPXXGLNUMBER OF 快捷菜单 ;
	DO _MU1 
	
ON SELECTION BAR nGYSXXGLNUMBER OF 快捷菜单 ;
	DO _MU2 
	
ON SELECTION BAR nKHXXGLNUMBER OF 快捷菜单 ;
	DO _MU3 
	
ON SELECTION BAR nYGXXGLNUMBER OF 快捷菜单 ;
	DO _MU4 
	
ON SELECTION BAR nYXZHGLNUMBER 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银行帐户管理