实验06用户和权限管理.docVIP

用户及权限管理 1设计数据表 UserGroup表结构 № 字段名 类型 宽度 索引 1 组编号 C 2 2 组名称 C 20 3 基础信息 L 1 4 员工档案 L 1 5 奖励记录 L 1 6 惩罚记录 L 1 7 培训记录 L 1 8 调动记录 L 1 9 考评记录 L 1 10 用户组 L 1 11 用户 L 1 12 奖励记录cx L 1 13 惩罚记录cx L 1 14 培训记录cx L 1 15 调动记录cx L 1 16 考评记录cx L 1 17 员工档案cx L 1 18 密码修改 L 1 19 培训项目 L 1 ** 增加两个记录（自拟） Users表结构 № 字段名 类型 宽度 1 用户名 字符型 20 2 密码 字符型 20 3 姓名 字符型 20 4 用户组 字符型 2 2用户管理表单 一、设计界面 表单1个 ---form1 列表框1个—UserList 文本框4个--…… 组合框1个—cbo用户组 标签4个--…… 按钮4个 形状4个 设置属性： AutoCenter=.T. BorderStyle=2-固定对话框 Caption=部门结构设置 Closable=.F. Height=267 Width=466 Icon=people.ico MDIForm=.T. MaxButton=.F. MinButton=.F. ShowTips=.T. ShowWindow=1-在顶层表单中 WindowType=1-模式 Name=userAdmin CmdNew.Caption=新增 CmdModify.Caption=修改 .ToolTipText=新增 .ToolTipText=修改 CmdExit.Caption=退出 CmdDelete.Caption=删除 .ToolTipText=退出 .ToolTipText=删除 .Cancel=.T. txt用户名.ControlSource=users.用户名 txt密码.PassWordChar=* txt确认密码.PassWordChar=* txt姓名.ControlSource=users.姓名 cbo用户组.controlsource=users.用户组 .rowsourcetype=6-字段 .rowsource=usergroup.组编号,组名称 .style=2-下拉列表框 表单自定义属性： OldRecord=0 – 新增记录前的当前记录 formmode=browse – 表单状态browse/new/modify 添加数据环境：表users 、表usergroup 数据环境.cursor1.BufferModeOverRide = 2 数据环境.cursor2.BufferModeOverRide = 2 数据环境.cursor1.Exclusive=.t. 数据环境.cursor2.Exclusive=.t. 利用生成器将 文本框：用户名、密码、姓名与users表中对应字段绑定 组合框：用户组与usergroup表中：组编号，组名字绑定，值页面中字段名与users.组编号绑定 表单自定义方法： Setmode 代码如下： *——获取要设置的状态 IF THISFORM.FormMode = browse FormMode = .F. ELSE FormMode = .T. ENDIF *——控制文本框 THISFORM.SETALL(ReadOnly, !FormMode, TextBox) *——控制组合框 THISFORM.SETALL(Enabled , FormMode, ComboBox) *——控制“新增”按钮 THISFORM.CmdNew.Enabled = !FormMode *——控制“退出”按钮 THISFORM.CmdExit.Enabled = !FormMode *——更改按钮标题 IF !THISFORM.FormMode = browse THISFORM.CmdModify.Caption = 保存 THISFORM.CmdDelete.Caption = 取消 ELSE THISFORM.CmdModify.Caption = 修改 THISFORM.CmdDelete.Caption = 删除 ENDIF *——如果用户名为“admin”，不能修改其用户名 IF THISFORM.UserList.Value = admin ; .AND. THISFORM.FormMode != new THISFORM.txt用户名.ReadOnl