Связывание индикатора DBGrid со значениями в другом DBGrid

@Delictum · Регистрация: 11.01.2017

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

Доброго дня!
Имеется два DBGrid с подключенными разными взаимосвязанными таблицами, также один ADOConnection, два ADOQuery и два DataSource. Нужно сделать так, чтобы при перелистывании записей в первом Grid в ней появлялись соответствующие значения для второго Grid. Нет даже малейшего представления, что нужно сделать, помогите пожалуйста.

Добавлено через 3 часа 25 минут
Оказалось всё очень просто, если кому-то понадобится, вот код:

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  ID_s := DBGrid1.Fields[0].Value;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select Symbol, V_min, V_max, Designation.Designation FROM Characteristics, Designation WHERE Characteristics.Designation = Designation.ID AND Characteristics.ID = ' + ID_s);
  ADOQuery2.Open;
end;

Где ID_s - строковой тип.

@Пытливый · 03.05.2017, 20:29

Для таких вещей использую связь мастер-деталь.

@drvolodko · 03.05.2017, 20:49

Delictum Вы конкретно не правы

Постоянное закрытие, переоткрытие таблиц БД 1- нагружают сервер. 2 - замедляют работоспособность программы. Причем конкретно. 1000 пользователей одновременно будут перебирать Ваш каталог и сервер умрет на постоянном Open

Проще открыть обе таблицы (результат запроса до закрытия хранится в памяти локальной машины), в первой - выбираем значения, во второй методом locate ищем необходимое уникальное значение. Locate перемещает курсор в открытой таблице. Быстро, удобно, не нагружает сервер.

@Delictum · 03.05.2017, 20:57 **[ТС]**

Спорить не буду, только вот я ничего особо не понял из выше сказанного) С моими познаниями лучше на уровне ребенка да с примерами объяснять.

@krapotkin · 04.05.2017, 07:33

drvolodko, с одной стороны, в ваших словах есть резон. с другой - все зависит от...
если у вас в таблице деталей 100500 штук, то тащить их все на каждого клиента, это полная чушь
так что схема мастер-деталь вполне работоспособна и выгодна при определенных условиях
Delictum, а дети егэ вводят в гугл Delphi master-detail video и смотрят мультик

@drvolodko · 04.05.2017, 08:32

Krapotkin прав, но если все же данных меньше, чем 100500 штук, то надо делать примерно так: ADO1 и ADO2 - это ADOQuery.

Delphi
1
2
3
4
5
6
7
with ADO1 do
begin
close;
sql.clear;
sql.add('Select * from Ваши таблица и условие на селект');
open;
end;

С ADO2 то же самое. С DBGrid для ADO1 на OnClick считываете, например, в переменную какое-то уникальное значение по клику мышки, которое есть в обоих таблицах и дальше:

Delphi
1
ADO2.locate('Поле', переменная, []);

Все.

@krapotkin · 04.05.2017, 08:44

опять не соглашусь
вот мне нужно увидеть все платежи Иванова И.И. , а не найти в общем списке платежей первый ивановский платеж...
это и есть мастер-деталь
и тут как раз менять нужно "условие на селект", т.е. делать перевыборку по detail - датасету...

@drvolodko · 04.05.2017, 09:00

Это понятно, что в таком случае необходимо менять условие, но тогда тут и нет необходимости открывать две таблицы сразу, а собирать динамическое условие запроса и open второй таблицы делать. Из задачи я понял, что нужно простое перелистывание. Упорядочил таблицу и locate найдет первого Иванова И.И. и следом будут идти и последующие Ивановы.А из первой таблицы тогда Distinct. Но я не настаиваю, у самого опыта нуль

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	03.05.2017, 20:29
	Для таких вещей использую связь мастер-деталь. 0

@drvolodko 224 / 68 / 33 Регистрация: 23.05.2014 Сообщений: 745
	03.05.2017, 20:49
	Delictum Вы конкретно не правы Постоянное закрытие, переоткрытие таблиц БД 1- нагружают сервер. 2 - замедляют работоспособность программы. Причем конкретно. 1000 пользователей одновременно будут перебирать Ваш каталог и сервер умрет на постоянном Open Проще открыть обе таблицы (результат запроса до закрытия хранится в памяти локальной машины), в первой - выбираем значения, во второй методом locate ищем необходимое уникальное значение. Locate перемещает курсор в открытой таблице. Быстро, удобно, не нагружает сервер. 0

@Delictum 1 / 1 / 0 Регистрация: 11.01.2017 Сообщений: 28
	03.05.2017, 20:57 [ТС]
	Спорить не буду, только вот я ничего особо не понял из выше сказанного) С моими познаниями лучше на уровне ребенка да с примерами объяснять. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,660 Записей в блоге: 21
	04.05.2017, 07:33
	drvolodko, с одной стороны, в ваших словах есть резон. с другой - все зависит от... если у вас в таблице деталей 100500 штук, то тащить их все на каждого клиента, это полная чушь так что схема мастер-деталь вполне работоспособна и выгодна при определенных условиях Delictum, а дети егэ вводят в гугл Delphi master-detail video и смотрят мультик 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,660 Записей в блоге: 21
	04.05.2017, 08:44
	опять не соглашусь вот мне нужно увидеть все платежи Иванова И.И. , а не найти в общем списке платежей первый ивановский платеж... это и есть мастер-деталь и тут как раз менять нужно "условие на селект", т.е. делать перевыборку по detail - датасету... 0

@drvolodko 224 / 68 / 33 Регистрация: 23.05.2014 Сообщений: 745
	04.05.2017, 09:00
	Это понятно, что в таком случае необходимо менять условие, но тогда тут и нет необходимости открывать две таблицы сразу, а собирать динамическое условие запроса и open второй таблицы делать. Из задачи я понял, что нужно простое перелистывание. Упорядочил таблицу и locate найдет первого Иванова И.И. и следом будут идти и последующие Ивановы.А из первой таблицы тогда Distinct. Но я не настаиваю, у самого опыта нуль 0