Search options (Page 56 of 68)

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;