口令修改代码:
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\db.mdb"
Data1.RecordSource = "用户管理"
Me.Height = 3945
Me.Width = 5475
End Sub
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then
MsgBox "你没有输入更新信息!"
Else
If Text1.Text = "" Then
MsgBox "请输入原密码!"
Else
If Text2.Text = "" Then
MsgBox "你没有输入新密码!"
Else
If Text3.Text = "" Then
MsgBox "请确认你的新密码!"
Else
If Text2.Text <> Text3.Text Then
MsgBox "你两次输入的密码不同,请重新输入新密码!"
Text2.Text = ""
Text3. 751com.cn
Data1.Recordset.FindFirst password
If Data1.Recordset.NoMatch Then
MsgBox "你输入的原密码有误!"
Else
Data1.Recordset.AddNew
Data1.Recordset.Fields("用户名") = Label3.Caption
Data1.Recordset.Fields("用户编号") = Label3.Caption
Data1.Recordset.Fields("密码") = Text2.Text
Data1.Recordset.Update
Data1.Recordset.Delete
MsgBox "你已经成功的更换了新密码,请使用新密码!"
End If
End If
End If
End If
End If
End If
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>