DBGRID одинаковые строки

[flyinsky]

Здраствуйте всем. Есть у меня DBgrid данные в него ввожу через Edit

 begin
datamodule1.ADOTable4.Append;
datamodule1.ADOTable4.FieldByName('Фамилия').AsString:=edit1.text;
datamodule1.ADOTable4.FieldByName('Имя').AsString:=edit2.text;
datamodule1.ADOTable4.FieldByName('Отчество').AsString:=edit3.text;
datamodule1.ADOTable4.FieldByName('Документ').AsString:=combobox1.Text;
datamodule1.ADOTable4.FieldByName('Номер').AsString:=edit4.text;
datamodule1.ADOTable4.Post;
      end;

Возник вопрос - Как запретить ввод в Грид, если у меня в Гриде уже существует строка с теми данными которые я собираюсь туда добавить
и видя это Грид проигнорировал бы ввод данных, а просто выделил существующюю строку. Заранее благодарен за ответы

[vovk]

сначала провести поиск,если соответствий не найдено, то записывать.
используя Locate

if not ADOTable1.Locate('Фамилия;Имя;Отчество;Документ;Номер',VarArrayOf([Edit1.Text,Edit2.Text,edit3.text,combobox1.Text,edit4.text]),[loCaseInsensitive,loPartialKey]) then
 begin
datamodule1.ADOTable4.Append;
datamodule1.ADOTable4.FieldByName('Фамилия').AsString:=edit1.text;
datamodule1.ADOTable4.FieldByName('Имя').AsString:=edit2.text;
datamodule1.ADOTable4.FieldByName('Отчество').AsString:=edit3.text;
datamodule1.ADOTable4.FieldByName('Документ').AsString:=combobox1.Text;
datamodule1.ADOTable4.FieldByName('Номер').AsString:=edit4.text;
datamodule1.ADOTable4.Post;
 end;

используя Lookup

if ADOTable1.Lookup('Фамилия;Имя;Отчество;Документ;Номер',VarArrayOf([Edit1.Text,Edit2.Text,edit3.text,combobox1.Text,edit4.text]),'Фамилия')<>null then
Showmessage('такая запись уже есть')
else
 begin
datamodule1.ADOTable4.Append;
datamodule1.ADOTable4.FieldByName('Фамилия').AsString:=edit1.text;
datamodule1.ADOTable4.FieldByName('Имя').AsString:=edit2.text;
datamodule1.ADOTable4.FieldByName('Отчество').AsString:=edit3.text;
datamodule1.ADOTable4.FieldByName('Документ').AsString:=combobox1.Text;
datamodule1.ADOTable4.FieldByName('Номер').AsString:=edit4.text;
datamodule1.ADOTable4.Post;
end;

правда используя Lookup курсор не перемещается на найденую запись

[SERG1980]

А не легче при создании БД запретить ввод повторяющихся значений. И тогда не надо никаких проверок

[vovk]

Сообщение от SERG1980

А не легче при создании БД запретить ввод повторяющихся значений. И тогда не надо никаких проверок

Это даже нужно, но проверка и перемещение на существующую запись, или сообщение о том что такая запись есть, предпочтительнее сообщения об ошибке. Мне так кажется по крайней мере)
В общем одно другому не мешает, уникальный ключ обеспечит уверенность в нормальном содержании таблицы, а проверка даёт возможность настраивать поведение приложения при попытке добавить клон уже существующей записи.

[SERG1980]

Ну опять же добавление записи можно заключить в блок try except и там сообщить что запись есть. Просто лишние проверки особенно в большой БД на мой взгляд не очень хорошо

[flyinsky]

to Vovk
Спасибо за помощь проблема решена.

to SERG1980
Возьму на заметку