1、報(bào)表程式結(jié)構(gòu)變量聲明部分Main_tm函數(shù)報(bào)表輸出函數(shù)（相當(dāng)show）2012-3-1TIPTOPTIPTOP報(bào)表程式結(jié)構(gòu)(1)(2)(3)(4)1）變量聲明部分databasedsglobals變量名define#全局變量定義變量名definedefine變量名變量名2）Main賦值初始變量recordendrecordrecordlike表like表.字段#記錄集變量定義#記錄集變量定義#局部變量定義cluser#檢查用戶是否存在#程式預(yù)設(shè)檢查#記錄程式使用時(shí)間xml轉(zhuǎn)換cl_setupcl_used定義g_sql的水晶報(bào)表的結(jié)構(gòu)，作用于格式如下：g_sql=字段表.字段,.生成temp表

2、LETl_table=cl_prt_temptable（報(bào)表程式名,g_sql）clippedCall_tm函數(shù)Call報(bào)表輸入函數(shù)out-file#輸入打印條件inputprintcondition#調(diào)用報(bào)表輸出函數(shù)readdataandcreatecl_used3)_tm函數(shù)局變量定義openwindow路徑cluiinit#記錄程式使用時(shí)間initializetm.*tonullWHILETRUE#打開界面路徑#初始化變量值#給所有tm.*的變量賦空值#循環(huán)執(zhí)行菜單顯示CONSTRUCTBYNAME變量名ON查詢條件字段,.BEFORECONSTRUCTcl_qbe_initONACTI

3、ON菜單項(xiàng)ONIDLEINPUTBYNAME#QBE查詢條件初始化#具體菜單名#閑置時(shí)間設(shè)置變量名WITHOUTDEFAULTSBEFOREINPUTcl_qbe_display_condition()AFTERFILED報(bào)表輸出函數(shù)定義屏幕變量sr記錄集格式如下：definesrrecordendrecordcl_del_data(l_table)#清空臨時(shí)表記錄集LETg_sql=insertinto”,g_cr_db_str,CLIPPED,l_tableCLIPPED,VALUES(.)”PREPAREINSERT_PREPFROMg_sql#插入臨時(shí)表l_table的記錄LETl_s

4、ql=.#show記錄數(shù)據(jù)的SQLA語句PREPARE變量名FROMl_sql碩編譯SQL語句DECLARE游標(biāo)變量名CURSORFOR預(yù)編譯SQL變量名FOREACH游標(biāo)變量名INTOsr.*#循環(huán)讀取記錄到屏幕變量EXECUTEinsert_prepUSINGsr.*ENDFOREACH#生成水晶LETg_sql=SELECT*FROM,g_cr_db_strCLIPPED,l_tableCLIPPED報(bào)表記錄集LETg_str=.應(yīng)變量#給水晶報(bào)表中的26個(gè)參數(shù)傳值，切記要對(duì)CALLcl_prt_cs3（報(bào)表程式名,報(bào)表程式名,g_sql,g_str）2009-09-11TIPTOP單頭

5、單檔程式結(jié)構(gòu)定義變量Main函數(shù)_cs函數(shù)_menu菜單函數(shù)_a函數(shù)_i函數(shù)_q函數(shù)_fetch函數(shù)_show函數(shù)_u函數(shù)_x函數(shù)_r函數(shù)_copy函數(shù)_out函數(shù)_chkym檢查日期函數(shù)1）定義變量定義數(shù)據(jù)庫路徑databaseds定義全局變量文件路徑globals.定義記錄集變量Define變量名Recordlike表Main函數(shù)#改變系統(tǒng)預(yù)設(shè)值#窗口開始的位置#信息提示的位置#提示信息的位置#檢查用戶帳號(hào)#檢查程式設(shè)置路徑#記錄程式使用時(shí)間#創(chuàng)建臨時(shí)表記錄水晶報(bào)表記錄集OPTIONSFORMLINEMESSAGELINEPROMPTLINEcl_usercl_setupcl_used定義

6、水晶報(bào)表結(jié)構(gòu)LETg_sql=字段.表.字段,.cl_prt_temptable()插入記錄LETg_sql=INSERTINTOds_report”,l_table,CLIPPED.OPENWINDOW#打開窗口cl_ui_init()#設(shè)定程式初始化CALL_menu#打開菜單CLOSEWINDOW#關(guān)閉窗口cl_used_cs函數(shù)CLEARFORM#清除屏幕CONSTRUCTBYNAME變量名ON字段變量名,.#取屏幕變量條件BEFORECONSTRUCTcl_qbe_init()ONACTION.ONIDLE.cl_on_idle()CONTINUECONSTRUCTENDCONSTR

