Неудовлетворительный результат поиска в ADOQuery методом Locate

@esgard · Регистрация: 07.09.2021

Студворк — интернет-сервис помощи студентам

Добрый день уважаемые форумчане.
На форме имеется компонент DBLooukupCombobox. В него выводится уникальный уникальный список адресов из таблицы MSAccess. Пытаюсь через обработку событий OnChange текстового поля TEdit2 организовать быстрый поиск первого попавшего значения. Поиск работает с наполовину. Он находит значения расположенные до точки.

Неудовлетворительный результат поиска в ADOQuery методом Locate

А после точки пропускает.

Это особенность поиска Locate, или я что-то не так делаю?
Прошерстил форум и интернет, но насчет этой особенности ничего не накопал.

Delphi
1
2
3
4
5
6
procedure TForm1.Edit2Change(Sender: TObject);
begin
ADOQuery1.First;
ADOQuery1.Locate('Adres',Edit2.Text,[loCaseInsensitive,loPartialKey]);
DBLookupComboBox1.KeyValue:=ADOQuery1.Fields[0].Value;
end;

@krapotkin · 01.02.2022, 11:36

если я ничего не путаю, то вас же не устраивает функциональность лукап комбо?
или уже норм?

Насколько я понимаю, вы пытаетесь решить классическую задачу идентификации объекта по разным источникам методом синонимов.
То же самое решают, когда заводят один и тот же товар по накладным от разных поставщиков, например.

т.е. у нас есть какой-то эталонный справочник ID<--->строка
и справочник синонимов, где много строк должны указывать на один и тот же ID из этого справочника
ну и рабочая таблица, которая вместо исходной строки хранит ID из справочника.
Тогда в лукапе мы должны собирать датасет по справочнику синонимов, соединенному(join!) с эталонным
и этот датасет должен уточняться (фильтроваться) после ввода каждого следующего символа
насколько я понимаю, лукап такой функциональности не даcт, даже если на него кинуть обработчик, потому что у него другая реакция на ввод, и надо ее как-то подавить.
решением тут скорее всего будет вывод поверх модальной формы, где будет обычный edit и dbgrid
при вводе в Edit происходят все более точные запросы, в гриде видим результат.
двойным кликом по гриду закрываем форму и проставляем в нужное поле эталонный ID.
А само поле тогда как раз может быть lookup полем на эталонный справочник

а параметры это просто способ
1) не делать ошибки в выражениях
2) не заставлять сервер бесконечно заново парсить одну и ту же SQL строку

@esgard · 01.02.2022, 15:36 **[ТС]**

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

лукап такой функциональности не даcт, даже если на него кинуть обработчик, потому что у него другая реакция на ввод, и надо ее как-то подавить.
решением тут скорее всего будет вывод поверх модальной формы, где будет обычный edit и dbgrid
при вводе в Edit происходят все более точные запросы, в гриде видим результат.
двойным кликом по гриду закрываем форму и проставляем в нужное поле эталонный ID.
А само поле тогда как раз может быть lookup полем на эталонный справочник

Идея хорошая. Модальное окно, едит - все это реализуемое. Но я уткнулся в методы фильтрации в DBGrid. Опять же нужно будет парсить строку с запросом. Ибо насколько я знаю других методов отбора у дб-грид нет. Разве что напрямую обращаться в DataSource.

@krapotkin · 01.02.2022, 15:39

какая фильтрация в гриде опять?
грид - это ОТОБРАЖЕНИЕ
данные в ДАТАСЕТЕ
фильтровать надо данные
отображение обновится само

@esgard · 01.02.2022, 17:20 **[ТС]**

Не пойму в чем дело. Фильтрация отрабатывает вроде бы нормально. Но возникла какая то непонятная проблема с передачей значения выделенной строки. Причем иногда передается правильно, а иногда нет.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm6.Edit1Change(Sender: TObject);
begin
Edit1.Width:=Length(Edit1.Text)*5+15; //подгонка ширины поля под поличество символов
if Edit1.Text<>'' then
   begin
        Form1.AdoQuery1.Filter:='Adres Like %' + Edit1.Text + '%';  //собственно фильтрация по полю "Adres"
        Form1.ADOQuery1.Filtered:=true;
   end;
end;
 
 
procedure TForm6.DBGrid1DblClick(Sender: TObject);
begin
Form1.DBLookupComboBox1.KeyValue:=Form6.DBGrid1.Fields[0].Value; //Лукапу присваиваем значение поля AdresID выбранной строки в DBGrid1 на модальной форме
Form1.ADOQuery1.Filtered:=false;
Form6.Close;
end;

@esgard · 02.02.2022, 10:56 **[ТС]**

Путем многочисленных проб и ошибок было выяснено что всю малину портит собственный быстрый поиск компонента DBLookUpCombobox. О чем вы и писали:

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

лукап такой функциональности не даcт, даже если на него кинуть обработчик, потому что у него другая реакция на ввод, и надо ее как-то подавить.

надо было просто читать внимательней.
А вот с методами подавления тоже пришлось помучиться. Пробовал отключать комбобокс, пробовал передавать значения через глобальную переменную, задумался уже о свойстве KeyPreview главной формы, но в итоге пришел к этому:

Delphi
1
2
3
4
5
6
procedure TForm1.DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
Form6.glob_key:=key;
Key:=#0;
Form6.ShowModal;
end;

Теперь все работает без нареканий

Новые блоги и статьи Все статьи Все блоги /
[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	01.02.2022, 11:36
	Сообщение было отмечено esgard как решение Решение если я ничего не путаю, то вас же не устраивает функциональность лукап комбо? или уже норм? Насколько я понимаю, вы пытаетесь решить классическую задачу идентификации объекта по разным источникам методом синонимов. То же самое решают, когда заводят один и тот же товар по накладным от разных поставщиков, например. т.е. у нас есть какой-то эталонный справочник ID<--->строка и справочник синонимов, где много строк должны указывать на один и тот же ID из этого справочника ну и рабочая таблица, которая вместо исходной строки хранит ID из справочника. Тогда в лукапе мы должны собирать датасет по справочнику синонимов, соединенному(join!) с эталонным и этот датасет должен уточняться (фильтроваться) после ввода каждого следующего символа насколько я понимаю, лукап такой функциональности не даcт, даже если на него кинуть обработчик, потому что у него другая реакция на ввод, и надо ее как-то подавить. решением тут скорее всего будет вывод поверх модальной формы, где будет обычный edit и dbgrid при вводе в Edit происходят все более точные запросы, в гриде видим результат. двойным кликом по гриду закрываем форму и проставляем в нужное поле эталонный ID. А само поле тогда как раз может быть lookup полем на эталонный справочник а параметры это просто способ 1) не делать ошибки в выражениях 2) не заставлять сервер бесконечно заново парсить одну и ту же SQL строку 1

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	01.02.2022, 15:39
	какая фильтрация в гриде опять? грид - это ОТОБРАЖЕНИЕ данные в ДАТАСЕТЕ фильтровать надо данные отображение обновится само 0

Опции темы

Неудовлетворительный результат поиска в ADOQuery методом Locate

Решение