Поставить уникальный констрейнт на нужное поле - пусть база сама все проверяет. Если очень уж хочется сделать все руками, то можно вычитать все коды в список TStringList, потом перед вставкой просто делать IndexOf. Только не забудь после успешной всатвки довабить в список введенный код.
|