End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
End Sub
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)
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