readauth.prg

来自「人力资源Visual FoxPro 6.0」· PRG 代码 · 共 34 行

*——“ReadAuth”函数
*——读取指定用户组的指定权限
FUNCTION ReadAuth(sUGNo,nAuthID)
	*——读取权限名称
	LOCAL Array AuthName[17]
	AuthName[1] = "基础信息管理"
	AuthName[2] = "员工档案管理"
	AuthName[3] = "奖励记录管理"
	AuthName[4] = "惩罚记录管理"
	AuthName[5] = "培训记录管理"
	AuthName[6] = "调动记录管理"
	AuthName[7] = "考评记录管理"
	AuthName[8] = "用户组管理"
	AuthName[9] = "用户管理"
	AuthName[10] = "奖励记录查询"
	AuthName[11] = "惩罚记录查询"
	AuthName[12] = "培训记录查询"
	AuthName[13] = "考评记录查询"
	AuthName[14] = "调动记录查询"
	AuthName[15] = "员工档案查询"
	AuthName[16] = "用户密码修改"
	AuthName[17] = "培训项目管理"
	*——读取权限值
	LOCAL rValue
	*——查找权限值
	Select UserGroup
	LOCATE FOR 组编号 = sUGNo
	IF FOUND()
		*——读取权限
		rValue = &AuthName[nAuthID]
	ENDIF
	SET FILTER TO
	Return rValue
ENDFUNC