Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Фильтрация по нескольким полям

Автор: Лиходей 11.10.2008, 09:01

Есть шесть полей вводда (Edit) для задания условия на фильтрацию, причем каждое из полей может быть пустым, лишь бы одно из полей было заполнено.
Применяю следующую конструкцию:

Код


ADOTable1.Filtered:=false;
ADOTable1.Filter:='Имя _поля1 LIKE '+  #39 + Edit1.Text + '%' + #39 +' AND '+'Имя _поля2 LIKE '+  #39 + Edit2.Text + '%' + #39  ......;
ADOTable1.filtered:=true;

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

Как пользоваться OnFilterRecord знаю, но в таблице 300.000 тысяч записей и Filter намного шустрее работает.

Автор: vovk 11.10.2008, 15:14

Можно сделать набор фильтра типа

Код


var
fltr:string;
.
...
begin
ADOTable1.Filtered:=false;
fltr:='';
if  (Edit1.Text<>'') then
      begin
if fltr<>'' then fltr:=fltr+' and '+'Имя _поля1 LIKE '+  #39 + Edit1.Text + '*' + #39;
if fltr=''   then fltr:='Имя _поля1 LIKE '+  #39 + Edit1.Text + '%' + #39;
      end;
if  (Edit2.Text<>'') then
      begin
if fltr<>'' then fltr:=fltr+' and '+'Имя _поля2 LIKE '+  #39 + Edit2.Text + '%' + #39;
if fltr=''   then fltr:='Имя _поля2 LIKE '+  #39 + Edit2.Text + '%' + #39;
      end;
.....
...
..
.
ADOTable1.Filter:=fltr;
ADOTable1.filtered:=true;
end;

Неизящно но работать должно да и доработать можно

Автор: Лиходей 11.10.2008, 18:13

vovk спасибо за идею. Немного переделал ваш пример. Все работает.

Код


var filtr, add: string;
begin
ADOTable1.filtered:=false;
filtr:='';
if length(edit1.text) > 0 then
  filtr:= 'Имя_поля1 LIKE '+  #39 + Edit1.Text + '%' + #39;

if length(edit2.text) > 0 then
begin
  if length(filtr) > 0 then add:= ' and ' else add:='';
  filtr:=filtr + add + 'Имя_поля2 LIKE '+  #39 + Edit2.Text + '%' + #39;
end;

.....................

  if length(filtr) > 0 then
  begin
    ADOTable1.Filter:= filtr;
    ADOTable1.filtered:=true;
  end
  else Showmessage('Все поля пусты!');

end;

Формируется строка фильтра неизящно, как вы говорите, зато фильтрует быстро. Без проверки полей на наличие\отсутствие данных все равно не обойтись. Еще раз спасибо.

Автор: MMihan 16.12.2011, 23:35

Тоже по благодарю за пример.. но есть пару вопросов.. что такое #39 и почему то ругается всегда на первый едит.. если стираем его второй :НЕ удается Открыть Фильтр.. не подскажите в чем причина может быть..

Автор: Данкинг 16.12.2011, 23:44

Цитата(MMihan @ 17.12.2011, 00:35

)

что такое #39

Код одинарной кавычки - '

Автор: MMihan 16.12.2011, 23:55

спасибо..

Автор: Данкинг 17.12.2011, 00:03

А что должно куда вылетать? Я в примеры-то не вникал. Да и лучше запрос с условием использовать вместо фильтра. Кстати, СУБД какая?

Автор: MMihan 17.12.2011, 00:09

все разобрался Null не надо...

акцесс...
sql запросом делал все отлично работало... но столкнулся с проблемой .. что фильтровка и сортировка... сбивают друг друга.. .. результат отображается в Dbgrid..

например хота сделать по выбору Радио буттнон сортировка по ФИО или по Серийному номеру.. и тут же делаем запрос на поиск.. то они сбивали друг друга.. Совместить такое у меня не получилось.. опыта очень мало и знаний

например был такое запрос

Код


with ADOQuery1 do
     begin


