TIPTOP二次开发结构

1、2012-3-1 tiptop报表程式结构tiptop 报表程式结构（1）变量声明部分（2）main（3）_tm函数（4）报表输出函数(相当show)1)变量声明部分database dsglobals 变量名 #全局变量定义define 变量名 record end record #记录集变量定义define 变量名 record like 表 #记录集变量定义define 变量名 like 表.字段 #局部变量定义2)main 赋值初始变量cl_user #检查用户是否存在cl_setup #程式预设检查cl_used #记录程式使用时间定义g_sql的水晶报表的结构，作用于xml转换格式

2、如下：生成temp表let l_table =cl_prt_temptable(报表程式名,g_sql) clippedcall _tm函数 #输入打印条件 input print conditioncall 报表输入函数 #调用报表输出函数 read data and create out-filecl_used #记录程式使用时间3)_tm函数局变量定义open window 路径 #打开界面路径cl_ui_init #初始化变量值initialize tm.* to null #给所有tm.*的变量赋空值while true #循环执行菜单显示construct by name 变量名

3、on 查询条件字段,. before construct cl_qbe_init #qbe查询条件初始化on action 菜单项 #具体菜单名on idle #闲置时间设置input by name 变量名 without defaults before input cl_qbe_display_condition()after filed4)报表输出函数定义屏幕变量sr记录集格式如下：define sr record . end recordcl_del_data(l_table) #清空临时表记录集let g_sql=insert into ,g_cr_db_str,clipped,l_

4、table clipped, values(.)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 insert_prep using sr.*end foreachlet g_sql= select * from ,g_cr_db_str clipped,l_table c

5、lipped #生成水晶报表记录集let g_str=. #给水晶报表中的26个参数传值，切记要对应变量call cl_prt_cs3(报表程式名,报表程式名,g_sql,g_str) 2009-09-11 tiptop单头单档程式结构定义变量main函数_cs函数 _menu菜单函数_a函数_i函数_q函数_fetch函数_show函数_u函数_x函数_r函数_copy函数_out函数_chkym检查日期函数1)定义变量定义数据库路径database ds 定义全局变量文件路径globals .定义记录集变量define 变量名 record like 表2)main函数options #改

6、变系统预设值form line #窗口开始的位置message line #信息提示的位置prompt line #提示信息的位置cl_user #检查用户帐号cl_setup #检查程式设置路径cl_used #记录程式使用时间定义水晶报表结构,.cl_prt_temptable() #创建临时表记录水晶报表记录集插入记录let g_sql=insert into ds_report ,l_table,clipped .open window #打开窗口cl_ui_init() #设定程式初始化call _menu #打开菜单close window #关闭窗口cl_used3)_cs函数c

7、lear form #清除屏幕construct by name 变量名 on 字段变量名,. #取屏幕变量条件before construct cl_qbe_init()on action .on idle . cl_on_idle() continue constructend construct定义查询sql语句定义游标记录集4)_menu菜单函数before menu cl_navigator_setting() #上下记录数据移动on action .on idle . cl_on_idle continue menuend menu5)_a函数clear form #清除屏幕cl_

8、opmsg #定义程式操作类型while truecall _i #调用_i函数插入记录insert into 表 values(屏幕变量名.*) #插入记录数据exit whileend while6)_i函数display by name 字段变量名,.input by name 字段变量名,. without defautlsbefore inputafter field .on action .on idle . cl_on_idle() continue inputend input7)_q函数cl_navigator_setting() #上下记录数据移动cl_opmsg #定义程

9、式操作类型call _cs #调用查询函数定义游标记录集call _fetch #8)_fetch函数prompt .on idle . cl_on_idleon action .end promptcl_navigator_setting #上下笔记录移动select * into 屏幕变量名.* from 表 #读取记录数据给屏幕变量call _show #调用显示函数显示当前记录9)_show函数display by name 字段变量,.10)_u函数cl_opmsg #定义程式操作类型begin work #打开工作区call _show #显示记录while truecall _i

10、(u) #栏位修改update 表 #更新记录数据exit whileend whilecommit work #提交数据11)_x函数begin work #打开工作区定义游标记录集call _show #显示记录cl_exp #询问是否设置无效update 表 #更新记录commit work #提交数据12)_r函数begin work #打开工作区定义游标记录集call _show #显示记录cl_delete #询问是否要删除记录delete from 表 #删除记录commit work #提交数据13)_copy函数 #复制函数input 字段变量名,. from 字段变量名,.

