Sunday, 28 July 2013

Cara Membuat Hak Akses Pada User VB.net

Setelah saya membuat artikel  Cara Membuat StatusBar atau StatusStrip Di VB.NET
kali ini saya ingin membuat hak akses pada user , misal nya seorang kasir dia hanya bisa transaksi saja dan tidak bisa entry data dan sedangkan admin bisa entry data . ini masih ada hubungan nya dengan status bar , bagi yang belum buat, bisa baca di CARA MEMBUAT STATUSBAR ATAU STATUSSTRIP DI VB.NET .

setelah status bar nya sudah di buat ,saya menggunakan menu strip , mari kita masuk codingan nya .

Nah codingan ini di taro di form load

If statusBarUser.Text = "kasir" Then
            MasterToolStripMenuItem.Enabled = False
            TransaksiToolStripMenuItem.Enabled = True
        End If


Cara Kedua taro di button ok form login

Call opendb()
        Dim aa As String = ""
        aa = " select * from tlogin where userop ='" & txtusername.Text & "' " & _
            " And jabatan ='" & "kasir" & "' "
        cmd = New OleDb.OleDbCommand(aa, conn)
        Dim rs As OleDb.OleDbDataReader

        rs = cmd.ExecuteReader()
        If  rs.Read Then
            Form2.Show()
            Form2.MasterToolStripMenuItem.Enabled = False
            Form2.TransaksiToolStripMenuItem.Enabled = True
            Form2.mdilogin.Enabled = False
            Me.Hide()
'Form2 adalah Fmenu
        End If

Semoga bermanfaat .

Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

1 comment:

 

Network

Pesan

Semoga situs ini bermanfaat