TIPTOP二次开发结构

1、2012-3-1 TIPTOP报表程式结构TIPTOP 报表程式结构（1）变量声明部分（2）Main（3）_tm 函数（4）报表输出函数 （相当 show）1）变量声明部分 database dsglobals 变量名define 变量名 recordend recorddefine 变量名 record like 表define 变量名 like 表.字段2)Main#全局变量定义#记录集变量定义#记录集变量定义#局部变量定义赋值初始变量 cl_user cl_setup cl_used 定义 g_sql 的水晶报表的结构，作用于 格式如下：xml 转换g_sql="字段表.字段，

2、" 生成 temp 表LET l_table =cl_prt_temptable(' 报表程式名 Call _tm 函数Call 报表输入函数 out-file cl_used 3)_tm 函数 局变量定义 open window 路径 cl_ui_init initialize tm.* to null WHILE TRUE#检查用户是否存在#程式预设检查 #记录程式使用时间'，g_sql） clipped#输入打印条件input print condition#调用报表输出函数read data and create#记录程式使用时间#打开界面路径#初始化变量值#

3、给所有 tm.* 的变量赋空值#循环执行菜单显示CONSTRUCT BY NAME 变量名 ON 查询条件字段BEFORE CONSTRUCTcl_qbe_initON ACTION 菜单项#QBE 查询条件初始化#具体菜单名ON IDLEINPUT BY NAME变量名 WITHOUT DEFAULTS#闲置时间设置BEFORE INPUTcl_qbe_display_condition()AFTER FILED4)报表输出函数定义屏幕变量sr记录集格式如下：defi ne sr recordend recordcl_del_data(l_table)#清空临时表记录集LET g_sql=&

4、quot;i nsert into ”,g_cr_db_str,CLIPPED,l_table CLIPPED," V ALUES(.J" PREPARE INSERT_PREP FROM g_sql#插入临时表 l_table 的记录LET l_sql=""#show记录数据的 SQLA语句PREPARE变量名 FROM l_sql#预编译 SQL语句DECLARE 游标变量名 CURSOR FOR 预编译 SQL变量名FOREACH游标变量名INTO sr.*#循环读取记录到屏幕变量EXECUTE in sert_prep USING sr.*END

5、 FOREACHLET g_sql=" SELECT* FROM ",g_cr_db_str CLIPPED,l_table CLIPPED#生成水晶报表记录集LET g_str=""#给水晶报表中的26个参数传值，切记要对应变量CALL cl_prt_cs3（'报表程式名,'报表程式名',g_sql,g_str）2009-09-11 TIPTOP单头单档程式结构定义变量Main函数_cs函数_menu菜单函数_a函数函数_q函数_fetch函数_show函数_u函数_x函数_r函数_copy函数_out函数_chkym检查日期函

6、数1）定义变量定义数据库路径database ds定义全局变量文件路径globals "." 定义记录集变量Define 变量名 Record like 表2) Main 函数OPTIONSFORM LINEMESSAGE LINEPROMPT LINE cl_user cl_setup cl_used 定义水晶报表结构#改变系统预设值#窗口开始的位置#信息提示的位置#提示信息的位置#检查用户帐号#检查程式设置路径#记录程式使用时间#创建临时表记录水晶报表记录集LET g_sql=" 字段.表.字段,." cl_prt_temptable() 插入记录L

7、ET g_sql="INSERT INTO ds_report ",l_table,CLIPPED OPEN WINDOW cl_ui_init()CALL _menu CLOSE WINDOW cl_used3)_cs 函数 CLEAR FORM CONSTRUCT BY NAME 变量名 ON 字段变量名 屏幕变量条件BEFORE CONSTRUCT cl_qbe_init()ON ACTION . ON IDLE .cl_on_idle() CONTINUE CONSTRUCTEND CONSTRUCT#打开窗口#设定程式初始化#打开菜单#关闭窗口#清除屏幕#取定义查

