单档模板(tiptop新手开发神器)

#tiptop新手开发神器—单档多栏开发模板#单档模板--多栏维护档#Alfa精心制作[e-mail]../../config/top.globalDEFINEg_tc_omgDYNAMICARRAYOFRECORD#程式變數(ProgramVariables)tc_omg01LIKEtc_omg_file.tc_omg01,tc_omg02LIKEtc_omg_file.tc_omg02,tc_omg03LIKEtc_omg_file.tc_omg03,tc_omg04LIKEtc_omg_file.tc_omg04,tc_omg05LIKEtc_omg_file.tc_omg05,tc_omg06LIKEtc_omg_file.tc_omg06,tc_omg07LIKEtc_omg_file.tc_omg07,tc_omg08LIKEtc_omg_file.tc_omg08,tc_omg09LIKEtc_omg_file.tc_omg09,tc_omg10LIKEtc_omg_file.tc_omg10,tc_omgactiLIKEtc_omg_file.tc_omgactiENDRECORD,g_tc_omg_tDYNAMICARRAYOFRECORD#程式變數(ProgramVariables)tc_omg01LIKEtc_omg_file.tc_omg01,tc_omg02LIKEtc_omg_file.tc_omg02,tc_omg03LIKEtc_omg_file.tc_omg03,tc_omg04LIKEtc_omg_file.tc_omg04,tc_omg05LIKEtc_omg_file.tc_omg05,tc_omg06LIKEtc_omg_file.tc_omg06,tc_omg07LIKEtc_omg_file.tc_omg07,tc_omg08LIKEtc_omg_file.tc_omg08,tc_omg09LIKEtc_omg_file.tc_omg09,tc_omg10LIKEtc_omg_file.tc_omg10,tc_omgactiLIKEtc_omg_file.tc_omgactiENDRECORD,b_tc_omgRECORDLIKEtc_omg_file.*,g_wc2,g_sqlLIKEtype_file.chr1000,#No.FUN-680102CHAR(300),g_rec_bLIKEtype_file.num5,#單身筆數#No.FUN-680102SMALLINTl_acLIKEtype_file.num5#目前處理的ARRAYCNT#No.FUN-680102SMALLINTDEFINEg_forupd_sqlSTRING#SELECT...FORUPDATESQLDEFINEg_cntLIKEtype_file.num10#No.FUN-680102INTEGERDEFINEg_iLIKEtype_file.num5#count/indexforanypurpose#No.FUN-680102SMALLINTDEFINEg_before_input_doneLIKEtype_file.num5#FUN-570110#No.FUN-680102SMALLINT#主程式開始MAINDEFINEp_row,p_colLIKEtype_file.num5#No.FUN-680102SMALLINTOPTIONS#改變一些系統預設值INPUTNOWRAP#輸入的方式:不打轉DEFERINTERRUPT#擷取中斷鍵,由程式處理IF(NOTcl_user())THENEXITPROGRAMENDIFWHENEVERERRORCALLcl_err_msg_log#纪录错误讯息IF(NOTcl_setup(CSF))THEN#程序执行的基本设定EXITPROGRAM#如果模组不对,程序仍然可以执行,但是action则不能显示系统设定的中文描述ENDIFCALLcl_used(g_prog,g_time,1)RETURNINGg_time#計算使用時間(進入時間)#No.MOD-580088HCN20050818#No.FUN-6A0081LETp_row=4LETp_col=15#界面的大小方位OPENWINDOWi535_wATp_row,p_colWITHFORMcsf/42f/csfi535ATTRIBUTE(STYLE=g_win_styleCLIPPED)#No.FUN-580092HCNCALLcl_ui_init()#用途：程序设定初始化语言！#LETg_wc2='1=1'#让程序进入就查询出所有的资料#CALLi527_b_fill(g_wc2)CALLi535_menu()#呼叫菜单CLOSEWINDOWi535_w#結束畫面CALLcl_used(g_prog,g_time,2)RETURNINGg_time#計算使用時間(退出使間)#No.MOD-580088HCN20050818#No.FUN-6A0081ENDMAINFUNCTIONi535_menu()#主程序驱动DEFINEl_cmdLIKEtype_file.chr1000#No.FUN-780056WHILETRUECALLi535_bp(G)#GP按钮驱动CASEg_action_choice#按钮WHENqueryIFcl_chk_act_auth()THENCALLi535_q()#呼叫查询ENDIFWHENdetailIFcl_chk_act_auth()THENCALLi535_b()#呼叫单身ELSELETg_action_choice=NULLENDIFWHENhelpCALLcl_show_help()#呼叫帮助WHENexitEXITWHILE#退出程序WHENcontrolgCALLcl_cmdask()#Ctlr+GWHENrelated_document#相关文件IFcl_chk_act_auth()THENIFg_tc_xga.tc_xga01ISNOTNULLTHENLETg_doc.column1=tc_xga01LETg_doc.value1=g_tc_xga.tc_xga01CALLcl_doc()ENDIFENDIFWHENexporttoexcel#汇出excelIFcl_chk_act_auth()THENCALLcl_export_to_excel(ui.Interface.getRootNode(),base.TypeInfo.create(g_tc_omg),'','')ENDIFENDCASEENDWHILEENDFUNCTIONFUNCTIONi535_q()#查询函数CALLi535_b_askkey()ENDFUNCTIONFUNCTIONi535_b_askkey()#查询函数CLEARFORMCALLg_tc_omg.clear()CONSTRUCTg_wc2ONtc_omg01,tc_omg02,tc_omg03,tc_omg04,tc_omg05,tc_omg07,tc_omg10,tc_omgacti#允许在查询时输入作为查询条件的栏位FROMs_tc_omg[1].tc_omg01,s_tc_omg[1].tc_omg02,s_tc_omg[1].tc_omg03,s_tc_omg[1].tc_omg04,s_tc_omg[1].tc_omg05,s_tc_omg[1].tc_omg07,s_tc_omg[1].tc_omg10,s_tc_omg[1].tc_omgacti#对应画面党的栏位BEFORECONSTRUCTCALLcl_qbe_init()#预设QBE及g_qbe_code的值ONACTIONCONTROLP#程序开窗--CONSTRUCT模式CASEWHENINFIELD(tc_obk01)CALLcl_init_qry_var()LETg_qryparam.form=q_occLETg_qryparam.state=c#多選CALLcl_create_qry()RETURNINGg_qryparam.multiretDISPLAYg_qryparam.multiretTOtc_obk01NEXTFIELDtc_obk01ENDCASEONIDLEg_idle_secondsCALLcl_on_idle()#在ONIDLE时的处理CONTINUECONSTRUCTONACTIONabout#MOD-4C0121CALLcl_about()#程序信息ONACTIONhelp#MOD-4C0121CALLcl_show_help()#显示程序的说明档案ONACTIONcontrolg#MOD-4C0121CALLcl_cmdask()#询问用户欲执行的程序，并执行之ONACTIONqbe_select#条件查询CALLcl_qbe_select()ONACTIONqbe_save#条件存储CALLcl_qbe_save()#No.FUN-580031--end--HCNENDCONSTRUCT#LETg_wc2=g_wc2CLIPPED,cl_get_extra_cond('tc_omguser','tc_omggrup')#权限的检查IFINT_FLAGTHENLETINT_FLAG=0LETg_wc2=NULLRETURNENDIFCALLi535_b_fill(g_wc2)ENDFUNCTIONFUNCTIONi535_b_fill(p_wc2)#BODYFILLUP栏位查询DEFINEp_wc2LIKEtype_file.chr1000LETg_sql=SELECTtc_omg01,tc_omg02,tc_omg03,tc_omg04,tc_omg05,tc_omg07,tc_omg10,tc_omgacti,#FUN-4B0060FROMtc_omg_file,WHERE,p_wc2CLIPPED,#單身ORDERBY1PREPAREi535_pbFROMg_sqlDECLAREtc_omg_cursCURSORFORi535_pbCALLg_tc_omg.clear()LETg_cnt=1MESSAGESearching!FOREACHtc_omg_cursINTOg_tc_omg[g_cnt].*#單身ARRAY填充IFSQLCA.SQLCODETHENCALLCL_ERR('FOREACH:',SQLCA.SQLCODE,1)EXITFOREACHENDIFLETg_cnt=g_cnt+1#笔数+1循环IFg_cntg_max_recTHEN#超过系统参数设定最大值则停止循环,并显示当前CALLcl_err('',9035,0)EXITFOREACHENDIFENDFOREACHCALLg_tc_omg.deleteElement(g_cnt)MESSAGELETg_rec_b=g_cnt-1DISPLAYg_rec_bTOFORMONLY.cn2#显示LETg_cnt=0ENDFUNCTIONFUNCTIONi535_b()#维护单身的资料DEFINEl_ac_tLIKEtype_file.num5,#未取消的ARRAYCNTl_nLIKEtype_file.num5,#檢查重複用l_lock_swLIKEtype_file.chr1,#單身鎖住否p_cmdLIKEtype_file.chr1,#處理狀態l_allow_insertLIKEtype_file.chr1,#可新增否l_allow_deleteLIKEtype_file.chr1#可刪除否IFs_shut(0)THENRETURNENDIFCALLcl_opmsg('b')#宣告这是BLETg_action_choice=#让按钮等与LETl_allow