фильтрация по части слова

[kate158]

привет!
вопрос таков - как сделать фильтр по части слова в ehlib?

[Mad_Cat]

если это связано с БД то sql-евский LIKE вам в помощь

[kate158]

насчет like все ясно, но как переделать имеющуюся фильтрацию в ehlib?

[Stilet]

Как понять твои слова?
EhLib это библиотека, в нее нельзя передать такое.
И почему тебе не использовать SQL запросы? Компоненты вообще-то не очень хорошо работают с фильтрацией

[kate158]

Stilet,Mad_Cat, правильно ли я понимаю: фильтрацию вы предлагаете сделать с помощью edit полей и нажатия какой нить кнопки "выполнить"?

[Serge_Bliznykov]

Катенька, рекомендую посмотреть в сторону события OnFilterRecord (у Dataset'а есть такое событие)
в нём Вы можете проверять текущую запись на что угодно - и выставлять признак, отображать эту запись или нет...

p.s. не факт, что на больших объёмах это будет очень быстро...


________

Добавлено

А ещё можно использовать LIKE в фильтрации:
Пусть наш запрос находится в DataSet с именем AdoQuery2
Кидаем на форму TEdit с именем edFilterName
и чек-бок (включать/выключать фильтрацию) с именем cbNameLikeFilterOn
на собития OnClick чекбокса и OnChange поля edit назначаем один и тот же код.

procedure TForm1.FilterNomer;
begin
  if cbNameLikeFilterOn.Checked
       and (Trim(edFilterName.Text)<>'')  then begin
    AdoQuery2.Filtered := false;
    AdoQuery2.Filter := ' nomer Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*');
    AdoQuery2.Filtered := true;
  end
  else begin
    AdoQuery2.Filtered := false;
  end;
  laCount.Caption := 'Количество записей: '+
     IntToStr(ADOQuery2.RecordCount);
end;

[kate158]

ОК.Сергей, все ясно.
что делать, в случае, если я хочу по одному edit полю фильтровать 3 столбца в таблице - по фамилии,или по имени или по отчеству?

[Stilet]

Filter:='[Фамилия] like '+QuotedStr('%'+Edit1.Text+'%')
+' AND '+[Имя] like '+QuotedStr('%'+Edit1.Text+'%')
+' AND '+[Отчество] like '+QuotedStr('%'+Edit1.Text+'%');

Но ИМХО лучше доверить это SQL запросу а не компонентам Борланда.

[kate158]

dm.people.Filter := 'name Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*'
+'or SECOND_name Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*'));

ошибка "аргументы имеют неверный тип,выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"

т.е. нужно в одном поле искать либо имя, либо фамилию.
допустим пользователь знает либо только имя, либо только фамиилию

[Serge_Bliznykov]

Если Вы обратите внимание, то у меня специально добавлена проверка на НЕ ПУСТОТУ поля со значением!

И со скобками напутали.
Где закрывающая скобка первого QuotedStr ??!!

а ещё пробел перед OR явно не помешает!

Попробуйте так:

if Trim(edFilterName.Text)<>'' then
  dm.people.Filter := 'name Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*')
+' or SECOND_name Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*');