delphi - 查询执行:警告用户是否要删除多个记录

Question

您如何警告用户（带有确认对话框）他将要执行的查询将删除多个记录？

“从...哪里删除...”可以包含一个或多个记录，因此我想知道如何警告用户他将删除多个记录。

Answer 1

听起来您在询问如何提示用户...

case MessageDlg('Are you sure you wish to delete multiple records?', mtWarning, [mbYes, mbNo], 0) of
  mrYes: begin
    //Continue
    DoWhatNeedsToBeDoneToDeleteMultipleRecords;
  end;
  mrNo: begin
    //Don't continue
  end;
end;

例如，您可以...

if ADOQuery1.RecordCount > 1 then begin
  PromptToDeleteMultipleRecords;
end;

因此，总而言之，您的代码可能看起来像...

if ADOQuery1.RecordCount > 1 then begin
  case MessageDlg('Are you sure you wish to delete multiple records?', mtWarning, [mbYes, mbNo], 0) of
    mrYes: begin
      //Continue
      DoWhateverNeedsToBeDoneToDeleteMultipleRecords;
    end;
    mrNo: begin
      //Don't continue
    end;
  end;
end;