Автоматическое заполнение ComboBox

Приветствую,

к сожалению проект не приложен к сообщению, отправьте его на support@drive-software.com
со ссылкой на данную тему, постараюсь помочь.

3. К сожалению не понял, что вы имеете ввиду, поиск у вас работает, данные в ComboBox-ах из справочников присутствуют, пожалуйста опишите конкретно (с именами форм и компонентов), что именно не работает.

4.  Для полей расположенных на MasterData1, установите значение StretchMode = smMaxHeight

Aleksandr.Popkov
Если у вас это связанный список (Орган власти > Услуги)
то обычно сперва выбирают родительскую запись (Орган власти), затем уже дочернюю (Услуги), в таком виде при выборе Органа власти, вы видите Услуги в списке, которые принадлежать к выбранному Органу власти и только затем выбираете услугу.

если же вы хотите сразу выбирать Услугу, то ComboBox-ы "Тип услуги" и "ОГВ" на форме в принципе не нужны, так как выбранная услуга однозначна определяет эти значения ("Тип услуги" и "ОГВ"), т.о. лучше выводить их например на компонент Label, просто для информации, без возможности изменения.
Реализовал это в качестве примера на вашем проекте.

Пожалуйста загляните в эту тему
http://myvisualdatabase.com/forum/viewtopic.php?id=1633

Данную информацию не нужно записывать, так как зная услугу, можно определить ее "Тип услуги" и "ОГВ"
Удалил из проекта лишние ComboBox-ы и связи в БД, поиск и отчеты при этом работают.

Конечно, пишите )

Aleksandr.Popkov

1. Немного доработал данный пример, т.к. не очень удобный. К сожалению проблему с исчезновением курсора решить не получиться, но теперь при поиске, вы можете нажать стрелку вниз, чтобы сразу начать выбор вариантов в ComboBox во время поиска, также можно нажать Esc, чтобы отменить поиск. (проект приложил к сообщению)

2. В случае создания обязательного внешнего ключа (для ComboBox), необходимо указать идентификатор записи по умолчанию, который присвоится для существующих записей, где данный внешний ключ не имеет значения. Например вы можете в словаре услуг создать название услуги как "Не определена", затем идентификатор этой новой записи использовать как значение по умолчанию.

Либо можно написать небольшой скрипт, который не позволит при создании/редактировании записи сохранить ее без указания Услуги, например так:
Создайте событие OnClick для кнопки "Сохранить запись"

procedure frmAbonent_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
    if frmAbonent.cbService.dbItemID = -1 then
    begin
        ShowMessage('Выберите услугу.');
        Cancel := True;
    end;
end;

Доброго всем дня! И вновь нужна помощь.
На форме frmCards грид TableGrid1 отображает данные из таблицы card.
При клике по ячейке грида срабатывает процедура:

procedure frmCards_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
frmCards.cbPerson.dbItemID := SQLExecute ('SELECT IFNULL(id_person, -1) FROM card WHERE id='+frmCards.TableGrid1.sqlValue);
end;

и в комбобоксе cbPerson появляется фамилия сотрудника.
Нужно чтобы одновременно на этой же форме в комбобоксах или текстбоксах появились данные сотрудника:
- departament;
- otdel;
- room;
- job