Я в ваших "базах" ниче не понимаю...
Зато могу помочь с ограничением ввода в 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 ы ...
----------------------------------------------------------------------------------
Админ!
Сдеайте плиз так что б ТАК не получалось!!! ="(((