Показать сообщение отдельно
  #13  
Старый 16.04.2008, 23:48
Аватар для killpretty
killpretty killpretty вне форума
Прохожий
 
Регистрация: 04.11.2007
Сообщения: 33
Репутация: 10
По умолчанию

Цитата:
Сообщение от MegaPiha
Вам надо использовать не DBEdit а Edit.
Пример фильтрования данных в компоненте Table .
Код:
   Table1.Filtered:=false;
   Table1.Filter:='fam like ' +quotedstr(edit1.Text+'%');
   Table1.Filtered:=true;
Хм...я попробовала...Не получается.. Может по незнанию наделала кучу ошибок!Делала,делала!Вот что получилось..

Прописала в Квери:
SELECT * FROM kartabolnih.db
SELECT DISTINCT Fio FROM kartabolnih.db
WHERE Fio LIKE
ORDER BY Fio

В событии Эдита OnKeyUp прописала:
Код:
procedure TForm17.Edit2KeyUp(Sender: TObject;
var Key: Word;
  Shift: TShiftState);
  var   s:string;
begin
  s:='%'+edit2.text+'%'; 
  with Query1 do begin 
         Close;
         SQL.Clear; 
         SQL.Add('SELECT DISTINCT Fio FROM kartabolnih.db'); 
         SQL.Add('WHERE Fio LIKE'+quotedstr(s)); 
         SQL.Add('ORDER BY Fio');
         Open; 
  end;
end; 

Admin: Не забываем про оформление кода!

В итоге,получилось,что прописывать в Эдит прописывает,но ничего не фильтрует Где ошибка моя?
Ответить с цитированием