Неудовлетворительный результат поиска в 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;

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

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

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

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

Решение