поиск по базе

[alexander1111]

Доброго времени суток, форумчане
Нашел в сети описание поиска, "вводишь первую букву / слово - отображает все записи содержащие эту букву/слово"
решил попробовать у себя. не работает корректно.

вот сам код

procedure TForm3.sEdit1Change(Sender: TObject);
begin
If (SEdit1.Text = '') Then
     ADOQuery1.Filtered:=true
  Else
      ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='Фамилия ='+QuotedStr(SEdit1.Text);
end;

procedure TForm3.ADOQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept:=False;
If (Copy (ADOQuery1DSDesigner2.AsString,1,  Length(SEdit1.Text))= SEdit1.Text) Then Accept:=True;
end;

Начинаю вводить букву или текст - игнорит( Что нужно подкорректировать?

вот сам источник - откуда я выдернул это.
http://hashcode.ru/questions/59184/sql-запросы-в-делфи

[Stilet]

procedure TForm3.sEdit1Change(Sender: TObject);
begin
 with  ADOQuery1 do begin
  If not Filtered then Filtered:=true;
 end;
end;

При использовании обработчика OnFilterRecord само условие фильтра указывать не надо.

[alexander1111]

Сообщение от Stilet

procedure TForm3.sEdit1Change(Sender: TObject);
begin
 with  ADOQuery1 do begin
  If not Filtered then Filtered:=true;
 end;
end;

При использовании обработчика OnFilterRecord само условие фильтра указывать не надо.

проблема не исчезла( как было так и осталось

[vovk]

ндяя

procedure TForm3.sEdit1Change(Sender: TObject);
begin
If (SEdit1.Text = '') Then // если эдит пустой
     ADOQuery1.Filtered:=true//включаем фильтрацию
  Else // иначе
      ADOQuery1.Filtered:=false; //отключаем фильтрацию
ADOQuery1.Filter:='Фамилия ='+QuotedStr(SEdit1.Text);// но в любом случае дописываем в фильтр Фамилия = 'текст из эдита'
end;

прикольно))

тогда уж так

procedure TForm3.sEdit1Change(Sender: TObject);
begin
      ADOQuery1.Filtered:=false;
       ADOQuery1.Filter:='Фамилия ='+QuotedStr(SEdit1.Text+'*');
      ADOQuery1.Filtered:=true;
end;

отключение и включение фильтрации нужно только если датасет не позволяет менять фильтр при включенной фильтрации (ADOQuery1.Filtered:=true; )
если датасет позволяет, то хватит просто установить в дизайнере свойство датасета filtered в true и от строчек
ADOQuery1.Filtered:=false; и
ADOQuery1.Filtered:=true; вообще избавится.

procedure TForm3.ADOQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept:=False;
If (Copy (ADOQuery1DSDesigner2.AsString,1,  Length(SEdit1.Text))= SEdit1.Text) Then Accept:=True;
end;

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

PS

Сообщение от alexander1111

проблема не исчезла( как было так и осталось

странно, если вы оставили обработчик onFilterRecord как у вас было, а в

procedure TForm3.sEdit1Change(Sender: TObject);

написали то что предложил Stilet, то всё у вас должно было работать.

[alexander1111]

Ребят, спасибо вам за помощь.. Заработало