дублирование строк в таблице

[windrun]

Доброе время суток!

Задание заключается в том, что нужно избежать повторного добавления идентичных данных в строки.(тоесть если нажимаем кнопку добавить, а такие данные уже есть-тонужно вывести ошибку):

procedure TForm15.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

procedure TForm15.Button1Click(Sender: TObject);
begin
IBTable3.Append;
IBTable3.FieldByName('ID').AsIntege r := 0 ;
IBTable3.FieldByName('koliziya').As String := LabeledEdit2.Text;
IBTable3.FieldByName('IDKOMP').AsSt ring := DBLookupComboBox1.KeyValue;
IBTable3.FieldByName('IDKOMP2').AsS tring := DBLookupComboBox2.KeyValue;
IBTable3.post;
ShowMessage('Óñïåøíîå îáàâëåíèå ïðàâèëà' );
end;

procedure TForm15.ComboBox1CloseUp(Sender: TObject);
begin
IBTable1.close;
IBTable1.TableName := ComboBox1.Text;

IBTable1.open;
IBTable1.next;
IBTable1.next;
IBTable1.next;
IBTable1.next;
IBTable1.next;
end;

procedure TForm15.ComboBox2CloseUp(Sender: TObject);
begin
IBTable2.close;
IBTable2.TableName := ComboBox2.Text;

IBTable2.open;
IBTable2.next;
IBTable2.next;
IBTable2.next;
IBTable2.next;
IBTable2.next;
end;

procedure TForm15.DBLookupComboBox2Click(Send er: TObject);
begin

end;

end.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор