Как программно добавить поле Lookup в ADOQuery

@aquatell · Регистрация: 16.04.2011

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

Здраствуйте!
Помогите пожалуйста,
Я выполняю запрос через компонент ADOQuery он у меня выводиться в DBGrid , выводятся три колонки, первая ключ, вторая строковое значение, а третья числовое.
Вопрос такой как мне программно добавить четвертое поле в DBGrid чтобы по указаному значению из третьего поля (в котором значение ключа из другой таблицы), в четвертом поле бралось строковое значение которое находится в другой таблице и его ключ равен значению из третьей колонки.
И чтоб я имел возможность заполнять в четвертом поле значения в ручную и если оно не найдено в другой таблице тогда значение в таблицу откуда извлекаем значение четвертой колонки автоматически записывалось. Заранее благодарен. Очень нужно.

@d0lmat · 04.05.2011, 10:37

Вот так:

Delphi

var
  f: TIntegerField;
begin
  ADOQuery.Open;
 
  f := TIntegerField.Create(ADOQuery); //Создаем поле тепа INTEGER
  f.FieldKind := fkLookup; //Указываем на то что оно у нас LookUp
  f.KeyFields := 'key_name'; //Поле ключ, по которому будет искаться соответствие
  f.LookupDataSet := ADOQueryDictionary; //Набор данных (DataSet) в котором буду отбираться данные
  f.LookupKeyFields := 'id'; //Уникальный ключ в наборе данных ADOQueryDictionary, по которому будем искать
  f.LookupResultField := 'name'; //Поле из набора данных ADOQueryDictionary, которое будет отображаться в результате
  f.Name := 'field_name'; //задаем имя нашему полю
 
  ADOQuery.Fields.Add(f); //включаем его в сотав нашего набора данных
end;

@aquatell 0 / 0 / 0 Регистрация: 16.04.2011 Сообщений: 7
		1
	Как программно добавить поле Lookup в ADOQuery 04.05.2011, 01:19. Показов 6260. Ответов 1 Метки нет (Все метки) Здраствуйте! Помогите пожалуйста, Я выполняю запрос через компонент ADOQuery он у меня выводиться в DBGrid , выводятся три колонки, первая ключ, вторая строковое значение, а третья числовое. Вопрос такой как мне программно добавить четвертое поле в DBGrid чтобы по указаному значению из третьего поля (в котором значение ключа из другой таблицы), в четвертом поле бралось строковое значение которое находится в другой таблице и его ключ равен значению из третьей колонки. И чтоб я имел возможность заполнять в четвертом поле значения в ручную и если оно не найдено в другой таблице тогда значение в таблицу откуда извлекаем значение четвертой колонки автоматически записывалось. Заранее благодарен. Очень нужно. 0

	04.05.2011, 10:37

Как программно добавить поле Lookup в ADOQuery

Решение