VB数据库项目设计模块化教程 刘玉山 刘宝山 第4章 管理员授权用户模块设计新.pptVIP

VB数据库项目设计模块化教程 主编 刘玉山 第4章 管理员授权用户模块设计 (1)用户权限的选择。(2)查找重复用户。(3)添加授权用户。(1)数据库连接。(2)动态数据集。(3)查询。(4)添加。(1)文本框、命令按钮、组合框控件的应用。(2)弹出对话框。4.1 项目需求分析4.2 项目设计4.3 技术要点小结 4.1 项目需求分析 软件管理员可以运行用户权限管理项目模块，如图4-1所示。 当管理员在“用户权限”下拉列表选择管理员、教师或学生之一，并添加用户名称和指定的用户密码后，可以单击“确定”。 如果此用户已经存在，将弹出“重复用户显示”对话框，如图4-2所示。 单击“确定”按钮，返回“添加用户并授权界面”，等待重新输入。 如果没有重复用户出现，则弹出用户添加提示对话框，确认无误后作最后确认，如图4-3所示。这样，新的用户就添加到数据库当中了。 4.1.1 项目需求分析的理解 图4-1 用户权限管理窗体 4.1.1 项目需求分析的理解 图4-2 “重复用户显示”对话框 4.1.1 项目需求分析的理解 图4-3 添加提示对话框 4.1.2 项目需求分析 1．项目功能需求 （1）权限选择 根据用户扮演的不同的角色，可以分为：管理员、教师和学生。 （2）添加授权用户 根据系统分配的不同角色，进行用户权限选择的选择。同时通过输入的用户名和密码，系统进行验证，如果没有重复用户出现，则确认后将新的授权用户添加到数据库中。 2．项目数据需求 数据输入项的选择。对于添加的每一个用户，必须对其进行唯一性验证，保证没有重复冗余信息进入数据库。 4.2 项目设计 4.2.1 设计思想4.2.2 程序设计4.2.3 数据库设计 4.2.1 设计思想 与登陆对话框设计一样，当装载窗体时，完成两方面的事情：一、通过组合框的AddItem方法，使组合框（cmbUserType）的下拉列表内容为“管理员、教师或学生”。二、完成数据库EMS链接和形成数据表login的动态记录集。 如果选择用户权限、输入用户名称和用户密码已经在数据库中注册，应返回，要求重新输入。如没有重复，则须在确认后写入数据库。流程图如图4-4所示。 4.2.1 设计思想 图4-4 用户权限管理流程图 4.2.2 程序设计 表4-1 frmAddUser窗体对象属性Private Sub cmdOK_Click()Dim i As IntegerDim response1response1 = 0For i = 1 To RS.RecordCountRS.AbsolutePosition = iIf RS(用户名称) = txtUserName And RS(用户密码) = txtPassword And RS(用户权限) = cmbUserType Thenresponse1 = MsgBox(有重复用户出现，请重新定义用户名！, , 重复用户显示)Exit SubEnd IfNext 4.2.2 程序设计 Dim response2If response1 = 0 Thenresponse2 = MsgBox(如果无误，请确认！, vbOKCancel, 添加)If response2 = 1 ThenRS.AddNewRS(用户名称) = txtUserNameRS(用户密码) = txtPasswordRS(用户权限) = cmbUserTypeRS.UpdateElseExit SubEnd IfEnd IfEnd Sub 表4-1 frmAddUser窗体对象属性 表4-1 frmAddUser窗体对象属性 4.3 技术要点小结 4.3.1 动态记录集AddNew和Update方法4.3.2 动态记录集RecordCount属性和AbsolutePosition属性4.3.3 MsgBox函数的标志按钮和返回值 4.3.1 动态记录集AddNew和Update方法 添加记录的过程，基本可分为三步：1）将记录指针定位到数据表的最后：2）对动态记录集的相应字段赋值；3）保存到数据库中。 第一步操作由RS的AddNew方法，通过记录指针移动到表的最后一行来实现的，AddNew方法为可更新的动态记录集对象添加新的记录。 第二步操作对数据表字段进行赋值。可利用指定表的动态记录集RS的字段名来确定表列相应的记录位置，如RS（“字段名”）=记录值；也可利用指定RS的具体位置来完成，如RS（具体位置）=记录值。本项目中RS（“用户名称”）= txtUserName等同于RS（0）= txtUserName，RS（“用户密码”）= txtPassword