![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 23.05.2013
Сообщений: 8
|
![]()
Мне нужно организовать поиск, чтобы вводя фамилию в Edit по кнопке Button в DBGrid'е отображалась введенная фамилия.
Уже просмотрела кучу тем в разных форумах, ничего не работает, или работает но не так как нужно... Подскажите код на на кнопку? |
![]() |
![]() |
![]() |
#2 | |
Подтвердите свой е-майл
Регистрация: 29.08.2012
Сообщений: 4,011
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#4 |
Подтвердите свой е-майл
Регистрация: 29.08.2012
Сообщений: 4,011
|
![]()
ну наверное потому что там не тот поиск который вам надо
показывайте код |
![]() |
![]() |
![]() |
#5 |
Регистрация: 23.05.2013
Сообщений: 8
|
![]()
Я разные побывала. Но в данном примере вот этот.
procedure TForm_klient.Button1Click(Sender: TObject); begin If not DBGridEh1.DataSource.DataSet.Locate ('fam',Edit1.Text,[]) Then ShowMessage('Что-то ничего нету ![]() end; |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]()
Тут надо фильтровать - или в датасете, или в SQL-запросе
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
![]() |
![]() |
![]() |
#7 |
Регистрация: 23.05.2013
Сообщений: 8
|
![]()
Вот такой ещё пробовала. В нём ошибка вот в этой строке ( with Form_klient.AQ do). Не знаю как исправить...
procedure TForm_klient.Button1Click(Sender: TObject); var p1,p2:string; begin Edit1.MaxLength := 15; p1:='%'+ Edit1.Text +'%'; p2:=QuotedStr(p1); if (Edit1.Text<>'') then with Form_klient.AQ do begin Filter:='fam like '+p2; Filtered:=True; //SQL.Add('select * from klient where fam like'+p2); //open; end else Form_klient.AQ.Filtered:=False; end; |
![]() |
![]() |
![]() |
#8 |
Регистрация: 23.05.2013
Сообщений: 8
|
![]()
И как конкретно фильтровать? Можете привести пример?
|
![]() |
![]() |
![]() |
#9 |
Подтвердите свой е-майл
Регистрация: 29.08.2012
Сообщений: 4,011
|
![]() Код:
|
![]() |
![]() |
![]() |
#10 |
Регистрация: 23.05.2013
Сообщений: 8
|
![]()
Каким образом переделать?
Не пойму как в поиске использовать функцию Format. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск в DBGrid! | Rosita-u | БД в Delphi | 3 | 18.08.2012 15:36 |
поиск по DBGrid | Марк Охман | БД в Delphi | 9 | 28.12.2010 09:50 |
Поиск в Dbgrid | Stranik2007 | SQL, базы данных | 1 | 13.08.2010 08:11 |
Поиск В DBGrid | grom333 | Помощь студентам | 18 | 05.02.2010 13:30 |
Поиск от dbgrid | mavlon_m | Общие вопросы Delphi | 4 | 19.08.2009 12:53 |