vb+中介管理系统access+开题报告+论文+源代码外文(8)

Private Sub Form_Load()
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
                   "data source= " & App.Path & "\zhongjie.mdb"
conn.Open connectionstring
cnt = 0
End Sub

修改密码界面:

修改密码代码设计:
Private Sub cmdok_Click()
Dim rs_chang As New ADODB.Recordset
Dim sql As String
If Trim(txtnew.Text) <> Trim(txtnewqr.Text) Then
   MsgBox "密码不一致！", vbOKOnly + vbExclamation, ""
   txtnew.SetFocus
   txtnew.Text = ""
   txtnewqr.Text = ""
Else
   sql = "select * from 系统管理 where 用户名='" & userID & "'"
   rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic
   rs_chang.Fields(1) = txtnew.Text
   rs_chang.Update
   rs_chang.Close
   MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
   Unload Me
End If
End Sub

Private Sub cmdcancel_Click()
Unload Me
End Sub

添加用户界面:

添加用户代码分析:
Private Sub cmdok_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(txtname.Text) = "" Then
   MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
   Exit Sub
   txtname.SetFocus
Else
   sql = "select * from 系统管理"
   rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
   While (rs_add.EOF = False) （科教作文网http://zw.ΝsΕAc.com发布）
        If Trim(rs_add.Fields(0)) = Trim(txtname.Text) Then
           MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""
           txtname.SetFocus
           txtname.Text = ""
           txtpwd.Text = ""
           txtqueren.Text = ""
           Combo1.Text = ""
           Exit Sub
         Else
           rs_add.MoveNext
         End If
    Wend
    If Trim(txtpwd.Text) <> Trim(txtqueren.Text) Then
       MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""
       txtpwd.SetFocus
       txtpwd.Text = ""
       txtqueren.Text = ""
       Exit Sub
    ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then
       MsgBox "请选择正确的用户权限", vbOKOnly + vbExclamation, ""
       Combo1.SetFocus
       Combo1.Text = ""
  &n