поиск по фамилиям и вывод результатов в DBGrid

[Serge_Bliznykov]

Locate попробовал. Запускаю делфи ругается что не знает, что такое loPartialKey.

весьма странно... проверьте, в списке Uses должен присутстовать модуль DB

На ф1 конечно же нажимал, но перевести не смог...

ну.. не подумал... Так английский надо понемножку учить... )

Получается loPartialKey работает аналогично тому как в запросах like?

ну да, похоже... ищется вхождение искомой строки...

Если допустим один комбобокс не выбран осуществляется поиск по двум другим и т.д. У меня все работает с фамилией, именем, отчеством как задумано. Вот теперь очень хочется, чтоб по ДБЛукапкомбобоксам результаты поиска тоже фильтровались как по заданной фамилии, имени, отчеству.

вопрос не очень простой...
я бы предложил такой гарантированно работающий способ (но не возьмусь утверждать, что это единственный и/или лучший способ!):
формировать запрос во время выполнения программы (в run-time).
например, так:

    ADOQueryPoiskSotrudnika.SQL.Add
   ('select * from Sotrudnik where (Familiya like :etFamiliya) '+
    ' and (Imya like :etImya) and (Otchestvo like :etOtchestvo) ');
  if  Not VarIsNull(DBLookupComboBox1.KeyValue) then 
  //или  if  DBLookupComboBox1.Text <> '' then 
    ADOQueryPoiskSotrudnika.SQL.Add(' and (FK_StatusSotrudika = '+IntToStr(DBLookupComboBox1.KeyValue)+')');

  if  Not VarIsNull(DBLookupComboBox2.KeyValue) then 
  //или  if  DBLookupComboBox2.Text <> '' then 
    ADOQueryPoiskSotrudnika.SQL.Add(' and (FK_Organization = '+IntToStr(DBLookupComboBox2.KeyValue)+')');
и т.д...
 ....
ADOQueryPoiskSotrudnika.Open;

[dron-s]

не, не надо ничего ручками отрисовывать!
soleil@mmc, в пост #4 уже полностью ответил на этот вопрос!

3) Можно ли как-нибудь сделать, чтоб при поиске выделялась найденная запись в ДБГриде?

локайт только найдёт, но не выделит.. это нужно делать ручками...

[Explosion]

Serge_Bliznykov, dron-s, soleil@mmc, спасибо за помощь! =)

весьма странно... проверьте, в списке Uses должен присутстовать модуль DB

Угу, в uses модуля такого не было, теперь заработало.

я бы предложил такой гарантированно работающий способ (но не возьмусь утверждать, что это единственный и/или лучший способ!)

Работает этот способ! Вот выкладываю код для будущих поколений вдруг пригодится

//Осуществляем поиск
With datamodule2 do
  begin
    ADOQueryPoiskSotrudnika.Close; {деактивируем запрос в качестве одной из мер предосторожности}
    ADOQueryPoiskSotrudnika.SQL.Clear; {стираем предыдущий запрос}
    ADOQueryPoiskSotrudnika.SQL.Add('select * from Sotrudnik where (Familiya like :etFamiliya) and (Imya like :etImya) and (Otchestvo like :etOtchestvo)');
    if DBLookupCombobox1.Text <> '' then
      begin
        ADOQueryPoiskSotrudnika.SQL.Add(' and (FK_StatusSotrudnika = ' +IntToStr(DBLookupCombobox1.KeyValue)+')');
      end;
    if DBLookupCombobox2.Text <> '' then
      begin
        ADOQueryPoiskSotrudnika.SQL.Add(' and (FK_Organization = ' +IntToStr(DBLookupCombobox2.KeyValue)+')');
      end;
    if DBLookupCombobox3.Text <> '' then
      begin
        ADOQueryPoiskSotrudnika.SQL.Add(' and (FK_Dolzhnost = ' +IntToStr(DBLookupCombobox3.KeyValue)+')');
      end;
    ADOQueryPoiskSotrudnika.Parameters.ParamByName('etFamiliya').Value:=edit5.Text+'%';
    ADOQueryPoiskSotrudnika.Parameters.ParamByName('etImya').Value:=edit6.Text+'%';
    ADOQueryPoiskSotrudnika.Parameters.ParamByName('etOtchestvo').Value:=edit7.Text+'%';
    ADOQueryPoiskSotrudnika.Open; {выполняем запрос}
  end;

Я вот все правильно постановку задач не могу сформулировать, поэтому быстренько сделал формочку и скрин этой формочки, чтоб наглядней было:


Как видим результат поиска дал 2 записи. И вот допустим пользователь щелкнул по DBGrid'у, по записи, где находится сотрудник "Петров Петр Петрович". Как из этой выделенной записи выдернуть значение поля Familiya и засунуть это значение в Edit1.text, далее выдернуть значение поля "Imya" и засунуть в Edit2.Text, и выдернуть значение поля "Otchestvo" и засунуть в Edit3.Text?

[Serge_Bliznykov]

Как из этой выделенной записи выдернуть значение поля Familiya и засунуть это значение в Edit1.text, далее выдернуть значение поля "Imya" и засунуть в Edit2.Text, и выдернуть значение поля "Otchestvo" и засунуть в Edit3.Text?

если не ошибаюсь, у DBGrid'а есть событие OnClick...
Дальше просто, в обработчике:

  if ADOQueryPoiskSotrudnika.IsEmpty then Exit;
  Edit1.Text := ADOQueryPoiskSotrudnika.FieldByName('Familiya').AsString;
  Edit2.Text := ADOQueryPoiskSotrudnika.FieldByName('Imay').AsString;
...

__________________

Сообщение от dron-s

локайт только найдёт, но не выделит..

ошибаетесь. если DBGrid связан с данным датасетом, то текущей (выделенной) записью станет именно найденная в данных!

[dron-s]

3) Можно ли как-нибудь сделать, чтоб при поиске выделялась найденная запись в ДБГриде?

под этим я имелл виду чтобы в самом гриде выделялась часть искомой информации вносившаяся в Edit1.. а в гриде её отрисовывать по средства OnColumnDrawCell