系统管理.mpr

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

_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