Informix/4GL資料庫查尋裡面地翻屏編製程式靈活技術

informix-4GL是一個綜合性的第四代應用程式開發和產生環境，它具有強大的資料庫管理功能，編程靈活方便，介面友好，已被廣泛應用於UNIX作業系統下的資料庫管理。下面介紹一段藉助螢幕表格完成查詢的小程式，它可通過在螢幕上相應欄位輸入模糊查詢條件，如*、=、？等，據此搜尋出滿足條件的全部記錄，再按Ctrl-F或Ctrl-B分屏瀏覽（調用一個遊標管理函數que_gz ），用上下游標鍵並結合Esc鍵選擇所需記錄，再通過內建函式arr_curr()將此記錄所包括的資訊傳出它用，在實際工作中可將此段程式寫成函數形式，簡潔明快，需要時只要改寫相應變數即可，省時省力。此段程式在SCO UNIX Open Sever5.05、online7.3上編譯通過。　

程式清單：

螢幕格式：

database 資料庫名

screen
{
人員代碼　[a　　 ]
人員姓名　[b　　　 ]
====================================
人員代碼　　　人員姓名　　　工　 資
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
}
end
tables
gz
attributes
a=gz.xh,autonext;
b=gz.xm,autonext;
f000=formonly.xh type char;
f001=formonly.xm type char;
f002=formonly.gz type decimal(6,2);
end
instructions
screen record s_gz[7](formonly.xh,formonly.xm,formonly.gz)

gz庫表結構：

序號：xh char(6)

姓名：xm char(8)

工資：gz decimal(7,2)