Topic: При удалении записи в одной таблице изменить запись в другой
Есть две таблицы, не связанные между собой: statia и sprava. Записи в последней формируются процедурой переноса значений с формы редактирования первой:
procedure frmAddSprava_Button1_OnAfterClick (Sender: string);
var
sStatiaNum: string; // номер статьи
sStatiaName: string; // содержание статьи
sStatiaNote: string; // примечание
sTerm: string; // срок хранения
sLinesNum: string; // номер строки = ID записи в таблице statia
begin
sStatiaNum := '"'+frmAddSprava.Edit1.Text+'"';
sTerm := '"'+frmAddSprava.Edit2.Text+'"';
sLinesNum := '"'+frmAddSprava.Edit4.Text+'"';
sStatiaName := '"'+frmAddSprava.Memo4.Text+'"';
sStatiaNote := '"'+frmAddSprava.Memo5.Text+'"';
SQLExecute ('INSERT INTO sprava (linesNum, statiaNum, statiaName, term, statiaNote)' +
'VALUES ('+sLinesNum+', '+sStatiaNum+', '+sStatiaName+', '+sTerm+', '+sStatiaNote+')');
frmAddSprava.Close;
frmTipNom.Close;
frmMain.TableGrid1.dbUpdate;
frmMain.TableGrid2.dbUpdate;
end;
Одновременно из Edit3 на frmAddSprava в поле otmetka таблицы statia записывается "Внесено".
СУТЬ ВОПРОСА: Как сделать, чтобы при удалении записи из таблицы sprava с неким linesNum ("Целое число") у записи в таблице statia, имеющей значение ID равное этому linesNum, очищалось поле otmetka?