Автор темы
У меня есть главная таблица(Студенты) и две таблицы простых(Языки и Данные).Как сделать так что если я удаляю из таблицы например Языки ,то удалялась запись и в таблице Студенты.
procedure TForm1.Button10Click(Sender: TObject);
var s:string;
begin
if MessageDlg('Вы уверены?', mtWarning, mbOkCancel, 0)=mrOk then
begin
s:='delete from styz where id='+ADOQuery1.Fields.Fieldbyname('id').AsString;
ADOConnection1.Execute(s);
ADOQuery1.Close;
ADOQuery1.Open;
end;
end;
procedure TForm1.Button10Click(Sender: TObject);
var s:string;
begin
if MessageDlg('Вы уверены?', mtWarning, mbOkCancel, 0)=mrOk then
begin
s:='delete from styz where id='+ADOQuery1.Fields.Fieldbyname('id').AsString;
ADOConnection1.Execute(s);
ADOQuery1.Close;
ADOQuery1.Open;
end;
end;
