*——在數據庫中讀取登錄的系統用戶權限信息
*——選擇“系統用戶信息”表所在的工作區
SELECT Sysuser
*——精確比較
SET EXACT ON
*——查找登錄用戶
LOCATE FOR ALLTRIM(用戶名)=cCurUser
*——如果找到
IF FOUND()
	*——讀取用戶權限信息全局變量中
	bDataAdmin=SysUser.資料信息管理
	bDataBrow=SysUser.資料信息瀏覽
	bUserAdmin=SysUser.用戶信息管理
	bUserBrow=SysUser.用戶信息瀏覽
	bLendAdmin=SysUser.借閱信息管理
	bLendBrow=SysUser.借閱信息瀏覽
	bSysUser=SysUser.系統用戶管理
	bUserPurv=SysUser.用戶權限管理
	bAct=SysUser.資料借還操作
ELSE
*——如果登錄的用戶不在表中
	*——結束事務處理
	CLEAR EVENTS
	*——退出Visual FoxPro
	QUIT
ENDIF
*——模糊比較
SET EXACT OFF