_BAR=1
nXTSZ=1
nQXSZ=1
nGLYSZ=1
nGGMM=1
nTC=1
DEFINE popup 快捷菜單 Color Scheme 4 Margin SHORTCUT RELATIVE FROM 1.4,0
IF XTSZ=.T.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "系統設置(\<X)"
	nXTSZ=_BAR
	_BAR=_BAR+1
ENDIF
IF QXSZ=.T.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "權限設置(\<Q)"
	nQXSZ=_BAR
	_BAR=_BAR+1
ENDIF
IF GLYSZ=.T.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "操作員管理(\<B)"
	nGLYSZ=_BAR
	_BAR=_BAR+1	
ENDIF
DEFINE BAR _BAR OF 快捷菜單 PROMPT "\-"
	_BAR=_BAR+1
DEFINE BAR _BAR OF 快捷菜單 PROMPT "更改密碼(\<G)"
	nGGMM=_BAR
	_BAR=_BAR+1
DEFINE BAR _BAR OF 快捷菜單 PROMPT "\-"
	_BAR=_BAR+1
DEFINE BAR _BAR OF 快捷菜單 PROMPT "退出(\<E)" 
	nTC=_BAR
ON SELECTION BAR nXTSZ OF 快捷菜單 ;
	DO _MU1 
	
ON SELECTION BAR nQXSZ OF 快捷菜單 ;
	DO _MU2 
	
ON SELECTION BAR nGLYSZ OF 快捷菜單 ;
	DO _MU3 
	
ON SELECTION BAR nGGMM OF 快捷菜單 ;
	DO _MU4 
	
ON SELECTION BAR nTC 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
	a=messagebox("確定要退出嗎？",32+4,"系統提示")
	if a=6 
		_screen.visible=.t.
		_screen.top=0
		quit
	endif