Assalamulaikum,
Dikesempatan kali ini saya akan berbagi informasi mengenai tutorial Mirosoft basic 6.0 (VB6) dengan judul "Cara Membuat Login Hak Akses Admin dan User Pada VB6 Database Phpmyadmin (Mysql)". Sebenarnya banyak cara membuat keamanan login VB6 ini, mulai dari database Ms. Access, Ms. Excel, dl. Namun saya akan berbagi tutorial ini dengan database Mysql atau yang sering kita sebut "PHPMYADMIN".
Aturannya adalah Admin hanya bisa mengakses "Master Data", dan User bisa mengakses "Transaksi dan Laporan".
1. Langkah pertama kita buat Database terlebih dahulu, buka Phpmyadmin di browser kamu
http://localhost/phpmyadmin/. Buatlah database dan tabel
- Nama database = Belajar_penjualan
- Nama tabel = tabel_user
- Jumlah kolom = 5
Isilah Minimal 1 User, dan 1 admin sebagai uji coba
2. Kemuadian buka aplikasi VB6, dan buat form baru dengan nama "flogin.frm", dan buat lah desain seperti dibawah ini :
3. setelah itu beri name pada textbox dan commandbutton masing-masing dengan nama berikut :
4. Copy dan pastekan di bawah ini sesuai name yang telah kita buat di atas.
a) tusername (ubah declaration ke Keypress)
Private Sub tusername_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call koneksi
rsdatauser.Open "select*from tabel_user where id_user='" & tusername.Text & "'", KON
If rsdatauser.EOF Then
MsgBox "ID User tidak ditemukan, silahkan masukan ID User lainnya !", vbCritical
tusername.Text = Clear
Else
tpassword.Enabled = True
tpassword.SetFocus
tlevel.Text = rsdatauser.Fields("level")
cblogin.Enabled = True
tusername.Enabled = False
End If
End If
End Sub
b) cblogin (declaration click)
Call koneksi
rsdatauser.Open "select*from tabel_user where id_user='" & tusername.Text & "' and password='" & tpassword.Text & "'", KON
If rsdatauser.EOF Then
MsgBox "Password anda salah", vbCritical
tpassword.Text = ""
tpassword.SetFocus
Else
tlevel = rsdatauser!Level
'di bawah ini adalah menu aktif untuk admin--------------------------------------------------------------
If tlevel = "ADMIN" Then
fmenu.Show
Unload Me
a = rsdatauser!namauser
MsgBox "Anda Login sebagai Admin", vbInformation, "INFO"
MsgBox "Selamat Datang " & a & "", vbInformation, "ADMIN"
fmenu.mmaster.Enabled = True
fmenu.mtransaksi.Enabled = False
fmenu.mlaporan.Enabled = False
'di bawah ini adalah menu aktif untuk user------------------------------------------------------------------
Else
fmenu.Show
Unload Me
b = rsdatauser!namauser
MsgBox "Anda Login sebagai User", vbInformation, "INFO"
MsgBox "Selamat Datang " & b & "", vbInformation, "USER"
fmenu.mtransaksi.Enabled = True
fmenu.mlaporan.Enabled = True
fmenu.mmaster.Enabled = False
End If
End If
c) cbbersih
Private Sub cbbersih_Click()
tusername.Enabled = True
tusername.Text = ""
tpassword.Enabled = False
tpassword.Text = ""
tusername.SetFocus
End Sub
d) Buatlah Form_Activate, dan paste koding berikut :
Private Sub Form_Activate()
tusername.Enabled = True
tpassword.Enabled = False
tusername.SetFocus
tusername.MaxLength = 5
tpassword.PasswordChar = "*"
tpassword.MaxLength = 8
tlevel.Visible = False
cblogin.Enabled = False
End Sub
5. Buatlah form menu dengan menggunakan MDI.frm seperti berikut dan beri name ada propertiesnya dengan "fmenu" :
6. kemudian berilah name pada menunya,
caranya :
- pilih "Tool" pada menu bar
- pilih "Menu Editor"
- ketik namenya sesuai dibawah ini.
7. Buatlah "Module", caranya :
- pilih "Project" pada menu bar
- pilih "add module"
8. Copy dan pastekan koding dibawah ini :
Public KON As New ADODB.Connection
Public rsdatauser As ADODB.Recordset
Sub koneksi()
'MEMBUKA OBJEK
Set KON = New ADODB.Connection
Set rsdatauser = New ADODB.Recordset
KON.ConnectionString = "DSN=penjualantoko"
KON.Open
End Sub
9. Koneksikan dengan "ODBC" dengan nama Data Source Name = penjualantoko, caranya bisa dilihat
DISINI10. Cobalah Running