procedure TForm1.Button1Click(Sender: TObject);
begin
//這裡開始作你的檢查
Query2.Close;
.
.
//如果不重覆
begin
Query1.post;
Query1.applyupdates;
end
else//重覆
begin
SHOWMESSAGE('已重覆!!');
ned;
end;

引言: 我在Query1的BeforePost裏頭加了一個Query2 目的是用來判斷當資料庫中此筆資料已存在時, 產生訊息來告知使用者, 這樣的作法在新增的時候沒有問題, 可是如果是做Update的話, 也會產生告知的訊息! 我曾試著將Query2加在AfterInsert,BeforeInsert,AfterEdit,BeforeEdit 但似乎都不太對, 請問各位前輩, 我應該將Query2放在何處才正確? 謝謝!

  query2.Close ;
  query2.Open;
  query2.First;      with query2 do
  begin
    while not Eof do
    begin
      if query1.State in [dsinsert] then
      begin
        //做檢查                
      end
      else if query1.State in [dsEdit] then
      begin
        //做檢查        
      end;
      Next ;
    end;
  end;

引言: 我在Query1的BeforePost裏頭加了一個Query2 目的是用來判斷當資料庫中此筆資料已存在時, 產生訊息來告知使用者, 這樣的作法在新增的時候沒有問題, 可是如果是做Update的話, 也會產生告知的訊息!