Membuat aplikasi login dengan VB 6

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


Semoga bermanfaat



sumber : http://galiarta.blogspot.com/2010/02/membuat-form-login-di-vb-6-dengan.html