• From: Волгоград
  • Registered: 2017-10-04
  • Posts: 166

Topic: Заполнение ComboBox при разных правах (Admin/not isAdmin)

Здравствуйте.
Есть заполнение ComBobox для пользователя. Пользователь видит только свой id_departament:

procedure FrmAddPint_OnShow (Sender: TObject; Action: string);
begin
idDepartament := SQLExecute('SELECT IFNULL(id_departament, 0) FROM users WHERE id = '+IntToStr(idUser));
FrmAddPint.ComboBox3.dbFilter := 'id='+IntToStr(idDepartament);
FrmAddPint.ComboBox3.dbUpdate;
  end;

Как дополнить процедуру, чтобы у Admistratora в ComboBox вытягивались все id записи из departament? 
if (not isAdmin) and (idDepartament<>0)...........

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Заполнение ComboBox при разных правах (Admin/not isAdmin)

Необходимо, чтобы Администратор видел все департаменты?
Тогда достаточно просто не устанавливать значение для свойства dbFilter

procedure FrmAddPint_OnShow (Sender: TObject; Action: string);
begin
   if not isAdmin then // фильтруем комбобокс только для пользователей
   begin
      idDepartament := SQLExecute('SELECT IFNULL(id_departament, 0) FROM users WHERE id = '+IntToStr(idUser));
      FrmAddPint.ComboBox3.dbFilter := 'id='+IntToStr(idDepartament);
      FrmAddPint.ComboBox3.dbUpdate;
   end;
Dmitry.