RE: Spam Re: [Programmer-VB] membuat Menu dg hak akses

Wed, 25 Jan 2006 18:39:37 -0800

Title: Message
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

----------------------------------------------------------------------------------

isi imel ini bukanlah hal yang rahasia, boleh diperbanyak sebanyak apapun yang anda mau

pengirim tidak bertanggungjawab atas segala risiko yang muncul akibat perbanyakan isi imel

ini secara ilegal, termasuk virus - flu burung, polio, antrax dll- serta segala tetek bengek lainnya.

Isi dari email ini tidak bisa dipertanggungjawabkan kebenarannya.

Percaya atau tidak percaya atas email ini adalah tanggungjawab pembaca sendiri.



Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer


YAHOO! GROUPS LINKS



Kirim email ke