[srr]

Помогите плз с вводом в DBEdit, чтобы ругалось, что "такой номер прибора уже существует". База пока Access, ADOConnect, ADOQuery.

[Interface]

Я в ваших "базах" ниче не понимаю... Зато могу помочь с ограничением ввода в Edit:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,'0'..'9']) then Key := #0; // Пишем циферки
end;
...
Procedure Button1.Click...
var
nomera : array of Integer; //масив "номеров" (его надо перед implementation прописывать)
KolvoNomerov, a : Integer; // всего номеров.
begin
For a := 0 to KolVoNomerov do // цикл проверки
If StrToInt(Edit1.Text) = Nomera[a] then
MessageBox(Form1.Handle,Такой номер прибора уже существует!','Ошибка!', 0);
// выводим ошибку

Повторюсь ... я в базах я 0!
Надеюсь я помог...
P.S. И зачем вам нужны эти DBEdit ы ...

[Interface]

Я в ваших "базах" ниче не понимаю... Зато могу помочь с ограничением ввода в Edit:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,'0'..'9']) then Key := #0; // Пишем циферки
end;
...
Procedure Button1.Click...
var
nomera : array of Integer; //масив "номеров" (его надо перед implementation прописывать)
KolvoNomerov, a : Integer; // всего номеров.
begin
For a := 0 to KolVoNomerov do // цикл проверки
If StrToInt(Edit1.Text) = Nomera[a] then
MessageBox(Form1.Handle,Такой номер прибора уже существует!','Ошибка!', 0);
// выводим ошибку

Повторюсь ... я в базах я 0!
Надеюсь я помог...
P.S. И зачем вам нужны эти DBEdit ы ...
----------------------------------------------------------------------------------
Админ!
Сдеайте плиз так что б ТАК не получалось!!! ="(((

[lmikle]

Ставишь 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;