MEMBUAT FORM LOGIN DENGAN HAK AKSES

Dalam sebuah aplikasi, hak akses sangatlah diperlukan. Hak akses dibutuhkan sebagai pengendali sebuah aplikasi.

Dalam tutorial ini saya akan berbagi bagaimana membuat form Login dengan menggunakan hak akses.

Jadi sebelum saya mulai bagaimana membuat form login menggunakan hak akses, saya akan sedikit menceritakan bagaimana alur dari hak akses itu sendiri.

Admin mencari nama dan sandi dalam database, dan jika menemukan nama dan sandinya maka si Admin bisa membukan semua menu aplikasi. Sebaliknya jika kasir yang mencari nama beserta sandinya dan jika ditemukan, maka si Kasir hanya akan membuka beberapa menu saja.

Ok kita lanjut ke TKP……

 

Langkah 1.

Buat data database, dengan tabel sebagai berikut :

clip_image002

Untuk hak akses yang tertulis angka 1 dan angka 2 berfungsi untuk menentukan aplikasi apa saja yang boleh dibuka.

 

Langkah 2.

Buatlah sebuah project baru dan lanjutkan membuat sebuah MDI Form.

Pada MDI Form buatlah menu dengan urutan sebagai berikut :

Caption Name
File mnFile
….Input Data mnInput
….Keluar mnKeluar
Data mnData
….Edit mnEdit
….Cetak mnCetak
Laporan mnLaporan
….Penjualan mnPenjualan
….Laba Rugi mnLaba

 

clip_image004

Keterangan :

Untuk hak akses dengan angka 1 (admin) dibolehkan untuk membuka semua menu sedangkan untuk angka 2 (kasir) tidak diperbolehkan membuka menu Input Data dan menu Edit.

 

Langkah 3.

Buatlah form login pada form1 seperti gambar di bawah.

clip_image006

Keterangan :

Component Name
textBox1 txtNama
textBox2 txtSandi
CommandButton1 cmdLogin
CommandButton2 cmdBatal

 

Oya….. tambahkan juga komponen ADODB pada MDIForm 1.

 

Langkah 4.

Buatlah sebuah Module dan copas source code berikut :

Coding Module
  1. Public Con As ADODB.Connection
  2. Public rs As ADODB.Recordset
  3. Sub Connects()
  4. 'On Error Resume Next
  5. Set Con = New ADODB.Connection
  6. Con.Provider = "Microsoft.Jet.OLEDB.4.0"
  7. Con.Open App.Path & "\Database.mdb"
  8. End Sub
  9. Sub main()
  10. Form1.Show
  11. End Sub

 

Langkah 5.

Klik Menu Keluar pada MDIForm1 dan ketik code berikut :

  1. Private Sub mnKeluar_Click()
  2. End
  3. End Sub

 

Langkah 6.

Doble klik pada Form1 dan salin code berikut :

  1. Private Sub Form_Load()
  2. Connects
  3. MDIForm1.mnFile.Enabled = True
  4. MDIForm1.mnData.Enabled = True
  5. MDIForm1.mnLaporan.Enabled = True
  6. End Sub
  7. Sub hakAkses(kode As String)
  8. With MDIForm1
  9. Select Case kode
  10. Case 1
  11. Case 2
  12. .mnInput.Enabled = False
  13. .mnEdit.Enabled = False
  14. End Select
  15. End With
  16. End Sub

 

Jika sudah, lanjutkan dengan dobel klik Button Login dan copas source code berikut :

  1. Private Sub cmdLogin_Click()
  2. Set rs = New ADODB.Recordset
  3. rs.Open "SELECT hakAkses from LoginTbl where nama='" & txtNama.Text & "' AND sandi='" & txtSandi.Text & "'", Con
  4. If Not rs.EOF Then
  5. MDIForm1.mnFile.Enabled = True
  6. MDIForm1.mnData.Enabled = True
  7. MDIForm1.mnLaporan.Enabled = True
  8. hakAkses rs.Fields("hakAkses")
  9. MDIForm1.Show
  10. Unload Me
  11. Else
  12. MsgBox "id dan/atau password Anda salah, akses dotolak", vbCritical, ".:Login"
  13. End If
  14. End Sub

 

Untuk Button Batal ketikkan code berikut :

  1. Private Sub cmdBatal_Click()
  2. End
  3. End Sub

 

 

untuk file latihan silahkan download disini

 

Share this article :
 

+ comments + 2 comments

December 16, 2013 at 4:47 PM

om, kalo databasenya pake XAMPP yang di ganti apa aja?
trs saya dpt error om, tulisannya "no value given for one or more required parameters". yang salah apa ya om? tolong secepatnya d bls om.
Trimaksih

January 31, 2015 at 1:31 AM

kalo File Database nya ada passwordnya gimana cara nambah source code nya

Post a Comment

Terima Kasih Sudah Meninggalkan Komentar...

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. ingin berbagi - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger