[Maks19]

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

Из одной таблицы удаление:

Код:

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?

[lmikle]

на второй вопрос:

Код:

u:=MessageDlg('Удалить проект '+Table1.FieldByName('...').AsSTring + '?',mtCustom,[mbYes,mbNo],0);

На первый вопрос. Если база - СУБД (MS SQL, Oracle, Interbase, etc), то действительно можно применять каскадное удаление.Тогда БД сама по ключам удалит нужные записи.
Если БД локальная (типа Paradox, dBase), то придется удалять руками. Т.е. из главной таблицы запоминаешь уникальный id записи, удаляешь из подчиненных таблиц записи с соотв. значением, указывающем на главную запись и в конце удаляешь соотв. запись из главной таблицы.

[Maks19]

Сообщение от lmikle

на второй вопрос:

Код:

u:=MessageDlg('Удалить проект '+Table1.FieldByName('...').AsSTring + '?',mtCustom,[mbYes,mbNo],0);

На запись

Код:

u:=MessageDlg('Удалить проект'+'Table1.FieldByname('Projname').AsString'+'?',mtCustom,[mbYes,mbNo],0);

Выдает ошибку Not enocugh actual parametrs

[Maks19]

Сообщение от Maks19

На запись

Код:

u:=MessageDlg('Удалить проект'+'Table1.FieldByname('Projname').AsString'+'?',mtCustom,[mbYes,mbNo],0);

Выдает ошибку Not enocugh actual parametrs

Работает. кавычки не там поставил.

[lmikle]

не просто не там, а по своей инициативе добавил лишних...

[Maks19]

Сообщение от lmikle

на второй вопрос:

Код:

u:=MessageDlg('Удалить проект '+Table1.FieldByName('...').AsSTring + '?',mtCustom,[mbYes,mbNo],0);

На первый вопрос. Если база - СУБД (MS SQL, Oracle, Interbase, etc), то действительно можно применять каскадное удаление.Тогда БД сама по ключам удалит нужные записи.
Если БД локальная (типа Paradox, dBase), то придется удалять руками. Т.е. из главной таблицы запоминаешь уникальный id записи, удаляешь из подчиненных таблиц записи с соотв. значением, указывающем на главную запись и в конце удаляешь соотв. запись из главной таблицы.

Зная id из главной таблицы ,как

[lmikle]

Сообщение от Maks19

Зная id из главной таблицы ,как

Ну есть же у тебя какое-то поле, по которому осуществляется связь таблиц. Вот оно и является id записи в главной таблице...

[Maks19]

Код:

Table3.Delete

Код удаляет только одну запись. Подскажите, как удалить записи (не вообще все в таблице) с нужным id? Может в цикле надо ?

[lmikle]

Ага, именно в цикле.
Тут интересный вопрос, что у тебя в таблице. Если она уже отфильтрована что бы показывать только те записи, которые тебе нужны, то просто надо удалить все записи. Если же там вообще все записи, то тогда надо делать проверку. Например, как-то так (код не проверял):

Код:

Table3.first;
while not Table3.eof do
  if Table3.FieldByName('...').AsInteger = ... // условие на поиск записи, которые надо удалять
    Then Table3.Delete
    Else Table3.Next;