1、. 第十七章      使用帶子句的INPUT語句本章介紹了怎樣使用1NPUT語句中的子句。這些子句完成了INFORMIX-SQL中PERFORM的BEFORE和AFTER控制塊的功能。INPUT語句的完整語法： INPUT BY NAME variable-list WITHOUT DEFAULTS | variable-list WITHOUT DEFAULTS FROM field-list | screen-record n .* ,. ATTRIBUTE (attribute-list ) HELP he

2、lp-number BEFORE INPUT | AFTER INPUT | BEFORE FIELD field-list | AFTER FIELD field-list | ON KEY (key-list ) statement | NEXT FIELD field-name | NEXT | PREVIOUS | CONTINUE INPUT | EXIT INPUT . . END INPUT 1NPUT語句可以有子句，用于完成一些特殊功能，有效的子句列在上圖中。l lATTRIBUTE(屬性列表)：它用于指定屏幕輸入屬性的可選保留字，屬性列表是以括號括起來的一個(gè)屏幕輸入屬性列表，

3、各項(xiàng)間以逗號分隔。l lHELP幫助號：用于指定輸入屏的幫助信息，與這個(gè)幫助號碼相關(guān)的信息針對整個(gè)INPUT語句有效，而不是針對某個(gè)域。域級幫助在后面講到。l lBEFORE INPUT：它在把程序控制權(quán)轉(zhuǎn)給用戶前執(zhí)行(此功能在4GL 4.1版以后有效)。l lAFTER INPUT：在用戶輸入完信息后把控制權(quán)交給INFORMIX-4GL語句，用戶按了ACCEPT鍵或1NTERRUPT鍵后才執(zhí)行AFTER INPUT后面的語句。l lBEFORE FIELD域名：當(dāng)光標(biāo)進(jìn)入指定域后把控制權(quán)交給INFORMIX-4GL語句。l lAFTER FIELD域名：當(dāng)光標(biāo)離開指定域后把控制權(quán)交給INFI

4、ORMIX-4GL語句。l lON KEY (鍵列表)：當(dāng)用戶按下某鍵或(鍵列表)中的一系列鍵后把控制權(quán)轉(zhuǎn)給INFORMIX-4GL語句。l lNEXT FIELD (域列表)：使光標(biāo)移到指定域。保留字NEXT和PREVTOUS在4.1版本以后的NEXT FIELD語句中有效。用這兩個(gè)保留字可以在NEXT FIELD語句中隱式地代替命名域。可以用如下方式向前或向后移動光標(biāo)：next field nextor next field previousl lCONTINUE INPUT：該子句跳過1NPUT語句的所有子句，使光標(biāo)返回到最后一個(gè)屏幕域。l lEXIT INPUT：該字句使得INFORM

5、IX-4GL離開INPUT語句。l lEND INPUT：該子句中止INPUT語句。若語句用了子句，則一定要使用END INPUT。若沒有子句，則不能用END INPUT。l lBEFORE FIELD子句：上圖例子中用BEFORE FIELD子句在Order Date域中顯示當(dāng)前的日期。l lTODAY保留字：用于給全局變量gr_orders.order_date分配系統(tǒng)日期。TODAY是系統(tǒng)保留字，可以直接使用。l lDISPLAY BY NAME：它用于在屏幕上顯示日期。同INPUT BY NAME作用相同，是在屏幕上找一個(gè)與變量擴(kuò)展名相同的域進(jìn)行顯示。如此例中為order_date。l

6、 lNEXT FIELD語句：在Order Date域用了NEXT FIELD customer_num，用戶就不能進(jìn)入order_date域進(jìn)行修改了。它可用于限制數(shù)據(jù)輸入。ON KEY子句可以加入程序鍵來執(zhí)行指定任務(wù)。用戶必須按指定鍵才能使相應(yīng)代碼執(zhí)行。 清除Form的鍵：如上圖例子中，若用戶按了CONTROL-E，將會清除Form，并使光標(biāo)返回第一個(gè)輸入域。這個(gè)特性在輸入部分信息且已有數(shù)據(jù)行輸入完成的情況下是很有用的。全局記錄gr_order.*得到記錄nr_order.*的值。假設(shè)nr_order都是定值，那么對于這個(gè)例子，由于CLEAR FORM語句不把gr_order.*

7、重新初始化為空，所以把gr_order.*賦為空很有用。 注意下面語法無效：let gr_order.*=NULL但可用下面語句把變量初化始化為空：initialize gr_order.* to NULLINITIALIZE語句比LET語句使用更多的系統(tǒng)資源，象nr_order.*一樣，一般在初始化函數(shù)中初始化一次，以后在程序中需要的時(shí)候再賦為空。上圖例子中，BEFORE FIELD子句中把全局記錄gr_orders.order_date加上10賦給全局變量gr_order.ship_date，DISPLAY BY NAME語句把結(jié)果顯示出來。域?qū)訋椭鶬NPUT語句中不能用HELP number給單個(gè)域加幫助信息，但用上圖例子中的ON KEY子句可以實(shí)現(xiàn)此功能。上圖例子中，若用戶按CONTROL-W，那么CASE語句中的兩個(gè)庫函數(shù)將顯示域級幫助。 Infield函數(shù)：Infield函數(shù)是一個(gè)布爾函數(shù)。若域名參數(shù)是當(dāng)前屏幕域的名字則返回TRUE。但要保證用域名customor_num，