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 dikala menciptakan Aplikasi atau Program maka kita harus menciptakan Form login, semoga aplikais yang kita buat kondusif dan dapat dipertanggungjawabkan.

Aman : Aman dalam hal ini tidak semua orang dapat memakai Aplikasi yang kita buat. Ketika akan memakai aplikasi, user atau pengguna aplikasi harus memasukan user name dan password. Hal ini sudah standard aplikasi, rujukan kita akan login ke email, maka harus memasukan user name dan password
Data dipertanggung jawabkan : Setiap user yang melaksanakan sebuah transaksi, maka akan diambil data yang login. Sebagai rujukan 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 jikalau ada selisih barang akan dipertanggungjawabkan oleh si kasir tersebut.

Berikut langkah dalam menciptakan Form Login VB 6.0 Database Access.

STEP 1 : Membuat Database dan Tabel

Karena data login diambil dari database, maka kita harus menciptakan Database dan tabel terlebih dahulu.
Buatlah database dengan nama : DBJNM.mdb
Buatlah Tabel dengan nama : TBL_USER
Buatlah design dan tabel ibarat 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 ibarat 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 yakni FormLogin dan FormMenuUtama. Fungsi Form hidangan utama ini adalah, kita sukses login maka akan diarahkan ke FormMenuUtama tersebut. Namun jikalau user name dan password salah, maka ada pesan bahwa Username atau Password salah.
Sialhkan Buat FormLogin ibarat 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 menciptakan form login diperlukan KodeUser dan PasswordUser atau NamaUser dan Password. namun ditutorial ini aku sertakan LevelUser fungsinya yakni untuk menawarkan Previllage atau Level Akses USer. Jika user direktur maka anda dapat memakai semua hidangan yang ada di Aplikasi, namun jikalau levelnya user atau yang lainnya, anda dapat berikan sesuai kebutuhan. Contoh pengguna aplikasi  seorang kasir, maka berikanlah susukan hidangan penjualan dan laporan penjualan. dan lain sebagainya...

Demikian tutorial VB 6.0 dalam menciptakan Form Login Database Access. Semoga bermanfaat untuk anda.
Silahkan KLIK DISINI untuk download project diatas.