Mcm Mana Nak Limit Kan Acces Pengguna Dan Admin?

[aem1354 0]

give me some ideas ...

1. Dari login kita akan kenal pasti user, admin dan etc;

2. kemudian kita nak limit kan penggunaan .

cth :

- admin leh xplore semua form like add, edit and update (full access)

- user ( limited access)

aku dah ada satu table dan form yang dah set sapa yang boleh access tapi masalah nya aku x dapat nk set dari login lagi...Maksudnya, dari login system akan knl pasti user dan die akan limitkan pengguna..

any ideas???

[mus3na 5]

dalam database kena ada column yg mewakili privilage kesemua user. kemudian bind privilage ni kepada enability of each form.

[aem1354 0]

dalam database kena ada column yg mewakili privilage kesemua user. kemudian bind privilage ni kepada enability of each form.

bind privilage????

[aem1354 0]

bind privilage????

Aku ada soalan nie..huhuh.... macam na kalo aku nak limitkan penngunaan kepada user.. contoh nya aku ada 2 jenis user iaitu admin and opetor.. si admin leh acces semua table n boleh add or doing something ngan database..tp operator just leh tukar password je..selain dari tu die x leh nak buat .... dari login lagi dah dikenal pasti user nie jenis apa... aku kene set up kat MS acces ke or kat Coding VB erk??? no ideass of dis thing... aku baru lagi dalam bidang nie

Saya masih x paham konsep nye.... macam mana nak limited kan .ape kegunaan USER AND Permision kat Access erk??

bleh ke kita guna tu untuk VB??

Edited October 17, 2008 by aem1354

[kowmeng 0]

ko gune Session ar untuk bezekn admin and user..so nnti user biase dier x leh nk access adminnyer module..dier bleh access kt module user jer la...

[coisox 0]

ok laa.. aku taknak pening kan kau ngan istilah2 yg pelik2...

Camnie, dlm Access, table utk senarai user ada 3 benda; nama, password, level

Kat level tu samada kau taruk integer (0 and 1) atau taruk text ("admin", "user")

Kau dah reti buat login kan? Masa login, kat SQL tu lebih kurang camnie "SELECT level from tbl_pengguna WHERE nama= XXX AND password = XXX"

Now kau dah tau samada dia tu "admin" or "user"

Pehtu cara paling huduh sekali, kau buat 2 jenis form; satu utk user satu utk admin. So kalau user, kau point laa ke form utk user tu di mana takde function utk update dan etc.

Cara yg ok skit, kau pakai form yg sama, tapi kalau user yg login, kau disable button tertentu (samada buat btnSave.visible = false or enabled = false).

Tak perlu nak pening2 setting permission kat Access tu.

[aem1354 0]

tankzz alott ...aku dah dapat dahh...huhuh asal la aku x terpikir cam tu lansung erk..huhuhu tankzz bro....

[mus3na 5]

kalau aku aku tak buat 2 form. aku buat 1 form je.

kalau application kau menggunakan konsept mdi, kat menu tu dah leh filter menu mana enable and menu mana disable base on user privilage.

[aem1354 0]

aku dah guna 1 form dah skunk ni.. ritu x terpikir ..hehehe biasa la baru lagi dalam bdang ni..
pikir terlebey panjang plak.....

[MindaIM 0]

takder sediakan gambr ker bro?
kalau ada screenshot senang sket.

[Nazirul 0]

hmm... dulu aku differentiate guna session..

just guna 1 file je,

if Session("userLevel") = "Pengguna" Then
form1.Vsibility = False

konsep dia mcm tu laa

aku malas nak kacau database, since bende tu kalau ada korupsi sikit, semua data ko xble jalan... nak alter table tu kene berwaspada...

[aem1354 0]

aku guna cam ni skunk ni...
x guna session.. x pandai ahh
its work... but when aku cube guna the same code untuk other form x jadi plak... aphal erk???

CODE

Private Sub AllowAccess()
        Dim tbl As New DataTable
        Dim objDB As New clssDataLib
        tbl = objDB.GetDataTable( _
            My.Settings.JobCostingMonitoringConnectionString, _
            "select * from `Group_Access` where UserGroup='" & objUser.UserLevel & "' and " & _
            "Function_Group = 'USRM';")

        If tbl.Rows.Count > 0 Then
            For intRow As Integer = 0 To tbl.Rows.Count - 1
                Select Case tbl.Rows(intRow).Item("Function_Detail")
                    Case "ADD"
                        bolAllowNew = Boolean.Parse(tbl.Rows(intRow).Item("Allow_Access"))
                    Case "EDIT"
                        bolAllowEdit = Boolean.Parse(tbl.Rows(intRow).Item("Allow_Access"))
                    Case "DELETE"
                        bolAllowDelete = Boolean.Parse(tbl.Rows(intRow).Item("Allow_Access"))
                End Select
            Next
        End If
    End Sub

[aem1354 0]

hhehehe mymistake lagi..table name aku salah...so code diatas boleh diguna pakai dimana2 jua..sila2huhuhu