Поиск в таблице БД

[фЁдОр]

Здравствуйте, уважаемые программисты!
У меня возникла такая проблема: в ДБГриде я отображаю таблицу "firm", на этойже форме я размещаю Edit1, для поиска названия фирм, на кнопке для поиска я пишу следующий код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Form1.ADOQueFirmRatissDisk.Active:=false;
  Form1.ADOQueFirmRatissDisk.SQL.Clear;
  Form1.ADOQueFirmRatissDisk.SQL.Add('select *');
  Form1.ADOQueFirmRatissDisk.SQL.Add('from firm');
  Form1.ADOQueFirmRatissDisk.SQL.Add('where firm.name like '''+edit1.text+'''');
  Form1.ADOQueFirmRatissDisk.Active:=true;
end;

Если фирма есть, которая вводится в строку для поиска фирм, то в ДБГриде она отображается - все остальные фирмы исчезают, если же фирмы нет, то в ДБГриде ничего нет - пусто. Как вернуть изначальное отбражение всех фирм в ДБГриде, т.е. если в Edit1 пусто и нажать на кнопку для поиска, то нужно, что бы отобразились все фирмы.
И еще такой вопрос: как сделать так, что бы при вводе в Edit1 названия фирмы, в ДБГриде автоматически производилась сортировка и фирма выводилась в первую строку ДБГрида? Надеюсь, что понятно изложил свою мысль.

[Nemon]

Сообщение от фЁдОр

Как вернуть изначальное отбражение всех фирм в ДБГриде, т.е. если в Edit1 пусто и нажать на кнопку для поиска, то нужно, что бы отобразились все фирмы.

ну сделай условие

if Edit1.text:= '' then
begin
  Form1.ADOQueFirmRatissDisk.Active:=false;
  Form1.ADOQueFirmRatissDisk.SQL.Clear;
  Form1.ADOQueFirmRatissDisk.SQL.Add('select *');
  Form1.ADOQueFirmRatissDisk.SQL.Add('from firm');
  Form1.ADOQueFirmRatissDisk.Active:=true;
end
else
  Form1.ADOQueFirmRatissDisk.Active:=false;
  Form1.ADOQueFirmRatissDisk.SQL.Clear;
  Form1.ADOQueFirmRatissDisk.SQL.Add('select *');
  Form1.ADOQueFirmRatissDisk.SQL.Add('from firm');
  Form1.ADOQueFirmRatissDisk.SQL.Add('where firm.name like '''+edit1.text+'''');
  Form1.ADOQueFirmRatissDisk.Active:=true;
end;

[mihali4]

И еще такой вопрос: как сделать так, что бы при вводе в Edit1 названия фирмы, в ДБГриде автоматически производилась сортировка и фирма выводилась в первую строку ДБГрида? Надеюсь, что понятно изложил свою мысль.

Эта ваша мысль противоречит логике организованного вами поиска, поскольку все записи, которые будут выбраны, и только они, и будут отображаться в гриде.
Вообще-то, поиск логичнее было бы организовать через функцию Locate. У нее есть опция, позволяющая искать по части содержимого поля.
Если условие поиска будет выполнено, то курсор позиционируется на похожую запись.

[фЁдОр]

Спасибо большое, Nemon! Все получилось. Блин, логика совершенно отсутствует.

[фЁдОр]

Сообщение от mihali4

Эта ваша мысль противоречит логике организованного вами поиска, поскольку все записи, которые будут выбраны, и только они, и будут отображаться в гриде.
Вообще-то, поиск логичнее было бы организовать через функцию Locate. У нее есть опция, позволяющая искать по части содержимого поля.
Если условие поиска будет выполнено, то курсор позиционируется на похожую запись.

mihali4, дело в том, что я хочу, что бы была возможность поиска фирм:
1. при вводе символов в edit1, т.е. наименования фирмы и в это время ДБГрид фильтровался, т.е. в первой строке выводились символы, т.е. фирма, которую пользователь вводит в Edit1
2. пользователь в edit1 вводит название фирмы и по нажатию кнопки в ДБГриде выводится только эта фирма, хотя я согласен, что это будет лишним если будет реализован первый способ.

А что касается по поводу поиска части содержимого поля, то использую знак %-та. Вот пример:

Form1.ADOQueFirmRatissDisk.Active:=false;
  Form1.ADOQueFirmRatissDisk.SQL.Clear;
  Form1.ADOQueFirmRatissDisk.SQL.Add('select *');
  Form1.ADOQueFirmRatissDisk.SQL.Add('from firm');
  Form1.ADOQueFirmRatissDisk.SQL.Add('where firm.name like ''%'+edit1.text+'%''');

