procedure TWT.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
const
cErrorMsg = 'Record not found or changed by another user';
begin
try
case TBizDataSetAction(Sender).ID of
BizActnConsts.ActionDataSetRefresh:
begin
BGBH := DataSetWTD.FieldByName('BGBH').AsString;
DataSetWTD.CancelUpdates;
end; // { 刷新 }
BizActnConsts.ActionDataSetSave:
begin
try
DataSetWTD.ApplyUpdates;
DataSetJYXM.ApplyUpdates;
// SysUtils.Abort;
except
sysutils.Sleep(1000);
end;
jsdialogs.ShowMsg('保存成功!','提示'); { 保存 }
end;
end;
except
//
end;
end;