
点击提交按钮弹出对话框提交成功。
具体实现:打开设计录入窗口创建按扭,然后点击右侧脚本内容打开如图

脚本内容:
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.