Arsip: Aktifkan TActionList/TMenuItem

more 17 years ago
reminder2k1
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...
more 17 years ago
EkoIndri
Lebih baik untuk menagement user menggunakan object TPageControl sebagai kontrolnya ketimbang menggunakan TMenuItem yang dibuat dinamis

more 17 years ago
DelphiExpert
penyelesainnya ya kudu create TAction & TMenuItem secara dinamis...
see: create dynamic component

more 17 years ago
deLogic
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
more 17 years ago
EkoIndri
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

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

more 17 years ago
old_shutterhand
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.

more 17 years ago
deLogic
@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

more 16 years ago
DelphiExpert
@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:
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Freereport
by em052007 in Enginering more 17 years ago - Bedanya Paradox ama mySQL
by Chep_Rytheone in Paradox more 19 years ago - Input data faktur
by onsir in Hal umum tentang Pascal Indonesia more 17 years ago - Inventory Produksi
by IdrisZZ in OOT more 15 years ago - Tambah Data dgn TZQuery Error
by onsir in MySQL more 18 years ago - Nanya : Error 'Empty Set'
by tox2wow in MySQL more 19 years ago - survey , mohon direspon.
by mat_koder in OOT more 16 years ago - Decompiler, was: aplikasi chating ...
by deLogic in Enginering more 19 years ago - triangular fuzzy
by irmains in Bedah Kasus more 15 years ago - Delphi di FreeBSD
by _aa_ in onLinux more 17 years ago