Платные хостинги     Раскрутка сайта     Книги по программированию

Как отфильтровать данные, помогите новичку

- На форме присутствуют компоненты 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 thenTable1.Filtered:=trueelseTable1.Filtered:=false;highlightSyntax('delphiA4ZGU4','delphi');

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

- Ну как вариант, чтобы не заптаться с опострофами:Код Table1.Filter:='Famil>' + chr( 39 ) + Edit1.Text + chr( 39 );highlightSyntax('delphiWIyZjg','delphi');

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

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

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

- 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=фильтр

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

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

- procedure TForm1.Edit1Change(Sender: TObject);beginTable1.Filtered:=false;Table1.Filter:='FIO>'''+Edit1.Text+'''';if Length(Edit1.Text)>0 thenTable1.Filtered:=trueelseTable1.Filtered:=false;end;

- динамическая фильтрацияКод procedure TForm1.Edit1Change(Sender: TObject);begin  Table1.Filtered:=False;  Table1.Filter:='LAST_NAME = '+QuotedStr(Edit1.Text+'*');  Table1.Filtered:=true;end;highlightSyntax('delphiGMzMDk','delphi'); Это сообщение отредактировал 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;

- А можно просто запросами, правда если у тебя таблица подключена через QuerybeginQuery1.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;highlightSyntax('delphiVhZjUy','delphi');

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD