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

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

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

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

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

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

Тема: ______________________________

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

Получено,

%

1Выполнение и активность обучающегося0 – 50%
2Оформление работы0 – 20%
3Умение пользоваться справочниками, технической литературой, учебно-методическим комплексом дисциплины, конспектами лекции0 – 5%
4Умение пользоваться техническими средствами0 – 5%
5Защита работы0 – 20%
Итого:0 – 100%

Проверила:

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

Выполнила:

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

ВПбП-07-1р

Алматы 2009

Задание :

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

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

Unit Unit 1;

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 раза:

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


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