Cara Membuat Login Hak Akses Admin dan User Pada VB6 Database Phpmyadmin (Mysql)

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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 DISINI

10. Cobalah Running
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Cara Membuat Login Hak Akses Admin dan User Pada VB6 Database Phpmyadmin (Mysql), Diterbitkan oleh scodeaplikasi pada Senin, 31 Agustus 2015. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.