?? getpurv.prg
字號:
*——在數(shù)據(jù)庫中讀取登錄的系統(tǒng)用戶權限信息
*——選擇“系統(tǒng)用戶信息”表所在的工作區(qū)
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.系統(tǒng)用戶管理
bUserPurv=SysUser.用戶權限管理
bAct=SysUser.資料借還操作
ELSE
*——如果登錄的用戶不在表中
*——結束事務處理
CLEAR EVENTS
*——退出Visual FoxPro
QUIT
ENDIF
*——模糊比較
SET EXACT OFF
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -