Вариант подбора нужных данных (проектирование БД)

[KBO]

Доброе время суток форумчане,

Есть таблица1 сотрудников, с полями «ФИО»…, «ученое звание», «ученая степень», «должность».
При формировании значений у таблицы2, я ориентируюсь по «ФИО» таблицы1 и вставляю в нее информацию с помощью DBLookupComboBoxEh по ФИО, далее автоматом расставляются остальные значения.
Таблицу1, можно также пополнять с помощью вставки в таблицу2 нового сотрудника.

У меня в таблице2, на параметрах: «ученое звание», «ученая степень», «должность», стоят DBComboBox’ы (т.е. я хочу их списки наполнять из таблицы1).

Вопросы:
1. Т.е. это будут DBComboBox’ы? Потому что, DBLookupComboBoxEh наверняка – не подойдут?
2. Каким методом наполнять DBComboBox’ы (если это все же они)?:
- пробегаться по DataSet, выуживая уникальные данные
- или всетаки отдельным запросом? (вынуть три поля сразу уникальных)?

Как лучше сделать? Как будет быстрее работать?

Заранее Спасибо.

[Stilet]

Потому что, DBLookupComboBoxEh наверняка – не подойдут?

Почему? ИМХО именно для таких случаев этот компонент и разрабатывался.

[KBO]

DBLookupComboBoxEh - подошел бы, если бы я делал запрос с distinct, по «ученое звание», «ученая степень», «должность»,
А так я рискую получить в списке по несклько десятков одинаковых названий

[Stilet]

А что мешает сделать отдельный набор? Ты хочешь запросом с объединениями таблиц отделаться? Тогда можешь попробовать такой вариант:

uz:=TStringList.Create; ///ученое звание
uz.Sorted:=true; uz.Duplicates:=dupIgnore;
while ...
 uz.Add(...Field...('ученое звание').AsString);
end;
...
ComboBox.Items.Assign(uz);
uz.free;

[KBO]

Не я просто хочу шуструю работу приложения.
У меня уже есть два заполнения DBCombox с разных таблиц (при начале редактирования записи)
типа:

select distinct * from (select distinct(KEEP_ORGANIZATION) from GOV_ETALON
where KEEP_ORGANIZATION is not null union all select distinct(STORED_ETALON) from REGISTER_ETALON
where STORED_ETALON is not null ) T, (select min(YEAR_ETALON) as MIN_YEAR, max(YEAR_ETALON) as MAX_YEAR
from GOV_ETALON)A

[Stilet]

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

[KBO]

А не подскажешь ещеодну такую штуку с DBLookupComBox:

Есть эта же таблица1 с тремя полями

«id» «last_name» «firm»
 1     Федотов   фирма №3
 2     Федотов   фирма №4

с которой берет данные DBLookupComBox.
В параметрах «ListField» и «KeyField» (DBLookupComBox), установлено поле «last_name». При перемещении по списку DBLookupComBox, в DBGrid таблица1 видно, что курсор перемещается по записям (1 и 2).
Как сделать чтоб пользователь при выборе фамилии например
с "id" = 1, курсор мог позиционироваться на выбранную запись, с id = 1,
или
с "id" = 2, курсор мог позиционироваться на выбранную запись, с id = 2. А не только на запись, с id = 1?
У меня же, DBLookupComBox используется как справочник, т.е. только чтоб в поле вставить нужное строковое значение

[Stilet]

Извини, не понял...
У тебя DBLookupComBox и так перемешает, чего еще нужно перемещать?

[KBO]

Да нет, это я не совсем правильно выразился.

В списке DbLookUpComboBox, эти две фамилии выделены синим цветом (т.к. они по его мнению одинаковые).
Когда я перемещаюсь по ним мышкой, в DBGrid (подключенная к таблице с фамилиями) тоже премещается курсор - все как нужно.
Но только я нажимаю мышкой на вторую строку (в списке DbLookUpComboBox) (фамилия с id=2 "Федотов" "Фирма №4"), у меня выскакивает запись с "Фирма №3".
и

procedure TFMain.DbLookUpComboBoxKeyValueChanged(Sender: TObject);
begin
  showmessage(ibdsPeople.FieldByName('ID').AsString);
end;

выдает "1", вмессто "2"
Можно конечно, каким-нибудь образом получать индекс выделенной строки в списке DbLookUpComboBox, и затем позиционироваться на номере этой строки в DataSet.

Но я пока не знаю как получить номер выделенной строки DbLookUpComboBoxEh?

[KBO]

Как подсказали,
Нужно указывать в

KeyField := 'last_name; ID';

не одно поле, а несколько...
А ListFields оставить как есть, иначе, значение поля firm лезет в список.
Все пока замечательно работает