销售管理.mpr

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

_BAR=1
nDDGL=1
nXSGL=1
nxsthgl=1
DEFINE popup 快捷菜单 Color Scheme 4  SHORTCUT RELATIVE FROM 1.4,10 
IF DDGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "订货管理(\<D)" KEY CTRL+D, "CTRL+D"
	nDDGL=_BAR
	_BAR=_BAR+1
ENDIF
IF XSGL=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "销售管理(\<X)" KEY CTRL+X, "CTRL+X"
	nXSGL=_BAR
	_BAR=_BAR+1
ENDIF
IF XSTHGL=.T. 
	DEFINE BAR  _BAR OF 快捷菜单 PROMPT "销售退货管理(\<S)"
	nXSTHGL=_BAR
	_BAR=_BAR+1
ENDIF
if ddgl=.f. and xsgl=.f. and xsthgl=.f.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "    "
endif
ON SELECTION BAR nddgl OF 快捷菜单 ;
	DO _MU1 	
ON SELECTION BAR nxsgl OF 快捷菜单 ;
	DO _MU2 	
ON SELECTION BAR NXSTHGL OF 快捷菜单 ;
	DO _MU3 

ACTIVATE POPUP 快捷菜单	
PROCEDURE _MU1
	do form forms\frm订单
PROCEDURE _MU2
	do form forms\frm销售管理
PROCEDURE _MU3
	do form forms\frm销售退货