7、UCT定義查詢SQL語句定義游標(biāo)記錄集_menu菜單函數(shù)BEFOREMENUcl_navigator_setting()#上下記錄數(shù)據(jù)移動(dòng)ONACTION.ONIDLE.cl_on_idle2) CONTINUEMENUENDMENU_a函數(shù)CLEARFORM#清除屏幕cl_opmsg#定義程式操作類型WHILETRUECALL_i#調(diào)用_i函數(shù)插入記錄INSERTINTO表VALUES(屏幕變量名.*)#插入記錄數(shù)據(jù)EXITWHILEENDWHILE6)_i函數(shù)DISPLAYBYNAME字段變量名,.INPUTBYNAME字段變量名,.WITHOUTDEFAUTLSBEFOREINPUTAF

8、TERFIELD.ONACTION.ONIDLE.cl_on_idle()7) CONTINUEINPUTENDINPUT_q函數(shù)cl_navigator_setting()cl_opmsgCALL_cs定義游標(biāo)記錄集CALL_fetch_fetch函數(shù)PROMPT.ONIDLE.cl_on_idleONACTION.ENDPROMPTcl_navigator_settingSELECT*INTO屏幕變量名.*FROM表CALL_show錄_show函數(shù)DISPLAYBYNAME字段變量,._u函數(shù)cl_opmsgBEGINWORKCALL_showWHILETRUECALL_i(u)UPDA

9、TE表EXITWHILEENDWHILE#上下記錄數(shù)據(jù)移動(dòng)#定義程式操作類型#調(diào)用查詢函數(shù)#上下筆記錄移動(dòng)#讀取記錄數(shù)據(jù)給屏幕變量#調(diào)用顯示函數(shù)顯示當(dāng)前記#定義程式操作類型#打開工作區(qū)#顯示記錄#欄位修改#更新記錄數(shù)據(jù)COMMITWORK_x函數(shù)BEGINWORK定義游標(biāo)記錄集CALL_showcl_expUPDATE表COMMITWORK_r函數(shù)BEGINWORK定義游標(biāo)記錄集#提交數(shù)據(jù)#打開工作區(qū)#顯示記錄#詢問是否設(shè)置無效#更新記錄#提交數(shù)據(jù)#打開工作區(qū)CALL_showcl_deleteDELETEFROM表COMMITWORK13)_copy函數(shù)INPUT字段變量名，F(xiàn)ROM字段變量

10、名，AFTERFIELD.ONACTION.ONIDLE.#顯示記錄#詢問是否要?jiǎng)h除記錄#刪除記錄#提交數(shù)據(jù)#復(fù)制函數(shù)cl_on_idleCONTINUEINPUTENDINPUTDROPTABLE臨時(shí)表INTOTEMP臨時(shí)表UPDATE表.INSERTINTO表SELECT*FROM臨時(shí)表中.#刪除臨時(shí)表#插入臨時(shí)表#更新臨時(shí)表的關(guān)鍵資料字段#將臨時(shí)表中的記錄插入到正式表CALL_show14)_out函數(shù)cldeldatacl_wait定義游標(biāo)記錄集FOREACH游標(biāo)變量名INTO屏幕變量名.*EXECUTE插入預(yù)編譯SQL變量USING屏幕變量名.*ENDFOREACHCLOSE游標(biāo)記錄

11、集CALLcl_prt_cs32009-09-09TIPTOP單身單檔錄入程式結(jié)構(gòu)定義變量MAIN函數(shù)_menu菜單函數(shù)_q函數(shù)#顯示記錄#報(bào)表輸出函數(shù)#清空臨時(shí)表中的記錄#等待顯示#循環(huán)讀取記錄到屏幕變量_b函數(shù)_b_askkey函數(shù)_b_fill函數(shù)_bp函數(shù)_set_entry函數(shù)_set_no_entry函數(shù)1）定義變量定義數(shù)據(jù)庫路徑databaseds定義全局變量路徑ARRAYOFRECORDENDRECORD#改變系統(tǒng)預(yù)設(shè)值#窗口開始的位置#訊息顯示的位置#提示訊息的位置#檢查用戶帳號(hào)#檢查程式路徑#記錄程式使用時(shí)間#打開窗口#程式設(shè)定初始化#打開菜單#關(guān)閉窗口#記錄程式使用時(shí)間g

12、lobals”.”定義動(dòng)態(tài)數(shù)組變量Define動(dòng)態(tài)變量名MAIN函數(shù)OPTIONSFORMLINEMESSAGELINEPROMPTLINEcl_usercl_setupcl_usedOPENWIHDOWcl_ui_initCALL_menuCLOSEWINDOWcl_used_menu菜單函數(shù)WHILETRUECASEg_action_choiceENDCASEENDWHILE_q函數(shù)_askkey#調(diào)用_askkey函數(shù),不明白為何這樣做？_b函數(shù)cl_opmsg#定義程式操作類型cl_detail_input_auth(.”)#檢查單身是否有insert或是delete權(quán)限INPUTAR