8、询 SQL 语句 定义游标记录集 4)_menu 菜单函数 BEFORE MENU#上下记录数据移动cl_navigator_setting()ON ACTION .ON IDLE .cl_on_idle CONTINUE MENUEND MENU5)_a 函数CLEAR FORM#清除屏幕cl_opmsg# 定义程式操作类型WHILE TRUECALL#调用函数插入记录INSERT INTO 表 VALUES( 屏幕变量名 .*)#插入记录数据EXIT WHILEEND WHILE6)_i 函数DISPLAY BY NAME 字段变量名 ,.INPUT BY NAME 字段变量名 ,. WI

9、THOUT DEFAUTLSBEFORE INPUT AFTER FIELD . ON ACTION . ON IDLE .cl_on_idle() CONTINUE INPUT END INPUT7) _q 函数 cl_navigator_setting() cl_opmsgCALL _cs 定义游标记录集 CALL _fetch8) _fetch 函数 PROMPT . ON IDLE .cl_on_idle ON ACTION . END PROMPT cl_navigator_setting SELECT * INTO 屏幕变量名 .* FROM 表 CALL _show录9) _sh

10、ow 函数DISPLAY BY NAME 字段变量 ,.10) _u 函数 cl_opmsg BEGIN WORK CALL _show WHILE TRUE CALL _i("u") UPDATE 表 EXIT WHILE END WHILE#上下记录数据移动#定义程式操作类型#调用查询函数#上下笔记录移动#读取记录数据给屏幕变量#调用显示函数显示当前记#定义程式操作类型#打开工作区#显示记录#栏位修改#更新记录数据COMMIT WORK11) _x函数BEGIN WORK定义游标记录集CALL _showcl_expUPDATE 表COMMIT WORK12) _r函数

11、BEGIN WORK定义游标记录集CALL _showcl_deleteDELETE FROM 表COMMIT WORK13) _copy 函数INPUT字段变量名，FROMAFTER FIELD .ON ACTION .ON IDLE .cl_on_idleCONTINUE INPUTEND INPUTDROP TABLE 临时表INTO TEMP 临时表 UPDATE 表.INSERT INTO 表 SELECT 中.CALL _show14) _out 函数#提交数据#打开工作区#显示记录#询问是否设置无效#更新记录#提交数据#打开工作区#显示记录#询问是否要删除记录#删除记录#提交数据

12、#复制函数字段变量名FROM临时表cl_del_data cl_wait定义游标记录集FOREACH 游标变量名INTO屏幕变量名.*#删除临时表#插入临时表#更新临时表的关键资料字段#将临时表中的记录插入到正式表#显示记录#报表输出函数#清空临时表中的记录#等待显示#循环读取记录到屏幕变量.EXECUTE插入预编译SQL变量USING屏幕变量名END FOREACHCLOSE游标记录集CALL cl_prt_cs32009-09-09 TIPTOP单身单档录入程式结构定义变量MAIN函数_menu菜单函数_q函数_b 函数_b_askkey 函数 _b_fill 函数 _bp 函数 _set

13、_entry 函数 _set_no_entry 函数 1）定义变量 定义数据库路径 database ds 定义全局变量路径ARRAY OF RECORDEND RECORD#改变系统预设值#窗口开始的位置#讯息显示的位置#提示讯息的位置 #检查用户帐号 #检查程式路径 #记录程式使用时间 #打开窗口#程式设定初始化#打开菜单#关闭窗口#记录程式使用时间globals "." 定义动态数组变量 Define 动态变量名2)MAIN 函数 OPTIONS FORM LINE MESSAGE LINE PROMPT LINE cl_user cl_setup cl_used O

