Не работает Filter. Не знаю, что делать...Т_Т

[Zerofill]

Здравствуйте! у меня такая проблема. необходимо отфильтровать таблицу БД по различным параметрам. (delphi 7, paradox). но при нажатии кнопки "отфильтровать", DBgrid пустеет.. в нем нет ни одной строки.

procedure TForm12.Button1Click(Sender: TObject);
var f,p1,p2:string;
begin
if (Edit1.Text='') and (Edit2.Text='') then MessageBox(0,'Введите пределы фильтрации','Ошибка',MB_OK)
else begin
      p1:=Edit1.Text;
      p2:=Edit2.Text;
      if radiogroup1.Visible then  begin
      case RadioGroup1.ItemIndex of
      0: f:='Date_placing<='+quotedstr(p1)+' and Date_placing>='+quotedstr(p2);
      1: f:='Date_confirming<='+quotedstr(p1)+' and Date_confirming>='+quotedstr(p2);
      2: f:='Job<='+quotedstr('%'+p1+'%')+' and Job>='+quotedstr('%'+p2+'%');
      3: f:='Salary<='+quotedstr('%'+p1+'%')+' and Salary>='+quotedstr('%'+p2+'%');
      4: f:='Experience<='+quotedstr(p1+'%')+' and Experience>='+quotedstr(p2+'%');
      end;{case}
      dm.Vacancy.Filtered:=true;
      dm.Vacancy.Filter:=f;
      dm.Vacancy.Active:=false;
      dm.Vacancy.active:=true;
      form1.DBGrid2.Refresh; end;........

vacancy - это таблица, кот следует отфильтровать. в radiogroup1 выбираются параметры фильтрации. информацию искала на разных форумах, разные учебники по дельфи смотрела. перепробовала множество вариантов.(и с OnFilterRecord тоже)....результат один - грид ничего мне не показывает. Что делать? Помогите пожалуйста...возможно посоветуете еще какой ресурс?

[vovk]

end;{case}
      dm.Vacancy.Filtered:=true;
      dm.Vacancy.Filter:=f;
      dm.Vacancy.Active:=false;
      dm.Vacancy.active:=true;
 form1.DBGrid2.Refresh; end;........

из всего этого нужно всего 2 строки, только поменять их местами

 dm.Vacancy.Filter:=f;    
 dm.Vacancy.Filtered:=true;

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

Вы в таких случаях, если не понятно что происходит, лучше на форму мемо добавляйте,
и вместо

 dm.Vacancy.Filter:=f;    
 dm.Vacancy.Filtered:=true;

пишите

memo1.text:=f;

если какието действия происходят с string то этого часто хватает чтоб увидеть свои ошибки.

[Zerofill]

Спасибо за помощь! все заработало. самая главная ошибка у меня была в самом условии фильтрации. было

'Date_placing<='+quotedstr(p1)+' and Date_placing>='+quotedstr(p2);

а надо
'Date_placing>='+quotedstr(p1)+' and Date_placing<='+quotedstr(p2);
просто первая часть была "от", а вторая часть после 'and' была с назначением "до"...

и еще я удалила '%'