OnFilterRecord. Работает, но немного криво :)

[Fexys]

Доброго времени суток.
Описание: Сделано представление в SQL Server выведено в DBGrid с сортировкой по названию (в IndexFieldNames). Написал фильтр который вроде более оптимальный (т.к. AdoTable и вывод DBGrid находятся на разных формах).

procedure TDM.TVDorFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
  j,s,n,g,r,k : string; //для значения поля
begin
  //получаем столько начальных букв из поля Жанр, сколько букв имеется в переменной j:
  r := Copy(DataSet['Rej'], 1, Length(Rej));
  j := Copy(DataSet['Janr'], 1, Length(Janr));
  s := Copy(DataSet['Str'], 1, Length(Str));
  n := Copy(DataSet['NazvRus'],1,Length(Nazv));
  g := Copy(DataSet['God'], 1, Length(God));
  //делаем проверку на совпадение значений
  Accept := (g = God) and (s = Str) and (j = Janr) and (r = Rej) and (n = Nazv);
end;

procedure TForm12.Edit1Change(Sender: TObject);   // Представление Фильмы 
begin
  if Edit1.Text <> '' then begin
    DM.TVDor.Filtered:= False;
    Rej := Edit1.Text;
    DM.TVDor.Filtered:= True;
  end
  else  DM.TVDor.Filtered:= False;
end;
// и т.д. на 5 Edit ов

Проблема: Фильтрация проводится. Но почему-то не действует DM.TVDor.Filtered:= False;. Если точнее..
После 1-ой фильтрации данные в Edit1-5 не чистятся (Refresh\Cancel\CancelUpdate.. и просто стиранием). Т.е. ввожу год - 2011, жанр - драма, далее стираю год переписываю жанр на комедию ничего не выводит из-за того, что год остался в буфере 2011.

А и за одно подскажите пожалуйста, как сделать, чтоб окно представления обновлялось(отменялся фильтр\сорт и добавлялись данные, которые в основном окне добавляются).

P.s. Метод тыка не помогает, Google тож молчит. Строго не судите, в делфи ковырялся давно и поверхностно.

[Аватар]

Написал фильтр который вроде более оптимальный

SQL-фильтры всегда более оптимальны фильтров на клиенте, не зависимо от того, на каких формах находятся Query и гриды.

далее стираю год переписываю жанр на комедию ничего не выводит из-за того, что год остался в буфере 2011

В каком буфере? У вас в фильтре идет сравнение со значениями в символьных переменных. Меняете (стираете) значение в любом из EDIT-ов - меняйте и значение в соответствующей переменной, на автомате программа это не сделает. А OnChagne сделал бы примерно так для Edit1.Text (для остальных похоже):

  DM.TVDor.Filtered:= False;
  Rej := Edit1.Text;
  DM.TVDor.Filtered:= (Rej<>'') and (Janr<>'') and (Str<>'') and (NazvRus<>'') and (God<>'');

P.S. ИМХО - изменение фильтра по OnChange не есть хорошо

[Fexys]

DM.TVDor.Filtered:= (Rej<>'') and (Janr<>'') and (Str<>'') and (NazvRus<>'') and (God<>'');

Так фильтр перестает работать.

P.S. ИМХО - изменение фильтра по OnChange не есть хорошо

А как лучше?
До этого я делал через RadioGroup без фильтра в адо, но там тоже была проблема с отменой фильтра.

[Аватар]

Так фильтр перестает работать.

Почему перестанет? В вашем коде и предусмотрено, что фильтр работает только тогда, когда все Edit-ы не пустые. Или я чего-то не понял? В любом случае ваш OnChage дерьмовый. Как вы фильтр организовать вообще хотите? Всегда что бы были заданы все 5 условий? Или можно и по одному, двум условиям? В том случае это совершенно другое код должен быть в OnFilterRecord. А пока он требует всех 5 условий.

А как лучше?

Лучше или хуже это вам решать. Я бы предпочел сделать Button 'Применить' и после нужных изменений по клику буттона менял фильтр.

[Fexys]

когда все Edit-ы не пустые

и точно.
Спс за подсказки. Как просплюсь буду думать как сделать фильтр и по нескольким сразу, и по одному.

[Аватар]

Ставим так задачу (например): фильтровать только по не пустым полям

procedure TDM.TVDorFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept:=((God='') or (Copy(DataSet['God'],1,Length(God))=God)) and 
          ((Rej='') or (Copy(DataSet['Rej'], 1, Length(Rej))=Rej)) and 
          ((Janr='') or (Copy(DataSet['Janr'], 1, Length(Janr))=Janr)) and 
          ((Str='') or (Copy(DataSet['Str'], 1, Length(Str))=Str)) and 
          ((NazvRus='') or (Copy(DataSet['NazvRus'], 1, Length(NazvRus))=NazvRus));
end;

procedure TForm12.Edit1Change(Sender: TObject);
begin
  DM.TVDor.Filtered:= False;  //убрать если использовать Button 'Применить'
  Rej := Edit1.Text;
  DM.TVDor.Filtered:=True;    //убрать если использовать Button 'Применить'
end;

{если использовать Button 'Применить'}
procedure TForm12.Button1Click(Sender: TObject);
begin
  DM.TVDor.Filtered:= False;
  DM.TVDor.Filtered:=True;
end;

add

Если использовать Button 'Применить', то OnChange вообще можно убрать, а все присвоения значение Edit-ов в переменные перетащить в Button1Click