报表管理.mpr

来自「各种毕业设计delphi获取程序的图标vb汉字拼音的首字符的获取与运用等等论文都」· MPR 代码 · 共 52 行

_BAR=1     &&	计数变量
nRXSBBNUMBER=1
nZXSBBNUMBER=1
nYXSBBNUMBER=1
nDSPXSBBNUMBER=1
DEFINE PoPup 快捷菜单 Color Scheme 4   SHORTCUT RELATIVE FROM 1.4,73
if rxsbb=.t.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "日销售报表(\<R)"
	nRXSBBNUMBER=_BAR
	_BAR=_BAR+1
endif
if ZXSBB=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "周销售报表(\<Z)"
	nZXSBBNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
IF YXSBB=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "月销售报表(\<Y)"
	nYXSBBNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
DEFINE BAR _BAR OF 快捷菜单 PROMPT "\-"
_BAR=_BAR+1
IF DSPXSBB=.T.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "单商品销售报表(\<D)"
	nDSPXSBBNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
if rxsbb=.f. and zxsbb=.f. and yxsbb=.f. and dspxsbb=.f.
	DEFINE BAR _BAR OF 快捷菜单 PROMPT "       "
endif
ON SELECTION BAR nRXSBBNUMBER OF 快捷菜单;
	DO _MU1 
ON SELECTION BAR nZXSBBNUMBER OF 快捷菜单 ;
	DO _MU2 	
ON SELECTION BAR NYXSBBNUMBER OF 快捷菜单 ;
	DO _MU3 
ON SELECTION BAR nDSPXSBBNUMBER 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单商品销售报表