Sent: Thursday, January 26, 2006
9:32 AM
Subject: RE: Spam Re:
[Programmer-VB] membuat Menu dg hak akses
alo
skdmdn,
menu control itu
sifatnya seperti control-control yg lainnya juga.
harus diberi nama dan
bisa di-enable atau di-disable
tentunya sudah tahu
cara meng-enable dan meng-disable bukan?
skr masalah hak
aksesnya,
ada beberapa cara
menentukannya
1. seperti kata bung
sistyo, hak akses bisa dimasukkan ke database dan selanjutnya
dicocokkan
misal : budiawan -->
hak akses menu file, data_A, data_B (file, data_A dan data_B adalah nama
menu controlnya) --> ini ada didatabase
selanjutnya setelah
user login (query user + password telah cocok) mk kmdn buat query utk
mengambil data hak akses
kmdn lakukan query
(saya copy dr bung sistyo lagi ya)
while not rek.eof
for
each ctl in form1.controls
if type of ctl is menu then
if
ctl.name
= rek("hak_akses") then
ctl.enabled = true
end if
end
if
next
rek.movenext
Wend
dalam kasus di atas,
tabel databasenya diasumsikan sbb:
user
hak_akses
budiawan
file
budiawan
data_A
budian
data_B
dst
2. atau jk memang susah
dgn metode database tsb, bisa jg dgn cara membentuk grup
akses
misal : budiawan -->
grup aksesnya admin kredit
nanti dibuat di modul
sbb :
dim Grup_Akses as
string
if Grup_Akses ="admin
kredit" then
file.enabled=true
data_A.enabled=true
data_B.enabled=true
end
if
dst
banyak cara kok, jk
kita pusing dgn cara yg satu .. cobalah pake cara yg kita
mengerti
cuman mungkin hal itu
kurang efisien, tp cukup efektif kan. coba dulu aja .. klo memang ga
bisa, mungkin ada yg mau buatin ntarnya :)
------------------------------------------------------
Heru Rahadyan
----------------------------------------------------------------------------------
