100分求解：Delete提交时为何出错？

Question

其他增加、修改都正确，而删除却出错，求救阿，在线等待！！！！
procedure TfrmBuyer.tbDeleteClick(Sender: TObject);
begin
  if messagedlg('真的要删除吗？',mtInformation,[mbYes,mbNo],0)=mrNo then abort;  QryBuyer.Delete;
  QryBuyer.ApplyUpdates;
  QryBuyer.CommitUpdates;
end;procedure TfrmBuyer.tbFindClick(Sender: TObject);
begin
  QryBuyer.Close;
  QryBuyer.Open;
end;procedure TfrmBuyer.tbCloseClick(Sender: TObject);
begin
  close;
end;

Answer 1

abort是什么意思？
（不知道有没有帮助）
改一下格式
  if messagedlg('真的要删除吗？',mtInformation,[mbYes,mbNo],0)<>mrNo then
  begin
    QryBuyer.Delete;
    QryBuyer.Post;//好像是这个
  end;

Answer 2

delete后好象不用再写post之类的什么语句了吧？

Answer 3

procedure TfrmBuyer.tbDeleteClick(Sender: TObject);
begin
  if messagedlg('真的要删除吗？',mtInformation,[mbYes,mbNo],0)=mrNo then abort;  QryBuyer.Delete;
  QryBuyer.refresh;
end;应该没问题的，你的问题可能不在这段代码上。

Answer 4

删除要用adocommand在string 输入‘delete * from table’

Answer 5

if messagedlg('真的要删除吗？',mtInformation,[mbYes,mbNo],0)=mryes then
   delete from table;

Answer 6

with CustomerQuery do
  begin
  Database1.StartTransaction;
    try
      ApplyUpdates; {try to write the updates to the database};
      Database1.Commit; {on success, commit the changes};
    except
      Database1.Rollback; {on failure, undo the changes};
    raise; {raise the exception to prevent a call to CommitUpdates!}
    end;
  CommitUpdates; {on success, clear the cache}
  end;end;