若我是選擇 "NO" 那我該怎麼讓它離開停留原畫面就好而不刪除資料呢? 因我現在選 "NO" 它還是會去刪除耶!! procedure TForm1.BitBtn3Click(Sender: TObject); //刪除資料 begin if MessageDlg('此動作為不可復原, 確定刪除?', mtWarning, [mbYes, mbNo], 0) = mrYes then ClientDataSet1.Delete; MessageDlg('刪除完成!!', mtInformation, [mbOk], 0); end;

你可以試試看資源回收筒的作法 新增一個資料庫欄位G_VISIBLE = 'Y'就是使用中 G_VISIBLE = 'N'就是未使用 如果不樣想這筆資料出現但是又不想殺掉的話就可以這樣做歐 真的不要這筆資料的話才Delete就好了

Hi kate0921,    調整一下語法如下(紅色字體分)，你再試試

procedure TForm1.Button3Click(Sender: TObject);
begin
  if MessageDlg('此動作為不可復原, 確定刪除?',mtWarning, [mbYes, mbNo], 0) = mrYes then
    begin
      ClientDataSet1.Delete;
      MessageDlg('刪除完成!!', mtInformation,[mbOk], 0);
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman