Bill腦袋瓜的家

文章轉載自 http://ccw.acc.tw/4gl/?no=16 主要用意是我自己也是4GL初學者，故留下來備份 BDL/4GL 程式標準架構 ---以下為基本順序,沒有用到的話就省略吧(大寫為語法,小寫為變數或自訂資料) IMPORT os #需要在4gl啟始處(DATABASE指令之前) DATABASE dbname #必需放在第一行 GLOBALS #宣告全域變數 DEFINE ... #可有多行 END GLOBALS DEFINE ... #宣告整支程式共用的變數 MAIN … END MAIN #程式進入時開始點,只能有一個,如沒有就僅能被含入 FUNCTION …END FUNCTION #自訂 FUNCTION或程序,使用CALL 呼叫 ---預設全域變數或內設FUNCTION INT_FLAG 使用者按下中斷鍵時將此變數設為 True(配合DEFER INTERRUPT) STATUS 最近一次執行 SQL 指令的結果錯誤碼，成功=0 NOTFOUND ERR:-6005, A column cannot be found. SQLCA 最近一次執行 SQL 指令的結果，為RECORD ---MAIN 內------ DEFER INTERRUPT 程式不可中斷,通常配合INT_FLAG自訂中斷程序 SET ... TO ... 設定參數如 set isolation to dirty read ---MAIN/FUNCTION內------ OPTION ACCEPT KEY control-z KEY設定 OPEN FORM s_a FROM "p010a" 開啟FORM OPEN WINDOW s_a AT 3,15 WITH FORM 'p010p' ATTRIBUTE(border) DISPLAY 變數 將變數/字串顯示到畫面 DISPLAY BY NAME 名稱 將變數/字串顯示到對應的欄位 DISPLAY 變數 TO 欄位名稱 將變數/字串顯示到欄位(ARRAY) INPUT 將指定欄位的值儲存到變數中 INPUT 變數 FROM 欄位名稱 輸入用法 INPUT ARRAY 變數 FROM 欄位名稱 輸入陣...