Salam... Temen2, aku punya table TTask isinya : [sql:1:cdd70e708f]---------------------------- |NoTask|NamaTask |Aktif| ---------------------------- |101 |Data Barang |True | |102 |Data Supplier|False| ----------------------------[/sql:1:cdd70e708f] Table ini aku fungsikan untuk managemen user terhadap hak akses program. Karena hal tersebut otomatis Table tersebut sangat berkaitan erat dalam meng-visible/hide menu yang berhubungan dengan NoTask tersebut. Dulu aku buat manual di program secara manual, spt berikut (statis):

case NoTask of
101 : AcDataBarang.Visible:=true;
102 : AcDataSupplier.Visible:=true;
end;

Jadi klo ada perubahan/penambahan Task otomatis aku harus ngerombak programnya lagi... Nah sekarang aku mo merubah Tablenya menjadi: [sql:1:cdd70e708f] ------------------------------------------- |NoTask|NamaTask |Menu |Aktif| ------------------------------------------- |101 |Data Barang |mmDataBarang |True | |102 |Data Supplier|mmDataSupplier|False| ------------------------------------------- [/sql:1:cdd70e708f] jadi nti rencana di programnya Field Menu di Table tersebut mengacu ke komponen yang mengaktifkan menu diatas (dinamis)... Nah permasalahannya sekarang, bagaimana cara mengartikan type data String/Varchar[/b:cdd70e708f] tersebut menjadi [b:cdd70e708f]TActionList/TMenuItem Mohon pencerahannya... Thx...

Lebih baik untuk menagement user menggunakan object TPageControl sebagai kontrolnya ketimbang menggunakan TMenuItem yang dibuat dinamis

aku masih bingung mas... Contoh kongkritnya gimana???

penyelesainnya ya kudu create TAction & TMenuItem secara dinamis... see: create dynamic component

bisa aja perulangan seluruh komponen, dicek apakah merupakan kelas TAction, jika ya cek apakah nama kelasnya sama dengan yang diinginkan.Jika sesuai, nah tinggal kasih properti Visible nya menjadi yng diinginkan juga.

for i := 0 to ComponentCount - 1 do
begin
  if Components[I] is TAction then
  begin
    AnAction := Components[I] as TAction;
    if AnAction.Name = NamaYangDariDatabase then
      AnAction.Visible := NilaiYangDariDatabase;
  end;
end;

catatan: silahkan lengkapi variabel yang belum dideklarasikan, disesuaikan dengan keinginan, di tuning sesuai kondisi, dan yang jelas ini belum dicoba di compile, hanya pemikiran di-awang2.. :D

Contoh konkritnya adalah buatkan satu tabsheet untuk satu kategori otorisasi Disini memang terjadi pembengkakan ukuran file, karena banyak object jadinya Namun untuk kedepan dan pengembangannya jauh jauh lebih mudah dan stabil. Project yang saya buat rata - rata seperti itu dan kalau client puas dan minta pengembangan, maka proses pengembangannya sangat cepat sekali. Tapi kalau mau selalu validasi, ya mungkin posting dari mas Bayu bisa digunakan sebagai solusinya

@DE ga usah belat-belit, langsung aja TLoginnya di post :mrgreen: ayo yang laen rame2 demo @DE, minta turunin harga :mrgreen:

bravo @deLogic, dari kemaren gw bingung bikin algorithm nya. matur nuwun. o ya, sekalian numpang nanya, forum ini kalo diakses dari amrik ko ga bisa, "sedang sakit" gitu.

@old_shutterhand: perkara penyakit 'sedang sakit', pak komandan sudah memberikan penjelasan, coba baca thread ini: http://pascal-id.org/dpr/Forum-viewtopic-t-4544-postdays-0-postorder-asc-start-60.pas#31706 http://pascal-id.org/dpr/Forum-viewtopic-t-4544-postdays-0-postorder-asc-start-60.pas#31751 http://pascal-id.org/dpr/Forum-viewtopic-t-4544-postdays-0-postorder-asc-start-75.pas#31759

@old_shutterhand: bravo @deLogic, dari kemaren gw bingung bikin algorithm nya. matur nuwun.

tentu saja anda akan bingung... saya tebak; anda pasti tidak tau bagaimana VCL disusun dan bagaimana VCL ditata dalam structure data secara hirarki. :lol: nah... dasar & cara kerja VCL aja belum tahu bagaimana mungkin anda bisa membuat sebuah algoritma yg berhubungan dalam kontek itu? apalagi membuat sebuah VCL yg tepat guna... mau mulai dari mana ya? nah udah bingung kan :mrgreen: