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

Thu, 26 Jan 2006 21:20:53 -0800

waduh, mas shinichi kudo, ketambahan huruf "s" tuh :) kalo pake "s" itu berarti collection object, nah masa' kita cari collection objects controls didalam collection objects controls juga :P
 
buat mas skdmdn,
ctl itu variable object control seperti yg tadi dibilang mas limagus.
 
logika di vb itu sederhana kok mas, kalau ada kata2 di-vb yg bentuknya seperti kata jamak dalam bahasa inggris (pake 's' diakhir katanya) seperti FORMS, CONTROLS atau kalau di vba excel ada WORKBOOKS, WORKSHEETS, CHARTS dan lain sebagainya, itu artinya sama seperti dlm bhs inggris, dia dalam bentuk jamak, atau dlm vb dia adalah kumpulan/koleksi/collection dari beberapa object dasarnya, biasanya object tunggalnya memiliki nama yg sama tapi tanpa "s" -> FORM, CONTROL, CHART dll
 
best regards
[wwn]
 
On 1/27/06, JemyX Shinichi <[EMAIL PROTECTED]> wrote:
ctl maksud nya Controls, di deklarasiin dulu coba
 
DIM ctl as Controls
----- Original Message -----
From: skdmdn
Sent: Friday, January 27, 2006 8:04 AM
Subject: Re: Spam Re: [Programmer-VB] membuat Menu dg hak akses

 
saya uda coba saran mas sistyo, tapi gak bisa. atau memang saya yg kurang nangkep.
statement "FOR EACH CTL IN FORM1.CONTROLS"
ctl itu apa ya? trus ambilnya dari mana?
maaP udah merepotkan...
thank's
 
----- Original Message -----
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

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



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



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke