Авторизация пользователя

[StudUL]

Здравствуйте, подскажите как можно сделать при запуске программы ввод пользователя и пароля. Есть отдельная табличка в Access там поля: №, имя пользователя, пароль.
У меня СУБД в Access, а сама программа в Builder.
Если можно, то подробно по шагам расписать, т.к. я новичок в этом деле.
Могу базу разместить, если кто готов помочь.

Я поместила на форму Edit1 и Edit2, кнопку, и компонент Ttable и Data Source. Теперь пробую соединить это всё.

[nick42]

Раз у Вас СУБД Access, то скорее всего будете использовать ADOConnection. Как вытащить из таблицы имя пользователя и пароль, надеюсь, знаете. А чтобы при запуске программы появлялся запрос, просто добавьте библиотеку

#include <Dblogdlg.hpp>

и на событие FormShow напишите такой текст:

   /*  #include <Dblogdlg.hpp>  */
    AnsiString una, pwd  ;
    if (LoginDialog( "Моя База",una,pwd))
   {
       if (una=="Администратор") { ;  ;  }
       else ShowMessage("Введенный пароль: "+pwd);
   }
    else Close();

Это только пример, конечно. Строки una и pwd придется в цикле сравнивать с теми, что в базе.

[StudUL]

AdoConnection подключила. Вот такой код вставила:

AnsiString al=Edit1->Text;
AnsiString bl;
AnsiString ap=Edit2->Text;
AnsiString bp;
ADOTable1->First();
  for (int i=0;i<ADOTable1->RecordCount;i++)
  {
   bl=ADOTable1->FieldByName("TN")->AsString;
    bp=ADOTable1->FieldByName("P")->AsString;
   if (al != bl)
   {
ShowMessage("Логин не верен!");
Edit1->Clear();
 Edit2->Clear();
return;
   }
 if  (ap != bp)
 {
ShowMessage("Пароль не верен!");
Edit2->Clear();
return;
 }
     else
     {
Form1->ShowModal();
     }
  }

Только при запуске работает первый пользователь и пароль. Если какой-нибудь другой ввожу, то нет, не открывает.

[nick42]

Надо в цикле добавить ADOTable1->Next(); для перебора, и сообщения и несовпадении выдавать уже вне цикла, по состоянию флажка (true-false) совпадения.

[StudUL]

Вставила, пишет неверный логин и пароль.

for (int i=0;i<ADOTable1->RecordCount;i++)
  {
  ADOTable1->Next();
   bl=ADOTable1->FieldByName("TN")->AsString;
    bp=ADOTable1->FieldByName("P")->AsString;
   if (al != bl)
   {

[nick42]

(Вставлять тоже уметь надо...) А неправильно потому что. Вот так приблизительно надо__

  bool legal=false;
  ADOTable1->First();
  for (int i=0;i<ADOTable1->RecordCount;i++)
  {
   bl=ADOTable1->FieldByName("TN")->AsString;
    bp=ADOTable1->FieldByName("P")->AsString;
     if (al==bl && ap==bp) legal = true;
      ADOTable1->Next();
  }
  if (!legal) ShowMessage("Login or Password incorrect!");
  else { ; ; ; }

[StudUL]

Что-то ни под каким паролем и пользователем не заходит.

void __fastcall TForm2::Button1Click(TObject *Sender)
{
AnsiString al=Edit1->Text;
AnsiString bl;
AnsiString ap=Edit2->Text;
AnsiString bp;
ADOTable1->First();
  bool legal=false;
  ADOTable1->First();
  for (int i=0;i<ADOTable1->RecordCount;i++)
  {
   bl=ADOTable1->FieldByName("TN")->AsString;
    bp=ADOTable1->FieldByName("P")->AsString;
     if (al==bl && ap==bp) legal = true;
      ADOTable1->Next();
  }
  if (!legal) ShowMessage("Login or Password incorrect!");
  else { ; ; ; }
Edit1->Clear();
 Edit2->Clear();
return;
   }

[nick42]

Не понял: на любой ввод сообщение Login or Password incorrect! ?

[StudUL]

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

[nick42]

Попробуйте в сообщение об ошибке вставить слова (логин-пароль) из базы, с которыми сравниваете. И какой версией Билдера работаете? У меня все четко анализирует. Если другая форма нужна только для идентификации при старте, то лучше отказаться от такой структуры и делать все с одной формой, используя LoginDialog.