我希望當 user 透過 DBNavigator 的 delete 去刪除 Table 中的資料時 能事先通知我, 以便我能有一個動作去刪除與這筆資料有關聯的另一筆資料 請問我該如何得知 user 在何時 按了這個 delete 鈕 呢 ? thanks !

引言: 我希望當 user 透過 DBNavigator 的 delete 去刪除 Table 中的資料時 能事先通知我, 以便我能有一個動作去刪除與這筆資料有關聯的另一筆資料 請問我該如何得知 user 在何時 按了這個 delete 鈕 呢 ? thanks !

crlin 你好: DBNavigator 有一個 OnClick 事件 它所對應的 function spec 的最後一個參數 是 TNavigateBtn Button 只需要判斷這個 Button 的值是不是等於 nbDelete 就可以了 詳細的說明在 online help 應該都找到得喔 --

也可以在 BeforeDelete 這個 Event 中來攔截哦!    -- Everything I say is a lie.

若是我希望我的動作在 Delete 被按下後, 該筆資料被刪除前就先做完 是否該使用 BeforeAction 呢 ? 在 Help 中都沒有 BeforeAction 的範例, 是否可請版主示範一下該如何自己寫一個 BeforeAction 的 procedure 呢 ? thanks !

大概像這樣:

procedure TForm1.ADOTable1BeforeDelete(DataSet: TDataSet);
var qry: TADOQuery;
begin
  qry := TADOQuery.Create(nil);
  try
    qry.Connection := ADOConnection1;
    qry.SQL.Text := 'Delete From TableA Where TableID = :TableID';
    qry.Parameter.ParamValues['TableID'] := ADOTable1.FieldByName('TableID').AsInteger;
    qry.ExecSQL;
  finally
    qry.Free;
  end;
end;

-- Everything I say is a lie.