VB数据库项目设计模块化教程 教学配套课件 刘玉山 刘宝山 第4章 管理员授权用户模块设计.pdfVIP

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 Integer Dim response1 response1 = 0 For i = 1 To RS.RecordCount RS.AbsolutePosition = i If RS(用户名称) = txtUserName And RS(用户密码) = txtPassword And RS( 用户权限) = cmbUserType Then response1 = MsgBox(有重复用户出现，请重新定义用户名！, , 重复用户显 示) Exit Sub End If Next 4.2.2 程序设计 Dim response2 If response1 = 0 Then response2 = MsgBox(如果无误，请确认！, vbOKCancel, 添加) If response2 = 1 Then RS.AddNew RS(用户名称) = txtUserName RS(用户密码) = txtPassword RS(用户权限) = cmbUserType RS.Update El