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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2013, 14:57   #1
Ann Gridjei
 
Регистрация: 23.05.2013
Сообщений: 8
По умолчанию Поиск в DBGrid

Мне нужно организовать поиск, чтобы вводя фамилию в Edit по кнопке Button в DBGrid'е отображалась введенная фамилия.

Уже просмотрела кучу тем в разных форумах, ничего не работает, или работает но не так как нужно...
Подскажите код на на кнопку?
Ann Gridjei вне форума Ответить с цитированием
Старый 23.05.2013, 15:11   #2
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

Цитата:
или работает но не так как нужно...
и как оно работает не так?
eval вне форума Ответить с цитированием
Старый 23.05.2013, 15:20   #3
Ann Gridjei
 
Регистрация: 23.05.2013
Сообщений: 8
По умолчанию

Например ввожу Фамилию, а в Гриде отображаеться не только эта фамилия, а несколько фамилий.1.jpg
Ann Gridjei вне форума Ответить с цитированием
Старый 23.05.2013, 15:24   #4
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

ну наверное потому что там не тот поиск который вам надо
показывайте код
eval вне форума Ответить с цитированием
Старый 23.05.2013, 15:35   #5
Ann Gridjei
 
Регистрация: 23.05.2013
Сообщений: 8
По умолчанию

Я разные побывала. Но в данном примере вот этот.

procedure TForm_klient.Button1Click(Sender: TObject);
begin
If not DBGridEh1.DataSource.DataSet.Locate ('fam',Edit1.Text,[])
Then ShowMessage('Что-то ничего нету ');
end;
Ann Gridjei вне форума Ответить с цитированием
Старый 23.05.2013, 15:38   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Тут надо фильтровать - или в датасете, или в SQL-запросе
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 23.05.2013, 15:39   #7
Ann Gridjei
 
Регистрация: 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;
Ann Gridjei вне форума Ответить с цитированием
Старый 23.05.2013, 15:40   #8
Ann Gridjei
 
Регистрация: 23.05.2013
Сообщений: 8
По умолчанию

И как конкретно фильтровать? Можете привести пример?
Ann Gridjei вне форума Ответить с цитированием
Старый 23.05.2013, 15:47   #9
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

Код:
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; //переделать через функцию Format
Filtered:=True;
//SQL.Add('select * from klient where fam like'+p2);
//open;
end
else Form_klient.AQ.Filtered:=False;
end;
eval вне форума Ответить с цитированием
Старый 23.05.2013, 17:02   #10
Ann Gridjei
 
Регистрация: 23.05.2013
Сообщений: 8
По умолчанию

Каким образом переделать?
Не пойму как в поиске использовать функцию Format.
Ann Gridjei вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск в 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