Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.03.2011, 18:58
popovich109 popovich109 вне форума
Прохожий
 
Регистрация: 01.03.2011
Сообщения: 5
Репутация: 10
По умолчанию поиск данных в DBGrid

как сделать поиск записи по вводимым символам? Есть два столбца: Наименование и Цена. Нужен поиск по столбцу Цена. Некторые числа с запятой (например 98,12).
Ответить с цитированием
  #2  
Старый 01.03.2011, 19:19
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Метод Locate в помосчь
пример использования
Locate(Название поля по которому производится поиск,vararrayof([Edit1.text]),[loCaseinsensitive,loPartialKey])
Ответить с цитированием
  #3  
Старый 01.03.2011, 22:26
Аватар для Dead_Gigabit
Dead_Gigabit Dead_Gigabit вне форума
Начинающий
 
Регистрация: 20.10.2009
Адрес: Там где холодно и сыро.... брр
Сообщения: 135
Версия Delphi: Delphi XE
Репутация: 10
По умолчанию

Код:
ADOQuery1.Active:=false;
ADOQuery1.SQL.clear;
ADOQuery1.add(select * from "Table1");
ADOQuery1.SQL.add ('Where POLE1 like '''+'%'+edit1.text+'%''');
ADOQuery1.Active:=true;

Table1 - Наименование твоей таблицы
POLE1 - наименование поля по которому хочешь искать....

P.S. повесь этот код на событие OnChange обьекта Edit1.

Последний раз редактировалось Dead_Gigabit, 01.03.2011 в 22:28.
Ответить с цитированием
  #4  
Старый 02.03.2011, 01:31
popovich109 popovich109 вне форума
Прохожий
 
Регистрация: 01.03.2011
Сообщения: 5
Репутация: 10
По умолчанию

при вводе цифры в edit1 выдает ошибку: Ошибка синтаксиса (пропущен оператор) в выражении запроса 'Сумма с ПДВ '%4%'''
Ответить с цитированием
  #5  
Старый 02.03.2011, 02:09
popovich109 popovich109 вне форума
Прохожий
 
Регистрация: 01.03.2011
Сообщения: 5
Репутация: 10
По умолчанию

сделал вот так:

Код:
procedure TForm7.edit1Change(Sender: TObject);
var OptSet: TLocateOptions;
begin
OptSet:=OptSet + [loCaseInsensitive];
OptSet:=OptSet + [loPartialKey];
DM.Nakladnie.Locate('Сумма с НДС',edit1.Text,OptSet)
end;

работает, только с одним но. Таблица заполнена значениями формата ####,## если вводить в поисковое поле значение с запятой, то поиск не происходит, а как только ставлю точку вместо запятой, то все работает...
можно это исправить?
Ответить с цитированием
  #6  
Старый 02.03.2011, 09:33
Аватар для Dead_Gigabit
Dead_Gigabit Dead_Gigabit вне форума
Начинающий
 
Регистрация: 20.10.2009
Адрес: Там где холодно и сыро.... брр
Сообщения: 135
Версия Delphi: Delphi XE
Репутация: 10
По умолчанию

Поставь на edit ограничение на ввод символов..... в данном случае на запятую....
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:54.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025