Лабораторная работа: Создание программы авторизации пользователя с помощью пароля

end

else

begin

Application.MessageBox('Входвневыполнен. Вы не верно ввели данные');

Form3.Edit2.Clear;

m:=m+1;

end;

if (m=3) then

begin

Application.MessageBox(‘Вы 3 разаввелиневерныйпароль. Вход в систему будет заблокирован');

Close;

Form1.BitBtn2.Visible:=false;

end;

end;

procedure TForm3.FormShow(Sender: TObject);

begin

m:=0;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Close;

end;

end.

Реализация:

Программа написана на Delphi.

Выберите действие:

Пользователь вводит данные о себе, выбирает пароль, и щелкает по кнопке Registration.