[geniusbsd]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79

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;

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

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

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

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

Код:

1 2 3 4 5

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

сразу

Код:

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

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

[geniusbsd]

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

[geniusbsd]

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

[Bargest]

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

Код:

1	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

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

Ну а так попробуйте?

MainForm.MainMenu.MClose.Visible:= ADOQueryFase.FieldValues['MClose'] = 1;

[geniusbsd]

Спасибо работает
Если не трудно объясните выражение ADOQueryFase.FieldValues['MClose'] = 1;
Не могу понять логику ADOQueryFase.FieldValues['MClose'] принимает значение 0 или 1 т.е.
MainForm.MClose.Visible:= 0=1
или
MainForm.MClose.Visible:= 1=1

[icWasya]

Не могу понять логику ADOQueryFase.FieldValues['MClose'] принимает значение 0 или 1 т.е.
MainForm.MClose.Visible:= 0=1
или
MainForm.MClose.Visible:= 1=1

А чего не понятно?
выражение 1=1 имеет тип Boolean и значение false, и его можно не только использовать в операторе if, но и присвоить чему-нибудь, тоже имеющему тип Boolean, например, свойству Visible.

[geniusbsd]

Спасибо всем за помощь