点击提交按钮弹出对话框提交成功。

具体实现：打开设计录入窗口创建按扭，然后点击右侧脚本内容打开如图

脚本内容：

begin
if (DataMdl_Tabledoc.state=dsedit) or (DataMdl_Tabledoc.state=dsInsert) then
begin
  DataMdl_Tabledoc.post;
end;
Application.messagebox('提交成功','信息提交',0)
end.

脚本解析：

bdgin //执行代码开始

if (DataMdl_Tabledoc.state=dsedit) or (DataMdl_Tabledoc.state=dsInsert) then
//如果主表是编辑或插入状态

begin
  DataMdl_Tabledoc.post;
end;
//执行主表保存结束

Application.messagebox('提交成功','信息提交',0)//弹出提交成功对话框

end.