13、RAY變量名WITHOUTDEFAULTSFROM屏幕變量名.*ATTRIBUTE(COUNT=變量名,MAXCOUNT=變量名,UNBUFFERED,INSERTROW=單身變量，DELETEROW=單身變量，APPENDROW=單身變量)BEFOREINPUTfgl_set_arr_curr()#此函數(shù)找不到不知何作用BEFOREROWBEGINWORK#工作區(qū)定義BEFOREINSERTAFTERINSERTINSERINTO.VALUES.#插入記錄COMMITWORK#提交數(shù)據(jù)AFTERFIELD.NEXTFIELD.BEFOREDELETEDELETEFROM.#刪除記錄COMMI

14、TWORK#提交數(shù)據(jù)ONROWCHANGEUPDATE.#更新數(shù)據(jù)COMMITWORK#提交數(shù)據(jù)AFTERROWCOMMITWORK#提交數(shù)據(jù)ONACTION.ONIDLE.cl_on_idleCONTINUEINPUTENDINPUTCOMMITWORK_askkey函數(shù)CLEARFORM#清除窗口CONSTRUCT變量名ON字段變量,.FROM字段變量,.ONACTION.ONIDLE.cl_on_idleCONTINUECONSTRUCTENDCONSTRUCTCALL_b_fill填充函數(shù)_b_fill填充函數(shù)LETg_sql=.”#定義SQL語句PREPARE變量名FROMg_sql

15、#預(yù)編譯SQL語句DECLEAR游標(biāo)變量名CURSORFOR預(yù)編譯變量名FOREACH游標(biāo)變量名INTO動(dòng)態(tài)數(shù)組變量名.*.ENDFOREACH_bp函數(shù)cl_set_act_setting#顯示確定與退出按鈕提示DISPLAYARRAY動(dòng)態(tài)數(shù)組變量名TO屏幕變量名.*ATTRIBUTE(COUNT=記錄數(shù)變量名)BEFOREROWcl_show_fld_contONACTION.EXITDISPLAYAFTERDISPLAYCONTINUEDISPLAYENDDISPLAY_set_entry與_set_no_entry函數(shù)cl_set_comp_entry()#定義p_per檔特殊格式欄位

16、#設(shè)置欄位是否可以輸入2009-09-09TIPTOP查詢式報(bào)表程式結(jié)構(gòu)定義變量Main函數(shù)_cs函數(shù)_menu函數(shù)_q函數(shù)_b_fill函數(shù)_bp函數(shù)1）定義變量定義數(shù)據(jù)庫路徑databaseds定義全局變量文件路徑globals.定義動(dòng)態(tài)數(shù)組Define數(shù)組變量名DYNAMICARRAYOFRECORDENDRECORD2) MAIN函數(shù)OPTIONSFORMLINEMESSAGELINEPROMPTLINEcl_suercl_setupcl_usedOPENWINDOWcl_ui_initCALL_menuCLOSEWINDOWcl_used_csQBE查詢函數(shù)CLEARFORM#改變系

17、統(tǒng)預(yù)設(shè)置值#窗口開始位置#訊息顯示的位置#提示訊息的位置#用戶帳號(hào)的檢查#程式路徑檢查#程式使用時(shí)間記錄#窗口打開#程式設(shè)定初始化#菜單顯示#關(guān)閉窗口#記錄程式使用時(shí)間INITIALIZEtm.*TONULL#清空條件變量值#清空窗口INPUTBYNAME變量名WITHOUTDEFAULTSONACTION.ONIDLE.cl_on_idle()CONTINUEINPUTENDINPUTCONSTRUCT變量名ON字段變量名，.FROM字段變量名,.BEFORECONSTRUCTcl_qbe_init()ONACTION.ONIDLE.cl_on_idle()CONTINUECONSTRUCT

18、ENDCONSTRUCTLETg_tw=.”#查詢條件變量值組合4)_menu菜單函數(shù)WHILETRUE_bp(G)#調(diào)用_bp函數(shù)CASEg_action_choiceENDCASEENDWHILE5) _q函數(shù)cl_navigator_setting()cl_opmsgCALL_csCALL_b_fill6) _b_fill填充函數(shù)LETg_sql=.PREPARE變量名FROMg_sql#上下筆記錄移動(dòng)數(shù)據(jù)#定義操作程式類型#調(diào)用查詢函數(shù)#調(diào)用填充記錄函數(shù)#查詢SQL語句#預(yù)編譯SQL語句DECLEAR游標(biāo)變量名CURSORFOR預(yù)編譯變量名FOREACH游標(biāo)變量名INTO動(dòng)態(tài)數(shù)組變量名.*ENDFOREACH_bp函數(shù)cl_set_act_setting(accept,cancle”,F