Рефетека.ру / Информатика и програм-ие

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

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН

КАЗАХСКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ им. К.И. САТПАЕВА

ИНСТИТУТ ИНФОРМАЦИОННЫХ ТЕХНОЛОГИЙ


Кафедра Вычислительной техники


Лабораторная работа №3

Тема: ______________________________


Качество выполнения работы Диапазон оценки

Получено,

%

1

Выполнение и активность обучающегося 0 – 50%

2

Оформление работы 0 – 20%

3

Умение пользоваться справочниками, технической литературой, учебно-методическим комплексом дисциплины, конспектами лекции 0 – 5%

4

Умение пользоваться техническими средствами 0 – 5%

5

Защита работы 0 – 20%

Итого: 0 – 100%

Проверила:

Мынбаева Л.Н.

Выполнила:

Исаханова Д.Е.

ВПбП-07-1р


Алматы 2009


Задание:

Написать программу входа пользователем в систему через пароль. Язык программы - любой. Разработанная программа должна содержать следующие пункты: вход в систему через ввод и проверку пароля, а также регистрацию пользователя, при этом заносит имя и пароль пользователя в базу данных. При вводе неверного пароля – система блокируется.


Листинг программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

StaticText1: TStaticText;

StaticText2: TStaticText;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Image1: TImage;

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form2.dbedit1.Clear; form2.dbedit2.Clear;

form2.dbedit3.Clear; form2.dbedit4.Clear;

Form2.Edit1.Clear; Form2.Show;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form3.Show;

end;

end.


unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ADODB, Mask, DBCtrls, jpeg, ExtCtrls, Grids,

DBGrids, Buttons;

type

TForm2 = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

StaticText1: TStaticText;

StaticText2: TStaticText;

DBEdit3: TDBEdit;

StaticText3: TStaticText;

StaticText4: TStaticText;

Edit1: TEdit;

Button1: TButton;

DBEdit4: TDBEdit;

StaticText5: TStaticText;

Button2: TButton;

Image1: TImage;

Button3: TButton;

Label1: TLabel;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3, Unit4;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Edit1.Text:=Inttostr(random(1000+2000));

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

if DataModule4.AdoTable1.Modified then

DataModule4.AdoTable1.Post;

Close;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

DataModule4.adoTable1.Insert;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Dbedit3.Text:=Edit1.Text;

end;

end.


unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls, ShellApi;

type

TForm3 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Button2: TButton;

Image1: TImage;

StaticText1: TStaticText;

StaticText2: TStaticText;

StaticText3: TStaticText;

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

m: integer;

implementation

uses Unit1, Unit2, Unit4;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

if (datamodule4.AdoTable1.FieldValues['Пароль']= Edit2.Text) and

(datamodule4.AdoTable1.FieldValues['Имя']= Edit1.Text)

then

begin

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

ShellExecute(Handle, 'open','c:\windows\notepad.exe', nil, nil, SW_SHOWNORMAL);

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.

Затем на форме 1 выбирает действие Войти в систему.


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

Вводит свое имя и пароль.


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


И открывается приложение, в нашем случае – Блокнот.


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


База данных:


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


При неверном вводе пароля 3 раза:

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


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


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


Кнопка для входа в систему исчезает.

Похожие работы:

  1. Разработка программы, генерирующей пароли ...
  2. • Аудит и восстановление паролей в Windows
  3. • Настройка механизмов контроля входа
  4. • Обнаружение вредоносных закладок
  5. • Мобильная система Вооруженных Сил (МСВС) - политика ...
  6. • Создание учетных записей пользователей
  7. • Сессии в PHP
  8. • Разработка интернет-приложения для организации ...
  9. • Сессии в PHP
  10. • Комплексная защита типовой локальной вычислительной ...
  11. • Безопасность в распределенных системах
  12. • Безопасность в распределенных системах
  13. • Управление учетными записями пользователей
  14. • Аутентификация пользователей
  15. • Несанкционированный доступ к терминалам серверов с ...
  16. • Защита информации виртуальных частных сетей
  17. • Программа установки защищенных сетевых соединений с ...
  18. • Исследование уровня безопасности операционной системы Linux
  19. • Защита телефонных сетей от злоумышленников. Борьба с ...
Рефетека ру refoteka@gmail.com