资源描述
按一下以編輯母片標題樣式,按一下以編輯母片,第二層,第三層,第四層,第五層,*,雙檔,雙檔維護,學習目標,本章說明雙檔維護標準程式。,所謂雙檔,是指使用一個以上檔案來記錄某一類資料,通常在單據類資料使用最多。學習完本章後,你將可以了解以下局部:,控制流程及各個函數間之關係。,使用INPUT ARRAY指令來處理單身之多欄式資料。,雙檔流程圖,menu,MAIN,a(),i(),b(),u(),q(),b(),N/P,copy(),r(),x(),out(),show(),cs(),fetch(),u(),show(),show(),rep(),i(),fetch(),bp(),show(),b_fill(),delh(),b(),單檔多欄流程圖,menu,MAIN,q(),b(),out(),b_askkey(,),rep(),b_fill(),bp(),程式畫面,共用及模組變數宣告,GLOBALS “./././ 客製,Array變數的定義：動態array,Array內欄位順序要與per檔一致,程式內重要變數：,g_forupd_sql 在update cursor內用來組sql的string變數,g_before_input_done 欄位控制變數有使用到才加,g_curs_index 單頭總筆數,g_row_count 單頭目前筆數,g_rec_b 單身總筆數,MAIN,程式開始前，需將外部引數讀入,cl_user 、cl_setup、cl_ui_initWHENEVER ERROR CALL cl_err_msg_log,lock cursor寫法,使用一組menu，以key值轉換其他語言,顯示畫面,DISPLAY ARRAY,ON ACTION驅動使用者按下的功能,bp段的action name要與menu段g_action_choice相同；假设有非標準的action name，此程式的4ad檔案所建的名稱也要相同。三者對應,權限判斷call cl_chk_act_auth(),滑鼠雙按單身可直接進入所指筆數,查詢流程,單頭筆數初始化,清空畫面上資料。,CLEAR FORM,清單頭；,.clear(),清單,身,單頭總筆數,：,g_row_count,；,單頭指標：,g_curs_index,q(),cs(),fetch(),show(),b_fill(),xxx_cs(),CONSTRUCT 單頭單身可参加CONTROLP內容,單頭Count使用g_row_count為程式global變數,xxx_fetch(),傳入,N,、,P,、,F,、,L,、,/,在跳筆功能的地方，以變數區隔是否要開視窗給使用者輸入筆數,Fetch,無誤後，以目前所在筆數及總筆數控制上下筆,button,是否顯現,xxx_show()與xxx_b_fill(),_show()顯示單頭資料；_b_fill()抓取單身資料,單頭額外的顯示欄位放在_show(),_b_fill()抓取欄位的順序要與array順序相同,單身乾洗局部用(),單身最大筆數：g_max_rec,將最後一行空白行刪除,g_rec_b正確性,新增流程,a(),i(),b(),新增前將資料清空；設定預設值,在進入單身段前要將,g,_rec,_b,設定預設值為,0,xxx_a(),xxx_i(),欄位控制的,function,要加,在,BEFORE INPUT,內，及條件欄位的,BEFORE FIELD,跟,AFTER FIELD,各,AFTER FIELD,加上，欄位非空白才檢查欄位正確性,xxx_b(),Record內各動作的流程,當進入某一列時一定會跑,BEFORE ROW,；,離開某一列會跑,AFTER ROW,單身新增時跑的段落,BEFORE INPUT,進程式第一次才跑,BEFORE ROW(,非按新增時,),BEFORE INSERT,BEFORE FIELD,AFTER FIELD,AFTER INSERT,AFTER ROW,xxx_b(),單身修改時跑的段落,BEFORE INPUT,BEFORE ROW,BEFORE FIELD,AFTER FIELD,ON ROW CHANGE,AFTER ROW,單身刪除時跑的段落,BEFORE INPUT,BEFORE ROW,BEFORE FIELD,BEFORE DELETE,AFTER ROW,xxx_b() INPUT ARRAY,Lock cursor,寫法,INPUT ARRAY,新增與刪除的權限設定,INPUT ARRAY,的屬性,在,BEFORE INPUT,且單身有資料時，要指定目前的指標位置,xxx_b() BEFORE ROW BEFORE INSERT,如何判斷是否為update狀態,BEFORE ROW中只有關於update的程式段，insert相關的預設值寫在BEFORE INSERT,假设單身有欄位控制，單身第一次進入的預設控制，須分別放在BEFORE ROW及BEFORE INSERT,單身的欄位控制function名稱：ex. i020_set_entry_b()、i020_set_no_entry_b(),xxx_b() BEFORE FIELD AFTER FIELD,AFTER FIELD時，欄位必須有值才檢查正確性,欄位是否為必須輸入，在accept時系統會自動檢查，per內要設定欄位為NOT NULL, REQUIRED,假设有欄位控制的需求，在條件欄位的BEFORE FIELD call set_entry_b()，AFTER FIELD call set_no_entry_b(),xxx_b() AFTER INSERT ON ROW CHANGE,AFTER INSERT處理有關INSERT的局部,ON ROW CHANGE處理有關update的局部,AFTER INSERT時，假设使用者放棄則要回到新增前的row，且不跳離單身段，除非原本單身就是空的,系統會判斷使用者有沒有改過欄位值，有改過就會跑ON ROW CHANGE,xxx_b() AFTER ROW,cursor關閉；transaction結束,假设前面區塊已有做上述動作；因為whenever error continue的關係不會使程式跳出,xxx_b() 其他ACTION,ON IDLE,：,其他地方,(CONSTRUCT,段、,INPUT/INPUT ARRAY,段、,DISPLAY ARRAY,段、,PROMPT,段,),ON ACTION CONTROLP,：,開窗查詢,ON ACTION CONTROLZ,：,必要輸入欄位,修改流程,確認資料是否可進行修改,xxx_u(),u(),show(),i(),刪除流程,確認資料是否可刪除,刪除完畢後將資料指標重新定位，畫面呈現下一筆資料,r(),show(),delh(),xxx_r(),拷貝流程,確認資料是否可被拷貝,欄位控制,function,在,INPUT,前呼叫,拷貝程式內容,xxx_copy(),copy(),u(),i(),b(),其他,有效無效碼切換,報表列印,雙單身畫面,雙單身流程圖,各段,function,同雙檔改法,_b_fill(),段依,table,數分開成不一樣名稱的,function,單身筆數要分為,g_rec_b,及,g_rec_b2,q(),cs(),fetch(),show(),b1_fill(),b2_fill(),雙單身 _bp(),雙單身,bp,(),段是可共用的,可依照一般雙檔作用的,table,只能擇其一,雙單身 _bp(),FUNCTION t310_bp(p_ud),:,DISPLAY ARRAY,g_apg,TO,s_apg,.* ATTRIBUTE(COUNT=,g_rec_b,),BEFORE DISPLAY,EXIT DISPLAY,END DISPLAY,DISPLAY ARRAY,g_aph,TO,s_aph,.* ATTRIBUTE(COUNT=g_rec_b2),BEFORE ROW,:,END FUNCTION,
展开阅读全文