• Alex
  • Member
  • Offline
  • Registered: 2015-05-05
  • Posts: 21

Topic: Авторизация. Три проекта в одном

Совсем запутался, не выходит никак ...
Помогите объединить три проекта: "LoginEx", "Login with check double login", "Login with protect own records and admin".
Хочется получить собственно авторизацию с правами из "LoginEx" (окошко "User" не "ComboBox", а "TextBox") и проверки
на повторный заход Пользователя с запретом редактирования чужих записей, кроме Админа.
Получится?
Спасибо

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Авторизация. Три проекта в одном

Что именно не получается?

Dmitry.
  • Alex
  • Member
  • Offline
  • Registered: 2015-05-05
  • Posts: 21

Re: Авторизация. Три проекта в одном

DriveSoft wrote:

Что именно не получается?

Когда из скрипта проекта "Login with protect own records and admin" вставляю в скрипт "LoginEx" процедуру:

-

procedure frmLogin_bLogin_OnClick (Sender: string; var Cancel: boolean);
var
   s: string;
begin
     // SQL query for check user and password
     s := SQLExecute('SELECT count(id) FROM users WHERE (id = ''' + IntToStr(frmLogin.cbLogin.dbItemID) + ''') AND (password = ''' + frmLogin.edPassword.Text + ''');');

     // if SQL query found login and password
     if (s <> '0') and (s<>'') then
     begin
          sUser := frmLogin.cbLogin.Text; // remember username
          idUser := frmLogin.cbLogin.dbItemID; // remember user id in database

-

сообщает об ошибке "Undeclared identifier: 'dbItemID' at 23:103"

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Авторизация. Три проекта в одном

Alex
Странно, какая версия программы у вас?
либо у вас компонент frmLogin.cbLogin не является ComboBox-ом

Dmitry.
  • Alex
  • Member
  • Offline
  • Registered: 2015-05-05
  • Posts: 21

Re: Авторизация. Три проекта в одном

DriveSoft wrote:

Alex
Странно, какая версия программы у вас?
либо у вас компонент frmLogin.cbLogin не является ComboBox-ом

Не является.
Поэтому и вопрос возник. Хотелось-бы через ТекстБокс вводить Имя.
можно-ли  "idUser := frmLogin.cbLogin.dbItemID;"  вводить через "Текст"  -  "idUser := frmLogin.edLogin.Text;"
хотя и так пробовал - не работает (знаний не хватает...)

Версия 1.51