Фильтрация в ComboBox (Page 1 of 2)

по какому условию Вы хотите получить id?
 
select KOD from departament where='idDepartament'
запрос не имеет смысла

у ComboBox есть свойство dbFilter, в котором вы можете указать условие для фильтрации записей в нем

idDepartament := SQLExecute('SELECT IFNULL(id_departament, 0) FROM users WHERE id = '+IntToStr(idUser));
Form1.ComboBox1.dbFilter := 'id='+IntToStr(idDepartament);
Form1.ComboBox1.dbUpdate;

Добрый день.
Подскажите как правильно написать в фильтр ComboBox Запрос SQL чтобы в фильтр попали записи по условию id_rab = (1)
ForeingKey для ComboBox print.id_mod_print

procedure frmAddSch_OnMouseEnter (Sender: TObject);
begin
       frmAddSch.ComboBox2.dbFilter := SQLExecute('SELECT id_mod_print FROM print WHERE id_rab = (1)');
       frmAddSch.ComboBox2.dbUpdate;
end;

Пробовал. Не работает.
Для проверки синтаксиса, по подобию ранее предложенного ответа Дмитрием, создал фильтр - работает захватывая первое значение с id_rab=1

 procedure frmAddSch_OnMouseEnter (Sender: TObject);
begin
     idrab := SQLExecute('SELECT id_mod_print FROM print WHERE id_rab = (1)');
    frmAddSch.ComboBox2.dbFilter := 'id='+IntToStr(idrab);
end;

Но мне нужен список в ComboBox всех принтеров с  id_rab = (1).
Не знаю, такой фильтр вообще можно делать?

Да.
На связанную таблицу mod_print.
Сам ComboBox выводит информацию (FieldName) mod_print.name по (ForeignKey) print.id_mod_print

В итоге должны увидеть в раскрывшемся ComboBox список моделей принтеров (mod_print.name) у которых в таблице print id_rab=1

Как только открывается форма на которой расположен ComboBox  - возникает ошибка.

Из второго скрина видно, что вытянулось название принтера Canon i-SENSYS MF4018 (столбец name) из таблички mod_print для первой строки таблицы print c id_rab=1.

т.е. отрабатывается Sql запрос (Select), а не компонент ComboBox с фильтром (Select)...

Спасибо sibprogsistem. Отработало... Но легче от этого не стало

Хотел увидеть "немножко" другое, а именно, перечень моделей (в единственном числе) без учета моделей у которых id_rab<>1.
Наверное в ComboBoxe такую фильтрацию сделать не возможно, так как в таблице print могут быть разные записи print.id c одинаковыми print.id_mod_print...
Буду накладывать фильтр id_rab=1 на TableGrid для таблицы print.

Только не знаю как наложить такой фильтр на Grid, заполняемый:

idPrint := formOth_printDisplay.TableGrid1.dbItemID;
      FrmOth.Button3.dbSQL := 'select distinct с.name, b.kab, a.sch, a.data, '+
                                            ' from sch a '+
                                            ' join print b on a.id_print=b.id '+
                                            ' join mod_print с on b.id_mod_print=d.id '+
                                            ' where b.id = '+ IntToStr(idprint) +
                                            ' order by a.data DESC';
                      FrmOth.Button3.Click;

sibprogsistem Вы не так поняли.
Как раз mod_print вынесена как справочник (модели уникальны), а вот таблица print, так как принтеров одной модели может (и есть) много, является рабочей. Работает БД с конкретным принтером (id) из print.
Компонент ComboBox (ForeignKey) print.id_mod_print  (FieldName) mod_print.name работает без проблем.

Как видите выводятся уникальные наименования принтеров в ComboBox
И правильно заполняется Grid - мы видим 6 принтеров MF4018

Вопрос возник по возможности фильтрации в ComboBox...

тогда попробуйте дополнить коким-либо полем которое будет делить эти принтеры

типа.. офис №  или испольуйте инвентаризационные номера

Для того, чтобы убрать "не нужные" принтера в Grid-ах стандартной фильтрации достаточно.
Но не знаю, как убрать из Grida принтера id_rab<>1, заполненного Join-ом

idPrint := formOth_printDisplay.TableGrid1.dbItemID;
      FrmOth.Button3.dbSQL := 'select distinct с.name, b.kab, a.sch, a.data, '+
                                            ' from sch a '+
                                            ' join print b on a.id_print=b.id '+
                                            ' join mod_print с on b.id_mod_print=d.id '+
                                            ' where b.id = '+ IntToStr(idprint) +
                                            ' order by a.data DESC';
                      FrmOth.Button3.Click;

Спасибо работатет. Только к idprint надо добавить условие  b.id_rab =1

' where b.id = '+ IntToStr(idprint) +' and (b.id_rab =1) ';