исключить повтор в делфи

[murzinani]

В дипломной работе "Кадровый учет" в делфи одного и того же сотрудника можно принять на работу много раз. Как это исключить?

[yourself]

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

[Gladiator]

Или сделай запрос со всеми нужными условиями и пото проверь его на пустоту
if not query1.EOF then
showmessage('Этот работник уже был принят ранее на работу');

[GHO§T]

Я по быстрому придумал только на клик кнопки.
Создаешь кнопку с названием "Принять" или ещё что-нибудь.
Вот код:

var:
j:Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
j:=j+1;
if j>=2 then
showmessage('Вы уже приняты на эту работу');
end;
end.

[Gladiator]

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