му програму та її розробників. Пункт «Вихід» Осущетвляется вихід з програми.
Малюнок 2. Головне меню програми
Реєстрація нового користувача
Реєстрація здійснюється натисканням на відповідну кнопку або натисканням клавіші F4. У вікні реєстрації необхідно заповнити всі дані про користувача. Введення прізвища та імені користувача здійснюється тільки російською мовою (малюнок 3).
Введення прізвища та імені
if edit3.Text= then begin (Handle, PChar ( Введіть прізвище! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end; edit1.Text= then begin (Handle, PChar ( Введіть ім'я! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2);
exit; ;
На даному етапі здійснюється введення двох рядків - fam і name, які відповідають прізвища та імені користувача. Ухвалення введеной інформації здійснюється після натискання на кнопку «ОК».
Введення номера групи
if edit2.Text= then begin (Handle, PChar ( Вкажіть групу! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;;;
На даному етапі здійснюється введення номера групи в полі group. Ухвалення введеной інформації здійснюється після натискання «ОК».
Введення лоігна
if (datamodule2.ADOTable1.Locate ( login , MaskEdit1.Text, [])) then begin (Handle, PChar ( Такий логін вже існує! ), PChar ( laquo ; Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. MaskEdit1.Text:= raquo ;; ; end; form11.MaskEdit1.Text= then begin (Handle, PChar ( Введіть логін! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;; ;
На даному етапі здійснюється введення логіна в поле login. Потім проводиться перевірка введеного логінаю Якщо прочитаний логін збігається з введенням, то виводиться відповідне повідомлення і здійснюється перехід до повторного вводу логіна.
Введення пароля
if (datamodule2.ADOTable1.Locate ( parol , MaskEdit2.Text, [])) then begin (Handle, PChar ( Введений пароль вже існує! ), PChar ( laquo ; Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. MaskEdit2.Text:= raquo ;; ; ; form11.MaskEdit2.Text= then begin (Handle, PChar ( Введіть пароль! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;; ;
На даному етапі здійснюється введення пароля в поле parol. Потім проводиться перевірка введеного пароля. Якщо прочитаний пароль збігається з введенням, то виводиться відповідне повідомлення і здійснюється перехід до повторного введення пароля.
Формування імені користувача:
DataModule2.ADOTable1.FieldValues[laquo;loginraquo;]:=form11.MaskEdit1.Text;.ADOTable1.FieldValues[laquo;parolraquo;]:=form11.MaskEdit2.Text;.ADOTable1.FieldValues[laquo;famraquo;]:=form11.Edit2.Text;.ADOTable1.FieldValues[laquo;nameraquo;]:=form11.Edit3.Text;.ADOTable1.FieldValues[laquo;groupraquo;]:=form11.Edit1.Text;
Таблиця, що містить особисті дані користувачів, зчепленням в один рядок наступних компонентів:
· прізвище користувача;
· ім'я користувача;
· номер групи;
· логін.
Запис введеної інформації:
DATAMODULE2.ADOTABLE1.INSERT; .ADOTABLE1.POST;
Запис введених даних про користувача здійснюється в вспеціальную таблицю, котороя зберігає дані про всіх користувачів.
Малюнок 3. Реєстрація нового користувача
Про програму
procedure TAboutBox.OKButtonClick (Sender: TObject) ;. Close ;;.
При натисканні в головному меню програми на кнопку «Про програму», вийде нове вікно, яке містить інформацію про програму та її авторів (малюнок 4).
Малюнок 4. Про програму
Вихід з програми
procedure TForm4.N2Click (Sender: TObject); application.MessageBox ( Ви дійсно хочете вийти? ,
Вихід , mb_iconQuestion + mb_yesno)=idyes then.Close ;;
При натисканні на кнопку Вихід, виведеться спеціальне повідомлення. Воно вимагає підтвердження про вихід з прогрмми (малюнок 5).
Малюнок 5. Вихід з програми
3.1 Вхід в якості користувача
Малюнок 6. Вхід через користувача
Для переходу в головне меню користувача необхідно в новому вікні програми ввести логін і пароль.
