Поиск В DBGrid

[grom333]

Прошу Вас не ругаться. В поиске искал, но кое чего не понял.
Вот мой код поиска:

Str := Edit1.Text;
case RadioGroup1.ItemIndex of
    0:begin // Поиск по группе
      with ADOQuery1 do begin
                       Close;
                       SQL[2]:='WHERE Фамилия = '''+Str+'''';
                       Open;
                       end;
      end;

1:begin // Поиск по Фамилии
      with ADOQuery1 do begin
                       Close;
                       SQL[2]:='WHERE phone = '''+Str+'''';
                       Open;
                       end;
end;
   end;

т.е. еще есть radiogroup для выбора поиска по фамилии и телефону.
Проблема в самом поиске, если введешь не до конца имя или телефон, ничего не находит. Как исправить проблему. Просто очень этот код нравиться. Не ахото полностью менять.

[artemavd]

Попробуйте немного так:

Str := Edit1.Text;
case RadioGroup1.ItemIndex of
    0:begin // Поиск по группе
      with ADOQuery1 do begin
                       Close;
                       SQL[2]:='WHERE Фамилия = ' + QuotedStr(Edit1.Text);
                       Open;
                       end;
      end;

1:begin // Поиск по Фамилии
      with ADOQuery1 do begin
                       Close;
                       SQL[2]:='WHERE phone = ' + QuotedStr(Edit1.Text);
                       Open;
                       end;
end;
   end;

А там где идет поиск по группе поле, по которому идет поиск, какой тип имеет? И вообще, какая СУБД? Какие поля? Почему нужно клещами информацию вытягивать.

[grom333]

ADO, streeng

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

Попробуйте немного так:

Str := Edit1.Text;
case RadioGroup1.ItemIndex of
    0:begin // Поиск по группе
      with ADOQuery1 do begin
                       Close;
                       SQL[2]:='WHERE Фамилия = ' + QuotedStr(Edit1.Text);
                       Open;
                       end;
      end;

1:begin // Поиск по Фамилии
      with ADOQuery1 do begin
                       Close;
                       SQL[2]:='WHERE phone = ' + QuotedStr(Edit1.Text);
                       Open;
                       end;
end;
   end;

А там где идет поиск по группе поле, по которому идет поиск, какой тип имеет? И вообще, какая СУБД? Какие поля? Почему нужно клещами информацию вытягивать.

не ищет как надо. Так же, если не до конца ввел, не выводит.

[artemavd]

Что значит

если не до конца ввел, не выводит.

???

[grom333]

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

Что значит

???

Допустим фамилия Белиберда
В эдит ввожу Бели
Жмем батон, он должен найти, Белиберда и других начинающихся на Бели

А то получается недоконца ввел, ничего вообще не находит. Вот в чем проблема то

[artemavd]

А вы стандартный DBGrid используете?

[grom333]

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

А вы стандартный DBGrid используете?

Да. Я правда устанавливал некоторые компоненты, но DBGrid, остался не тронутым, на сколько я знаю.
Delphi7

[artemavd]

Я просто подумал, что вдруг Вы используете компоненты из Ehlib. Тогда че мы тупим тут с вами . Читайте про FindNearest тут: http://programmersforum.ru/showthrea...ht=findnearest и, коль используете запросы, здесь http://programmersforum.ru/showthrea...ht=findnearest. Во второй ссылке написано про оператор LIKE.

[grom333]

Спасибо, почитаю, но у меня все стандартно)

[artemavd]

Там то, что вам нужно . А лучше, используйте DBGrid из библиотеки Ehlib. Там этот поиск за пару секунд можно сделать.