本文详细介绍了TIPTOP单身单档录入程序的结构，包括定义变量、MAIN函数、菜单函数、数据操作函数等。程序涉及数据库操作、权限验证、用户交互和数据的插入、删除及更新。主要函数如_menu负责菜单交互，_b函数处理数据输入和修改，_askkey用于获取用户输入，同时展示了如何使用SQL进行数据操作。
定义变量
MAIN函数
_menu菜单函数
_q函数
_b函数
_b_askkey函数
_b_fill函数
_bp函数
_set_entry函数
_set_no_entry函数
1)定义变量
定义数据库路径
database ds
定义全局变量路径
globals "..."
定义动态数组变量
Define 动态变量名 ARRAY OF RECORD
...
END RECORD
2)MAIN函数
OPTIONS #改变系统预设值
FORM LINE #窗口开始的位置
MESSAGE LINE #讯息显示的位置
PROMPT LINE #提示讯息的位置
cl_user #检查用户帐号
cl_setup #检查程式路径
cl_used #记录程式使用时间
OPEN WIHDOW #打开窗口
cl_ui_init #程式设定初始化
CALL _menu #打开菜单
CLOSE WINDOW #关闭窗口
cl_used #记录程式使用时间
3)_menu菜单函数
WHILE TRUE
CASE g_action_choice
...
END CASE
END WHILE
4)_q函数
_askkey #调用_askkey函数,不明白为何这样做？？？
5)_b函数
cl_opmsg #定义程式操作类型
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 INSERT
AFTER INSERT
INSER INTO ... 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 INPUT
END INPUT
COMMIT WORK
6)_askkey函数
CLEAR FORM #清除窗口
...
CONSTRUCT 变量名 ON 字段变量,... FROM 字段变量,...
ON ACTION ...
ON IDLE ...
cl_on_idle
CONTINUE CONSTRUCT
END CONSTRUCT
CALL _b_fill填充函数
7)_b_fill 填充函数
LET g_sql="..." #定义SQL语句
PREPARE 变量名 FROM g_sql #预编译SQL语句
DECLEAR 游标变量名 CURSOR FOR 预编译变量名
FOREACH 游标变量名 INTO 动态数组变量名.*
...
END FOREACH
8)_bp函数
cl_set_act_setting #显示确定与退出按钮提示
DISPLAY ARRAY 动态数组变量名 TO 屏幕变量名.* ATTRIBUTE(COUNT=记录数变量名)
BEFORE ROW
cl_show_fld_cont #定义p_per档特殊格式栏位
ON ACTION ...
EXIT DISPLAY
AFTER DISPLAY
CONTINUE DISPLAY
END DISPLAY
9)_set_entry与_set_no_entry函数
cl_set_comp_entry() #设置栏位是否可以输入
扫一扫
645
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
