Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

Название: Создание программы авторизации пользователя с помощью пароля
Раздел: Рефераты по информатике, программированию
Тип: лабораторная работа Добавлен 18:44:51 18 октября 2009 Похожие работы
Просмотров: 29 Комментариев: 20 Оценило: 4 человек Средний балл: 4.3 Оценка: неизвестно     Скачать

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

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

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

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

Лабораторная работа №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 раза:

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

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Хватит париться. На сайте FAST-REFERAT.RU вам сделают любой реферат, курсовую или дипломную. Сам пользуюсь, и вам советую!
Никита13:20:43 02 ноября 2021
.
.13:20:41 02 ноября 2021
.
.13:20:41 02 ноября 2021
.
.13:20:40 02 ноября 2021
.
.13:20:40 02 ноября 2021

Смотреть все комментарии (20)
Работы, похожие на Лабораторная работа: Создание программы авторизации пользователя с помощью пароля

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(288202)
Комментарии (4159)
Copyright © 2005-2021 HEKIMA.RU [email protected] реклама на сайте