V实验06用户管理.doc

实验06 用户管理 [实验目的] 学会建立用户组表和用户表，建立用户组和用户管理表单。 [实验准备] 设计数据表 准备好图标文件：people.ico 新建两个表：“UserGroup”表存放用户组信息；“Users”表存放用户信息。 1.用户组表 表结构：UserGroup.dbf № 字段名 类型 宽度 索引 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 奖励查询 L 1 13 惩罚查询 L 1 14 培训查询 L 1 15 调动查询 L 1 16 考评查询 L 1 17 员工查询 L 1 18 密码修改 L 1 19 培训管理 L 1 表记录. 组编号 组名称 基础管理 档案管理 奖励管理 惩罚管理 培训管理 调动管理 考评管理 组管理 用户管理 奖励查询 惩罚查询 培训查询 调动查询 考评查询 员工查询 密码修改 培训管理 01 人事主管 Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y 02 工资核算 Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y 2.用户表 表结构：Users.dbf № 字段名 类型 宽度 索引 1 用户名 C 20 升序 2 密码 C 20 3 姓名 C 20 4 用户组 C 2 升序 表记录 用户名 密码 姓名 用户组 Admin 冯老师 01 [实验内容] 一. 用户管理表单 新增表单：UserAdmin 将users和usergroup表添加到数据环境中，设置表users的属性 exclusive=.T. bufferModeOverRide=2-保守式行缓冲 在表单中添加控件： 1个列表框、4个标签、4个文本框、1个组合框、4个按钮。 属性设置 表单属性： AutoCenter=.T. Caption=部门结构设置 Height=267 Icon=people.ico MaxButton=.F. ShowTips=.T. WindowType=1-模式 BorderStyle=2-固定对话框 Closable=.F. Width=466 MDIForm=.T. MinButton=.F. ShowWindow=1-在顶层表单中 Name=userAdmin 控件属性： CmdNew.Caption=新增 ToolTipText=新增 CmdModify.Caption=修改 ToolTipText=修改 CmdDelete.Caption=删除 ToolTipText=删除 CmdExit.Caption=退出 ToolTipText=退出 txt用户名.ControlSource=users.用户名 txt密码.PassWordChar=* txt确认密码.PassWordChar=* txt姓名.ControlSource=users.姓名 cbo用户组.controlsource=users.用户组 .rowsourcetype=6-字段 .rowsource=users.组编号,组名称 .style=2-下拉列表框 表单自定义属性： OldRecord=0 – 新增记录前的当前记录 formmode=browse – 表单状态browse/new/modify 表单自定义方法： *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.CmdD