DBL语法
别动我结菜 2020-10-19 4GLT100
# 程序过程
r.c 程序编译 r.f 画面编译 r.d/r.dg debug模式
4gl -> .42m 编译后的程序文件
4fd -> .42f 编译后的画面档
.42r r.l 程序链接 -all
# 语法
l_本地参数 p_传递参数 g_全局参数
DEFINE l_imaa001 LIKE imaa_t.imaa001 定义蚕食
type_t num5 类型表
recode 定义数据集合
INITIALIZE cr.* TO NULL 清空变量 再赋值 INITIALIZE cr.* LIKE customer.*
DISPLAY 显示
上传:rz -y
编译:r.cs ****.4gl (如 r.cs litty.4gl)
运行:fglrun **** (如 fglrun litty)
常用全局变量
g_enterprise 企业编号
g_site 据点
g_today 当前日期
g_dlang 语言别:简体/繁体
g_user 用户
g_dept 用户对应部门
SLEEP 5 睡眠5秒
IF THEN ELSE END IF (IF模板)
INPUT Module变数 FROM Form字段 OR INPUT BY NAME Module变数 输入
程序模块
INPUT variable-list FROM field-list
BEFORE INPUT 输入之前
BEFORE FIELD field-list 进入栏位之前
AFTER FIELD field-list 离开栏位之后
ON CHANGE field-list 栏位数值变更
ON IDLE idle-seconds 定时退出时间
ON ACTION action-name 出发动作
AFTER INPUT 完成输入
END INPUT
- MENU模板
MENU [title]
ATTRIBUTE ( control-attributes )
BEFORE MENU
ON ACTION action-name
COMMAND option [comment]
[HELP help-number ]
COMMAND KEY ( key-name )
option [comment]
[HELP help-number ]
ON IDLE idle-seconds
END MENU