Close;
SQL.Clear;
  SQL.Add('select *' ) ;
  SQL.Add('from Клиент');
  SQL.Add('where ((КЛ  LIKE '''+Edit1.Text+'%'') AND (ФИО  LIKE   '''+Edit2.Text+'%'' OR ФИО IS NULL )  
AND (Оборудование  LIKE   '''+Edit4.Text+'%'' OR Оборудование IS NULL) 
AND (Телефон  LIKE   '''+Edit3.Text+'%'' OR Телефон IS NULL)  AND (Дата > :dt1  AND Дата <:dt2 ) )');
Parameters.ParamByName('dt1').Value:=DateToStr(DateTimePicker1.DateTime);
Parameters.ParamByName('dt2').Value:=DateToStr(DateTimePicker2.DateTime);
   Active:=true;
 DSSearchDoc.DataSet:=ADOQuery1;
 DbGrid1.DataSource:=DSSearchDoc;
ADOQuery1.FieldByName('Внешний вид').Visible:=false;
 DbGrid1.Fields[0].DisplayLabel:='Номер';

   end;

и вот такая процедура сортировки...

Код



procedure TMForm.RadioGroup1Click(Sender: TObject);


   Begin
 //ADOQuery1.Close;
ADOQuery2.SQL.Clear;
  case RadioGroup1.ItemIndex of
0: ADOQuery2.sql.add('select * from Клиент order by КЛ');
1: ADOQuery2.sql.add('select * from Клиент order by ФИО');
2: ADOQuery2.sql.add('select * from Клиент order by Оборудование');
3: ADOQuery2.sql.add('select * from Клиент order by Дата');
4:ADOQuery2.sql.add('select * from Клиент order by КЛ');

end;

begin

  ADOQuery2.Active:=true;
   DSSearchDoc.DataSet:=ADOQuery2;
   DbGrid1.DataSource:=DSSearchDoc;
end;


end;

Автор: Данкинг 17.12.2011, 00:11

Цитата(MMihan @ 17.12.2011, 01:09

)

что фильтровка и сортировка... сбивают друг друга

Если их вместо использовать - то конечно.

Автор: MMihan 17.12.2011, 00:16

а подскажите пожалуйста как в эту процедуру фильтрования вставить Сортировку

Код


procedure TMform.SearchDoc(Sender: TObject);


//  case RadioGroup1.ItemIndex of
//0: ADOTAble1.sort:='КЛ';
//1: ADOTAble1.sort:='ФИО';
var
fltr:string;

begin
ADOTable1.Filtered:=false;
fltr:='';
if  (Edit1.Text<>'') then
      begin
if fltr<>'' then fltr:=fltr+' and '+'КЛ LIKE '+  #39 + Edit1.Text + '%' + #39; ;
if fltr=''   then fltr:='КЛ LIKE '+  #39 + Edit1.Text + '%' + #39;
      end;
if  (Edit2.Text<>'') then
      begin
if fltr<>'' then fltr:=fltr+' and '+'ФИО LIKE '+  #39 + Edit2.Text + '%' + #39;
if fltr=''   then fltr:='ФИО LIKE '+  #39 + Edit2.Text + '%' + #39;
      end;

      if  (Edit3.Text<>'') then
      begin
if fltr<>'' then fltr:=fltr+' and '+'Оборудование LIKE '+  #39 + Edit3.Text + '%' + #39;
if fltr=''   then fltr:='Оборудование LIKE '+  #39 + Edit3.Text + '%' + #39;
      end;
      if  (Edit4.Text<>'') then
      begin
if fltr<>'' then fltr:=fltr+' and '+'Телефон LIKE '+  #39 + Edit4.Text + '%' + #39;
if fltr=''   then fltr:='Телефон LIKE '+  #39 + Edit4.Text + '%' + #39;
      end;
      if  (Edit5.Text<>'') then
      begin
if fltr<>'' then fltr:=fltr+' and '+'SN LIKE '+  #39 + Edit5.Text + '%' + #39;
if fltr=''   then fltr:='SN LIKE '+  #39 + Edit5.Text + '%' + #39;
      end;

ADOTable1.Filter:=fltr;
ADOTable1.filtered:=true;
end;

и что то не знаю как с ДАтой поступить..

Автор: Данкинг 17.12.2011, 00:25

Цитата(MMihan @ 17.12.2011, 01:16

)

а подскажите пожалуйста как в эту процедуру фильтрования вставить Сортировку

А кто сказал, что её можно вставить в фильтр?

Цитата(MMihan @ 17.12.2011, 01:16

)

и что то не знаю как с ДАтой поступить..

Преобразовать в текст, видимо.

Автор: MMihan 17.12.2011, 00:35

Спасибо разобрался сделал..
осталось 2 пробемы .. почему вылетает ошибка если искать по первому полю КЛ.. Ключ, счетчик
и дата.. в в самом фильтре преобраловать DateToStr(DateTimePicker2.DateTime)? и DateToStr(DateTimePicker1.DateTime) или же сачало нужно
в var
DateToStr(DateTimePicker1.DateTime)=dt1
DateToStr(DateTimePicker2.DateTime)=dt2

Автор: Данкинг 17.12.2011, 00:50

Цитата(MMihan @ 17.12.2011, 01:35

)

почему вылетает ошибка если искать по первому полю КЛ..

Какая ошибка?

Цитата(MMihan @ 17.12.2011, 01:35

)

в самом фильтре преобраловать

Ну, вероятно, в самом фильтре, в строке его формирования, а где ещё.

Автор: MMihan 17.12.2011, 00:55

Не удается открыть фильтр
делал
DateToStr(DateTimePicker2.DateTime) и DateToStr(DateTimePicker2.Date)

ошибка .. не соответсвие типов.. РРРРР ох уж эта дата))

