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.
--
Tks & Best regards,
Andi EP
IT Engineer
mailto:[EMAIL PROTECTED]
-----------------------------------------------
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/
