Membuat Form Login pada VB 6.0 ~ Indonesia Blogger

Salam Programmer, Kali ini vainit akan mencoba berbagi pengalaman dengan Bahasa Pemograman VB, dan Pembahasaannya adalah cara membuat Form Login di VB, Form login ini tentunya saya relasikan dengan database. Ikuti langkah saya berikut ini :

Membuat database di Ms Access ( Nama database terserah, sebagai contoh dbvainit.mdb
Membuat table User yang berisi table ( kodeuser, namauser, passworduser )
Setelah selesai membuat database sekarang buka VB anda dan kemudian membuat form Login seperti gambar diatas
Kode User menggunakan Text1
Password menggunakan Text2
Login menggunakan Command1
Batal Menggunakan Command2

Setelah membuat form seperti yang saya instuksikan kemudian anda gunakan coding seperti di bawah ini :
Sub Form_Load()
    Call BukaDB
    Text1.MaxLength = 6
    Text2.MaxLength = 10
    Text2.PasswordChar = "X"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
    Call BukaDB
    Call CariData
            If RSuser.EOF Then
                MsgBox "User Tidak Terdeteksi, Coba lagi"
        "'", koneksi
        If RSuser.EOF Then
            MsgBox "Password Salah, Coba Lagi!"
            Text2 = ""
            Text2.SetFocus
        Else
            Unload Me
            menu.Show
        End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Jangan lupa membuat coding Modules seperti dibawah ini

Public koneksi As New ADODB.Connection
Public RSuser As ADODB.Recordset
Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSuser = New ADODB.Recordset
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbvainit.mdb"
End Sub

Mudah Bukan???
Namun anda tidak usah khawatir, jika anda belum berhasil juga, anda bisa Download dibawah ini

DOWNLOAD

Kode User : usr001
Password : vainit

Indonesia Blogger

Membuat Form Login pada VB 6.0

Related Post