Cara Membuat Form Login User VB6

Ini adalah contoh Form Login User ke Database VB6, jadi jika kita ingin memberikan Sebuah Form untuk login pada Program kita ini adalah kodenya : - ini contoh Design Form Login.

Baiklah jika ingin membuat form login seperti diatas, Buatlah designny sperti diatas, dan Ini adalah contoh kode untuk form diatas :

'Kode Pada Tombol OK (Login)
Private Sub cmdOK_Click()
rs.Open "Select * from UserLogin where " & " Username='" _
& Trim(txtUser.Text) & "' and " _
& " Password='" & Trim(txtPassword.Text) & "'", cn 
 
If rs.EOF Then 'jika username/password salah
    MsgBox "User/Password Salah"
    txtUser.SetFocus: SendKeys "{Home}+{End}"
    txtPassword.Text = ""
    Set rs = Nothing
Else
    FrmUtama.Show
    Unload Me
End If
    Set rs = Nothing
    
End Sub

'Kode Pada Form Load
Private Sub Form_Load()
    If cn.State <> 1 Then KoneksiDB
    cmdOK.Enabled = False
    txtPassword.Enabled = False
End Sub

'Kode Pada Textbox Password pada event Keypress
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdOK_Click
End If
End Sub

'Kode Pada Textbox Username pada event (Change)
Private Sub txtUser_Change()
    If Len(Trim(txtUser.Text)) <> 0 Then
        txtPassword.Enabled = True
        cmdOK.Enabled = True
    Else
        txtPassword.Enabled = False
        cmdOK.Enabled = False
    End If
End Sub

Penjelasan : Pastikan Terlebih dahulu anda sudah membuat Koneksi, dan deklarasi variable Recordset pada modul, lihat Cara membuat koneksi database vb6. Pada FormLoad panggil procedure koneksi dan disable Tombol OK dan Textbox password, kenapa di disable, jadi saat form login dan username belum diisi maka pengguna tidak bisa mengklik tombol ok dan password tidak bisa diisi, Pada Textbox Username pada event change, jika textbox user tidak kosong maka aktfkan textbox Password dan Tombol OK selain itu Kunci,

Pada Tombol OK, rs.Open adalah perintah membuka recordset atau tabel, perintah diatas adalah Select * from Login where username = textbox username and password = textbox password., cn adalah variavle koneksi atau koneksi yang aktif. Selanjutnya If jika .EOF berarti data tidak ditemukan atau Username dan Password Salah maka tampilkan pesan Set rs=nothing adalah kosongkan recordset, Else panggil Form Setelah kita login namaform.Show,kemudian tutup form login unload me. end if, kosongkan recordset.

Ugar bisa Login dengan menekan enter pada saat selesai mengetikan password tambahkan kode pada Textbox password di Event keypress, if keyascii = 13 berarti jika ditekan Enter maka panggil kode pada tombol OK, cmdOk_clic. Selesai

Terima kasih, Semoga bermanfaat.
mohon maaf jika terdapat kesalah.