Проверка при внесении данных

[RoZi]

Есть два dblookupcombobox, datetimepicker ну и таблица в которую с них вносятся данные отображает все это дело DBGRID база Paradox, а если допустим у нас есть уже такая строчка с такими данными(уже внесена фирма с определенным товаром на определенную дату), то должна программы выдавать ошибку.. как проверку сделать по этим трем показателям?? что-то у меня провал в мозгу не могу сообразить...

[artemavd]

Покажите кусок вашего кода. Так будет легче что-то придумать.

[RoZi]

на проверку еще что-то ничего не придумала, но это должно быть в этом куске:

with datamodule4.rinok_t do
begin
open;
insert;
if Edit2.Text = '' then showmessage ('Не все поля заполнены!') else begin
if dblookupcombobox1.Text = '' then showmessage ('Не все поля заполнены!') else begin
if dblookupcombobox2.Text = '' then showmessage ('Не все поля заполнены!') else begin
fieldbyname('Date').asstring:=datetostr(datetimepicker1.Time);
fieldbyname('Cena').asstring:=form5.Edit2.Text;
fieldbyname('Firma').asstring:=datamodule4.firma_t.FieldValues['Naimenovanie'];
fieldbyname('Naimenovanie').asstring:=datamodule4.tovar_t.FieldValues['Naimenovanie'];

post;

проверка должна проводиться по дате, фирме и наименованию, если строчка с данными которые мы пытаемся ввести существует то выдается ошибка.. не могу понять как вообще такую проверку можно сделать..

[ArtInt]

Первый вариант это проверять через цикл, но если много записей не выход, очень долго
Второй вариант через фильтрацию и если после сделанной фильтрации количество записей больше 0, то значит запись есть и ее не надо добавлять.
Третий вариант через SQL Запрос, там также, если записей больше 0, то не добавлять.
Например,

Adotable1.filter:='date='+quotedstr(Date.Text)+' and firma='+quotedstr(Firma.text)+' and name='+quotedstr(Name.txt);
AdoTable1.filtered:=True;
if Adotable1.recordcount=0 then
begin
Adotable1.insert;
{поля для присваивания}
Adotable1.post;
end;
Adotable1.filtered:=False;

Где то примерно так, при фильтрации посмотрите может скобки понадобятся.

[RoZi]

делаю

if (datamodule4.rinok_t.Locate('Firma',dblookupcombobox1.Text,[loCaseInsensitive,loPartialKey]))
 and (datamodule4.rinok_t.Locate('Date',datetostr(DateTimePicker1.Time),[loCaseInsensitive,loPartialKey]))
 and (datamodule4.rinok_t.Locate('Naimenovanie',dblookupcombobox2.Text,[loCaseInsensitive,loPartialKey]))
then showmessage ('ТАКИЕ ДАННЫЕ СУЩЕСТВУЮТ!') else begin
...

не срабатывает второй and первые отборки делает третью нет. Причем меняю местами опять не срабатывает последний.

[Stilet]

А почему бы не попробовать сделать уникальный индекс по этому полю, тогда в БД просто не сможет добавится повторяющееся значение.

[artemavd]

А почему бы не попробовать сделать уникальный индекс по этому полю, тогда в БД просто не сможет добавится повторяющееся значение.

То есть поле с ID сделать автоинкриментным?

[Stilet]

То есть поле с ID сделать автоинкриментным?

Нет. Именно уникальный индекс.
http://ru.wikipedia.org/wiki/Индекс_(базы_данных)

Уникальный индекс реализует ограничение целостности на таблице, исключая возможность вставки повторяющихся значений.

[artemavd]

Stilet, ссылка не работает . Текст отсутстствует.

[Serge_Bliznykov]

Stilet, ссылка не работает

а так??
Индекс (базы данных)