getpurv.prg

这是开发的客户关系管理系统

*——在数据库中读取登录的系统用户权限信息
*——选择“系统用户信息”表所在的工作区
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