TipTop+函數大全(百分之百完全收錄).doc

函式名称：cl_about ? 程序名称：cl_about.4gl ? 用途：程序信息 ? 传入参数：none ? 回传值：none ? 用法：CALL cl_about() ? ? ? 函式名称：cl_anykey ? 程序名称：cl_anykey.4gl ? 用途：请按任何键继续 ? 传入参数：p_sw Not used ? 回传值：none ? 用法：CALL cl_anykey() ? ? ? 函式名称：cl_autotime ? 程序名称：cl_autotime.4gl ? 用途：自动累加时间，累加级数为1 ? 传入参数：time1 累加起始时间 ? sw 累加类型H:小时M:分钟S:秒钟 ? lay 累加级数Default = 1 ? 回传值：Time 时间 ? 用法：CALL cl_autotime(09:30,H,1) ? ? ? 函式名称：cl_batch_proc ? 程序名称：cl_batch_proc.4gl ? 用途：动态产生批次数据处理画面 ? 传入参数：ps_headers (Table 的Header 字符串，中间以逗号分隔) ? 回传值：none ? 用法：LET ls_headers = img01,img02,img03,img04,imk09 ? CALL cl_batch_proc(ls_headers) ? ? ? 函式名称：cl_cal ? 程序名称：cl_cal.4gl ? 用途：传入当前日期，要增加的月份及天数取得计算过后的日期 ? 传入参数：p_date 日期 ? p_month 月份 ? p_day 日 ? 回传值：l_year,l_month,l_day ? 用法：LET l_date=cl_cal(p_date,p_mm,p_dd) ? ? ? 函式名称：cl_chg_comp_att ? 程序名称：cl_chg_comp_att.4gl ? 用途：更动原有对象的attribute ? 传入参数：ps_field STRING 欲更动字段名称 ? ps_atts STRING 字段type 属性 ? ps_values STRING 字段type 属性值 ? 回传值：none ? 用法：CALL cl_chg_comp_att ? (ima01,NOENTRY|ITEMS,1|(1,2,3),(red,b lue,green)) ? ? ? 函式名称：cl_chg_win_title ? 程序名称：cl_chg_win_title.4gl ? 用途： 转换程序Title 显示 ? 传入参数：ps_str 显示字符串 ? 回传值：none ? 用法：CALL cl_chg_win_title(“用户参数设定作业”) ? ? ? 函式名称：cl_chk_act_auth ? 程序名称：cl_chk_act_auth.4gl ? 用途： 检查ACTION 的权限﹝检查前务必指定g_action_choice 值﹞ ? 传入参数：none ? 回传值：1 FOR TRUE 是 ? 0 FOR FALSE 否 ? 用法：LET g_action_choice = “insert” ? IF cl_chk_act_auth() THEN ? ? ? 函式名称：cl_chk_data_continue ? 程序名称：cl_chk_data_continue.4gl ? 用途： 检查资料是否连续 ? 传入参数：ps_source STRING 来源资料 ? 回传值：1 FOR TRUE 是 ? 0 FOR FALSE 否 ? 用法：IF NOT cl_chk_data_continue(g_pmw.pmw01[5,10]) THEN ? ? ? 函式名称：cl_chk_str_correct ? 程序名称：cl_chk_data_continue.4gl ? 用途：检查字符串是否符合0~9,a~z ? 传入参数：ps_source STRING 来源资料 ? ps_count SMALLINT 检查几码，如果未传几码，则会以 ? 来源字符串长度当作ps_count ? li_result SMALLINT 回传结果 ? 回传值：1 FOR TRUE 是 ? 0 FOR FALSE 否 ? 用法：IF NOT cl_chk_data_continue(g_pmw.pmw01[1,3]) THEN ? ? ? 函式名称：cl_chkym ? 程序名称：cl_chkym.4gl ? 用途：检查文字型态变量是否为年月型态 ? 传入参数：p_str CHAR(6) 文字型态变量 ? 回传值：1 FOR TRUE 是 ? 0 FOR FALSE 否 ? 用法：IF cl_chkym(p_str)