Locate

[Karych]

Всем доброго времени суток!!!
Использую locate для постояного побуквенного поиска по бд. Значение находит, все в поряде, но добавить бы кнопку при нажатии на которую выводилось следующее найденое слово(если в столбце у таблицы множество одинаковых значений) КАК МОЖНО ЭТО СДЕЛАТЬ? подсказали что есть свойство next - а чье оно нет(

procedure TMainForm.ComboBox3Change(Sender: TObject);
var
S:string;
begin
if Length(ComboBox3.Text)<=0 then
begin
exit;
end;
S:=ComboBox3.Text;
DBGrid1.DataSource.DataSet.Locate(ComboBox2.Text,s,[loPartialKey]);

И еще как сделать так чтобы найденная(locate) строка выделялась в DBGrid без потери фокуса ввода на ComboBox?
Заранее спасибо!

ЗЫ:надеюсь понятно изъяснил...

[Прик]

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

...выводилось следующее найденое слово...

Куда выводилось?

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

(если в столбце у таблицы множество одинаковых значений)

Для этого нужно чтобы результат выборки (строки из таблицы для показа) был отсортирова по этому столбцу.

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

подсказали что есть свойство next - а чье оно нет (

Того же владельца, в чьем веденье и Locate.

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

строка выделялась в DBGrid без потери фокуса ввода на ComboBox?

Установить в DBGrid значение Options.dgAlwaysShowSelection в True.

[Karych]

Сообщение от Прик

Куда выводилось?

Извеняюсь, локейт же выделяет, чтоб выделял следующую строку в ДБГриде... Сортировка не вариант...

Сообщение от Прик

Установить в DBGrid значение Options.dgAlwaysShowSelection в True.

Спасиба помогло)

Есть одна мысль, засунуть локейт в цикл...
пропуская все строки включая и ту строку на которой курсор, и начинал поиск оттуда...
Только как получить номер выделеной курсором строки в определеном столбце

DBGrid1.DataSource.DataSet.FieldByName(ComboBox2.Text)...???

[Аватар]

Нет Locate в цикле, от текущей записи прямым перебором сравнивая нужное поле с эталоном - другого ничего не придумаете

[evg_m]

можно еще попробовать не искать Locate, а отбирать нужные.
1. запросом в БД.

query.SQL.text:='....where поле =текст';

2. в готовом наборе данных (DataSet-e)

Dataset.filtred:=true;
DataSet.filter:='поле=текст';

[Karych]

Сообщение от Аватар

Нет Locate в цикле, от текущей записи прямым перебором сравнивая нужное поле с эталоном - другого ничего не придумаете

Можно немного поподробнее... не совсем понимаю

with где стоит курсор в дбгриде do ..??

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

можно еще попробовать не искать Locate, а отбирать нужные.
1. запросом в БД.

query.SQL.text:='....where поле =текст';

2. в готовом наборе данных (DataSet-e)

Dataset.filtred:=true;
DataSet.filter:='поле=текст';

в это вся и проблема, нужно чтоб все данные отображались, и среди них и проходил поиск...

А как создать "свойство" locateNext от прородителя locate - это тоже вариант?

[Аватар]

var xFind: Boolean;
...
xFind:=False;
DBGrid1.DataSource.DataSet.Next; //пропускаем текущую запись
while not DBGrid1.DataSource.DataSet.Eof do begin
  xFind:=AnsiSameText(DBGrid1.DataSource.DataSet.FieldByName('имя поля').AsString,'бла-бла');
  if xFind then Break; //нашли следующую  Ура!!
  DBGrid1.DataSource.DataSet.Next;
end;
if not xFind then ... //выдать сообщение запись не найдена или что-то в этом роде

"свойство" locateNext от прородителя locate

Бред

[Karych]

Сообщение от Аватар

Бред

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

Сообщение от Аватар

var xFind: Boolean;
...
xFind:=False;
DBGrid1.DataSource.DataSet.Next; //пропускаем текущую запись
while not DBGrid1.DataSource.DataSet.Eof do begin
  xFind:=AnsiSameText(DBGrid1.DataSource.DataSet.FieldByName('имя поля').AsString,'бла-бла');
  if xFind then Break; //нашли следующую  Ура!!
  DBGrid1.DataSource.DataSet.Next;
end;
if not xFind then ... //выдать сообщение запись не найдена или что-то в этом роде

Спасибо огромное!!!!!!!!! очень выручили) все работает на ура!