DBE Проверка на наличие связанных данных при удалении записи

[teapot]

Добрый день!

Создала с помощью DBE (Paradox 7) несколько таблиц, среди них есть связанные.

Сначала вопрос: как можно программно из главной таблицы перейти в подчинённую? Иначе говоря: допустим, у меня есть 20 таблиц, и всего одна из них подчинена главной. Использую компоненты DataSourse, TTable, DBGrid. Есть ли какое-то свойство у этих компонентов, чтобы обратиться напрямую к подчинённой таблице и с ней поработать? Гуглила, но безрезультатно.

А нужно это вот для чего.

Для связанных таблиц в настройках можно выбрать один из двух вариантов:
1) Prohibit - запрещено изменять значение ключевого поля головной таблицы или удалять из неё записи:
2) Cascade - при изменении значения ключевого поля головной таблицы изменится значение этого поля в подчинённой, а при удалении записи из головной таблицы будут удалены все записи в подчинённой таблице, в которой используется это значение.

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

В идеале, хотелось бы оставить опцию Cascade, но при попытке удалить запись проверять программно, используется ли её ключ в подчинённой таблице.

Буду очень благодарна за ответы!

[Serge_Bliznykov]

позволю себе маленькое уточнение:
думаю, что у Вас речь идёт о BDE (Borland DataBase Engine)

[teapot]

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

думаю, что у Вас речь идёт о BDE (Borland DataBase Engine)

Эм, ну да.

[Serge_Bliznykov]

имхо, Вам нужно сделать следующее.
1) поставить в свойствах связи "CASCADE" (это чтобы удаление можно было выполнить.
2) программно обеспечить так, чтобы ключи в головной таблице НЕ МЕНЯЛИСЬ.
При попытке удалить запись из головной таблицы программно на клиенте проверять, если ли записи в подчинённой таблице.
Если есть - выдавать ошибку и не удалять запись в головной таблице. Если же записей в подчинённой нет - выполнять удаление.
проверять можно через запрос:

select count(*) from ПодчинённаяТаблица 
where ПолеСвязиID = ID_в_головной_таблице;

p.s. кстати, прежде чем всё это мутить, а проверьте: имхо при задании свойства связи "Prohibit" из головной таблицы можно будет удалять записи, но только в том случае, если нет ссылок в подчинённой таблице. Т.е. именно то, что Вам и нужно!

[teapot]

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

проверять можно через запрос:

select count(*) from ПодчинённаяТаблица 
where ПолеСвязиID = ID_в_головной_таблице;

Собственно, я так и написала в результате - проверку при удалении. Правда, как использовать select в Парадоксе, так и не разобралась. Вручную таблицы просматривала.