Form Login sederhana untuk mengatur hak akses (2)

Baca Juga

Langkah pertama siapkan menu pada sebuah form (-pilih sebuah form, klik kanan pilih Menu Editor-) misalnya dengan isi sebagai berikut :

Caption	Name
Berkas	mn001
....Log Off	mn0011
....Exit	mn0012
Data	mn002
....Input	mn0021
....Edit	mn0022
....Delete	mn0023
Report	mn003
....Penjualan	mn0031
....Laba Rugi	mn0032

*untuk yang belum pernah membuat menu bisa baca artikel pada link ini : [ http://vbjadul.wordpress.com/2010/06/02/cara-membuat-menu-pada-visual-basic-6-0/ ]

Menu sudah selesai dibuat, langkah selanjutnya adalah membuat database-nya, dalam contoh ini kita menggunakan database MS-ACCESS, dengan susunan fiekd-fieldnya seperti pada artikel sebelumnya.

Selanjutnya tambahkan sebuah form untuk Form-Loginnya dengan design kurang lebih seperti terlihat dalam gambar di samping.

Masukkan beberapa baris code dibawah ini kedalam jendela code form login :

Private Sub Command1_Click()
    Set rs = New ADODB.Recordset
    rs.Open "SELECT hak_akses from TBlogin where id='" + _
    Text1.Text  + "' AND pass='" +  Text2.Text & "'", Con
    If Not rs.EOF Then
        Form1.mn001.Enabled = True
        Form1.mn002.Enabled = True
        Form1.mn003.Enabled = True
        hak_akses rs.Fields("hak_akses")
        Form1.Show
        Unload Me
    Else
        MsgBox "id dan/atau password Anda salah, akses dotolak", vbCritical, ".:Login"
    End If
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Form_Load()
    Connects
    Form1.mn001.Enabled = False
    Form1.mn002.Enabled = False
    Form1.mn003.Enabled = False
End Sub

Sub hak_akses(kode As String)
    With Form1
        Select Case kode
            Case 1
                .mn0022.Enabled = False
                .mn0023.Enabled = False
                .mn0031.Enabled = False
                .mn0032.Enabled = False
            Case 2
                .mn0032.Enabled = False
        End Select
    End With
End Sub

Jangan lupa juga untuk form utamanya tambahkan code dibawah ini :

Private Sub mn0011_Click()
     Unload Me
     Form2.Show
End Sub

Private Sub mn0012_Click()
     End
End Sub

Sampai disini sudah selesai, saatnya mencoba !
Tekan F5, sehingga muncul form Login, isi user dengan 1 dan password dengan 12345, maka semua menu (kecuali menu Log Off, Exit dan Data - Input) akan di disable alias tidak boleh diakses user ini. Coba user yang lain dengan Log Off dari menu utama (- Berkas - Log Off-), masukkan user 2 dan password isi dengan 12345, maka akses terhadap menu akan lebih banyak dari pada user yang pertama. Untuk menyesuaikan hak akses user sesuai keinginan Anda bisa dengan cara mengubah code pada Form Login pada Sub hak_akses, seperti telihat pada baris code dibawah ini :

Sub hak_akses(kode As String)
    With Form1
        Select Case kode
            Case 1 ' - - - - > user dengan hak akses 1,
                         '              menu-menu dibawah ini tidak dapat diakses
                         '              user dengan hak akses ini.
                .mn0022.Enabled = False
                .mn0023.Enabled = False
                .mn0031.Enabled = False
                .mn0032.Enabled = False
            Case 2 ' - - - - > user dengan hak akses 2,
                         '              menu-menu dibawah ini tidak dapat diakses
                         '              user dengan hak akses ini.
                .mn0032.Enabled = False
            'Case 3 ' - - - - > user dengan hak akses 3,
                         '              menu-menu dibawah ini tidak dapat diakses
                         '              user dengan hak akses ini.
             '....dst
         End Select
    End With
End Sub

Anda download sample project-nya di link ini :

http://www.ziddu.com/download/10128798/login.rar.html