Создание lookup поля в DBGrid

[sal]

Добрый день!

Есть такая проблема:

Есть Interbase база данных. Есть две таблицы. Первая - Time_Intervals (главная таблица - в нее стекаются данные), вторая - Team (из нее идут данные в Time_Intervals). В обоих таблицах есть поле ID_Team по которому идет связь.
Применена следующая цепоцка: TIBDatabase -> TIBTransaction -> TIBDataSet -> TDataSource -> TDBGrid.
Проблема заключается в следующем. Я не могу понять, как мне сделать в главной таблице Time_Interval в компоненте TDBGrid lookup поле, чтобы из выпадающего списка можно было выбирать значения таблицы Team по полю ID_Team.

P.S. И если не трудно, объясните, чем принципиально отличается использование компонент TIBTable и TIBDataSet.

[sal]

Блин ..... ни уж то нет никого, кто в этом разбирается  :?

[x77]

sal, нужно в редакторе полей основной таблицы (Fields Editor) добавить поле, указать его тип - Lookup, и заполнить остальные поля (keyfield, listfield, и т.д.).

TIbDataSet - это общий предок компонентов TIbTable и TIbQuery. Если нужен функционал квери, т.е. запроса, то лучше использовать TIbQuery, а когда нужен табличный, т.н. навигационный доступ к даным - юзается TIbTable. а датасет это унифицированная вещь, с помощью оторой можно реализовать и то, и это. реально - я, например, вообще его не использую.

[sal]

Я не знаю конечно, может я и тормоз, но такого свойства у меня нет.

[x77]

sal, не там смотришь, не в инспекторе объектов, а в редакторе полей. Щёлкни дважды на TIbTable, и он откроется. в нём щёлкаешь правой кнопкой, добавляешь нужные поля, потом опять добавляешь поле, но уже не Data, а Lookup.

[x77]

"добавляешь" - имеется в виду "New field... ". а остальные поля по "Add fields".

[sal]

И еще один глупый вопрос.

Все ок. У меня получилось добавить поле Lookup, но не пойму, как связать Grid с IBTable или Grid уже использовать не получится?

[x77]

так же, как обычно, через TDataSource.

[sal]

Ну вроде все так. Тогда мне непонятна иерархия:  у меня так:
TIBDatabase -> TIBTransaction -> TIBDataSet -> TDataSources -> DBGrid. А куда TIBTable засунуть? как-то он не вписывается в эту цепочку.

[x77]

Вместо TIbDataSet. либо lookup-поле создать в самом TbDataSet, он это тоже умеет, а таблицу не использовать вообще.

эта цепочка, отвечающая за отображение в гриде. а будет ещё одна, отвечающая за предоставление значений для лукап-поля, типа

IBDatabase1 -> IBTransaction1 -> IBDataSet1 -> DataSource1 -> Dbrid1
IBDatabase1 -> IBTransaction1 -> IBTable2 -> DataSource2

база и транзакция у них будут теми же, ра-зличаться будут только дадасорсы.

[sal]

А не мог бы ты  еще пояснить значение полей Key Fields, Lookup Keys и Result Field.

[x77]

Key fields - ключевое поле (одно или несколько через точку с запятой), в твоём случае - ID_TEAM

Lookup Keys - ключевые поля в дочерней таблице, долны соответствовать полям в ключевой таблице (у тебя - также ID_TEAM)

Result Field - поле в дочерней таблице, которое будет выводиться на экран в момент выбора lookup-поля.

[sal]

странно, но мне пишут -  Invalid Value for field <lookup поле>. Там какой DataSet нужно выбрать?

[x77]

допустим, есть две таблицы:

MainTable
Main_Id
Lookup_Id

Lookup_Table
Lookup_Id
Lookup_Name

в MainTable добавляем Main_Lookup_Name и настраиваем его следующим образом:

KeyFields := 'Lookup_Id';
DataSet = 'LookupTable';
LookupKeys = 'Lookup_Id';
ResultFields = 'Lookup_Name';

теперь прикручиваем DbGrid к MainTable и любуемся на всё это дело.

надо учесть, что типы Main_Lookup_Name и Lookup_Name должны совпадать.

[sal]

Заработало!!!! Огромное спасибо!

[x77]

sal, amen

[he1p]

