查詢執行：警告用戶是否要刪除多個記錄

Question

如何警告用戶（帶有確認對話框）他要執行的查詢會刪除多條記錄？

'DELETE FROM ... WHERE ...'可以包含一個或多個記錄，所以我想知道如何警告用戶他將刪除多個記錄。

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; 

Answer 2

這是解決你的「這是爲什麼不工作：程序TDataModule.MYTABLEBeforeDelete（DataSe t：TDataSet）「？在您的評論中提出問題，而不是@JerryDodge給出的答案的替代方案。提出這樣的問題，你需要解釋什麼是正在發生（或不是）與預期不同。

不要嘗試在BeforeDelete事件中執行刪除操作。在手術開始前進行，例如如下所示（CDS1是我的數據集的名稱）。

順便說一句，如果您確實想要中斷數據集操作，請調用Abort。

procedure TForm1.Button3Click(Sender: TObject); 
var 
    Res : Integer; 
begin 
    if CDS1.RecordCount < 1 then exit; 
    if CDS1.RecordCount > 1 then begin 
    Res := MessageDlg(Format('You are about to delete %d records. Proceed?', 
     [CDS1.RecordCount]), 
     mtConfirmation, 
     [mbYes, mbNo], 
     0); 
    if Res = mrYes then begin 
     CDS1.First; 
     while not CDS1.Eof do begin 
     CDS1.Delete; 
     end; 
    end; 
    end 
    else begin 
    CDS1.Delete; 
    end; 
end; 

Answer 3

有兩種方法可以做到這一點;

1. way;刪除前獲取記錄數;

   query.close; 
   query.sql.text := ' Select Count(*) as recCount From Table Where tableId > 15 '; 
   query.open; 
   if messagedialog(query.fieldbyname('recCount').asstring + ' record will be deleted! Continue?', mtConfirmation, mbyesno, 0) = mrYes then 
       Begin 
       query.close; 
       query.sql.text := ' Delete From Table Where tableId > 15 '; 
       query.execsql; 
       end; 
   

2. way;使用橫斷如果您所使用的數據庫支持

   query.connection.BeginTrans; 
   query.sql.text := ' Delete From Table Where tableId > 15 '; 
   i := query.execsql; 
   if messagedialog(inttostr(i) + ' record will be deleted! Continue?', mtConfirmation, mbyesno, 0) = mrYes then 
       query.connection.CommitTrans 
   else 
       query.connection.RollbackTrans; 
   

對於第一種方式，請記住，如果用戶等待很長一段時間後會出現消息，如果數據庫被多個用戶使用的總記錄數可能會改變。

我沒有德爾福在這臺電腦上，所以可能會出現語法錯誤。