Topic: Автоматический выбор из таблиц-справочников
Добрый всем вечер!
В проекте есть несколько таблиц, в том числе и users (которая используется для входа по логину), а также справочники - отделы, должности. см. рис1.
Есть форма по регистрации опозданий (рис.2), в ней есть 3 комбобокса с инфой из справочников. Для первого комбобокса (нач.отдела) инфа берется из логина и подставляется автоматически при заходе в форму (т.е. вручную юзеру этот параметр выбирать не нужно).
Следующий комбобокс "список отделов" - сейчас выбирается вручную из списка, но хотелось бы, чтобы тоже автоматом - в зависимости от логина того, кто зашел, т.е. чтобы у этого юзера автоматом, как и его фамилия, отдел сразу высвечивался только свой и небыло бы выбора других отделов.
-----------
В скрипте заданы глобальные переменные по юзеру
-----------------
var
sUser: string = ''; // глобальная переменная, куда записываtм данные текущего юзера
idUser: integer = -1;
idOtdel: integer = -1;
idPosition: integer = -1;
--------------------------
Далее по событию открытия формы задана процедура:
procedure frmOpozdun_OnShow (Sender: string; Action: string);
begin
frmOpozdun.ComboBox1.Enabled := False; // Делаем неактивным выбор начальника
frmOpozdun.ComboBox2.Enabled := False; // Делаем неактивным выбор отдела
--
if frmOpozdun.dbAction = 'NewRecord' then frmOpozdun.ComboBox1.dbItemID := idUser;
if frmOpozdun.dbAction = 'NewRecord' then frmOpozdun.ComboBox2.dbItemID := idOtdel;
-----------
значение по idUser вытаскиваем отсюда:
idUser := SQLExecute('SELECT id FROM users WHERE (login = ''' + frmLogin.edUser.Text + ''' AND (password='''+sHash+'''));');
============================
А как присвоить значение idOtdel?