Не работает проверка

[King_Of_Arthur]

Суть такая есть форма заполнения таблицы "Подразделения мест работы". У таблицы есть уникальный код PMR. Когда сотруднику присваивается подразделение места роботы (например он работает на Заводе а подразделением Цех 1). После присваивания уникальный код отображается в двух других таблицах NNlK и NWORK. Для удобства проверки наличия кода PMR эти таблицы помещены в Техническую таблицу (в ней прописано название таблиц и код PMR).
Так вот в чем вопрос я делаю проверку

procedure TF_PMR.ToolButton2Click(Sender: TObject);
begin
Q1.Close;
Q1.DatabaseName:='ARENA_';
Q1.SQL.Clear;
Q1.SQL.Add('Select * from TECH_UP Where TIP=3');
Q1.Open;
 While not Q1.Eof do begin
 Q2.Close;
 Q2.DatabaseName:='ARENA_';
 Q2.SQL.Clear;
 Q2.SQL.Add('Select * from '+ q1.fieldbyname('NM_TDB').asstring);
 Q2.SQL.Add('Where '+q1.fieldbyname('NM_POLE1').asstring+'='+M_PMR.FieldByName('pmr').AsString);
 Q2.Open;
   Q1.Next;
    end;
  if Q2.RecordCount>0 then
   ShowMessage('Нельзя удалить запись');
    if Q2.RecordCount=0 then
 
   begin
   Q2.Close;
   Q2.SQL.Clear;
   Q2.SQL.Add('DELETE from N_PMR ');
   Q2.SQL.Add('Where pmr='+M_PMR.FieldByName('pmr').AsString);
   Q2.ExecSQL;
   M_PMR.Delete;
end;
end;

В проверке в случае если есть код то нельзя удалить а если нету то запись удаляется.
Я уже такую проверку делала для другой таблице все нормально.
А в этом примере запись удаляется даже если она есть в таблице NNlK. Может здесь че не так подскажите пожалуйста.

Техническая таблица примерно так выглядит по этой таблице идет проверка



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[eval]

код отображается в двух других таблицах NNlK и NWORK

Что это означает?

эти таблицы помещены в Техническую таблицу

а это?

для чего нужна какая-то "Техническая" .. не раскрыто.

[King_Of_Arthur]

Ну вот есть еще форма заполнения сотрудника и когда для него указывается подразделение места работы то это отображается в таблицах NNlK и NWORK (только отображается не наименование подразделения а его код PMR)

А техническая таблица для осуществления запросов, проверок там хранятся наименования таблиц и полей по которым осуществляется запрос.

как то так

[eval]

ничего не понятно
я б такую техническую удалил и дело с концом.

[King_Of_Arthur]

не льзя ее удалить. Я пробовала написать чтоб он проверял в каждой из таблиц но как зделать концовку на удаление не знаю

NNlK отображается код PMR и когда я делаю запрос только по этой таблицы то все нормально а NWORK ваще пустая но там есть поле PMR и когда я делаю по обойм таблицам проверку то запись удаляется

NNlK-это таблица PPLK, забыла просто название соответственно NWORK- это PWORK. TECH_UP-это техническая таблица через которую я и делаю проверку. M_PMR-это таблица памяти kbmMemTable, ну а N_PMR- это таблица подразделения мест работы.

[eval]

ай донт андэрстэнд
все много проще, вам надо показать тут вашу структуру, и желательно данные, и одним-двумя предложениями рассказать чего надо сделать, только не то как вы это себе представляете а то что требуется
в таком случае помощь более вероятна

[King_Of_Arthur]

какую структуру?

[Аватар]

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

какую структуру?

Таблиц и их связей и в нормальном виде

[Airhand]

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

[King_Of_Arthur]

Спасибо всем особенно Airhand тебе я ввела переменную и все как по маслу ну мне еще помогли вообщем все работает всем спасибо