14、PEN WIHDOW cl_ui_init CALL _menu CLOSE WINDOW cl_used3) _menu 菜单函数 WHILE TRUE CASE g_action_choiceEND CASEEND WHILE4) _q 函数_askkey#调用 _askkey 函数 ,不明白为何这样做？5) _b 函数cl_opmsg#定义程式操作类型cl_detail_input_auth(".")#检查单身是否有 insert 或是 delete 权限INPUT ARRAY 变量名 WITHOUT DEFAULTS FROM 屏幕变量名 .*ATTRIBUTE(C

15、OUNT= 变量名 ,MAXCOUNT= 变量名 ,UNBUFFERED,INSERT ROW = 单身变量 ,DELETE ROW = 单身变量 ,APPEND ROW= 单身变量 )BEFORE INPUTfgl_set_arr_curr()#此函数找不到不知何作用BEFORE ROWBEGIN WORKBEFORE INSERTAFTER INSERTINSER INTO . V ALUES .COMMIT WORKAFTER FIELD .NEXT FIELD .BEFORE DELETEDELETE FROM .COMMIT WORKON ROW CHANGEUPDATE .COMM

16、IT WORKAFTER ROWCOMMIT WORKON ACTION .ON IDLE .cl_on_idleCONTINUE INPUTEND INPUTCOMMIT WORK6)_askkey 函数CLEAR FORM#工作区定义#插入记录#提交数据#删除记录#提交数据#更新数据#提交数据#提交数据#清除窗口CONSTRUCT 变量名 ON 字段变量 ,. FROM 字段变量 ,.ON ACTION .ON IDLE .cl_on_idleCONTINUE CONSTRUCTEND CONSTRUCTCALL _b_fill 填充函数7) _b_fill 填充函数LET g_sql=&

17、quot;."#定义 SQL 语句PREPARE 变量名 FROM g_sql#预编译 SQL 语句DECLEAR 游标变量名 CURSOR FOR 预编译变量名 FOREACH 游标变量名 INTO 动态数组变量名 .*END FOREACH8) _bp 函数cl_set_act_setting#显示确定与退出按钮提示记录数变量名 )DISPLAY ARRAY 动态数组变量名 TO 屏幕变量名 .* ATTRIBUTE(COUNT= BEFORE ROWcl_show_fld_c ontON ACTION .EXIT DISPLAYAFTER DISPLAYCONTINUE DIS

18、PLAYEND DISPLAY9) _set_entry 与_set_no_entry 函数 cl_set_comp_e ntry()#定义p_per档特殊格式栏位#设置栏位是否可以输入2009-09-09 TIPTOP查询式报表程式结构定义变量Main函数_cs函数_menu函数_q函数_b_fill 函数_bp函数1）定义变量定义数据库路径database ds定义全局变量文件路径globals "."定义动态数组Define 数组变量名 DYNAMIC ARRAY OF RECORD2) MAIN函数 OPTIONSFORM LINE MESSAGE LINE PRO

19、MPT LINE cl_suer cl_setup cl_usedOPEN WINDOW cl_ui_i nitCALL _me nuCLOSE WINDOW cl_used3) _cs QBE查询函数 CLEAR FORMEND RECORD #改变系统预设置值#窗口开始位置#讯息显示的位置#提示讯息的位置#用户帐号的检查#程式路径检查#程式使用时间记录#窗口打开#程式设定初始化#菜单显示#关闭窗口#记录程式使用时间#清空窗口INITIALIZE tm.* TO NULL#清空条件变量值INPUT BY NAME 变量名 WITHOUT DEFAULTS ON ACTION .ON IDLE .cl_on_idle()CONTINUE INPUTEND INPUTCONSTRUCT 变量名 ON 字段变量名 ,. FROM 字段变量名 ,.BEFORE CONSTRUCT cl_qbe_init()ON ACTION .ON IDLE .cl_on_idle()CONTINUE CONSTRUCTEND CONSTRUCTLET g_tw="."#查询条件变量值组合4)_menu 菜单函数WHILE TRUE_bp("G")#调用 _bp 函数CASE g_