Показать сообщение отдельно
  #1  
Старый 17.07.2019, 20:48
Maks19 Maks19 вне форума
Начинающий
 
Регистрация: 19.06.2019
Сообщения: 113
Версия Delphi: Delphi7
Репутация: 10
По умолчанию Удаление записей из связанных таблиц

Здравствуйте.

Из одной таблицы удаление:
Код:
if
(Table1.RecordCount>0)   then

  begin
u:=MessageDlg('Удалить проект?',mtCustom,[mbYes,mbNo],0);
if u=mrYes then
begin

Table1.Delete;
//Table2.Delete;
end;

Но в связанных с таблицей 1, таблицах записи не удаляются. Я понимаю , что есть каскадное удаление, но там при удалении ошибка появлялась.
И второй вопрос.
Что надо добавить в строке u:=MessageDlg('Удалить проект?',mtCustom,[mbYes,mbNo],0);
чтобы в диалоговом окне удалить проект стояло ,то что введено в таблицу 1, т.е в combobox?
Ответить с цитированием