saveauth.prg

人力资源Visual FoxPro 6.0

*——“SaveAuth”函数
*——设定指定用户组的指定权限
FUNCTION SaveAuth(sUGNo,nAuthID,bValue)
	*——读取权限名称
	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] = "培训项目管理"
	*——更新指定用户组的指定权限
	SELECT UserGroup
	LOCATE FOR 组编号 = sUGNo
	IF FOUND()
		REPLACE &AuthName[nAuthID]  WITH  bValue
	ENDIF
ENDFUNC