Tuesday, 1 January 2013

Cara Membuat Form Ganti Password Di vb6

Berikut saya beri tau bagaimana cara Merubah password user di vb 6 . pertama yang di siapkan untuk membuat form ganti password adalah .
2 textbox
2 command button

buat table di database dengan nama useroperator
field nya userop dan pass
textbox 1 beri nama dengan txtpasslama
textbox 2 beri nama dengan txtpassbaru
lalu command 1 beri nama dengan cmdok
dan yang ke dua cmd cancel


Private Sub cmdok_Click()
Dim ruser As Recordset
Dim slist As String
slist = "select * from useroperator"
Set ruser = ConnDB.Execute(slist)

If txtpasslama = ruser![pass] Then
txtpassbaru.Enabled = True
ruser.Close
txtpassbaru.SetFocus
Else
MsgBox "Password Lama salah !!", vbCritical, "info"
Exit Sub
End If

ConnDB.Execute " update useroperator set pass='" & txtpassbaru & "'"
MsgBox " Password Berhasil di ubah", vbInformation, "info"
txtpasslama = ""
txtpassbaru = ""


End Sub

Private Sub Cmdcancel_Click()
Unload Me
End Sub



Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

3 comments:

 

Network

Pesan

Semoga situs ini bermanfaat