[←] [列表] [新增] 4GL/BDL Learn Note(編輯 16) KEY:

日期:	Ref:	內部
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 欄位名稱 輸入陣列用法 INPUT BY NAME 名稱 變數名稱與欄位名稱相同 INPUT ....　WITHOUT DEFAULTS 不使用欄位預設值 CONSTRUCT BY NAME w_where ON pno, pname... 自動串接SQL查詢語法中的WHERE字串 PREPARE stmtq FROM w_sql 先LET w_sql='select ...',檢查 SQL EXECUTE stmtq USING m.* A-異動資料進行 DECLARE pcurq SCROLL CURSOR FOR stmtq B-宣告資料傳輸指標(scroll可省略) FOREACH pcurq INTO m.* ... EDN FOREACH B1.迴圈用法,自動開關 OPEN pcurq ; B2.打開游標 fetch [first/last/prior/next] pcurq into m.* B2.首末上下,省略=目前 CLOSE pcurq ; B2.關閉游標
使用[ENTER]換行，支援HTML Tag,需"＆＆(雙＆)或＜＞"請改用全型，首行為標題行。

---

程式設計:濁水溪馬鈴鼠 Last Update:2012/09/20。