决策管理.mpr

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

_BAR=1
nSPXSPHNUMBER=1
nSPPSPHNUMBER=1
nSPTHPHNUMBER=1
nLRFXNUMBER=1
nJCFXNUMBER=1
DEFINE PoPup 快捷菜单 Color Scheme 4 SHORTCUT RELATIVE FROM 1.4,84
if SPXSPX=.t.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品销售排行(\<X)" KEY CTRL+O, "CTRL+O" 
	nSPXPHNUMBER=_BAR
	_BAR=_BAR+1
endif
if SPPSPX=.t.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品配送排行(\<P)" 
	nSPPSPHNUMBER=_BAR
	_BAR=_BAR+1
endif
if SPTHPX=.t.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "商品退货排行(\<T)" 
	nSPTHPHNUMBER=_BAR
	_BAR=_BAR+1
endif
DEFINE BAR _BAR OF 快捷菜单 PROMPT "\-"
_BAR=_BAR+1
if lrfx=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "利润分析(\<L)" KEY CTRL+L, "CTRL+L" 
	nLRFXNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF JCFX=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "决策分析(\<J)" 
	NJCFXNUMBER=_BAR
	_BAR=_BAR+1
ENDIF	
if SPXSPX=.t.
	y=56.8
else
	y=52.7
endif
if spxspx=.f. and sppspx=.f. and spthpx=.f. and jcfx=.f. and lrfx=.f.     &&如果此菜单上没有菜单项
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "        " 
endif
	if jcfx=.t.
		ON BAR nJCFXNUMBER OF 快捷菜单 ACTIVATE POPUP 快捷菜单2
		DEFINE POPUP 快捷菜单2 MARGIN RELATIVE SHADOW COLOR SCHEME 4 FROM 5,y Title "决策分析"  
		DEFINE BAR 1 OF 快捷菜单2 PROMPT "进销存结转(\<J)"
		DEFINE BAR 2 OF 快捷菜单2 PROMPT "供应商应收应付款结转(\<G)"
		DEFINE BAR 3 OF 快捷菜单2 PROMPT "客户应收应付款结转(\<K)"
		ON SELECTION BAR 1 OF 快捷菜单2;
		DO _MU5 
		ON SELECTION BAR 2 OF 快捷菜单2 ;
		DO _MU6 	
		ON SELECTION BAR 3 OF 快捷菜单2 ;
		DO _MU7 	
	endif
ON SELECTION BAR nSPXSPHNUMBER OF 快捷菜单;
	DO _MU1 
ON SELECTION BAR nSPPSPHNUMBER OF 快捷菜单 ;
	DO _MU2 	
ON SELECTION BAR nSPTHPHNUMBER OF 快捷菜单 ;
	DO _MU3 
ON SELECTION BAR nLRFXNUMBER OF 快捷菜单 ;
	DO _MU4	


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客户应收应付款结转