Поиск в DBGrid

[MarainXK]

Прошу вас о помощи... Выдали курсовые, мне выпала тема создать бд... Мы эту тему не успели пройти, препод ничего почти не хочет объяснять... Я почти все сделал, сейчас проблемы с поиском, например по фамилии. Подскажите как его сделать. Бд подгружается из файла с расширением cds. саму программу прикреплю к сообщению. помогите как сделать поиск

[Yurk@]

поиск по форуму по словам Locate и Filter

[viks1]

procedure TForm5.BfindClick(Sender: TObject);
begin
if tip.Checked then
begin
 if not DataModule6.tovar.Locate('Код типа', Efind.Text, []) then
    ShowMessage('Запись не найдена');
end
else
if firma.Checked then
begin
 if not DataModule6.tovar.Locate('Код фирмы', Efind.Text, []) then
    ShowMessage('Запись не найдена');
end
else
if model.Checked then
begin
  if not DataModule6.tovar.Locate('Модель', Efind.Text, []) then
    ShowMessage('Запись не найдена');
end
else
if cena.Checked then
begin
   if not DataModule6.tovar.Locate('Цена', Efind.Text, []) then
    ShowMessage('Запись не найдена');
end else


end;

Подставь свои имена таблиц в значения и все

[Yurk@]

viks1, если использовать RadioGroup - то логичнее вместо if ... else использовать case RadioGroup.ItemIndex of и дальше соответственно по тексту