VB公司合同管理系统开发与设计(14)
时间:2017-03-31 18:46 来源:毕业论文 作者:毕业论文 点击:次
.Update MsgBox "添加用户成功！", vbInformation Else MsgBox "此用户已存在！", vbExclamation Call FocusBack(txtUserName) '焦点返回用户框 Exit Sub End If End With End Sub （2）删除用户模块的实现 图 4.4 删除用户模块实现 首先用户在DataGrid空间中选择需要删除的对象，然后点击删除用户，MsgBox提示是否删除。如果已经选删除了一个用户但是还没有推出删除用户床提前，点击取消删除按钮可以撤销刚才的删除操作，如果直接推出此窗体则删除操作成功，程序将在数据表中删除指定的用户。 删除用户模块的代码实现： Private Sub cmdCancel_Click() '取消删除 adoUser.Recordset.CancelBatch adoUser.Refresh End Sub Private Sub cmdDelete_Click() '删除按钮 If UCase$(adoUser.Recordset("用户名")) = "admin" Then MsgBox "不能删除“admin”用户。", vbExclamation, "提示" Exit Sub End If Dim intRsp As Integer Dim strQst As String strQst = "是否删除用户“" & adoUser.Recordset("用户名") & "”？" intRsp = MsgBox(strQst, vbQuestion + vbYesNo, "询问") If intRsp = vbYes Then adoUser.Recordset.Delete '不执行更新操作，可以取消删除 End If End Sub Private Sub cmdExit_Click() Unload Me End Sub （3）更改权限模块的实现 图 4.5 更改权限模块实现 用户首先在DataGrid控件中选择需要修改的对象，然后在选择权限的组合框中选择权限，如果希望修改则点击确认修改，那么权限信息的修改会保存到数据表中。 更改权限模块的代码实现： Private Sub cmdExit2_Click() Unload Me End Sub Private Sub cmdValidate_Click() '确认对权限的修改 adoUser.Recordset("权限") = cboPurview.Text End Sub （4）修改密码模块的实现 图 4.6 修改密码模块实现 当用户单击确认按钮后，首先判定文本框是否为空，如果为空则MsgBox提示，然后在检查两次输入的密码是否一致，如果一致，则根据保存在全局变量中的用户名查询用户表，将当前用户的新密码存入“用户”数据表。 修改密码模块的代码实现： Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdOk_Click() '确认 If Trim$(txtPassword1.Text) = "" Then '检査各文本框是否为空 MsgBox "请输入新密码！", vbExclamation txtPassword1.SetFocus Exit Sub End If If Trim$(txtPassword2.Text) = "" Then MsgBox "请确认新密码！", vbExclamation txtPassword2.SetFocus (责任编辑：qin) |