Фильтрация данных по запросу из БД

[ozarnik585]

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

Procedure TForm1.Setfilter2;   // Фильтрация данных.
Var  Locopts:   tlocateoptions;
Begin
If CheckBox5.Checked then
With Query1 do
Begin
Filteroptions:=Filteropts;
Filter:=Filterstr;
Filtered:=True;
End
Else
Query1.Filtered:=False;
End;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
Setfilter2;
end;

end.

Вот исходник: http://file.qip.ru/file/122760997/fe...hi_150310.html