На форме присутствуют компоненты DBGrid1, Table1, DataSource1, Edit1. Я написал следующий код для фильтрации в DBGrid1:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>0 then
Table1.Filtered:=true
else
Table1.Filtered:=false;

Table1.Filter:='Famil>'''+FindEdit.Text+'''';
end;

Проблема вот в чем. Разные глюки идут. Подскажите как лучше осуществить фильтрацию.
P.S. 1). Токо прошу подсказать при условии что Qyeru1 на форму не добовлять.
2). Или как грамотно добавить Qyeru1 и подключить как для осуществления фильтрации.

По-моему надо сначало задавать фильтр, а потом свойство Filtered в True или False

Код

Table1.Filter:='Famil>'''+FindEdit.Text+''''; if Length(Edit1.Text)>0 then Table1.Filtered:=true else Table1.Filtered:=false;

Попробую правда не знаю что получиться? А как еще можно задать фильтрацию кроме указанного способа, подскажите? Лучше с примером.

Цитата

Table1.Filter:='Famil>'''+FindEdit.Text+'''';

Ну как вариант, чтобы не заптаться с опострофами:

Код

Table1.Filter:='Famil>' + chr( 39 ) + Edit1.Text + chr( 39 );

У меня при всех вариантах что то фильтруется, но при этом фигня какаято выскакивает. А именно. Когда я отфилтровал по первому значению все ОК. Когда фильтрую по второму то остается и первое и второе отфильтрованное значение как будто фильтрация предыдущих значений гдето сохраняется. Люди - программисты помогите справиться с этой бедой. !! Плиз!

Покажи код двух фильтраций

Скорее всего после первой фильтрации ты не приводишь таблицу к первоначальному виду и фильтруешь уже оставшиеся записи. Или нет?

bFilterFilials - глобальная переменная
если true, то можно фильтровать



procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if bFilterFilials then
Accept := DataSet['ZFilial'] = lcbFilials.KeyValue;
end;

procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if DataSet['ZFilial'] = 'филиал' then
Accept := true;
end;

если Accept = true, то запись попадет в набор данных
и так попадут в набор данных все записи, которые имеют значение 'филиал' в поле 'ZFilial'




это событие срабатывает тогда, когда ты выполняешь фильтрацию, причем в свойсве
Filter не обязательно должно быть выражение фильтрации, просто выполняешь

Код
Table1.Filtered:=True


т.е. здесь можно фильтровать записи с помощью язывка высокого уровня, а не пятью операторами SQL


http://forum.vingrad.ru/index.php?showtopi...ead=1&hl=фильтр

Цитата(User @ 16.11.2004, 09:10)

У меня при всех вариантах что то фильтруется, но при этом фигня какаято выскакивает. А именно. Когда я отфилтровал по первому значению все ОК. Когда фильтрую по второму то остается и первое и второе отфильтрованное значение как будто фильтрация предыдущих значений гдето сохраняется. Люди - программисты помогите справиться с этой бедой. !! Плиз!

Вот и у меня то-же самое...

Коця, покажи код

procedure TForm1.Edit1Change(Sender: TObject);
begin

Table1.Filtered:=false;
Table1.Filter:='FIO>'''+Edit1.Text+'''';
if Length(Edit1.Text)>0 then
Table1.Filtered:=true
else
Table1.Filtered:=false;
end;

динамическая фильтрация

Код

procedure TForm1.Edit1Change(Sender: TObject); begin  Table1.Filtered:=False;  Table1.Filter:='LAST_NAME = '+QuotedStr(Edit1.Text+'*');  Table1.Filtered:=true; end;

Это сообщение отредактировал(а) dsergey - 17.2.2005, 16:25

чтоб при удалении символов с Едита фильтрация отменялать нада добавить

procedure TListClients.Edit1Change(Sender: TObject);
begin
Form1.Table1.Filtered:=False;
Form1.Table1.Filter:='LAST_NAME = '+QuotedStr(Edit1.Text+'*');
if Length(Edit1.Text)>0 then
Table1.Filtered:=true
else
Table1.Filtered:=false;
end;

А можно просто запросами, правда если у тебя таблица подключена через Query

begin
Query1.Active :=False;
Query1.TextSQL :='SELECT Телефон FROM NAME WHERE Телефон =:Edit1.Text';
Query1.Active :=True;
end;

Писал по памяти, так как дельфи под рукой нет, возможны ошибки.
Добавлено @ 11:12
Да забыл сказать, в самом Query нужно очищать список!
Query1.SQLText.Create; - вроде так

Код

procedure TfmFind.bbFindClick(Sender: TObject); Var S,dom,kv:String; begin  with fmMain do begin    if edFind.Text='' then begin      beep;      ShowMessage('Отсутствует текст для поиска');      edFind.SetFocus;    end else    begin      sbFilter.SimpleText:='Идет фильтрация...';      tPhone.Close;      dsPhone.DataSet:=qFilter;      qFilter.DisableControls;      //заменяем знак звезды на знак процента      s:=AnsiUpperCase(StringReplace(edFind.Text,'*', '%', [rfReplaceAll]));      Case cbFind.ItemIndex of        0: begin             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(tel) LIKE '+QuotedStr(s));             qFilter.Prepare;             qFilter.Open;           end;        1: begin             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(nam) LIKE '+QuotedStr(s));             qFilter.Prepare;             qFilter.Open;           end;        2: begin             if edDom.Text = '' then edDom.Text:='*';             if edKvart.Text = '' then edKvart.Text:='*';             dom:=StringReplace(edDom.Text,'*', '%', [rfReplaceAll]);             kv:=StringReplace(edKvart.Text,'*', '%', [rfReplaceAll]);             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(ul) LIKE '+QuotedStr(s)+' AND D LIKE '+QuotedStr(Dom)+ ' AND K LIKE '+QuotedStr(kv));             qFilter.Prepare;             qFilter.Open;           end;        3: begin             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(D) LIKE '+QuotedStr(s));             qFilter.Prepare;             qFilter.Open;           end;        4: begin             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(K) LIKE '+QuotedStr(s));             qFilter.Prepare;             qFilter.Open;           end;      end;//case      qFilter.EnableControls;      sbFilter.SimpleText:='Фильтрация закончена';    end;  end; end;

Цитата(dsergey @ 17.2.2005, 16:25)

динамическая фильтрация Код procedure TForm1.Edit1Change(Sender: TObject); begin  Table1.Filtered:=False;  Table1.Filter:='LAST_NAME = '+QuotedStr(Edit1.Text+'*');  Table1.Filtered:=true; end;

а как сделать фильтрацию по дате, от даты - до даты,
чтото типа

Код

Form1.Table1.Filter := 'podkl>'+QuotedStr(DBDateTimeEditEh1.Text) AND 'podkl<'+QuotedStr(DBDateTimeEditEh2.Text);

А почему никто не сказал ничего по поводу OnFilterRecord?
С этим событием можно отвязаться от любого синтаксиса
(звездочек там, процентиков...) и самому принимать решение
о фильтрации записи.

Бойцов А.А., лучше примеры бы привел.
Читай внимательнее:

Код

procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean); begin  if bFilterFilials then Accept := DataSet['ZFilial'] = lcbFilials.KeyValue; end; procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean); begin  if DataSet['ZFilial'] = 'филиал' then Accept := true; end;

Добавлено @ 17:15
В событии OnFilterRecord проверяется каждая запись.
Если запись удовлетворяет условию кода (т.е. Accept := True), то запись будет показана в сетке.
В этом событии можно выполнять очень сложные условия, включая и циклы и все, что позволяет язык программирования.
Есть недостаток - ресурсоемкость. На медленных машиных тормозит конкретно.

Это сообщение отредактировал(а) dsergey - 24.2.2005, 17:16

dsergey
А как соотносится использование OnFilterRecord с сетевым трафиком? На клиент все равно будут затягиваться все записи? Или нет?

OnFilterRecord больше зависит от процессора и объема памяти, т.к. вычисления производятся на компьютере программы. Будь то сервер или клиент

Цитата(dsergey @ 25.2.2005, 10:12)

на компьютере программы

Где-где?

Чё та, я тоже не пойму первое значение фильтрую нормально, при попытке отфильтроваьть второе, не чего не происходит вообще пустой DBGrid, что нужно делать покажите полный код фильтра, как будто он под кнопкой.
Спасибо

StayAtHome, я имел ввиду компьютер, на котором в данный момент выполняется программа (фильтрующая данные).
Добавлено @ 10:36
Sett, причем здесь кнопка?
обрати внимание на это

Код

procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean);

о чём-нибудь говорит?

Код

procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean); begin if bFilterFilials then Accept := DataSet['ZFilial'] = lcbFilials.KeyValue; end; procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean); begin if DataSet['ZFilial'] = 'филиал' then Accept := true; end;

это говорит о том, что код

Код

if DataSet['ZFilial'] = 'филиал' then Accept := true;

выполняется в событии OnFolteredRecord, а чтобы это событие сработало нужно вызвать

Код

Table1.Filtered:=true;

Table1.Filter - не обязятельно заполнять.

Это сообщение отредактировал(а) dsergey - 28.2.2005, 10:38