Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2008, 12:15   #1
TaTT DoGG
Форумчанин
 
Аватар для TaTT DoGG
 
Регистрация: 25.04.2008
Сообщений: 476
По умолчанию Фильтрация записей в таблице

как сделать, чтобы при изменении edit1 в adotable1 отсеивались записи?
Life if about choices
Make the right choice

Последний раз редактировалось TaTT DoGG; 19.05.2008 в 15:09.
TaTT DoGG вне форума Ответить с цитированием
Старый 19.05.2008, 12:25   #2
D-mon
Форумчанин
 
Регистрация: 22.06.2007
Сообщений: 414
По умолчанию

Устанавливай фильтр а адотайбл по значению из эдита...
Нет невыполнимых задач, всё дело времени...
D-mon вне форума Ответить с цитированием
Старый 19.05.2008, 12:37   #3
TaTT DoGG
Форумчанин
 
Аватар для TaTT DoGG
 
Регистрация: 25.04.2008
Сообщений: 476
По умолчанию

Код:
procedure TForm1.spSkinButton1Click(Sender: TObject);
begin
ADOTable1.Filter:=Edit1.Text;
end;
при этом ADOTable1.Filtred=True???
Life if about choices
Make the right choice
TaTT DoGG вне форума Ответить с цитированием
Старый 19.05.2008, 12:54   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Да. включать фильтр тоже нужно.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.05.2008, 12:56   #5
TaTT DoGG
Форумчанин
 
Аватар для TaTT DoGG
 
Регистрация: 25.04.2008
Сообщений: 476
По умолчанию

ошибку кидает... мот ещё нужно название поля по которуму фильтровать???
Life if about choices
Make the right choice
TaTT DoGG вне форума Ответить с цитированием
Старый 19.05.2008, 13:03   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Естесственно. Загляни в пример в хелпе по Filter для TDataSet и все увидишь
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.05.2008, 13:06   #7
TaTT DoGG
Форумчанин
 
Аватар для TaTT DoGG
 
Регистрация: 25.04.2008
Сообщений: 476
По умолчанию

нету в хэлпе примера по данной теме
тока вот:
Цитата:
Dataset1.Filter := 'State = ' + QuotedStr('CA');

You can also supply a value for Filter based on text supplied by the user. For example, the following statement assigns the text in from edit box to Filter:

Dataset1.Filter := Edit1.Text;

You can, of course, create a string based on both hard-coded text and user-supplied data:

Dataset1.Filter := 'State = ' + QuotedStr(Edit1.Text);

Blank field values do not appear unless they are explicitly included in the filter:

Dataset1.Filter := 'State <> ''CA'' or State = BLANK';
Life if about choices
Make the right choice
TaTT DoGG вне форума Ответить с цитированием
Старый 19.05.2008, 13:44   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Это и есть примеры. State здесь поле, по которому делается фильтр
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.05.2008, 15:02   #9
TaTT DoGG
Форумчанин
 
Аватар для TaTT DoGG
 
Регистрация: 25.04.2008
Сообщений: 476
По умолчанию

Вроде работает
но фильтруется полное совпадение, а можно ли как-то отсеивать вот таким способом:

Моя база
1
1q
1qf

Ввожу в поиск 1 - выводит все записи
1q - две последние
1qf - последняя

Код:
procedure TForm1.spSkinButton1Click(Sender: TObject);
var
nof:string;
begin
case spSkinMRUComboBox1.ItemIndex of
0: nof:='Название=';
1: nof:='Описание=';
end;
adotable1.Filter:=nof+quotedstr(spSkinEdit1.Text);
end;
пробовал делать так
Код:
0: nof:='Название>=';   
1: nof:='Описание>=';
но фильтрует не так как нужно
допустим нажимаю я букву w, должны остаться записи начинающиеся на w и т.д.
Life if about choices
Make the right choice

Последний раз редактировалось mihali4; 16.02.2009 в 11:07. Причина: Объединение постов
TaTT DoGG вне форума Ответить с цитированием
Старый 20.05.2008, 10:11   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Для такого лучше описать событие OnFilterRecord, в котором прописать, если значение в поле содержит в себе введенное тобой то Accept:=true иначе Accept:=false - это гибкий фильтр, весьма удобная штука.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фильтрация Felonalex БД в Delphi 4 24.10.2008 20:09
Фильтрация записей с помощью Grid'а. Repz БД в Delphi 1 02.05.2008 04:55
Счетчик записей в таблице John_chek Общие вопросы Delphi 2 01.03.2007 11:36
Параметр TTAble определяющий кол-во одинаковых записей в таблице Таня84 БД в Delphi 4 09.02.2007 14:51