第4章 用户及权限管理.pptVIP

YN = MESSAGEBOX(确认删除用户 + + ALLTRIM(THISFORM.txt用户名.Value), ; 4+32, 人力资源管理系统) *——如果确认 IF YN = 6 *——删除用户 DELETE FROM USERS WHERE 用户名 = ALLTRIM(THISFORM.txt用户名.Value) PACK THISFORM.UserList.Requery THISFORM.Refresh ENDIF ENDIF .删除CmdDelete.Click-6/6 　　人力资源系统中将权限分为17项。为方便操作，将权限的读取与保存分离。主程序文件main.prg中，定义全局变量数组AuthName[17]，用于存放权限。 4.3权限管理 PUBLIC 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] = 培训项目管理 　　在项目中新建程序：ReadAuth,通过函数方式接收用户组编号和权限序号，读取对应权限字符串。 程序建立后，通过如下代码可读取编号为01的用户组权限： For I=1 to 17 ReadAuth(01,I) Endfor 4.3.1读取权限 *——“ReadAuth”函数 *——读取指定用户组的指定权限 FUNCTION ReadAuth(sUGNo,nAuthID) *——读取权限名称 LOCAL Array AuthName[17] AuthName[1] = 基础信息管理 AuthName[2] = 员工档案管理 AuthName[3] = 奖励记录管理 AuthName[4] = 惩罚记录管理 AuthName[5] = 培训记录管理 AuthName[6] = 调动记录管理 ReadAuth.prg-1/3 * 上一次课讲到在Visual FoxPro 6.0中设计程序的Splash界面、设计用户登录界面以及为用户密码加密的方法。请同学们回顾这样两个问题： Bitxor函数的格式 及功能是什么？ 2.文档界面类型有哪些？ ①函数格式：BITXOR(n1, n2) ②功能：返回n1, n2两个数值型数值按位进行异或运算的结果。 VFP允许创建单文档界面和多文档界面。 单文档界面（SDI）由一个或多个独立窗口组成，都在桌面上独立显示。 多文档界面（MDI）由单一主窗口组成，应用程序包含在主窗口或浮动在主窗口顶端。 上一次课主要学习的内容 　　本章主要介绍用户数据表的设计、权限管理，用户管理。 第4章.用户及权限管理 　　人力资源管理系统中用户管理使用用户组和用户2个表的双层管理机制，首先通过用户组设置权限，然后将用户归属某个组获取权限。 在HRMData数据库中新建“UserGroup”表存放用户组信息；新建“Users”表存放用户信息。 表结构如下： 4.1设计数据表 № 字段名 类型 宽度 索引 1 组编号 字符型 2 2 组名称 字符型 20 升序 3 基础信息管理 逻辑型 1 4 员工档案管理 逻辑型 1 5 奖励记录管理 逻辑型 1 6 惩罚记录管理 逻辑型 1 7 培训记录管理 逻辑型 1 8 调动记录管理 逻辑型 1 9 考评记录管理 逻辑型 1 10 用户组管理 逻辑型 1 1.UserGroup表结构 № 字段名 类型 宽度 11 用户管理 逻辑型 1 12 奖励记录查询 逻辑型 1 13 惩罚记录查询 逻辑型 1 14 培训记录查询 逻辑型 1 15 调动记录查询 逻辑型 1 16 考评记录查询 逻辑型 1 17 员工档案查询 逻辑型 1 18 用户密码修改 逻辑型 1 19 培训项目管理 逻辑型 1 № 字段名 类型 宽度 索引