Membuat Form Login di VB 6 (Dengan Database)

 

Tampilan Form Login

              Hampir sama dengan membuat Form Login Tanpa Database di vb , kali ini kita akan membuat form login sederhana dengan database Acces. OK. langkah-langkahnya:
1. Buat 1 buah database baru di acces, beri nama mislnya dbGrosir.
2. Buat 1 tabel baru dengan nama KARYAWAN, isi dengan field USER_NAME dan PASSWORD, kemudiab isikan dengan data admin, baik di user_name dan password.
Lebih jelasnya lihat gambar dibawah ini:

 

Gambar Database  di Acces

3. Buat 1 project baru di vb.
4. Buat 2 text field dengan nama TxtUser dan TxtPass.
5. Buat 2 buah tombol, tombol command1 dengan caption login dan command2 dengan caption cancel.
6. Buat 1 buah data grid dengan nama DataLog

7. Copy paste code dibawah ini di command1:
Private Sub Command1_Click()
    DataLog.RecordSource = "SELECT count(*) FROM KARYAWAN WHERE USER_NAME='" & TxtUser.Text & "' AND PASSWORD='" & TxtPass.Text & "'"
    DataLog.Refresh
   
    If DataLog.Recordset.Fields(0) < 1 Then
        MsgBox "Maaf, password anda salah...", vbInformation, App.Title
    Else
        DataLog.RecordSource = "SELECT * FROM KARYAWAN WHERE USER_NAME='" & TxtUser.Text & "' AND PASSWORD='" & TxtPass.Text & "'"
        DataLog.Refresh
        Load frmMain
        frmMain.Show
        Unload Me
    End If
End Sub
 
8. Copy paste code dibawah ini di form load:
Private Sub Form_Load()
    DataLog.DatabaseName = AppPath & "dbgrosir.mdb"
    DataLog.RecordSource = "SELECT count(*) FROM KARYAWAN"
    DataLog.Refresh
   
    If DataLog.Recordset.Fields(0) < 1 Then
        UDBLogin = False 'Tidak ada user, lanjut ke form utama untuk buat user
        Load frmMain
        frmMain.Show
        Unload Me
    Else
        UDBLogin = True ' ada user di database
        Me.Visible = True
    End If
End Sub


Download source disini

Posted in: vb