[geniusbsd]

Добрый день
Помогите с оптимизацией кода

Есть Форма авторизации при введении правильного логина и пароля
Получаем из таблицы базы данных
параметры главного меню основной формы в зависимости от роли пользователя
Структура базы такова
Таблица СпрПользователи связана с таблицей СпрГрупп которая связана с таблицей СпрИнтерфейсов

Задачу решил так

Код:

 ADOQueryFase.Active:=False;
      ADOQueryFase.SQL.Clear;
 ADOQueryFase.SQL.Add('SELECT *');
 ADOQueryFase.SQL.Add('FROM  SprFase');
 ADOQueryFase.SQL.Add('WHERE');
 ADOQueryFase.SQL.Add('FaseID  = '+InttoStr(IFaseID[H])+' '); 
  ADOQueryFase.Open;
   //Настройка интерфейса
   IFACE:= ADOQueryFase.FieldValues['MClose'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MClose.Visible:=IFACEBool;

  IFACE:= ADOQueryFase.FieldValues['MNewOrder'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MNewOrder.Visible:=IFACEBool;

  IFACE:= ADOQueryFase.FieldValues['MUsers'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MUsers.Visible:=IFACEBool;

  IFACE:= ADOQueryFase.FieldValues['MTMC'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MTMC.Visible:=IFACEBool;

  IFACE:= ADOQueryFase.FieldValues['MContractor'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MContractor.Visible:=IFACEBool;

  IFACE:= ADOQueryFase.FieldValues['MCatalog'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MCatalog.Visible:=IFACEBool;

  IFACE:= ADOQueryFase.FieldValues['MSettings'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MSettings.Visible:=IFACEBool;

  IFACE:= ADOQueryFase.FieldValues['MRegister'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MRegister.Visible:=IFACEBool;

  IFACE:= ADOQueryFase.FieldValues['MRegister'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MRegister.Visible:=IFACEBool;

  IFACE:= ADOQueryFase.FieldValues['MDoc'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MDoc.Visible:=IFACEBool;

   IFACE:= ADOQueryFase.FieldValues['MReports'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MReports.Visible:=IFACEBool;

   IFACE:= ADOQueryFase.FieldValues['MParameters'];
  if IFACE = 1 then
  IFACEBool:=True
  else IfaceBool:=False;
  MainForm.MainMenu.MParameters.Visible:=IFACEBool;

Админ: Пользуемся тегами для оформления кода!

Как можно более красиво решить данную задачу?

[Страдалецъ]

Зачем столько лишнего кода?
Вместо всего этого:

Код:

IFACE:= ADOQueryFase.FieldByName('MClose').AsBoolean;
 if IFACE = 1 then
 IFACEBool:=True
 else IfaceBool:=False;
 MainForm.MainMenu.MClose.Visible:=IFACEBool;

сразу

Код:

 MainForm.MainMenu.MClose.Visible:= ADOQueryFase.FieldByName('MClose').AsBoolean;

По аналогии остальное так-же переделайте.

[geniusbsd]

Дело в том что в MS SQL нет типа boolean
по этому в таблице Интерфейсов используется поля int 0 - отключено меню
1 - показывать меню

[geniusbsd]

Дело в том что в MS SQL нет типа boolean
по этому в таблице СпрИнтерфейсов используется поля int 0 - отключено меню
1 - показывать меню

[Bargest]

Если вдруг предложенный Страдальцем вариант не компилируется (что очень странно), то можно записать то же самое как

Код:

MainForm.MainMenu.MClose.Visible:= ADOQueryFase.FieldByName('MClose') = 1;

[geniusbsd]

При Вашем коде ошибка [dcc32 Error] LoginUnit.pas(96): E2015 Operator not applicable to this operand type
При Коде Страдальца ошибка не при компиляции, а выдается программой Cannot access field 'MClose' as type Boolean