Показать сообщение отдельно
  #4  
Старый 06.11.2008, 18:47
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ставишь UNIQUE на поле с номером.
При сохранении тебе база ругнется, если попытаешься вставить уже существующий. Только останется понять что за ругань идет и вывести человеческое сообщение. Для начала просто выводи то, что выдает тебе база, там посмотришь как можно определить. Обычно в этом случае появляется сообщение типа Violation unique contraint bla-bla-bla... (bla-bla-bla - имя ограничения).

Т.е. для начала одлжно выглядеть так:
Код:
Try
   ADOQuery1.Post;
Except
  On E : Exception Do
    Begin
       ShowMessage('Ошибка: ' +E.Message);
       // Add additional code here...
    End;
End;
Ответить с цитированием