Связи таблиц и обеспечение целостности FireBird

[Lokos]

Здравствуйте.
У меня есть три таблички Tab1,Tab2,Tab3
у всех трех таблиц есть первичные ключи Id которые заполняются при помощи генераторов. Вопрос в следующем как обеспечить целостность данных в этих таблица то есть если данные добавляются в Tab1 то и должны добавляться в Tab2 и Tab3 если этого не происходит то транзакция не подтверждается. Я так понимаю что нужно установить отношения между таблицами и сделать внешние ключи но вот как это сделать в IBExpert? В Accese это просто. И как добавить данные в связные таблицы. Я так думаю делать это нужно одним запросом если можно пример.
Спасибо.

[Lokos]

Сделал следующее создал 3 таблички
Tb1 поля ID, TB2_ID, TB3_ID
Tb2 поля Id, tel
Tb3 поля Id, name
Выставил в Tb1 внешние TB2_id и Tb3_Id b соответственно указал соответствующие поля id в табличках юзаю след код

pfbqry.Close;
   pfbqry.SQL.Text:='insert into Tb2 (tel,id) values(2,2)' ;
   pfbqry.ExecQuery;
   pfbqry.Transaction.Commit;
   pfbtrnsctn1.Active:=True;
    pfbqry.Close;
   pfbqry.SQL.Text:='insert into Tb3 (id,name) values(2,2)' ;
   pfbqry.ExecQuery;
   pfbqry.Transaction.Commit;
   pfbtrnsctn1.Active:=True;
    pfbqry.Close;
    pfbqry.SQL.Text:='insert into Tb1 (id,id_tb2,id_TB3) values(null,2,2)' ; ;
   pfbqry.ExecQuery;
   pfbqry.Transaction.Commit;

если первые две транзакции не выполняются 3 не выполняется так же соответственно это говорит об ошибке что какая то из транзакций не выполнилась как можно это все дело как то объединить или выполнять в одном запросе чтоб если что то не выполнилось то данные не добавлялись не в одну табличку в моем примере если выполнится одна из первых транзакций то данные запишется в табличку и произойдет ошибка

[evg_m]

ОДНА транзакция на все три запроса. Если во время выполнения что-то не так, то откат (rollback).

try
   pfbqry.Transaction.BegTransaction;
  pfbqry.SQL.Text:='insert into Tb2 (tel,id) values(2,2)' ;
   pfbqry.ExecQuery;
//   pfbqry.Transaction.Commit;
   pfbtrnsctn1.Active:=True;
    pfbqry.Close;
   pfbqry.SQL.Text:='insert into Tb3 (id,name) values(2,2)' ;
   pfbqry.ExecQuery;
//   pfbqry.Transaction.Commit;
   pfbtrnsctn1.Active:=True;
    pfbqry.Close;
    pfbqry.SQL.Text:='insert into Tb1 (id,id_tb2,id_TB3) values(null,2,2)' ; ;
   pfbqry.ExecQuery;
   pfbqry.Transaction.Commit;
except
   pfbqry.Transaction.rollBack;
end;

[Lokos]

Я правильно понимаю я могу хоть 10 запросов выполнить типо

pFIBQuery.Sql.text:='........';
pFibQuery.ExecQury;
........................................
pFIBQuery.Sql.text:='........';
pFibQuery.ExecQury;
//после чего подтвердить транзакцию и изменения вступят в силу
pFibQuery.Tranzaction.Commit;

Так?

[evg_m]

//после чего подтвердить транзакцию и изменения вступят в силу
pFibQuery.Tranzaction.Commit;

Именно так.

[Lokos]

нет такого метода

pfbqry.Transaction.BegTransaction;

[Lokos]

Возникла следующая проблема.
Код

try
            AddNedObject_ARENDA_PARAM();
            AddObjectNed_UR_PARAM_TABLE();
            AddObjektNed_GEO_PARAM_TABLE();
            AddObjectNed_TECHNIKAL_PARAM();
            AddObjectNed_STAT_PARAM_TABLE();
            DM1.FIBT.Active:=True;
            DM1.FIBQ.Transaction.Commit;
            ShowMessage('Данные успешно добавлены!');
            OtchistkaNed();
         finally
            DM1.FIBT.Active:=True;
            DM1.FIBQ.Transaction.Rollback;
            ShowMessage('Произошла ошибка данные не добавлены!');
         end;

если в функциях возникает какая то ошибка то происходит откатка транзакции и данные в таблицы не добавляются но счетчик генераторов увеличивается(( Как это можно исправить.

если в функциях выполняется все нормально и данные добавляются то блок finally все равно выполняется и появляется сообщение о том что данные не добавлены(((

[Lokos]

заменил finally на exept
Сообщение стало появляться только тогда когда происходит ошибка а не в любом случае. Но осталась проблема с счетчиками их индексы не откатываются как можно решить данный казус

[Serge_Bliznykov]

Но осталась проблема с счетчиками их индексы не откатываются как можно решить данный казус

Коллега, поверьте мне - никакой проблемы тут нет.
Счётчики можно использовать только для внутреннего употребления (например, в качестве ключей). При этом всё, что от них требуется - это уникальность в пределах таблицы. и всё.
Если же Вы привязались к этим счётчикам - то Вы сделали ошибку. меняйте свои алгоритмы (если это возможно)...

p.s. подумайте, например, а что будет с счётчиками, если пользователь добавил запись ошибочно и захочет её удалить...
Особенно, если это не крайняя запись...