数据库项目设计模块化第章管理员授权用户模块设计PPT课件.ppt

第4章管理员授权用户模块设计 1 用户权限的选择 2 查找重复用户 3 添加授权用户 1 数据库连接 2 动态数据集 3 查询 4 添加 1 文本框 命令按钮 组合框控件的应用 2 弹出对话框 4 1项目需求分析4 2项目设计4 3技术要点小结 1 4 1项目需求分析 软件管理员可以运行用户权限管理项目模块 如图4 1所示 当管理员在 用户权限 下拉列表选择管理员 教师或学生之一 并添加用户名称和指定的用户密码后 可以单击 确定 如果此用户已经存在 将弹出 重复用户显示 对话框 如图4 2所示 单击 确定 按钮 返回 添加用户并授权界面 等待重新输入 如果没有重复用户出现 则弹出用户添加提示对话框 确认无误后作最后确认 如图4 3所示 这样 新的用户就添加到数据库当中了 2 4 1 1项目需求分析的理解 图4 1用户权限管理窗体 3 4 1 1项目需求分析的理解 图4 2 重复用户显示 对话框 4 4 1 1项目需求分析的理解 图4 3添加提示对话框 5 4 1 2项目需求分析 1 项目功能需求 1 权限选择根据用户扮演的不同的角色 可以分为 管理员 教师和学生 2 添加授权用户根据系统分配的不同角色 进行用户权限选择的选择 同时通过输入的用户名和密码 系统进行验证 如果没有重复用户出现 则确认后将新的授权用户添加到数据库中 2 项目数据需求数据输入项的选择 对于添加的每一个用户 必须对其进行唯一性验证 保证没有重复冗余信息进入数据库 6 4 2项目设计 4 2 1设计思想4 2 2程序设计4 2 3数据库设计 7 4 2 1设计思想 与登陆对话框设计一样 当装载窗体时 完成两方面的事情 一 通过组合框的AddItem方法 使组合框 cmbUserType 的下拉列表内容为 管理员 教师或学生 二 完成数据库EMS链接和形成数据表login的动态记录集 如果选择用户权限 输入用户名称和用户密码已经在数据库中注册 应返回 要求重新输入 如没有重复 则须在确认后写入数据库 流程图如图4 4所示 8 4 2 1设计思想 图4 4用户权限管理流程图 9 4 2 2程序设计 表4 1frmAddUser窗体对象属性PrivateSubcmdOK Click DimiAsIntegerDimresponse1response1 0Fori 1ToRS RecordCountRS AbsolutePosition iIfRS 用户名称 txtUserNameAndRS 用户密码 txtPasswordAndRS 用户权限 cmbUserTypeThenresponse1 MsgBox 有重复用户出现 请重新定义用户名 重复用户显示 ExitSubEndIfNext 10 4 2 2程序设计 Dimresponse2Ifresponse1 0Thenresponse2 MsgBox 如果无误 请确认 vbOKCancel 添加 Ifresponse2 1ThenRS AddNewRS 用户名称 txtUserNameRS 用户密码 txtPasswordRS 用户权限 cmbUserTypeRS UpdateElseExitSubEndIfEndIfEndSub 11 表4 1frmAddUser窗体对象属性 表4 1frmAddUser窗体对象属性 12 4 3技术要点小结 4 3 1动态记录集AddNew和Update方法4 3 2动态记录集RecordCount属性和AbsolutePosition属性4 3 3MsgBox函数的标志按钮和返回值 13 4 3 1动态记录集AddNew和Update方法 添加记录的过程 基本可分为三步 1 将记录指针定位到数据表的最后 2 对动态记录集的相应字段赋值 3 保存到数据库中 第一步操作由RS的AddNew方法 通过记录指针移动到表的最后一行来实现的 AddNew方法为可更新的动态记录集对象添加新的记录 第二步操作对数据表字段进行赋值 可利用指定表的动态记录集RS的字段名来确定表列相应的记录位置 如RS 字段名 记录值 也可利用指定RS的具体位置来完成 如RS 具体位置 记录值 本项目中RS 用户名称 txtUserName等同于RS 0 txtUserName RS 用户密码 txtPassword等同于RS 1 txtPassword RS 用户权限 cmbUserType等同于RS 2 cmbUserType 表的动态记录集RS的字段位置是从0计起的 第三步操作是关键的操作 动态记录集RS的值 必须由RS的Update方法保存到数据库中 需要注意的是RS的Update方法保存动态记录集对象的当前记录所做的所有更新 14 4 3 2动态记录集RecordCount属性和AbsolutePosition属性 一般数据库添加记录时 常设计条件语句 判断是否有重复记录出现 对已有记录不再添加 RS RecordCount和RS AbsolutePosition是RS的两个有用的属性 分别表示动态记录集RS的纪录总数和记录指针的绝对位置 15 4 3 3MsgBox函数的标志按钮和返回值 MsgBox函数的语法 MsgBox 提示信息 标志和按钮