Авторизация в БД с разграничением прав доступа

@Сергей_Дисюков · Регистрация: 04.07.2019

Студворк — интернет-сервис помощи студентам

Добрый день всем, подскажите как сделать авторизацию с разграничением прав доступа, использую такой код просто для считывания логинов и паролей которые хранятся в таблице Access:

C++
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
void __fastcall TLogin::Button1Click(TObject *Sender)
{
 bool c = false,d = false;
 
  AnsiString e1=Edit1->Text,e2=Edit2->Text, log,pas;
  Main->ADOQuery2->First();
  while(!Main->ADOQuery2->Eof)
  {
    log=Main->ADOQuery2->FieldByName("Логин")->AsString;
    pas=Main->ADOQuery2->FieldByName("Пароль")->AsString;
 
 
            if (e1 == log)
               {
                  c = true;
               }
            if  (e2 == pas)
              {
                d = true;
              }
                 if ((log==e1)&&(pas==e2))
               {
                 Main->Show();
                 Login->Hide();
                 Edit1->Clear();
                 Edit2->Clear();
               }
              Main->ADOQuery2->Next();
  }           if (a)
 
      if (!c)
    {
      ShowMessage("Логин не верен!");
      Edit1->Clear();
    }
  if (!d)
   {
      ShowMessage("Пароль не верен!");
      Edit2->Clear();
   }
}

Как сделать разграничение прав доступа, если в таблице с логинами и паролями имеется столбцы с 4 пользователями которые имеют логический тип и нужно чтобы при входе он понимал какой логин и пароль введен и проверял у какого пользователя значение true

@D1973 · 09.08.2019, 19:51

Сергей_Дисюков, неправильная конфигурация БД! Тут должно быть 2 таблицы: "Пользователи" и "Роли", связанные, как я понял по Вашему скрину, отношением 1х1... В этом случае элементарно при совпадении логина и пароля выбирается ID роли и дальше приложение отображает те или иные формы/пункты меню/вкладки компонента PageControl/и т.д...

@Сергей_Дисюков · 10.08.2019, 16:08 **[ТС]**

D1973, И еще хотел узнать по поводу компонента PageControl, можно ли как-то скрыть вкладки?

Добавлено через 5 часов 38 минут
Сделал авторизацию с проверкой вот так:

C++
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
{
 bool c = false,d = false, s,a,r,i;
 
  AnsiString e1=Edit1->Text,e2=Edit2->Text, log,pas;
  Main->ADOQuery2->First();
  while(!Main->ADOQuery2->Eof)
  {
    log=Main->ADOQuery2->FieldByName("Логин")->AsString;
    pas=Main->ADOQuery2->FieldByName("Пароль")->AsString;
    s=Main->ADOQuery2->FieldByName("Составитель")->AsBoolean;
    a=Main->ADOQuery2->FieldByName("Администратор")->AsBoolean;
    r=Main->ADOQuery2->FieldByName("Распределитель")->AsBoolean;
    i=Main->ADOQuery2->FieldByName("Исполнитель")->AsBoolean;
 
 
            if (e1 == log)
               {
                  c = true;
               }
            if  (e2 == pas)
              {
                d = true;
              }
                 if ((log==e1)&&(pas==e2))
               {
                if (c == s)
                {
                Main->TabSheet1->TabVisible=true;
                Main->TabSheet2->TabVisible=false;
                Main->TabSheet3->TabVisible=false;
                Main->TabSheet4->TabVisible=false;
                }
                if (c == a)
                {
                Main->TabSheet4->TabVisible=true;
                Main->TabSheet2->TabVisible=false;
                Main->TabSheet3->TabVisible=false;
                Main->TabSheet1->TabVisible=false;
                }
                if (c == i)
                {
                Main->TabSheet2->TabVisible=true;
                Main->TabSheet4->TabVisible=false;
                Main->TabSheet3->TabVisible=false;
                Main->TabSheet1->TabVisible=false;
                }
                if (c == r)
                {
                Main->TabSheet3->TabVisible=true;
                Main->TabSheet4->TabVisible=false;
                Main->TabSheet2->TabVisible=false;
                Main->TabSheet1->TabVisible=false;
                }
                 Main->Show();
                 Login->Hide();
                 Edit1->Clear();
                 Edit2->Clear();
               }
              Main->ADOQuery2->Next();
  }
 
      if (!c)
    {
      ShowMessage("Логин не верен!");
      Edit1->Clear();
    }
  if (!d)
   {
      ShowMessage("Пароль не верен!");
      Edit2->Clear();
   }
}

________________________________________ ________________________
Подскажите со сменой пароля, сделал так, но как ввожу старый пароль и новый то все зависает.
И на сколько знаю использовать данный код Main->ADOQuery2->Edit();
Main->ADOQuery2->FieldByName("Пароль")->AsString = (Edit2->Text);
Main->ADOQuery2->Post(); тут не корректно, т.к. он вроде изменяет выбранную запись. Подскажите пожалуйста как сделать лучше

C++
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
{
 bool starpas = false, newpas = false;
 
  AnsiString e1=Edit1->Text,e2=Edit2->Text,e3=Edit2->Text ,pas;
  Main->ADOQuery2->First();
  while(!Main->ADOQuery2->Eof)
  {
    pas=Main->ADOQuery2->FieldByName("Пароль")->AsString;
 
 
            if  (e1 == pas)
              {
                starpas = true;
              }
 
            if(e2 == e3)
              {
              newpas = true;
              }
 
               if ((e1 == pas)&&(e2 == e3))
               {
                Main->ADOQuery2->Edit();
                Main->ADOQuery2->FieldByName("Пароль")->AsString = (Edit2->Text);
                Main->ADOQuery2->Post();
                ChangePass->Close();
                Login->Show();
               }
  }
    if(!starpas)
    {
    ShowMessage("Старый пароль не верный!");
    Edit1->Clear();
    }
    if (!newpas)
    {
     ShowMessage("Пароли не совпадают");
    Edit2->Clear();
    Edit3->Clear();
    }
 
 
}

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	[В процессе разработки] SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@D1973 Модератор 9921 / 6457 / 2457 Регистрация: 21.01.2014 Сообщений: 27,401 Записей в блоге: 3
	09.08.2019, 19:51
	Сергей_Дисюков, неправильная конфигурация БД! Тут должно быть 2 таблицы: "Пользователи" и "Роли", связанные, как я понял по Вашему скрину, отношением 1х1... В этом случае элементарно при совпадении логина и пароля выбирается ID роли и дальше приложение отображает те или иные формы/пункты меню/вкладки компонента PageControl/и т.д... 1