Delphi. Алгоритм входа в личный кабинет

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

Сам алгоритм я сформулировал для себя так

…Проверки…

1.Искать введенный логин в БД, если не нашли, то выйти из алгоритма

2. Сопоставить пару логин-пароль, если пара совпадает, то следующее действие, иначе выход

3. Какое-то действие, например открытие окна, страницы, поздравление со входом и так далеее

Под проверками я понимаю, что поле не пустое, поле содержит или не содержит такие-то символы и так далее…

3

Практика

База данных. Создадим БД из 1 таблицы users, например так

27

 

Заполним её двумя строками – админом и пользователем.

4

Форма авторизации.

1

 

Датамодуль для формы авторизации

2

 

Я делаю подключение к БД при помощи технологиии FireDAC, поэтому здесь такой набор компонентов. В FDQuery_Users написан вот такой запрос в свойстве SQL

Кнопка Войти

Вот наш результат

3