تغییر رمز

[thomasandy]

سلام سورس تعغیر رمز لازم دارم دیتابیس باشه

[siyn71]

میشه بیشتر توضیح بدید؟

[thomasandy]

این سورس چه
Select Case AeroButton2.Caption
Case "ذخيره رمز عبور جديد"
Data1.RecordSource = "Login"
Data1.Refresh
Data1.Recordset.MoveFirst
While Data1.Recordset.EOF <> True
If AeroTextBox4.Text = Data1.Recordset.Fields("Password") Then
Data1.Recordset.Edit
Data1.Recordset.Fields("Password") = AeroTextBox2.Text
Data1.Recordset.Update
Data1.Refresh
MsgBox "رمز عبور تغيير کرد", vbInformation, "ثبت شد"
AeroButton2.Caption = "تغيير رمز عبور"
AeroTextBox1.Text = ""
AeroTextBox2.Text = ""
GroupBox3.Enabled = False
Exit Sub
End If
Data1.Recordset.MoveNext
Wend
MsgBox "رمز عبور قبلي اشتباه مي باشد!", vbCritical, "خطا"
AeroButton2.Caption = "تغيير رمز عبور"
AeroTextBox1.Text = ""
AeroTextBox2.Text = ""
GroupBox3.Enabled = False
Case "تغيير رمز عبور"
AeroGroupBox2.Enabled = True
AeroButton2.Caption = "ذخيره رمز عبور جديد"
End Select