Создание формы авторизации

@TYMON · Регистрация: 17.06.2010

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

1) Подключаем таблицу к форме но не отображаем
2) Есть два поля для ввода (DBEdit или Edit??)
3) Как сделать чтобы сравнивало значения которые есть в таблице?

Добавлено через 1 час 26 минут
Вот написал такой текст. Ошибок вроде нет, но кнопка не реагирует на нажатие (только если пустые едиты тогда реагирует)

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
void __fastcall TForm8::Button1Click(TObject *Sender)
{
s=" ";
 
if ( (Edit1->Text.IsEmpty()) || (Edit2->Text.IsEmpty()))
    {
       Application->MessageBoxA("Поля не могут быть пустыми!! Введите пожалуйста данные ","Ошибка ввода!",MB_OK+MB_ICONSTOP);
    }
    else
    {
        if (!Edit1->Text.IsEmpty())
        {
        if (s!=" ")
        {
         s=s+"login= '"+Edit1->Text"' ";
          }
 
        if (!Edit2->Text.IsEmpty())
        {
        if (s!=" ")
        {
        s=s+"AND password =  '"+Edit2->Text+"' ";
        }
           }
   if (s!=" ")
{
    //формируем текст запроса
    ADOQuery1->Active=false;
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add("select operator.* from aeroport.operator where "+s);
    //активируем запрос (отбираем данные)
    ADOQuery1->Active=true;
    //соединяем запрос с источником данных
    DataSource1->DataSet=ADOQuery1;
      ADOTable1->Active=false;
        ADOTable1->Active=true;
        if (ADOTable1->RecordCount>0))
        {
        Form1->Visible=true;
        }
        else
         Application->MessageBoxA("Неправильно введен пароль!!!","Ошибка ввода!",MB_OK+MB_ICONSTOP);
        }
 
}

The_Immortal · 10.12.2013, 01:38

TYMON, прокомментирую вкратце некоторые моменты в Вашем коде, в случае, когда заполнены оба поля.

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
void __fastcall TForm8::Button1Click(TObject *Sender)
{
s=" ";
 
if ( (Edit1->Text.IsEmpty()) || (Edit2->Text.IsEmpty()))
    {
       Application->MessageBoxA("Поля не могут быть пустыми!! Введите пожалуйста данные ","Ошибка ввода!",MB_OK+MB_ICONSTOP);
    }
    else
    {
        if (!Edit1->Text.IsEmpty())
        {
        if (s!=" ") // к чему это условие? В третьей строке s = " ", соответственно, это условие не выполнится и...
        {
         s=s+"login= '"+Edit1->Text"' "; // ...сюда мы не попадем; тут же, кстати, ошибка в сложении строк;
          }
 
        if (!Edit2->Text.IsEmpty())
        {
        if (s!=" ") // аналогично;
        {
        s=s+"AND password =  '"+Edit2->Text+"' "; // к чему здесь в конце пробел?
        }
           }
   if (s!=" ")
{
    //формируем текст запроса
    ADOQuery1->Active=false;
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add("select operator.* from aeroport.operator where "+s);
    //активируем запрос (отбираем данные)
    ADOQuery1->Active=true;
    //соединяем запрос с источником данных - отлично, но зачем?
    DataSource1->DataSet=ADOQuery1; // для чего это?
      ADOTable1->Active=false; // зачем нам вдруг понадобился еще один набор данных?
        ADOTable1->Active=true; 
        if (ADOTable1->RecordCount>0)) // он не имеет отношения к выполненному ранее запросу; + лишняя скобка;
        {
        Form1->Visible=true;
        }
        else
         Application->MessageBoxA("Неправильно введен пароль!!!","Ошибка ввода!",MB_OK+MB_ICONSTOP);
        }
 
}

@TYMON · 10.12.2013, 17:18 **[ТС]**

вначале все исправил, спасибо за замечания, а как тогда посчитать количество полученных записей после запроса? или как вообще проверять?

Добавлено через 6 минут
Все вроде додумал исправил. Все из-за DataSource1 который я использовал ранее в поиске чтобы отображать данные в сетке, сбил он меня. Достаточно сразу обратиться к ADOQuery1. Подскажите если что не так:

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
void __fastcall TForm8::Button1Click(TObject *Sender)
{
s=" ";
 
if ( (Edit1->Text.IsEmpty()) || (Edit2->Text.IsEmpty()))
    {
       Application->MessageBoxA("Ïîëÿ íå ìîãóò áûòü ïóñòûìè!! Ââåäèòå ïîæàëóéñòà äàííûå ","Îøèáêà ââîäà!",MB_OK+MB_ICONSTOP);
    }
    else
    {
        if (!Edit1->Text.IsEmpty())
        {
               s=s+"login='"+Edit1->Text+"' ";
          }
 
        if (!Edit2->Text.IsEmpty())
        {
 
        s=s+"AND password='"+Edit2->Text+"'";
        }
                         }
   if (s!=" ")
{
    //ôîðìèðóåì òåêñò çàïðîñà
    ADOQuery1->Active=false;
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add("select operator.* from aeroport.operator where "+s);
    //àêòèâèðóåì çàïðîñ (îòáèðàåì äàííûå)
    ADOQuery1->Active=true;
    if (ADOQuery1->RecordCount>0)
        {
        Form1->Visible=true;
        }
        else
        {
         Application->MessageBoxA("Íåïðàâèëüíî ââåäåí ïàðîëü!!!","Îøèáêà ââîäà!",MB_OK+MB_ICONSTOP);
}
}
 
}

The_Immortal · 10.12.2013, 18:14

TYMON,

Сообщение от TYMON

Подскажите если что не так

Уже лучше. Но я бы еще добавил дополнительную проверку на существование введенного логина, как это делается в нормальных системах: "Такого логина не существует." - это по желанию. Либо поправьте формулировку в конце, т.к. может быть неправильно введен и логин ("Неправильно введен логин и/или пароль!!!").

По алгоритму:
- к чему дополнительно проверять наличие текста в Edit'ах (12 и 17 строки)?

- уберите условие

C++
1
if (s!=" ")

- все, что под ним, можно отправить выше (в первый else - 10 строка).

@Oxotnuk · 10.12.2013, 18:54

Еще больше кода!!! еще больше!!!

C++
1
2
3
4
5
6
7
8
9
TForm1 *Form1;
bool Lserch (AnsiString L){
Form2->Table1->First();
for ( int i = 0; i< Form2->Table1->RecordCount; i++) {
        if (L ==Form2->Table1Login->Value)
        {return true;
        break;}
Form2->Table1->Next();}
return false; }

C++
1
2
3
4
5
6
Form2->Table1->Open();
if ((Lserch(Edit1->Text))&&(Edit2->Text == Form2->Table1Pass->Value ))
{ Form3->Show();
Form2->Table1->Close();
Form1->Visible=False; }
else ShowMessage("Введен неправильный логин или пароль!!!");

The_Immortal · 10.12.2013, 19:06

Oxotnuk,

Сообщение от Oxotnuk

C++
1
2
3
4
5
Form2->Table1->First(); 
for ( int i = 0; i< Form2->Table1->RecordCount; i++) 
{ if (L ==Form2->Table1Login->Value) 
{return true; break;} 
Form2->Table1->Next();}

Замечательно. А теперь представим большое множество данных. И что-то мне подсказывает, что при подобном навигационном подходе скорость обработки данных будет значительно больше, нежели при использовании запроса.

@Oxotnuk · 10.12.2013, 19:12

The_Immortal, понятное дело,такие процедуры, на стороне апликейшен сервера делаются,который не посредственно уже законекчен к SQL-ку.(иначе будут пораждаться кучу коннектов,которые буду выжирать память)
Разве я не прав?)
А для поиграться,мой подход более рационален )

The_Immortal · 10.12.2013, 19:19

Oxotnuk,

Сообщение от Oxotnuk

мой подход более рационален )

Чем?

@Oxotnuk · 10.12.2013, 19:30

The_Immortal, эту функцию можно использовать для проверки на существования логина

) универсальна
Ну,если делать регистрацию пользователей.

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	10.12.2013, 19:12
	The_Immortal, понятное дело,такие процедуры, на стороне апликейшен сервера делаются,который не посредственно уже законекчен к SQL-ку.(иначе будут пораждаться кучу коннектов,которые буду выжирать память) Разве я не прав?) А для поиграться,мой подход более рационален ) 1

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	10.12.2013, 19:30
	The_Immortal, эту функцию можно использовать для проверки на существования логина ) универсальна Ну,если делать регистрацию пользователей. 0