Membuat Form Login Database Access di VB 6.0

Di Tulis : Oemah Belajar |


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.
Related image
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.

Membuat Form Login VB 6.0 Database Access


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 :

Membuat Form Login VB 6.0 Database Access
Jika sudah, silahkan masukan sample data untuk testing Login.
Membuat Form Login VB 6.0 Database Access


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 :


Membuat Form Login VB 6.0 Database Access

Silahkan masukan koding dibawah ini pada Form1



Dim Koneksi As New ADODB.Connection

Dim RSUser As ADODB.Recordset


 Set Koneksi = New ADODB.Connection

Sub BukaDB()


 Set RSSupplier = New ADODB.Recordset

Set RSUser = New ADODB.Recordset


 Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"

Set RSBarang = New ADODB.Recordset
End Sub
Sub KondisiAwal()


Call KondisiAwal

Text1 = ""
Text2 = ""
End Sub

Private Sub Form_Load()
End Sub



        RSUser.Open "Select * from TBL_USER where KodeUser ='" & Text1 & "' and PasswordUser='" & Text2 & "'", Koneksi

Private Sub Command1_Click()
Call BukaDB
        If RSUser.EOF Then


            Unload Me

MsgBox "Kode User atau Password Salah!"
            Text1.SetFocus
        Else
            Form2.Show


End Sub

End If
End Sub
Private Sub Command2_Click()


End


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... 

Demikian tutorial VB 6.0 dalam membuat Form Login Database Access. Semoga bermanfaat untuk anda.


⬆
Top