как сделать аутентификацию?

[пОЛЯрная]

Добрый день, подскажите как сделать аутентификацию под форму? Есть 4 диспетчера, для каждого свой пароль, при правильном пароле диспетчер переходит к форме приема вызова, форма одна для всех диспетчеров. При неверном пароле вылетает сообщение о неправильном вводе и просьбе повторить ввод.

[haruhi]

конкретно проблема-то в чём?

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

[пОЛЯрная]

Сделала два текстовых файла login.txt и pass.txt, внесла логины и пароли, как теперь сделать проверку? именно сам код....

[haruhi]

загружаем эти файлы в TStringList и проверяем
как-то так:

var  logins, passs:TStringList;
......
inlogin - введённый логин
inpass - введённый пароль
......

logins.LoadFromFile('login.txt');
passs.LoadFromFile('pass.txt');
.......

if logins.indexof(inlogin)<>-1 then
 if passs[logins.indexof(inlogin)] <> inpass 
   then //неверный пароль
   else // успешный вход
.......

[пОЛЯрная]

почему-то в список значения не записываются из файла..вот здесь ошибка logins.LoadFromFile('Login.txt');

[phomm]

Вы вообще не знаете основ ? Изучайте ООП !
До использования объектов надо вызвать примерно такой код, создание объекта:

logins := Tstringlist.create;

после использования уничтожить

freeandnil(logins);

[GunSmoker]

как теперь сделать проверку? именно сам код....

1. Найти в списке диспетчеров указанный табельный номер. Если нашли - переход к п.2, иначе - к п.3.
2. Проверить, совпадает ли введённый пароль с паролем от этого табельного номера. Если совпадает - переход к п.4, иначе - к п.3.
3. Показать сообщение "В доступе отказано".
4. Продолжить работу.

Написание кода за вас - 500 рублей.

[пОЛЯрная]

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