MEMBUAT KARAKTER PASSWORD

============================================================
Contoh From Karakter Password
============================================================


============================================================
Coding di From Password
============================================================
Dim rspwd As ADODB.Recordset

Function CariData()
    Dim SQLCari As String
    If rspwd.State = adStateOpen Then rspwd.Close
    rspwd.CursorLocation = adUseClient
    rspwd.Open " Select * From tbpwd Where password = '" & TxtPwdLama.Text & "' ", Conn, adOpenKeyset, adLockOptimistic
End Function


Private Sub Form_Activate()
    TxtPwdLama.SetFocus
End Sub

Private Sub Form_Load()
    Skn.LoadSkin App.Path + "\skin\new.skn"
    Skn.ApplySkin Me.hwnd
    Set rspwd = New ADODB.Recordset
    rspwd.CursorLocation = adUseClient
End Sub



Private Sub Frame1_Click()
    Unload Me
End Sub


Private Sub TxtPwdBaru_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtPwdUlang.SetFocus
    End If
End Sub

Private Sub TxtPwdLama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        CariData
        If rspwd.EOF Then
            MsgBox "Password Tidak Cocok....", vbCritical, "Error...."
            rspwd.Close
            TxtPwdLama.Text = ""
            TxtPwdLama.SetFocus
        Else
            TxtPwdBaru.SetFocus
        End If
    End If
End Sub



Private Sub TxtPwdUlang_KeyPress(KeyAscii As Integer)
Dim jawaban As Integer
    If KeyAscii = 13 Then
        If TxtPwdBaru.Text = TxtPwdUlang.Text Then
            MsgBox "Password Berhasil Diganti"
            Conn.Execute "update tbpwd set Password='" & TxtPwdBaru & "' where " _
            & "'" & TxtPwdBaru.Text & "' = '" & TxtPwdUlang.Text & "'"
           
            Unload Me
        Else
            MsgBox "Password Baru Tidak Sesuai", vbCritical, "Error!!!"
            TxtPwdUlang.Text = ""
            TxtPwdUlang.SetFocus
        End If
    End If
End Sub

Private Sub XPFrame1_Click()
Unload Me
End Sub