procedure TForm5.MaskEdit1KeyPress (Sender: TObject; var Key: Char) ;: integer; form5.MaskEdit1.Text= then begin (Handle, PChar ( Введіть пароль! ), PChar ( Увага ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end (form5.MaskEdit1.Text= ) or (form5.MaskEdit1.Text lt; gt; datamodule2.ADOTable2key2.text) then begin.Text:=edit1.Text + a raquo ;; edit1.Text= a then begin MessageBox (Handle, PChar ( Пароль введен не верно! У Вас залишилося дві спроби ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear; end; edit1.Text= aa then begin MessageBox (Handle, PChar ( Пароль введен не верно! У Вас залишилося одна спроба ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear; end; edit1.Text= aaa then begin MessageBox (Handle, PChar ( Пароль 3 рази був введений не вірно! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. hide; .show; end; end; (form5.MaskEdit1.Text=datamodule2.ADOTable2key2.text) then begin.show; .Hide; .MaskEdit1.Clear ;;
Після вибору в головному меню програми пункту «Викладач», необхідно в новому вікні введення пароля підтвердити пароль. У цьому ж вікні можна змінити пароль, натиснувши на відповідну кнопку (?? Малюнок 18).
Малюнок 18. Введення пароля
Зміна пароля:
procedure TForm7.Image1Click (Sender: TObject);:integer;.ADOTable2.Edit;.ADOTable2key2.text:=form7.MaskEdit2.Text;.ADOTable2.Post;.MessageBox(laquo;Пароль був збережений успішно! , Готово , MB_OK or MB_ICONINFORMATION) ;. show; .Hide ;;;
Для зміни пароля необхідно підтвердити старий пароль, а потім ввести новий пароль і натиснути на кнопку «ОК» (малюнок 19).
Малюнок 19. Зміна пароля
Меню викладача:
У меню викладача предлагет вибрати один з пунк. У пункті меню «Файл» - «Тести» викладач може здійснити перехід до тестів. У пункті «Написати лекції» можна додати новий лекції. А в пункті «Переглянути результати» викладач здійснює перегляд результатів здачі тестів студентами (малюнок 20).
Малюнок 20. Меню викладача
3.2.1 Результати користувачів
Малюнок 21. Структура меню «Результати користувача»
Виведення списку користувачів:
procedure TForm10.BitBtn2Click (Sender: TObject) ;. show; .Close ;; TForm10.N1Click (Sender: TObject); application.MessageBox ( Видалити цей запис? ,
Видалення , mb_iconQuestion + mb_yesno)=idyes then.ADOTable3.Delete ;;
У цьому пункті містить список всіх студентів пройшли тестування. Цей список можна редагувати, шляхом видалення з нього користувачів (малюнок 22).
Малюнок 22. Перегляд результатів
Вихід в головне меню:
procedure TForm10.N2Click (Sender: TObject) ;. show; .Close ;;.
При натисканні на кнопку «нзад» таблиця обліку користувачів закривається і відбувається перехід в меню викладача.
3.2.2 Перегляд і редагування тестів
Перегляд і редагування списку агентів (малюнок 23):
Малюнок 24. Структура меню «Перегляд і редагування списку агентів»
Виведення списку агентів:
procedure TForm1.RadioButton1Click (Sender: TObject) ;. Show; .Button2Click (Sender) ;. Visible:=false ;;
Виведення списку агентів полягає в читанні з бази даних таблиць, що містять в собі питання до тестів.
Перехід до редагування тесту:
procedure TEdittest.DBGrid2DrawColumnCell (Sender: TObject; const Rect: TRect ;: Integer; Column: TColumn; State: TGridDrawState); TDBGrid (Sender) .DataSource.DataSet.RecNo mod 2=1TDBGrid (Sender ) .Canvas.Brush.Color:=$ 00FFC6C6 else (Sender) .Canvas.Brush.Color:=$ 00FFD7EB; gdSelected IN StateBegin(Sender).Canvas.Brush.Color:=clWindow;(Sender).Canvas.Font.Color:=clWindowText;;(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);(Column.FieldName = Laquo; Правильний ) thenColumn.Field.AsBoolean=true then (TDBGrid (Sender) .Canvas, Rect, True) (TDBGrid (Sender) .Canvas, Rect, False) ;;
У даному режимі преводаватель може внести зміни до тест (малюнок 24). Це здійснюється шляхом зміни даних у питанні, варіанті відповіді на питання чи пояснення до даного варіенте відповіді.
Малюнок 24. Редагування тесту
Вихід в головне меню:
procedure Edittest.RadioButton1Click (Sender: TO...
