![]() |
|
сделать стартовой | добавить в избранное |
![]() |
Компьютеры, Программирование
Программное обеспечение
Создание программы авторизации пользователя с помощью пароля |
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН КАЗАХСКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ им. К.И. САТПАЕВА ИНСТИТУТ ИНФОРМАЦИОННЫХ ТЕХНОЛОГИЙ Кафедра Вычислительной техники Лабораторная работа №3 Тема: № Качество выполнения работы Диапазон оценки Получено, % 1 Выполнение и активность обучающегося 0 – 50% 2 Оформление работы 0 – 20% 3 Умение пользоваться справочниками, технической литературой, учебно-методическим комплексом дисциплины, конспектами лекции 0 – 5% 4 Умение пользоваться техническими средствами 0 – 5% 5 Защита работы 0 – 20% Итого: 0 – 100% Проверила: Мынбаева Л.Н. Выполнила: Исаханова Д.Е. ВПбП-07-1р Алматы 2009 Задание: Написать программу входа пользователем в систему через пароль. Язык программы - любой. Разработанная программа должна содержать следующие пункты: вход в систему через ввод и проверку пароля, а также регистрацию пользователя, при этом заносит имя и пароль пользователя в базу данных. При вводе неверного пароля – система блокируется. Листинг программы: u i U i 1; i erface uses Wi dows, Messages, SysU ils, Varia s, Classes, Graphics, Co rols, Forms, Dialogs, S dC rls, Bu o s, jpeg, Ex C rls; ype Form1 = class( Form) S a ic ex 1: S a ic ex ; S a ic ex 2: S a ic ex ; Bi B 1: Bi B ; Bi B 2: Bi B ; Bi B 3: Bi B ; Image1: Image; procedure Bi B 3Click(Se der: Objec ); procedure Bi B 1Click(Se der: Objec ); procedure Bi B 2Click(Se der: Objec ); priva e { Priva e declara io s } public { Public declara io s } e d; var Form1: Form1; impleme a io uses U i 2, U i 3, U i 4; {$R .dfm} procedure Form1.Bi B 3Click(Se der: Objec ); begi Close; e d; procedure Form1.Bi B 1Click(Se der: Objec ); begi form2.dbedi 1.Clear; form2.dbedi 2.Clear; form2.dbedi 3.Clear; form2.dbedi 4.Clear; Form2.Edi 1.Clear; Form2.Show; e d; procedure Form1.Bi B 2Click(Se der: Objec ); begi Form3.Show; e d; e d. u i U i 2; i erface uses Wi dows, Messages, SysU ils, Varia s, Classes, Graphics, Co rols, Forms, Dialogs, S dC rls, DB, ADODB, Mask, DBC rls, jpeg, Ex C rls, Grids, DBGrids, Bu o s; ype Form2 = class( Form) DBEdi 1: DBEdi ; DBEdi 2: DBEdi ; S a ic ex 1: S a ic ex ; S a ic ex 2: S a ic ex ; DBEdi 3: DBEdi ; S a ic ex 3: S a ic ex ; S a ic ex 4: S a ic ex ; Edi 1: Edi ; Bu o 1: Bu o ; DBEdi 4: DBEdi ; S a ic ex 5: S a ic ex ; Bu o 2: Bu o ; Image1: Image; Bu o 3: Bu o ; Label1: Label; Bu o 4: Bu o ; procedure Bu o 1Click(Se der: Objec ); procedure Bi B 1Click(Se der: Objec ); procedure Bu o 3Click(Se der: Objec ); procedure Bu o 2Click(Se der: Objec ); procedure Bu o 4Click(Se der: Objec ); priva e { Priva e declara io s } public { Public declara io s } e d; var Form2: Form2; impleme a io uses U i 1, U i 3, U i 4; {$R .dfm} procedure Form2.Bu o 1Click(Se der: Objec ); begi Edi 1. ex :=I os r(ra dom(1000 2000)); e d; procedure Form2.Bi B 1Click(Se der: Objec ); begi if Da aModule4.Ado able1.Modified he Da aModule4.Ado able1.Pos ; Close; e d; procedure Form2.Bu o 3Click(Se der: Objec ); begi Da aModule4.ado able1.I ser ; e d; procedure Form2.Bu o 2Click(Se der: Objec ); begi Close; e d; procedure Form2.Bu o 4Click(Se der: Objec ); begi Dbedi 3.
ex :=Edi 1. ex ; e d; e d. u i U i 3; i erface uses Wi dows, Messages, SysU ils, Varia s, Classes, Graphics, Co rols, Forms, Dialogs, S dC rls, Mask, DBC rls, jpeg, Ex C rls, ShellApi; ype Form3 = class( Form) Bu o 1: Bu o ; Edi 1: Edi ; Edi 2: Edi ; Bu o 2: Bu o ; Image1: Image; S a ic ex 1: S a ic ex ; S a ic ex 2: S a ic ex ; S a ic ex 3: S a ic ex ; procedure Bu o 1Click(Se der: Objec ); procedure FormShow(Se der: Objec ); procedure Bu o 2Click(Se der: Objec ); priva e { Priva e declara io s } public { Public declara io s } e d; var Form3: Form3; m: i eger; impleme a io uses U i 1, U i 2, U i 4; {$R .dfm} procedure Form3.Bu o 1Click(Se der: Objec ); begi if (da amodule4.Ado able1.FieldValues= Edi 2. ex ) a d (da amodule4.Ado able1.FieldValues= Edi 1. ex ) he begi Applica io .MessageBox('Вход в систему выполнен. Вы верно ввели данные'); ShellExecu e(Ha dle, 'ope ','c: wi dows o epad.exe', il, il, SW SHOW ORMAL); e d else begi Applica io .MessageBox('Вход в не выполнен. Вы не верно ввели данные'); Form3.Edi 2.Clear; m:=m 1; e d; if (m=3) he begi Applica io .MessageBox(‘Вы 3 раза ввели неверный пароль. Вход в систему будет заблокирован'); Close; Form1.Bi B 2.Visible:=false; e d; e d; procedure Form3.FormShow(Se der: Objec ); begi m:=0; e d; procedure Form3.Bu o 2Click(Se der: Objec ); begi Close; e d; e d. Реализация: Программа написана на Delphi.Выберите действие:Пользователь вводит данные о себе, выбирает пароль, и щелкает по кнопке Regis ra io . Затем на форме 1 выбирает действие Войти в систему. Вводит свое имя и пароль.И открывается приложение, в нашем случае – Блокнот.База данных:При неверном вводе пароля 3 раза: Кнопка для входа в систему исчезает.
С помощью специальных программ, называемых эмуляторами, на жестком диске компьютера создаются виртуальные приводы компакт-дисков и виртуальные компакт-диски, которыми можно пользоваться, как реальными: слушать музыку, смотреть фильмы, играть. Принцип работы с виртуальным приводом компакт-дисков аналогичен принципу работы с реально существующим CD/DVD-приводом. Виртуальный компакт-диск это файл-образ, созданный программой эмуляции на жестком диске пользователя и являющийся точной копией оригинального диска. Различные программы создают файлы-образы с различным расширением. Работая с виртуальными устройствами, можно предотвратить износ реально существующего привода компакт-дисков, а также самих дисков. Кроме того, скорость считывания информации с жесткого диска в десятки раз больше скорости считывания информации с CD/DVD-привода. Например, большинство современных приводов компакт-дисков поддерживают скорость 52x (7800 Кбайт/с) для CD и 16x (2100 Кбайт/с) для DVD. При этом необходимо понимать, что с максимальной скоростью данные считываются только с новых компакт-дисков
1. Защита данных от несанкционированного доступа
2. Обеспечение защиты данных в подсистеме "Учет распределения товара"
4. Разработка базы данных, отражающей учет успеваемости студентов
5. Особенности бух.учета в издательской деятельности
9. Бух учет в угольной промышленности
10. Тезисы к экзамену по Бух. учету
11. Шпора к ГОСАМ по бух. учету 2004
12. Бух.учет компании за квартал
14. Проблема трансформации данных отечественного учета в формате МСФО
15. База данный "Хозяйственный учет футбольного клуба"
16. База данных по учету металлопродукции на платформе SQL Server
17. Обеспечение безопасности системы и защита данных в Windows 2003
18. Проектирование базы данных для учета занятий и соревнований по художественной гимнастике
19. Разработка базы данных по учету книг в библиотеке
21. Методы взлома защиты программы от несанкционированного доступа
25. Защита баз данных. Access 2000
27. Бухгалтерский учет средств индивидуальной защиты
29. Учет операций по расчетному счету в программе 1С:Бухгалтерия 7.7
30. Технология защиты персональных данных
31. Инфологическая модель базы данных "Защита доступа"
32. Несанкционированный доступ к данным
33. Разработка проекта управления базами данных для процесса "Учет ремонта и ТО автотранспорта"
34. Защита информации в автоматизированных системах обработки данных: развитие, итоги, перспективы
35. Защита персональных данных с помощью алгоритмов шифрования
36. Солнечные пятна, динамика и механизм их образования, способы их учета в экологии и астрофизике
37. Подготовка данных и движение по азимутам
41. Оценка инженерной защиты рабочих и служащих ОЭ
42. Поражающие факторы ядерного оружия и способы защиты от него
43. Учет и профилактика чрезвычайных ситуаций на радиационно-опасных объектах г.Москвы
45. Дания
46. Экономическая система Дании
47. Безработица в России /данные на 1992г/
48. Социальная защита государственных служащих
49. Становление системы социальной защиты государственных служащих в Российской Федерации
51. Гражданская правовая защита чести, достоинства и деловой репутации
53. Способы защиты гражданских прав
57. Защита прав потребителей при продаже товаров
58. Движение Сопротивления в Дании и Норвегии
59. Конституционная защита прав и свобод личности
60. Социальная защита и социальные гарантии государственных служащих
61. Единый социальный налог и социальная защита населения России
62. Учет и анализ расчетов с персоналом по оплате труда в организации
63. Понятия и виды прав на чужие вещи. Установление, защита и прекращение сервитутов
64. Учет и анализ расчетов с персоналом по оплате труда в организации
66. Речь в защиту Раскольникова
67. Трагедия творческого сознания в романе Владимира Набокова "Защита Лужина"
68. Данило Нечай - сподвижник Богдана Хмельницкого
69. Классовый и сословный характер общества по данным древневосточных судебников
74. Защита информации: цифровая подпись
77. Управление потоками данных в параллельных алгоритмах вычислительной линейной алгебры
78. Защита информации в компьютерных системах
79. Криптографическая защита функционирование ЛВС в реальном режиме времени
80. Защита и нападение посредством протокола TCP
82. Защита информации в системах дистанционного обучения с монопольным доступом
84. Информация, информатика, базы данных. Периферийные устройства
89. Разработка автоматизированной системы учета выбывших из стационара
90. Проектирование и разработка баз и банков данных
91. Защита программ от компьютерных вирусов
92. Реляционные Базы Данных. SQL - стандартный язык реляционных баз данных
93. Построение информационной и даталогической моделей данных
94. Автоматизация учета продажи товаров в ООО "Мастер-СД"
95. Примеры баз данных (Студенческая группа)
97. Современные системы управления базами данных
98. Анализ пакетов обработки экспериментальных данных SABR и BOOTSTRAP