√ Cara Menciptakan Login Hak Saluran Admin Dan User Pada Vb6 Database Phpmyadmin (Mysql)

Assalamulaikum,

Dikesempatan kali ini aku akan membuatkan 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 menciptakan keamanan login VB6 ini, mulai dari database Ms. Access, Ms. Excel, dl. Namun aku akan membuatkan tutorial ini dengan database Mysql atau yang sering kita sebut "PHPMYADMIN".
Aturannya ialah Admin hanya dapat mengakses "Master Data", dan User dapat 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 gres dengan nama "flogin.frm", dan buat lah desain ibarat dibawah ini :

3. sehabis 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 ialah sajian 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 ialah sajian 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 sajian dengan memakai  MDI.frm ibarat berikut dan beri name ada propertiesnya dengan "fmenu" :

6. lalu berilah name pada menunya,
caranya :
- pilih "Tool" pada sajian bar
- pilih "Menu Editor"
- ketik namenya sesuai dibawah ini.

7. Buatlah "Module", caranya :
- pilih "Project" pada sajian 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 dapat dilihat DISINI

10. Cobalah Running
Sumber http://www.hendrisetiawan.com