Membuat Form Login VB 6.0 Database Access

Kembali pada pembelajaran Visual Basic 6.0 atau VB 6.0, pada tutorial kali ini akan dibahas mengenai Cara Membuat Form Login Menggunakan VB 6.0 Database Access.
Seperti yang sudah kita tahu bahwa ketika membuat Aplikasi atau Program maka kita harus membuat Form login, agar aplikais yang kita buat aman dan bisa dipertanggungjawabkan.

Aman : Aman dalam hal ini tidak semua orang bisa menggunakan Aplikasi yang kita buat. Ketika akan menggunakan aplikasi, user atau pengguna aplikasi harus memasukan user name dan password. Hal ini sudah standard aplikasi, contoh kita akan login ke email, maka harus memasukan user name dan password


Data dipertanggung jawabkan : Setiap user yang melakukan sebuah transaksi, maka akan diambil data yang login. Sebagai contoh kasir yang ada di supermarket. Ketika ada yang membeli barang 10 pcs, maka kasir harus input 10 pcs juga. Jika hanya input 5, maka perusahaan akan rugi. Dan jika ada selisih barang akan dipertanggungjawabkan oleh si kasir tersebut.

Berikut langkah dalam membuat Form Login VB 6.0 Database Access.

STEP 1 : Membuat Database dan Tabel

Karena data login diambil dari database, maka kita harus membuat Database dan tabel terlebih dahulu.
Buatlah database dengan nama : DBJNM.mdb
Buatlah Tabel dengan nama : TBL_USER
Buatlah design dan tabel seperti gambar dibawah ini :

Karena nantinya kita akan mempraktikan dengan Form login VB 6.0, maka kita harus mengisi sample data pada TBL_USER tersebut, sehingga seperti gambar dibawah ini :

Jika sudah, silahkan masukan sample data untuk testing Login.

Simpan pada Folder "Login Aplikasi"

STEP 2 : Membuat Form Login dan Kodingnya

Silahkan buka VB 6.0 pada komputer anda.
Siapkan 2 Form, yang pertama adalah FormLogin dan FormMenuUtama. Fungsi Form menu utama ini adalah, kita sukses login maka akan diarahkan ke FormMenuUtama tersebut. Namun jika user name dan password salah, maka ada pesan bahwa Username atau Password salah.
Sialhkan Buat FormLogin seperti gambar dibawah ini :

Silahkan masukan koding dibawah ini pada Form1

Dim Koneksi As New ADODB.Connection
Dim RSUser As ADODB.Recordset
Sub BukaDB()
 Set Koneksi = New ADODB.Connection
 Set RSUser = New ADODB.Recordset
 Set RSSupplier = New ADODB.Recordset
 Set RSBarang = New ADODB.Recordset
 Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"
End Sub
Sub KondisiAwal()
Text1 = ""
Text2 = ""
End Sub

Private Sub Form_Load()
Call KondisiAwal
End Sub

Private Sub Command1_Click()
Call BukaDB
        RSUser.Open "Select * from TBL_USER where KodeUser ='" & Text1 & "' and PasswordUser='" & Text2 & "'", Koneksi
        If RSUser.EOF Then
            MsgBox "Kode User atau Password Salah!"
            Text1.SetFocus
        Else
            Unload Me
            Form2.Show
        End If
End Sub
Private Sub Command2_Click()
End
End Sub

Jangan lupa, simpan project VB 6.0 anda satu folder dengan database yang telah anda buat yaitu "Login Aplikasi"
Jika sudah silahkan Run atau Jalankan Project VB 6.0 anda

Note :
Sebetulnya dalam membuat form login dibutuhkan KodeUser dan PasswordUser atau NamaUser dan Password. namun ditutorial ini saya sertakan LevelUser fungsinya adalah untuk memberikan Previllage atau Level Akses USer. Jika user administrator maka anda bisa menggunakan semua menu yang ada di Aplikasi, namun jika levelnya user atau yang lainnya, anda bisa berikan sesuai kebutuhan. Contoh pengguna aplikasi  seorang kasir, maka berikanlah akses menu penjualan dan laporan penjualan. dan lain sebagainya...