Pak Ruby, Thx a lot untuk script nya, akan saya coba dulu. any way pengin belajar apa yang dibahas dimilis ini untuk membuat frame work user menu, biar nggak kuper2 amat. Thx a lot for your adv help.
-- Tks & Best regards, Andi EP IT Engineer mailto:[EMAIL PROTECTED] Wednesday, September 20, 2006, 10:50:07 AM, you wrote: > > Dear Andi, > Masukkan dulu hasil selectnya ke datawindow ( kalau dalam script > harus memakai datastore ), terus di retrieve. > Setelah dapat hasil countnya baru dibaca satu-satu pakai for next > contohnya : > > long ll_row, ll_count > datastore ld_menu > > ld_menu = create ld_menu > ld_menu.dataobject = "nama_datawindow_yang_ada_select_menunya" > ld_menu.SetTransObject(sqlca) > ll_row = ld_menu.retrieve() > > String data, i_menu, menu[50] > integer i, j > > if ll_row is not null or ll_row > 0 then > for ll_count = 1 to ll_row > // ambil data menunya dari ld_menu > data = ld_menu.GetItemString(ll_count, "n_menu") > //masukkan script kamu disini, tanpa i = i + 1, karena sudah > otomatis nilai i ditambah > // dan sebenarnya 2 script for next bisa digabung jadi satu, jadi > tidak wasting time > next > end if > ld_menu.destroy() > From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Andi Eko > Prasetyo > Sent: Wednesday, September 20, 2006 8:43 AM > To: [email protected] > Subject: [indopb] Generate Menu dari table > Dear All, > saya mohon pencerahan untuk generate menu dari table dg sql script. > dibawah ini, saya ingin mendapatkan nilai i_menu dalam array yang saya > masukan dibawah ini, tapi masih blm dpt juga, > mohon koreksi nya dimana letak kesalahan nya. > //**** Start Script > String data, i_menu, menu[50] > Integer i,j > SELECT DISTINCT n_menu into :i_menu > FROM "KS"."T_USRMNT" > WHERE id_user =:ls_login_user > USING SQLCA; > data='' > j=0; > FOR i = 1 to LEN(i_menu) > IF mid(i_menu,i,1) <> ',' THEN > data=data+mid(i_menu,i,1) > //menu[j]=data > //MESSAGEBOX("INFO",MENU[J]) > END IF > IF TRIM(mid(i_menu,i,1)) = TRIM(',') THEN > data='' > i=i+1 > j=j+1 > MessageBox('Info',',') > END IF > i=i+1 > NEXT > FOR i = 1 to j > IF menu[i]='1' THEN > m_main_menu.m_administrator.enabled=TRUE > END IF > IF menu[i]='2' THEN > m_main_menu.m_master.enabled=TRUE > END IF > IF menu[i]='3' THEN > m_main_menu.m_utility.enabled=TRUE > END IF > i=i+1 > NEXT > //**** End of script > Thx a lot atas pencerahan dan bantuan nya. ----------------------------------------------- IndoPB - Indonesia PB User Group An Indonesian PowerBuilder User Group's Event 2nd PowerBuilder Update Rumah Sakit Jantung Harapan Kita 26/27 August 2006 To Register : http://groups.yahoo.com/group/indopb/database?method=addRecord&tbl=4 Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indopb/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/indopb/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
