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, supaya 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, teladan 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 teladan 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 kalau ada selisih barang akan dipertanggung jawabkan 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 :
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 yaitu FormLogin dan FormMenuUtama. Fungsi Form hidangan utama ini adalah, kita sukses login maka akan diarahkan ke FormMenuUtama tersebut. Namun kalau 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 yaitu untuk memperlihatkan Previllage atau Level Akses USer. Jika user direktur maka anda dapat memakai semua hidangan yang ada di Aplikasi, namun kalau levelnya user atau yang lainnya, anda dapat berikan sesuai kebutuhan. Contoh pengguna aplikasi seorang kasir, maka berikanlah jalan masuk 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.