Membuat Form Login Dengan VB 6.0, MySQL dan ADODB Connection

12/07/2015
Membuat Form Login Dengan VB 6.0, MySQL dan ADODB Connection, cara membuat form login keren
Pada tutorial kali ini, saya akan menjelaskan sedikit mengenai cara membuat form login dengan visual basic 6.0, mysql dan adodb connection. Sebelum membahas langkah-langkah membuat form login pada vb 6.0 ini alangkah baiknya kita samakan presepsi kita dalam mempersiapkan peralatan tempur kita. Jadi teman-teman harus membuat modul koneksi yang telah terhubung ke database. Jika belum membuat nya, silakkan kunjungi tutorial saya sebelumnya mengenai cara membuat module koneksi di vb 6.0 dan mysql dengan ADODB.
Jika koneksi tersebut sukses, mari kita menuju langkah selanjutnya, yaitu cara membuat form login pada vb 6.0. disini saya sekaligus menjelaskan bagaimana cara membuat form login keren visual basic 6.0 beda hak akses, fungsinya adalah membuat login lebih dari 1 user vb dengan database MySQL misalnya hak akses admin dan user.

Buat Database Serta Tabel yang dibutuhkan

Langkah pertama yaitu kita membuat database, namun untuk database karena teman-teman sudah mengikuti tutorial saya yang sebelum nya, saya akan menggunakan database yang sama, yaitu database Biodata, dan membuat table yang dibutuhkan, karena pada tutorial ini adalah mengenai cara mudah membuat form login pada vb 6.0 dan MySQL, maka saya akan membuat table user dengan field sebagai berikut:
CREATE TABLE `user` (
  `iduser` int(11) NOT NULL AUTO_INCREMENT,
  `namauser` varchar(30) DEFAULT NULL,
  `username` varchar(30) DEFAULT NULL,
  `password` varchar(20) DEFAULT NULL,
  `hakakses` varchar(10) DEFAULT NULL,
  PRIMARY KEY (`iduser`)
) ENGINE=InnoDB

Desain Form Login pada VB 6.0

Nah, untuk langkah kedua, teman-teman silakkan desain form yang dibutuhkan, saya membuat form login sederhana seperti gambar dibawah ini:
Keterangan:
  1. Textbox1 kita ganti name pada propertisnya menjadi txtusername
  2. Textbox2 kita ganti name pada propertisnya menjadi txtpassword
  3. Command1 ubah namenya menjadi cmdlogin

Buka form login dan ketikkan perintah ini

Pertama kali kita deklarasikan variable yang akan kita gunakan untuk menyimpan isi dari field database. Disini saya menggunakan variable login. Kodenya adalah Dim login As New ADODB.Recordset.
Kembali lagi ke desain form login kita, klik 2 kali pada tombol login yang telah kita buat, ketikkan perintah berikut :
Set login = New ADODB.Recordsetlogin.Open "select * from user where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'", connIf login.RecordCount > 0 Then    Form2.Show    Unload MeElse    MsgBox "user id atau password kosong/salah"    txtusername.Text = ""    txtpassword.Text = ""    txtusername.SetFocusEnd If
Keterangan:
Set login = New ADODB.Recordset adalah perintah untuk mengosongkan variable login sehingga jika variable ini awalnya memiliki nilai, maka dengan perintah ini variable login akan dianggap variable baru tanpa nilai.
login.Open "select * from user where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'", conn adalah perintah sql membuka table dan mencocokkan isi dari textbox txtusername dan txtpassword dengan isi field username dan password yang ada di database.
If login.RecordCount > 0 Then
    Form2.Show
    Unload Me
Adalah jika variable login memiliki nilai lebih dari 0, atau dengan arti lain ada username dan password yang sama, antara yang kita inputkan di form login dan di database maka akan membuka form 2 dan form login akan di unload.
Else
    MsgBox "user id atau password kosong/salah"
    txtusername.Text = ""
    txtpassword.Text = ""
    txtusername.SetFocus
End If
Adalah selain itu jika tidak ada kecocokan antar yang di isikan di form login dengan di database maka akan menampilkan pesan user id atau password kosong/salah, kemudian secara otomatis isi text pada txtusername dan txtpassword menjadi kosong, dan kursor otomatis berada di txtusername. Sampai disini sebenarnya form login kita sudah jadi. Namun seandainya kita membuat hak akses yang berbeda-beda pada admin, misalnya ada admin yang berfungsi sebagai root, dan ada admin yang berfungsi sebagai pengguna, maka kita tambahkan sedikit kode pada form loginnya.

Hak Akses

Langkah pertama untuk membuat hak akses adalah membuat variable baru, disini saya membuat variable hakakses, teman-teman boleh saja member nama apa pada variable tersebut, letakkan pada baris kedua, koding lengkapnya adalah seperti berikut Dim hakakses As New ADODB.Recordset jadi pada kasus ini kita telah memiliki 2 variable, variable pertama adalah login yang kita buat pada langkah ke 3, dan variable hakakses yang baru saja kita buat.

Buat Form Untuk Level User

Buat form baru, disini saya beri nama form3 saja agar mudah, form1 untuk login, form2 untuk level admin, dan form3 untuk level user. Setelah form jadi, isi field pada database teman-teman, beri hakakses nya user, pada field sebelumnya kita telah membuat username dan password dengan hak akses admin.

Source Code Login VB 6.0 Dengan Hak Akses

Source code nya singkat saja, seperti berikut:
Set hakakses = New ADODB.Recordsethakakses.Open "select * from user where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'", conn    leveluser = hakakses.Fields("hakakses")        If leveluser = "admin" Then            Form2.Show        Else            Form3.Show        End If
Jadi, source kode lengkapnya dalam 1 form login adalah seperti gambar berikut:
Source Code Login VB 6.0 Dengan Hak Akses

Jika berhasil login sebagai admin maka akan muncul seperti gambar berikut:
berhasil login sebagai admin di vb 6.0 dan mysql

Dan jika berhasil login sebagai user maka akan muncul seperti gambar berikut:
berhasil login sebagai user di vb 6.0 dan mysql
Nah, itu dia cara mudah Membuat Form Login Dengan VB 6.0, MySQL dan ADODB Connection. jika ada yang belum jelas, silakkan teman-teman bahas di komentar ya. terima kasih..

Share this :

Previous
Next Post »
8 Komentar
avatar

Untuk tutor CRUD databasenya bisa skalian diulas pak?

Balas
avatar

buat modul ? udah
pas run? jalan
masalahnya pas pencet login
run-time error 3709
pak
mohon pencerahan

Balas
avatar

Assalamualaikum
Kak boleh nanya2 soal vb.net ga kak? aku lg ngerjain program dekstop buat ukk tahun ini, tapi masih bnyak yg blum aku ngerti. boleh ga?

makasih sebelumnya kak postingannya.

Balas
avatar

leveluser = hakakses.Fields("hakakses")
koding diatas itu maksudnya gimna?/ punyaku kok eror yya kak

Balas
avatar

syntak nya ada yg salah

Balas
avatar

sama saya juga salah disitu....

deskripsi nya seperti ini: the connection cannot be used to perform this operation. it is either closed or invalid context

dan saya cek di google salah klw itu salahnya di db dan open dari koneksi nya...
mohon pencerahaan kuyy

Balas

Penulisan markup di komentar
  • Silakan tinggalkan komentar sesuai topik. Komentar yang menyertakan link aktif, iklan, atau sejenisnya akan dihapus.