Uploaded by gqg24586

хуй

advertisement
Лабораторная работа №1
«Аутентификация пользователя»
1. Средствами Microsoft Access создать базу данных «login» (рис. 9):
Рис. 9. Структура и содержимое базы данных «login»
2. Создать форму Form1 «Login» и в соответствии с рис. 10
расположить на ней объекты управления: ADOTable1 «TLogin», Label 1-2,
Edit1-2, Button1 «Login».
Label1
Label2
ADOTable1
EUserName
EPassword
Button1
Рис. 10. Интерфейс формы для аутентификации
3. Создать форму «fMain» и в соответствии с рис. 11 расположить на
ней объекты управления Label1, Button1, Button2.
Label
LWelcome
Рис. 11. Интерфейс формы для разграничения доступа
4. Установить свойства ADOTable1 (рис. 12):
Рис. 12. Выбор базы данных
5. В программном коде подключить 2-ой модуль: #include "Unit2.h" и
добавить строки:
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
bool found = false;
TLogin->First();
for (int i=0; i < TLogin->RecordCount; i++) {
if (TLogin->FieldByName("UserName")->AsString.LowerCase() == EUsername>Text.LowerCase())
if (TLogin->FieldByName("Password")->AsString == EPassword->Text){
found = true;
TLogin->Edit();
TLogin->FieldByName("LastVisit")->AsDateTime=Now();
TLogin->Post();
break;
}
TLogin->Next();
}
if (found) {
fMain->LWelcome->Caption = "Welcome " + EUsername->Text+ " !";
if (TLogin->FieldByName("Admin")->AsBoolean == true)
fMain->Button2->Enabled = true;
else
fMain->Button2->Enabled = false;
fMain->ShowModal();
}
else
ShowMessage("Username/password not correct!");
}
6. Проверить работу программы.
7. Открыть базу данных «login»монопольно и задать для нее пароль
(рис. 13):
Рис. 13. Окно для создания пароля к базе данных в среде Microsoft Access
8. Добавить поля (Edit1, Edit2) на форму «Login» для динамического
подключения к БД (рис. 14):
Рис. 14. Добавление компонентов для динамического подключения к
базе данных
9. В начало программного кода добавить строки для подключения БД:
TLogin->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Edit1>Text+";Persist Security Info=False;Jet OLEDB:Database Password="+Edit2->Text+";";
TLogin->Active = true;
10. Проверить результат работы программы (рис. 15-16):
Рис. 15. Доступ к данным для администратора программы
Рис. 16. Доступ к данным для пользователя программы
11. Выполнить отчет по лабораторной работе.
Download