Автор: Данкинг 17.12.2011, 00:58

А, ну так если это счётчик => поле числовое. А ты его с кавычками берёшь в фильтре.

Автор: MMihan 17.12.2011, 01:04

брр вроде нету лишних ' .. не пойму..

Автор: Данкинг 17.12.2011, 01:29

Каких таких лишних? Там кавычек вообще быть не должно равно как и LIKE, т.к. как-то так:

Код


fltr:='КЛ = '+ Edit1.Text;

Автор: MMihan 17.12.2011, 16:42

а нельзя сделать на подобие Like % .. ?

Автор: Данкинг 17.12.2011, 17:04

LIKE ищет вхождения текстовой строки в поле. Как ты представляешь это себе с числом?

Автор: Akella 17.12.2011, 17:33

Конвертировать (представить) число в строку и потом искать нужное вхождение в строке.

Автор: Данкинг 17.12.2011, 17:49

Цитата(Akella @ 17.12.2011, 18:33)

Конвертировать (представить) число в строку и потом искать нужное вхождение в строке.

Это понятно, только не могу представить, что за задача такая, где для отбора подходит как 11, так и 15471.

Автор: vovk 17.12.2011, 18:29

УУх круто реанимировали тему из 2008 и она актуальна))

Автор: Данкинг 17.12.2011, 18:32

Цитата(vovk @ 17.12.2011, 19:29

)

и она актуальна))

Так сессия же в разгаре. smile

Автор: MMihan 17.12.2011, 21:41

ну то представленное число совсем не так))...то что мне надо))) .. нвпример пишем число 2 ... и выводит все чо начинается на 2...

все это работало же у меня SQL запросом....

PS ..Ребят да ладно вам глумится.. не все сразу с въехали как нормально программировать..я свою прогу пререписываю 3 раз.. стараюсь сделать лучше .но все равно что то да не так

Автор: Данкинг 17.12.2011, 21:59

Цитата(MMihan @ 17.12.2011, 22:41

)

все это работало же у меня SQL запросом....

LIKE с числовым полем работал? smile

Цитата(MMihan @ 17.12.2011, 22:41

)

Ребят да ладно вам глумится..

А где ты глумления нашёл? Глумимся мы в "Центре помощи" обычно. smile

Цитата(MMihan @ 17.12.2011, 22:41

)

нвпример пишем число 2 ... и выводит все чо начинается на 2...

Вообще как с фильтром такое сделать - х/з. Запросом ты как делал?

Добавлено через 4 минуты и 40 секунд
Т.е. запросом будет так:

Код


AdoQuery.Sql.Add('SELECT * from test where left(cstr(КЛ),1)='+edit1.text);

Автор: MMihan 18.12.2011, 03:39

Код


ADOQuery1. SQL.Add('where ((КЛ  LIKE '''+Edit1.Text+'%'') AND..........