定义变量
Main函数
_cs函数
_menu函数
_q函数
_b_fill函数
_bp函数
1)定义变量
定义数据库路径
database ds
定义全局变量文件路径
globals "..."
定义动态数组
Define 数组变量名 DYNAMIC ARRAY OF RECORD
...
END RECORD
2)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 #清空窗口
...
INITIALIZE tm.* TO NULL #清空条件变量值
INPUT BY NAME 变量名 WITHOUT DEFAULTS
ON ACTION ...
ON IDLE ...
cl_on_idle()
CONTINUE INPUT
...
END INPUT
CONSTRUCT 变量名 ON 字段变量名,... FROM 字段变量名,...
BEFORE CONSTRUCT
cl_qbe_init()
ON ACTION ...
ON IDLE ...
cl_on_idle()
CONTINUE CONSTRUCT
END CONSTRUCT
LET g_tw="..." #查询条件变量值组合
4)_menu菜单函数
WHILE TRUE
_bp("G") #调用_bp函数
CASE g_action_choice
...
END CASE
END WHILE
5)_q函数
cl_navigator_setting() #上下笔记录移动数据
cl_opmsg #定义操作程式类型
CALL _cs #调用查询函数
CALL _b_fill #调用填充记录函数
6)_b_fill填充函数
LET g_sql="..." #查询SQL语句
PREPARE 变量名 FROM g_sql #预编译SQL语句
DECLEAR 游标变量名 CURSOR FOR 预编译变量名
FOREACH 游标变量名 INTO 动态数组变量名.*
...
END FOREACH
7)_bp函数
cl_set_act_setting("accept,cancle",FALSE) #显示确定与退出按钮
DISPLAY ARRAY 动态数组变量名 TO 动态数组变量名.* ATTRIBUTE(COUNT=记录变量名,UNBEFFERED)
BEFORE DISPLAY
cl_navigator_setting() #上下笔记录数据移动
cl_show_fld_cont() #設定p_per內有特殊格式設定的欄位
ON ACTION ...
EXIT DISPLAY
ON IDLE ...
cl_on_idle()
CONTINUE DISPLAY
AFTER FILED
CONTINUE DISPLAY
cl_set_head_visible("","AUTO") #显示/隐藏单头元件
END DISPLAY