У меня такой вопрос: допустим в базе данных есть несколько полей (Фамилия, Имя, Отчество, Хобби). Одно из них (например, Хобби) содержит текст, состоящий из нескольких слов (например, "коллекционирование марок"). Как отфильтровать таблицу таким образом, чтобы условием фильтрации могла быть подстрока, которая входит в строку поля, например, Хобби? Т.е. например подстрока: "кционир". Тогда программа должна отфильтровать нбор данных так, чтобы остались лишь записи, у которых в строке, которая находится в поле Хобби была такая строка, в которой есть введенная подстрока. Очень надо, а вот с какой стороный подойти, поке не додумался! Помогите, пожалуйста.

SELECT ... FROM ... WHERE UPPER(Где ищем COLLATE PXW_CYRL) CONTAINING что ищем (приведенное к верхнему регистру с помощью AnsiUpperCase)

а через функции компонента TTable как-нибудь можно? А если черех SQL, то можно подробнее, например, весь запрос целиком. Please!

s:=AnsiUpperCase(Edit1.Text);
s:=StringReplace(s,'*', '%', [rfReplaceAll]);//если пользователь вводить для поиска коллекц* или *колл*

Query1.Close;
Query1.SQL.Clear;
Query1.AQL.Add('SELECT * FROM Table WHERE UPPER(Field1) LIKE '+QuotedStr(s)));
Query1.Open;

MacTep, через функции TTable - смотри OnFilterRecords. в нём делаешь обычный Pos (...).

но учти, что на медленных машинах событие OnFilterRecords работает очень медленно

Цитата

но учти, что на медленных машинах событие OnFilterRecords работает очень медленно

Машина вроде ничего, думаю, тормозит сильно не будет.

Цитата

через функции TTable - смотри OnFilterRecords. в нём делаешь обычный Pos (...).

Могу попросит примерчик? Делаю Pos, а потом выставляю переменную Accept?

MacTep, да. например, Accept := (Pos (...) <> 0); при необходимости параметры Pos приводи к одному регистру через AnsiUpperCase.

x77, спасибо! А насколько этот процесс может быть медленным. Приблизительно на каких машинах и при каких размерах базы данных можно заметить тормоза?

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

использование условия в TQuery.SQL быстрее потому, что результирующий НД не будет фетчиться целиком, вся обработка произойдёт на стороне сервера (для парадокса его роль выполняет сама БДЕ), а в TTable - будет.

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



Это сообщение отредактировал(а) dsergey - 12.10.2004, 13:55

dsergey, вот ето круто, а чуть подробнее, а то слышу звон, а не знаю, где он

Кстати в DRKB мало примеров на тему "Событие OnFilterRecord".
Событие OnFilterRecord срабатывает каждый раз, когда выполняется код Table1.Filtered:=True;

вот пример для одновления фильтра

Код

procedure UpdateFilter(DataSet: TDataSet); var  FR: TFilterRecordEvent; begin  with DataSet do  begin    FR := OnFilterRecord;    if Assigned(FR) and Active then    begin      DisableControls;      try        OnFilterRecord := nil;        OnFilterRecord := FR;      finally        EnableControls;      end;    end;  end; end;

использовать можно так

Код

Table1.Filtered := TRUE; UpdateFilter(Table1);

сюда можно писать код сравнения, условий и т.д.

Код

procedure TForm1.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean); begin //пример   Accept := DataSet['BooleanField'] = True; end;

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

есть переменная Accept, если эта переменная в итоге получает значение True, то текущая запись будет показана, TTable переходит к следующей запси и все с начала
вот еще пример (бессмысленные, просто ради примера)

Код

procedure TForm1.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean); var i:integer; begin I:=random(100); if i=50 then begin  if DataSet.FieldByName('MyField').AsInteger = 50 then Accept = True;//запись будет показана end else begin  if DataSet.Fields[0] = 100 then accept = false;//запись не будет показана end; end;

Добавлено @ 16:40
чем сложнее условия, сообветственно медленее будет работать

еще пример, фильтрация на частичное совпадение.
Кстати, если работать (фильтровать) со строками, то могут быть проблемы с кодировкой и функцией Upper в SQL, а здесь SQL не применяется

Код

procedure TForm1.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean); Var s:string; begin  //Можно применить AnsiUpperCase  //т.е. фильтрация без учета регистра и с частичным совпадением  s:=AnsiUpperCase(DataSet.FieldByName('MyStringField').AsSting);  accept:= POS(AnsiUpperCase(Edit1.Text), s) <> 0; end;

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

Хе... А на чем база-то?

У меня Paradox, но похожий алгоритм можно, наверное и на другие переложить
Добавлено @ 10:38
По крайней мере в IBQuery и IBTable тоже есть такие же события, соответственно

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