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

Тема в разделе "Delphi - Базы данных", создана пользователем alexxx, 14 авг 2006.

Статус темы:
Закрыта.
  1. alexxx

    alexxx Гость

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

    maxshuv Гость

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


    Код (Text):
    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;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей