Beberapa minggu yang lalu saya menulis artikel tentang Membuat Login Multiple User di VB.Net (bag.1). Namun saya rasa artikel tersebut belum selesai sepenuhnya, karena masih da sedikit masalah yaitu setelah login bagaimana mengatur menu-menu yang ditampilkan di form utama agar sesuai dengan hak akses ketika user/admin masuk.

 Untuk mengatasi masalah tersebut maka dalam kesempatan kali ini saya akan mencoba membuat artikel mengenai pengaturan menu yang di tampilkan di menu utama berdasarkan hak aksesnya. Misalnya ketika admin masuk maka semua menu akan ditampilkan, tapi ketika user masuk maka ada menu-menu tertentu yang dihilangkan.
Langkah-langkah dalam membuatnya adalah sebagai berikut.
  1. Baca dulu artikel sebelumnya (Membuat Login Multiple User di VB.Net(bag. 1)) dan buat / download programnya.
  2. di Form2 ubah Properti Text menjadi Form Utama.
  3. Tambahkan Tool MenuStrip ke form2, lalu buat Menu dan submenu sebagai berikut.

Sehingga tampilan form2 menjadi seperti berikut





4.Misalnya admin bisa mengakses semua menu, sedangkan user hanya bisa mengakses sub menu data mata
   kuliah saja, sehingga kode lengkap untuk tombol Login (btnLogin) di Form 1 adalah sebagai berikut. 


Dim Sql, user, pass, hak As String
        Dim cmd As SqlCommand
        Dim rdr As SqlDataReader

        user = txtUser.Text     'Variabel user diisi nilai yang diinputkan txtUser
        pass = txtPass.Text     'Variabel user diisi nilai yang diinputkan txtPass
        hak = cbHak.SelectedItem 'Variabel user diisi item yang dipilih cbHak

        'Cek apakah user, password dan hak akses yang telah dipilih/dimasukan ada di database
        Sql = "SELECT * FROM tbl_login WHERE Username='" + user + "' 
       _AND Password='" + pass + "' AND Hak_akses='" + hak + "'"
        cmd = New SqlCommand(Sql, koneksi)

        rdr = cmd.ExecuteReader()

        If rdr.HasRows = True Then      'Jika data ditemukan

            If hak = "Admin" Then                                           
                Form2.Show()                                                
                Me.Hide()                                                   
            Else                                                            
                Form2.DataMahasiswaToolStripMenuItem.Enabled = False        
                Form2.DataDosenToolStripMenuItem.Enabled = False            
                Form2.Show()                                               
                Me.Hide()                                                   
            End If
        Else
            'Munculkan messagebox pesan salah
            MessageBox.Show("Kombinasi Username ,Password dan Hak Akses Salah",
            _ "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtUser.Focus()
        End If

        rdr.Close()
        cmd.Dispose()
 
 5. RUN !!!! (maksudne coba programnya hehe.. :) ).
 6.Setelah dijalankan kita bisa melihat kan untuk user 
   submenu data mahasiswa dan data dosen tidak bisa diakses (disable)
 
 
7. Anda juga bisa mengubah/menambah sendiri menu dan mengatur menu mana 
  saja yang kan ditampilkan untuk admin dan user
 
Selamat Mencoba ya..

Untuk Source Code Bisa di download disini..