Laman

Senin, 18 Oktober 2010

Membuat Program Ganti Password

    Nah, kita ketemu lagi di blog Rious Of RQ. Sekarang kita akan membahas tentang membuat program Ganti Password tentunya memakai VB. 06 donk!.
     Program ini pastinya sangat berguna untk melengkapi Security pada program kita, karena bila user ingin password sesuai yang diinginkan, user dapat menggunakan Program Ganti Password Ini. Jadi program ini harus ada di setiap program yang ada passwordnya, Agar fasilitas program kita dipandang oleh user sangat bagus tentunya.....

     Daripada lama silahkan buat form seperti disamping....., lalu masukan lah coding dibawah ini:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call KOneksi
RSKasir.Open "select * from kasir where namaksr='" & Text1 & "'", Conn
If Not RSKasir.EOF Then
Text2.SetFocus
Else
MsgBox "nama kasir tidak terdaftar"
Text1.SetFocus
Text1 = ""
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call KOneksi
RSKasir.Open "select * from kasir where namaksr='" & Text1 & "' and passwordksr='" & Text2 & "'", Conn
If Not RSKasir.EOF Then
Text3.SetFocus
Else
MsgBox "password salah "
Text2.SetFocus
Text2 = ""
End If
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text3 = "" Then
MsgBox "password baru belum dibuat"
Text3.SetFocus
Else
Text4.SetFocus
End If
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text4 <> Text3 Then
MsgBox "password konfirmasi tidak sama"
Text4.SetFocus
Text4 = ""
Else
Pesan = MsgBox("yakin password akan diganti", vbYesNo)
If Pesan = vbYes Then
Dim editpwd As String
editpwd = "update kasir set passwordksr='" & Text4 & "'
where namaksr='" & Text1 & "' and passwordksr='" & Text2 & "'"
Conn.Execute editpwd
Unload Me
Else
Unload Me
End If
End If
End If
End Sub

Nah itu codingnya....
Kalau ada salah tinggal koreksi aj yah....
Sampai jumpa lagi pada modul berikutnya... : )

0 komentar:

Posting Komentar