1 (edited by sibprogsistem 2019-01-14 19:28:53)

Topic: авторизация (открывает форму в зависимости от прав пользователя)

Авторизация открывает форму в зависимости от прав пользователя..
 

 procedure frmLogin_bLoginOk_OnClick (Sender: TObject; var Cancel: boolean);
 var
  s,t,r: string;
  sStatus: string;
begin

    // Запрос SQL для проверки пользователя и пароля
     s := VarToStr(SQLExecute('SELECT count(id) FROM users WHERE (id = ' + IntToStr(frmLogin.cbStatus.dbItemID) + ') AND (password = ''' + frmLogin.ePassword.Text + ''');'));
          // если SQL-запрос нашел логин и пароль
        if (s<>'0') AND (s<>'') then
          begin
             //скрыть форму авторизации
             frmLogin.Hide;
             // SQL-запрос прав пользователя
             sStatus := SQLExecute('SELECT id_userStatus FROM users WHERE id='+IntToStr(frmLogin.cbStatus.dbItemID));
             // если права пользователя * то открыть *
             if sStatus = '1' then frmAdmin.Show else  //администратор
             if sStatus = '2' then frmMasterWork.Show else  //мастер
             if sStatus = '3' then frmServiceCen.Show ;  //менеджер
     end else MessageBox('Пароль неверен','Ошибка подключения ', MB_OK+MB_ICONSTOP);
end;

где :
 

 if sStatus = '1' then frmAdmin.Show else  //администратор
             if sStatus = '2' then frmMasterWork.Show else  //мастер
             if sStatus = '3' then frmServiceCen.Show ;  //менеджер

 
позваляет создавать разные условия работы программы для каждого типа пользователя

Post's attachments

Attachment icon authorization.7z 118.32 kb, 659 downloads since 2019-01-14 

Re: авторизация (открывает форму в зависимости от прав пользователя)

Добрый день! А  как можно реализовать возможность отображения записей созданных пользователем который вошёл в систему ?

Re: авторизация (открывает форму в зависимости от прав пользователя)

pycuk wrote:

Добрый день! А  как можно реализовать возможность отображения записей созданных пользователем который вошёл в систему ?

1-1
2-2

Post's attachments

Attachment icon authorization.rar 123.34 kb, 433 downloads since 2021-04-24