Помогите сделать фильтр

  • Автор темы alexxx
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

alexxx

#1
Есть поле Date, типа ДД.ММ.ГГ. Нужно сделать выборку всех записей за 2006г. Помогите,
пожалуйста, сделать фильтр. База данных-Paradox. Связь через BDE (TTable, TDataSource, TDBGrid)
 
M

maxshuv

#2
Вот пример фильтра.
Кстати не только по дате но и по другим полям.
Процедура фильтра StdFilter, процедура отмены фильтра CancelFilter


Код:
procedure TForm.FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if DataSet.Active then
Accept := Filter.FilterFormulaIsTrue;
end;

procedure TForm.StdFilter;	
var
Res: TModalResult;
begin
if(DS.State in [dsInsert,dsEdit]) then exit;
Res:= FilterDataSet(Filter);
if Res = mrOk then
begin
DS.OnFilterRecord:= FilterRecord;
DS.Filtered:= False;
DS.Filtered:= True;
end;
if DS.Filtered then NCancelFilter.Enabled:= True;
end;

procedure TForm.CancelFilter; 
begin
if (DS.State in [dsInsert,dsEdit]) then exit;
DS.Filtered := False;
if Filter <> nil then Filter.Filter.Clear;
NCancelFilter.Enabled := False;
end;
 
Статус
Закрыто для дальнейших ответов.