database - 如何防止 firedac 发布或取消详细记录？

Question

我有两个具有主从关系的 FDQuery。在“Master”的 AfterInsert 事件中，我做了一个详细的 Append，在事件 OnBeforePost(也是“master”的)中，我仅在验证“Master”字段后才调用“Detail”的“Post”。但是，我无法按此顺序执行此操作，因为如果 FireDac 在“详细信息”中没有任何更改，则会在“详细信息”中执行“取消”。如果有 Action ，它会自动执行“发布”。这发生在执行 BeforePost 事件之前，因为在该事件期间详细信息已经处于“dsBrowse”模式。谁能帮我解决这种情况？ 即如何防止 firedac 在记录详细信息上执行发布/取消？*注意:我使用的是 Delphi XE5

Answer 1

解决方法是创建一个继承的 TFDQuery 组件并覆盖 Post 和 BeforePost 事件，导致 BeforePost 事件在(不是太棒了？)发布。

type
  TMyFDQuery = class(TFDQuery)
    InheritedPost: boolean; // Avoid Duplicate BeforePost Execution
...
  protected
    procedure DoBeforePost; override;
    procedure Post; override;
...

procedure TMyFDQuery.DoBeforePost;
begin
  if not InheritedPost then
    inherited;
end;

procedure TMyFDQuery.Post;
begin
  DoBeforePost;
  try
    InheritedPost := True;
    inherited;
  finally
    InheritedPost := False;
  end;
end;