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 :

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

 

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.

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

 

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module,Hak Akses Login,Login