11、after field .on action .on idle . cl_on_idle continue inputend inputdrop table 临时表 #删除临时表into temp 临时表 #插入临时表update 表 . #更新临时表的关键资料字段insert into 表 select * from 临时表 #将临时表中的记录插入到正式表中.call _show #显示记录14)_out函数 #报表输出函数cl_del_data #清空临时表中的记录cl_wait #等待显示定义游标记录集foreach 游标变量名 into 屏幕变量名.* # 循环读取记录到屏幕变量.ex

12、ecute 插入预编译sql变量 using 屏幕变量名.*end foreachclose 游标记录集call cl_prt_cs3 #2009-09-09 tiptop单身单档录入程式结构定义变量main函数_menu菜单函数_q函数_b函数_b_askkey函数_b_fill函数_bp函数_set_entry函数_set_no_entry函数1)定义变量定义数据库路径database ds定义全局变量路径globals .定义动态数组变量define 动态变量名 array of record . end record2)main函数options #改变系统预设值form line #

13、窗口开始的位置message line #讯息显示的位置prompt line #提示讯息的位置cl_user #检查用户帐号cl_setup #检查程式路径cl_used #记录程式使用时间open wihdow #打开窗口cl_ui_init #程式设定初始化call _menu #打开菜单close window #关闭窗口cl_used #记录程式使用时间3)_menu菜单函数while truecase g_action_choice.end caseend while4)_q函数_askkey #调用_askkey函数,不明白为何这样做？5)_b函数cl_opmsg #定义程式操作

14、类型cl_detail_input_auth(.) #检查单身是否有insert或是delete权限input array 变量名 without defaults from 屏幕变量名.* attribute(count=变量名,maxcount=变量名,unbuffered, insert row =单身变量,delete row =单身变量,append row=单身变量)before input fgl_set_arr_curr() #此函数找不到不知何作用before row begin work #工作区定义before insertafter insert inser into

15、. values . #插入记录 commit work #提交数据after field . next field .before delete delete from . #删除记录 commit work #提交数据on row change update . #更新数据 commit work #提交数据after row commit work #提交数据on action .on idle . cl_on_idle continue inputend inputcommit work6)_askkey函数clear form #清除窗口 .construct 变量名 on 字段变量

16、,. from 字段变量,.on action .on idle . cl_on_idle continue constructend constructcall _b_fill填充函数7)_b_fill 填充函数let g_sql=. #定义sql语句prepare 变量名 from g_sql #预编译sql语句declear 游标变量名 cursor for 预编译变量名foreach 游标变量名 into 动态数组变量名.* .end foreach8)_bp函数cl_set_act_setting #显示确定与退出按钮提示display array 动态数组变量名 to 屏幕变量名.

17、* attribute(count=记录数变量名)before row cl_show_fld_cont #定义p_per档特殊格式栏位on action .exit displayafter display continue displayend display9)_set_entry与_set_no_entry函数cl_set_comp_entry() #设置栏位是否可以输入2009-09-09 tiptop查询式报表程式结构定义变量main函数_cs函数_menu函数_q函数_b_fill函数_bp函数1)定义变量定义数据库路径database ds定义全局变量文件路径globals .

18、定义动态数组define 数组变量名 dynamic array of record . end record2)main函数options #改变系统预设置值form line #窗口开始位置message line #讯息显示的位置prompt line #提示讯息的位置cl_suer #用户帐号的检查cl_setup #程式路径检查cl_used #程式使用时间记录open window #窗口打开cl_ui_init #程式设定初始化call _menu #菜单显示close window #关闭窗口cl_used #记录程式使用时间3)_cs qbe查询函数clear form #清

19、空窗口.initialize tm.* to null #清空条件变量值input by name 变量名 without defaultson action .on idle . cl_on_idle() continue input.end inputconstruct 变量名 on 字段变量名,. from 字段变量名,. before construct cl_qbe_init()on action .on idle . cl_on_idle() continue constructend constructlet g_tw=. #查询条件变量值组合4)_menu菜单函数while true_