Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.20;
Скачать: CL | DM;

Вниз

Фильтрация БД   Найти похожие ветки 

 
Murder   (2003-02-05 10:08) [0]

Здрасте!! Помогите пожалуйста!! Уже 2 день бьюсь надо вопросом фильтрации!! Как отфильтровать данные по неполному поиску т.е.
Есть Несколько Фамилий допуст Сидоров Смирнов Силков, при вводе в поле edit "Си" в Dbgrid Выводились бы те записи которые соответствуют фильтру,, т.е. Сидоров и Силков!!!


 
Anatoly Podgoretsky ©   (2003-02-05 10:21) [1]

OnFilterRecord


 
Murder   (2003-02-05 10:23) [2]

Тогда как обратиться к этому событию?


 
Mike Kouzmine   (2003-02-05 10:24) [3]

Или Filter="NAME = "Си*";


 
passm ©   (2003-02-05 10:24) [4]

Murder (05.02.03 10:08)> Например, [NAME] = "Си*" Выдаст все начинающееся на Си.


 
Murder   (2003-02-05 10:31) [5]

Вобщем есть такой поиск
procedure TForm.FindClick(Sender: TObject);
begin
if not form.Table.Locate("fam",edit_find.Text,[loPartialKey]) then
begin
messagedlg("Результат поиска не дал результатов",mtconfirmation,[mbok],0);
edit_find.Text:="";
end
else
begin
А здесь нужет вот как раз этот фильтр!!!
end;
end;


 
Mike Kouzmine   (2003-02-05 10:32) [6]

Ошибся Filter="NAME = " + QuotedStr("Си*");


 
Anatoly Podgoretsky ©   (2003-02-05 10:36) [7]

Если тебе только сначала, то Mike Kouzmine (05.02.03 10:32)


 
passm ©   (2003-02-05 10:37) [8]

Murder (05.02.03 10:31)>

Form.Table.Filter:= "[NAME] = """ + Edit_Find.Text + "*""";


 
Murder   (2003-02-05 11:01) [9]

Всем огромное спасиба!!!



Страницы: 1 вся ветка

Текущий архив: 2003.02.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
14-63738
Тип
2003-02-05 13:07
2003.02.20
Есть ли FIBPlus для D6 полность бесплатные?


14-63793
Г.Каспаров
2003-02-03 17:31
2003.02.20
Ищу кряк к DeepBlue


1-63610
AlexG
2003-02-11 07:58
2003.02.20
создание ActiveX


3-63551
Delfin
2003-02-01 00:12
2003.02.20
Delphi Paradox TQuery использование индексов


3-63473
T{}r(l-l
2003-02-04 16:07
2003.02.20
DTSPackage