Может быть это и не правильно, но это работает.

[Nemon]

Сообщение от фЁдОр

Может быть это и не правильно, но это работает.

Зря наезжаешь на Михалыча. Locate действительно очень удобно использовать для поиска

[фЁдОр]

Сообщение от Nemon

Зря наезжаешь на Михалыча. Locate действительно очень удобно использовать для поиска

Nemon, у меня и в мыслях такого не было. Совсем напротив, я уважаю Михалыча и очень благодарен ему за помощь, так же как и Вам я тоже очень признателен за оказаннюу помощь. Просто в справочнике по SQL'у, который я сейчас использую, был описан метод поиска только "LIKE" и не слова про "Locate", но я давно еще читал в другом справочнике про этот метод, только про него совсем забыл.

[Rik]

Сообщение от фЁдОр

mihali4, дело в том, что я хочу, что бы была возможность поиска фирм:
1. при вводе символов в edit1, т.е. наименования фирмы и в это время ДБГрид фильтровался, т.е. в первой строке выводились символы, т.е. фирма, которую пользователь вводит в Edit1
2. пользователь в edit1 вводит название фирмы и по нажатию кнопки в ДБГриде выводится только эта фирма, хотя я согласен, что это будет лишним если будет реализован первый способ.

А что касается по поводу поиска части содержимого поля, то использую знак %-та. Вот пример:

Form1.ADOQueFirmRatissDisk.Active:=false;
  Form1.ADOQueFirmRatissDisk.SQL.Clear;
  Form1.ADOQueFirmRatissDisk.SQL.Add('select *');
  Form1.ADOQueFirmRatissDisk.SQL.Add('from firm');
  Form1.ADOQueFirmRatissDisk.SQL.Add('where firm.name like ''%'+edit1.text+'%''');

Может быть это и не правильно, но это работает.

Работать-то работает, но вы тем самым издеваетесь над сервером и сетью. При каждом изменении текста в Edit1 сервер получает новый запрос, компилирует, ищет данные и передает клиенту.
Если не устраивает Locate, должна быть возможность фильтровки локального буфера на стороне клиента. Попробуйте воспользоваться свойствами Filter и Filtered.

Задаем в свойстве ADOQueFirmRatissDisk.SQL: select * from firm
С помощью этого запроса тянем все записи из таблицы Firm на сторону клиента один раз и больше запрос не трогаем.

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = '' then
ADOQueFirmRatissDisk.Filtered = False
else
begin
ADOQueFirmRatissDisk.Filter := 'NAME=''' + Edit1.Text + '*''';
ADOQueFirmRatissDisk.Filtered := True;
end;

end;
При изменении Edit1.Text запрос будет фильтроваться на стороне клиента в локальном буфере. Если Edit1.Text = 'ЗАО', в гриде вы должны увидеть только строки начинающиеся с ЗАО. Очистите поле Edit1 и вернетесь к исходному виду...

Но лично мне Locate нравится больше...

[фЁдОр]

Сообщение от Rik

Если не устраивает Locate...

Я же не говорю, что меня Locate не устраивает, он вообще вылетел у меня из головы, а справочнике описан только LIKE. Но я не пременно последую Вашему совету, раз все так его хвалят.

[фЁдОр]

Большое всем спасибо! Nemon'y, mihali4'y, Rik'y. Извеняйте если, что не так. Я решил сделать поиск только по нажатию кнопки через Locate.