往来管理.mpr

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

_BAR=1
nGYSZMGL=1
nKHZMGL=1
nCQYSYFKGLNUMBER=1
DEFINE PoPup 快捷菜单 Color Scheme 4   SHORTCUT RELATIVE FROM 1.4,52
IF GYSZMGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "供应商帐目管理(\<Z)" 
	nGYSZMGL=_BAR
	_BAR=_BAR+1
ENDIF

IF KHZMGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "客户帐目管理(\<J)"
	nKHZMGL=_BAR
	_BAR=_BAR+1
	
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "\-"
	_BAR=_BAR+1
ENDIF

IF CQYSYFKGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "超期应收应付款管理(\<Y)"
	nCQYSYFKGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
if GYSZMGL=.f. and KHZMGL=.f. and CQYSYFKGL=.f.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "       "
endif
ON SELECTION BAR nGYSZMGL OF 快捷菜单;
	DO _MU1 
ON SELECTION BAR nKHZMGL OF 快捷菜单;
	DO _MU2 
ON SELECTION BAR nCQYSYFKGLNUMBER OF 快捷菜单;
	DO _MU3 	
ACTIVATE POPUP 快捷菜单
PROCEDURE _MU1
	do form forms\Frm供应商帐目管理
PROCEDURE _MU2
	do form forms\Frm客户帐目管理
PROCEDURE _MU3
	do form forms\Frm超期应收应付款设置