поле в дбгриде работает, но при дублировании записей вылетает ошибка(
что делать помогите пожалуйста

[Freez1992]

Здраствуйте, у меня такой вопрос: вот сделала я такие поля (lookup) допустим "улица" обычное поле(data) скрыл все работает...НО если в связанной таблице нету улицы которая допустим была введена вручную то и lookup поле "улица" остается пустое, хотя в это время в обычном поле "улица" (скрытое) имеет значение... как сделать чтобы в lookup поле показывалесь элементы которых нет в lookup-list'е..??

[x77]

DFM формы в студию.

[Freez1992]

воть)

[x77]

у вас не совпадают значения ключевых полей для LookUp поля.

Table1.Naim = 'Ленин', Table2.Naim = 'Ленина'. Значения "Кутузова" во второй таблице вообще нет. Поэтому лукап поле ничего не показывает.

[Freez1992]

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

[x77]

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

Код:

procedure TForm1.IBTable1ULICA1GetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if Text = '' then
    Text := IBTable1ULICA.AsString;
end;

т.е. откройте редактор полей у IbTable1, и в методе OnGetText поля ULICA1 вставьте вышеприведённый код.

[Freez1992]

Спасибо огромное!!! Как раз то что мне было нужно!!!

[NeferSky]

То ли я делаю что-то не так, то ли одно из двух. Не работает. Итак. У меня есть главная таблица, в которой есть поле "месяц", там валяются номера месяцев: 1, 2, 3... Есть еще одна таблица с двумя полями id и month, там валяются сами месяцы, id и название. На форме валяется грид, ibtable, ibdataset, datasource. База и транзакция на соседней форме. Ibdataset привязан к главной таблице sql-запросом "select * ...". Редактор полей заполнил "add all fields", потом создал новое поле, обозвал "lookup", тип выставил String, т.к. названия месяцев тоже string, тип поля лукап, KeyFields - поле с id месяцев из главной таблички, dataset - ibtable, привязанная к таблице с месяцами, LookupKeys - поле "id" таблицы с месяцами, ResultField - название месяца из таблицы с месяцами. Запускаю. В гриде - номера месяцев. Где я ошибся?

[x77]

чему равно LookupListSource у lookup-поля?

з.ы. для месяцев заводить лукап-таблицу особого смысла нет, это константы, которые не меняются. (часто вам приходилось добавлять новый месяц к 12-и существующим?) все эти константы прописаны в модулях дельфи, и там имеет смысл либо выводить нужное значение "на-лету", где-нибудь в OnGetText, или использовать более современные гриды, типа cxGrid, GridEh и пр., которые позволяют задавать Pickup-листы для колонки с поддержкой не только названий, но и значений.

[NeferSky]

Верно...  Дело в том, что в грид как вносятся новые данные, так и редактируются в нем же. И я хотел, чтобы редактировать месяц можно было выпадающим списком. Инсертится же он через DecodeDate, то есть, как интежер.
А с лукапом вот только что разобрался, спасибо) "Всегда обращай внимание на мелочи", как говорит один мой друг Вагон. В гриде жестко прописаны столбцы, и я, конечно, не переделал столбик месяцев для лукапа...

[x77]

я об этом и говорю, что для задания выпадающего списка необязательно заводить отдельную таблицу, достаточно заюзать свойство PickupList у колонки грида. но стандартный грид позволяет прописать только значения, т.е. "январь, февраль" и т.д. поэтому лучше сразу взять нормальный грид, который умеет в пикап-листе показывать одно, а в базу вставлять другое.

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

[inviser]

допустим, есть две таблицы:

MainTable
Main_Id
Lookup_Id

Lookup_Table
Lookup_Id
Lookup_Name

в MainTable добавляем Main_Lookup_Name и настраиваем его следующим образом:

KeyFields := 'Lookup_Id';
DataSet = 'LookupTable';
LookupKeys = 'Lookup_Id';
ResultFields = 'Lookup_Name';

теперь прикручиваем DbGrid к MainTable и любуемся на всё это дело.

надо учесть, что типы Main_Lookup_Name и Lookup_Name должны совпадать.

У меня такая же проблема, надо чтобы вместо ключа подставлял значение из справочника...сделал все как написали, но в поле ничего не отображается((

[inviser]

Все, получилось.