procedure TForm1.BitBtn3Click(Sender: TObject); begin query1.SQL.Clear; query1.SQL.Add('delete from PDLB'); query1.SQL.Add('where LBPDID ='''+query1.fieldbyname('LBPDID').AsString+''' '); query1.ExecSQL; query1.Close; query1.Open; query1.ApplyUpdates; query1.CommitUpdates; end; 你們好，以上是我寫的刪除功能… 我想要指標在哪一筆資料而做刪除動作…但還是會出錯，這是為什麼呢?

您好﹗    很明顯的錯誤﹐因為您在下ExecSQL方法執行Delete語句后﹐Query1的SQL屬性值依然是之前設定的'Delete From PDLB Where....'﹐Delete語法是屬于無回傳值的SQL語法﹐當您再用Open方法來開啟時﹐自然就會出錯﹒    您是有使用CachedUpdates的功能嗎﹖不然不要使用ApplyUpdates和CommitUpdates方法﹐另外﹐如果單單是為了刪除當前筆的資料﹐可以直接使用資料集元件的Delete方法﹐更為方便及有效率﹐如下﹕

begin
  Query1.Delete;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/06/27 10:49:44

------
忻晟

cashxin2002您好， 我試了你的方式，但卻出現如下的錯誤訊息…

您好﹗    把Query元件的RequestLive屬性值設為True試試﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

嗯…果然忘了改成true… 呵呵~行了…謝謝你

丫~我忘了還有一個小問題… 就是我在刪除前我希望能showmessage問使用者是不是確定要刪除…有yes和no的button可供使用者選擇，才進行是否要刪除... 但我只知道用showmessage('你確定要刪嗎?'); 也只有一個yes的button，該如何改咧?

您好﹗    參考如下﹕ 在Query1元件的BeforeDelete事件中﹕

begin
  if MessageDlg('您确定要刪除嗎﹖', mtConfirmation, [mbYes, mbNo], 0)
    = mrNo then
    Abort;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

你好，我試出來了~ 謝謝您! 只是mtConfirmation是什麼意思呢? 是一個任意可變的數嗎? 那…0又代表什麼呢?    

引言: 您好﹗ 參考如下﹕ 在Query1元件的BeforeDelete事件中﹕

begin
  if MessageDlg('您确定要刪除嗎﹖', mtConfirmation, [mbYes, mbNo], 0)
    = mrNo then
    Abort;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

您好﹗    MessageDlg對話框常用于詢問使用者意見的訊息提示﹒ 語法﹕if MessageDialog (字串參數, 圖示參數, [按鈕組合參數], 線上輔助說明參數) = 回傳值參數    說明﹕ 字串參數﹕對話框中顯示的文字內容    圖示參數﹕對話框形態﹐有分為以下五種（mtWarning警告訊息﹔mtError錯誤訊息﹔mtInformation顯示訊息﹔ctConfirmation确認信息﹔mtCustom自定形態）    按鈕組合參數及對應的回傳值參數﹕有以下九組以供選擇 按鈕組合參數 <=> 回傳值參數 mbYes <=========> mrYes mbNo <==========> mrNo mbOK <==========> mrOK mbCancel <======> mrCancel mbAbort <=======> mrAbort mbRetry <=======> mrRetry mbIgnore <======> mrIgnore mbAll <=========> mrAll mbHelp <========> mrHelp    線上輔助參數﹕長整數（LongInt）形態﹐通常為0﹒    範例﹕

begin
  if MessageDlg('您确定要刪除嗎﹖', mtConfirmation, [mbYes, mbNo], 0)
    = mrNo then
    Abort;
end;

對照以上的說明﹐一個個將參數說明代入﹐您就會了解的﹒ ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