procedure Start_bLogin_OnClick (Sender: string; var Cancel: boolean);
    var
       sHash: string;
       sA,sT,sU: string;
    begin
         //
     // SQL query get hash of password
     sHash := VarToStr( SQLExecute('SELECT Password FROM BEZOP WHERE (Login = ''' + Start.Login.Text + ''');') );


     // if the hash in the database = hash of entered a password
     if sHash = StrToMD5(Start.Pas.Text) then//


         begin
              sUser := Start.Login.Text; // Запомнить имя пользователя             

              Form1.TableSr.dbPopupMenu.Items.Items[0].Enabled := False;// отключение двойного клика в таблице на Form1

              // Administrator?
              // check admin rights
              // Кнопки видимые только для администратора, и терадминистратора
              sA := VarToStr( SQLExecute('SELECT `admin` FROM BEZOP WHERE (login = ''' + sUser + ''');') );
              if sA='1' then
               begin
               Form1.RedakPr.Visible:=False;
               Form1.UdalitPr.Visible:=False;
               Form1.Import.Visible:=False;
               Form1.UpfSr.Visible:=False;
               RabotaSPredp.DelEv.Visible:=False;
               end;
              sT := VarToStr( SQLExecute('SELECT `teradmin` FROM BEZOP WHERE (login = ''' + sUser + ''');') );
              if sT='1' then
               begin
               Form1.Custom.Visible:=False;
               end;
              sU := VarToStr( SQLExecute('SELECT `user` FROM BEZOP WHERE (login = ''' + sUser + ''');') );
              if sU='1' then
               begin
               Form1.Custom.Visible:=False;
               Form1.RedakPr.Visible:=False;
               Form1.UdalitPr.Visible:=False;
               Form1.Import.Visible:=False;
               Form1.UpfSr.Visible:=False;
               RabotaSPredp.DelEv.Visible:=False;
               end;
              // if the user does not have administrator privileges, deactivate the button to create other users

              idUPF := SQLExecute('SELECT IFNULL(id_UPF, 0) FROM BEZOP WHERE (login = ''' + sUser + ''');');

              // hide records for manager who from another departament
              if (idUPF<>0) then Form1.TableSr.dbFilter := 'id_UPF='+IntToStr(idUPF);

              Form1.Caption := 'Пользователь: ' + sUser; // отображение имя пользователя на форме 1
              Start.Hide; // close login form
              Form1.Show; //показать Form 1
         end
     else MessageDlg('Неверно введен логин или параль', mtError, mbOk, 0); // Сообщение при неверном логине и пароле

    end;

zloyzender wrote:

так пробовал но мне надо  "Form1.Custom.Visible:=False;" чтобы работала для пользователей типа "admin", а все остальные для пользователя "teradmin", а для остальных эти кнопки были невидимы.
А у меня выходит что для админа все работает как надо, а условия для терадмина распространяются как на терадмина так и на остальных юзеров

у вас проверка только на администратора работает,  так можно только да или нет проверить

загрузите проект.

так пробовал но мне надо  "Form1.Custom.Visible:=False;" чтобы работала для пользователей типа "admin", а все остальные для пользователя "teradmin", а для остальных эти кнопки были невидимы.
А у меня выходит что для админа все работает как надо, а условия для терадмина распространяются как на терадмина так и на остальных юзеров

у вас проверка только на администратора работает,  так можно только да или нет проверить

загрузите проект.

s := VarToStr( SQLExecute('SELECT `admin` FROM BEZOP WHERE (login = ''' + sUser + ''');') );
              if s='0' then
               begin
                   Form1.Custom.Visible:=False;
                   Form1.RedakPr.Visible:=False;
                   Form1.UdalitPr.Visible:=False;
                   Form1.Import.Visible:=False;
                   Form1.UpfSr.Visible:=False;
                  RabotaSPredp.DelEv.Visible:=False;
             end;
сам проект было бы лучше....

так пробовал но мне надо  "Form1.Custom.Visible:=False;" чтобы работала для пользователей типа "admin", а все остальные для пользователя "teradmin", а для остальных эти кнопки были невидимы.
А у меня выходит что для админа все работает как надо, а условия для терадмина распространяются как на терадмина так и на остальных юзеров

Проэкт приложить не могу архив весит 4,3 Мб, ваш сервер выдает "Выбранный файл слишком велик. Сервер отклонил загрузку."

Выложите на файлообменнике, на Гугле, например, а здесь скиньте ссылку на файл.