搜索
INFORMIX-4GL教程file:///E|/erpdown/20100809(鼎捷)/易拓/Genero/NFORMIX-4GL的入门教材/1-5.htm[2010/8/1019:39:24]INFORMIX-4GL教程您的位置:首页INFORMIX-4GL教程第五章控制流程与叙述第五章控制流程与叙述5-1informix-4gl的程式架構＜語法格式＞DATABASEdatabase-nameGLOBAL...ENDGLOBALSMAIN...ENDMAINFUNCTIONfunction-name()...ENDFUNCTIONREPORTreport-name()...ENDREPORT5-2註解敘述1．行註解{#text}2．行註解{--text}3．段註解{text}5-3IF敘述＜語法格式＞IFboolean-expTHENstatement...ELSEstatement...ENDIF§例：IFp_count＜1THENERROR小於１ELSELETp_count=p_count+1ENDIF5-4FOR敘述＜語法格式＞FORvaribale=integer_expTOinteger_expSTATEMENT...[CONTINUEFOR]...[EXITFOR]INFORMIX-4GL教程file:///E|/erpdown/20100809(鼎捷)/易拓/Genero/NFORMIX-4GL的入门教材/1-5.htm[2010/8/1019:39:24]...ENDFOR§例：letorder_total=0fori=1toARR_COUNT()letorder_tatal=order_total+p_item[i].total_priceendfor5-4WHILE敘述＜語法格式＞WHILEboolean-expSTATEMENT...[CONTINUEWHILE]STATEMENT...[EXITWHILE]ENDWHILE§例：whiletruecallcheck()returninganswerifanswermatches[yY]thencontinuewhileelseifxisnullthenexitwhileendifendif...endwhileFORi=1TO100LETsw=0FORj=1TO100IFA=1THENCONTINUEFORELSEIFA=2THENEXITFORELSEIFA=3THENLETsw=1EXITFORELSEIFA=4THENLETsw=2EXITFORENDIFENDIFENDIFINFORMIX-4GL教程file:///E|/erpdown/20100809(鼎捷)/易拓/Genero/NFORMIX-4GL的入门教材/1-5.htm[2010/8/1019:39:24]ENDIFENDFORIFsw=1THENCONTINUEFORELSEIFsw=2THENEXITFORENDIFENDIF....................ENDFOR................5-5CASE敘述＜語法格式＞CASE[(exp)]WHEN{exp|boolean}statement...[exitcase]WHEN{exp|boolean}statement...[exitcase]...OTHERWISEstatement...[exitcase]ENDCASE§例：casechoisewhen1:callchoice-1()when2:callchoice-2()when3:callchoice-3()when4:callchoice-4()INFORMIX-4GL教程file:///E|/erpdown/20100809(鼎捷)/易拓/Genero/NFORMIX-4GL的入门教材/1-5.htm[2010/8/1019:39:24]...endcase§例：casewhenchoice=1callchoice_1()whenchoice=2callchoice_2()whenchoice=3callchoice_3()whenchoice=4callchoice_4()...endcase5-6CONTINUE敘述提早返迴迴圈開始處。＜語法格式＞CONTINUE{CASE|DISPLAY|FOR|FOREACH|INPUT|MENU|WHILE}5-7EXIT敘述提早跳出迴圈、程式、INPUT、DISPLAY之外。＜語法格式＞EXIT{CASE|DISPLAY|FOR|FOREACH|INPUT|MENU|WHILE}5-8GOTO敘述無條件跳至標記處（同一函數、報表、MAIN之中）執行命令。＜語法格式＞GOTO標記名稱§例：ifstatus!=0thengotostop_runendifstatement...labelstop_run:statement...5-8LABEL敘述標記GOTO跳到的位址。＜語法格式＞LABEL標記名稱5-9SLEEP敘述使程式暫停幾秒。＜語法格式＞SLEEP整數運算式§例：sleep25-10WHENEVER敘述當錯誤或警告發生時執行...INFORMIX-4GL教程file:///E|/erpdown/20100809(鼎捷)/易拓/Genero/NFORMIX-4GL的入门教材/1-5.htm[2010/8/1019:39:24]＜語法格式＞WHENEVER{ERROR|WARNING}{GOTO標計|CALL函數|CONTINUE|STOP}§例：whenevererrorcontinue...whenevererrorstop...5-11FOREACH敘述相當於WHILE迴圈半和FETCH的組合。＜語法格式＞FOREACH指標名稱[INTO變數串列]statement...[CONTINUEFOREACH]...[EXITFOREACH]ENDFOREACH§例：foreachpsn_cursorINTOp_psn.*...ifp_psn.type=nthencontinueforeachendif...ifint_flag=trueexitforeachendif...endforeach5-12CALL敘述＜語法格式＞CALL函數([參數串列])[RETURNING變數串列]§例：callsample_function(parm1,parm2)returningvariablecallsample_function(parm)callsample_function()5-13RETURN敘述立刻返迴呼叫之程式，並可傳回值。＜語法格式＞RETURN[運算式串列]§例：returnx，y，zreturnx+yreturn7returntruereturnINFORMIX-4GL教程file:///E|/erpdown/20100809(鼎捷)/易拓/Genero/NFORMIX-4GL的入门教材/1-5.htm[2010/8/1019:39:24]5-14DEFER敘述阻止使用者中斷程式執行＜語法格式＞DEFERINTERRUPT一旦宣告，無法改變。5-15RUN敘述執行作業系統下的可執行檔＜語法格式＞RUN可執行檔名稱§例：runsample.4ge5-16PROMPT敘述PROMPT敘述可以從使用者處，交談式的接受所輸入之資料＜語法格式＞PROMPTdisplay_listFORvariable§例：definestuff_numchar(7)prompt請輸入員工編號forstuff_num5-17DISPLAY敘述＜語法格式＞DISPLAYdisplay_list[USING|CLIPPED]ATROW,COLUMN§例：displayp_ssaltab.idnoat24,1displayp_emp_nameCLIPPEDat24,20displayat2,15-17CLIPPED敘述若變數是CHAR的資料型態時，當設定一個值給變數時，如果所設定的資料長度比要設定的值還要大時，informix-4gl會自動把空白值填入變數尾部多餘的長度內，直到和它所定義的長度為止。所以，使用者若要將變數尾部多餘的空白清除掉，則必須使用CLIPPED敘述。＜語法格式＞DISPLAYdisplay_listCLIPPED§例：defineemp_namechar(10)definetitle_namechar(4)letemp_name=張三豐lettitle_name=先生displayemp_nameclipped，title_nameclipped5-18MESSAGE敘述用來顯示訊息至螢幕的訊息行(default第二行)＜語法格式＞MESSAGEdisplay_list§例：letaddress=台南市INFORMIX-4GL教程file:///E|/erpdown/20100809(鼎捷)/易拓/Genero/NFORMIX-4GL的入门教材/1-5.htm[2010/8/1019:39:24]message請選擇戶籍所在地為，addresssleep2message5-19ERROR敘述用來顯示錯誤訊息至螢幕的錯誤行(default第24行)＜語法格式＞ERRORdisplay_list§例：error身份證號重覆5-20CLEAR敘述＜語法格式一＞CLEARSCREEN此敘述用來清除整個螢幕，包刮訊息行、錯誤行。＜語法格式二＞CLEARFORM此敘述用來清除所有的螢幕欄位資料值。＜語法格式三＞CLEARVARIABLE_LIST此敘述用來清除field_list所包含的一個或一個以上的螢幕欄位資料值。§例：clearemp_name，idno，stuff_num...5-21INITIALIZE敘述通常變數可以用lLET設定，但若要設定為NULL時，必須使用INITIALIZE。§例：INITIALIZEvariableTONULLINITIALIZErecord_name.*TONULL