Каскадное удаление данных

[rockedit]

Всем добрый вечер!
Меня интерисует такое вопрос, есть ли в Delphi встроенные функции, которые отслеживают следущее, есди допустим существует 2 связанные таблицы (причем связь обязательная) то при удалении записи из одной из них автоматически удаляеться запись из другой. К примеру как это сделано в Ms Access , если в нем выбрать пункты каскадное удаление и каскадное обновление записей пи создании связей. Надеюсь достаточно ясно изложил суть вопроса.
С уважением Rockedit!

[Sparky]

а это не автоматически делается? Просто про Access точно не знаю. В firebird, postgres точно автоматом делает. Ну у вас с таблицами допустим связаны ADOQUery, тогда просто при нажатии кнопки удалить котороая находится на форме где данные родительской таблицы написать нечто такое

ADOQuery1.close;
ADOQuery2.close;
ADOQuery1.open;
ADOQuery2.open;

[rockedit]

я работаю через ADOTable, но это практически дела не меняет. вообшем если у строки из главное таблицы имееться хоть одна связь с подчиненой то во время попытки удаления будет возникать ошибка, я решил этот вопрос простым SQL запросом, просто думал, может получится сократить код и просто Delphi указать, что вот из этой таблицы удали запись и проверь, сам мол есть ли у нее связи с другими. просто если таблиц допустмм связаных 10 то это конечно муторно самому отслеживать все связи

[Sparky]

А что в Access нет on delete cascade?????

[rockedit]

А что в Access нет on delete cascade?????

Чтитаем внимательно пост. вопрос не по Access, ну а если на то пошло то я как раз из Access привел пример как это реализовать.

[GX_h10]

Я бы сделал так:

private
  function askYesOrNo(ask:String):Boolean;

implementation  
  
function TForm1.askYesOrNo(ask: String): Boolean;
begin
  if MessageDlg(ask, mtConfirmation, mbOKCancel, 0) <> idCancel then
    Result := True
  else
    Result := False;
end;

//Реализация в процедуре(например на батончике "Удалить"):
procedure TForm1.Button1Click(Sender: TObject);
begin
  if askYesOrNo('Вы действительно хотите удалить запись') then
  begin
    if DBGrid1.Focused then
       ADOQuery1.Delete;
    if DBGrid2.Focused then
       ADOQuery2.Delete;
  end;
end;

[evg_m]

Access это сервер (СУБД) и клиент в одном флаконе.
Delphi обычно используется для написания клиентских частей к различным СУБД (FireBird, MS SQL, Access, ...). Каскадное удаление обычно организуется на стороне сервера во время задания связей и правила задания зависят от выбранной СУБД.