delphi - 数据集取消或中止(正确的方法)？

Question

如果我只调用 abort，那么我的数据集仍处于 dsedit 状态。
我必须按两次 ESC 或按取消按钮 (dbnavigator) 才能退出。

我无法调用取消，因为我的表未处于编辑模式(错误)。

这边走 :

procedure TDataModule.MYTABLEBeforePost(DataSet: TDataSet);
begin
with VALIDATE_ENTRY do begin
VALIDATE_ENTRY.Close;
VALIDATE_ENTRY.SQL.Clear;
VALIDATE_ENTRY.SQL.Text := 'SELECT [NAME] FROM UNITS WHERE [NAME] = '+ QuotedStr(UNITS.FieldByName('NAME').asString) ; 
VALIDATE_ENTRY.Open;
if EOF then begin
MYTABLE.Post;
end else
ShowMessage('NAME '+UNITS.FieldByName('NAME').asString+' already exists !'+#13#10+'Entry is forbidden !');
Dataset.Cancel;
Abort;
end;
end;

似乎有效，但确实感觉很奇怪。

这可以使用还是有另一种优雅的方式来实现这一点？

Answer 1

只需调用Dataset.Cancel .这将使您回到浏览模式。调用 Abort 将使您进入 dsEdit状态。允许编辑不要调用任何东西。