bject) ;. Close; .Show;
3.2.3 Встановлення режиму проходження тестів
Малюнок 25. Структура меню «Встановлення режиму проходження тестів»
Встановлення режиму за замовчуванням:
Для цього необхідно натиснути на кнопку «Почати тест». Перед користувачем з'явитися вікно, що містить в собі питання тесту, варіанти відповіді і пояснення до цих варіантів. Перехід до наступного питання здійснюється натисканням на кнопку «Далі» .Ttesti.Button1Click (Sender: TObject); i: integer;: TRadioButton;: string; _db: textfile; ((RadioButton1.Checked=true) or
(RadioButton2.Checked=true) or
(RadioButton3.Checked=true) or
(RadioButton4.Checked=true))
((RadioButton5.Checked=true) or
(RadioButton6.Checked=true) or
(RadioButton7.Checked=true) or
(RadioButton8.Checked=true)) then
begini:=0 to GroupBox1.ControlCount - 1 do begin:=TRadioButton (GroupBox1.Controls [i]); RB.Checked=true then.Caption:=inttostr (strtoint (Label1.Caption) + RB.Tag) ;; i:=0 to GroupBox2.ControlCount - 1 do:=TRadioButton (GroupBox2.Controls [i]); RB.Checked=true then.Caption:=inttostr (strtoint (Label1.Caption) + RB.Tag) ;; strtoint (Label2.Caption) lt; 11 then begin (strtoint (Label2.Caption)) ;. Caption:= Тестування. Питання + inttostr (strtoint (Label2.Caption) - 1) + з 10 raquo ;;
3.2.4 Повідомлення
1) Відправлення повідомлень
procedure TForm12.Button1Click (Sender: TObject);.ADOTable4.Insert;.ADOTable4.FieldValues[laquo;ot_kogoraquo;]:=form9.Label2.Caption+laquo; raquo;+form9.Label3.Caption;.ADOTable4.FieldValues[laquo;soderganieraquo;]:=form12.Memo1.Text;.ADOTable4.FieldValues[laquo;komyraquo;]:=form12.Edit1.Text;.ADOTable4.FieldValues[laquo;dataraquo;]:=datetostr(date);.ADOTable4.Post;
{form9.Label2.Caption:=form11.Edit3.Text;.Label3.Caption:=form11.Edit1.Text;.Label4.Caption:=form11.Edit2.Text;.Close;.show ;;
Для відправки нового повідомлення необхідно в меню преподавателявибрать пункт меню «Повідомлення» - «Відправити новий». Далі у вікні отпракі повідомлень вказати користувача, которомуотправляется повідомлення. Це робиться натисканням на кнопку «Вибрати ...». У списку, подвійним клацанням миші, вибирається користувач. Потім вводиться текст повідомлення і натисканням на кнопку «Відправити» здійснюється доставка повідомлення користувачу (малюнок 26).
Малюнок 26. Відправлення повідомлень
2) Читання отриманих повідомлень
procedure TForm17.DBGrid1DblClick (Sender: TObject);.show;.Edit1.Text:=form17.DBGrid1.SelectedField.DataSet.FieldValues[laquo;ot_kogoraquo;];.Memo1.Text:= form17.DBGrid1.SelectedField.DataSet.FieldValues ??[ soderganie ] ;. Close ;;
Читання отриманих повідомлень здійснюється в два етапи. При виборі першого підпункту перед користувачем з'являється список всіх вхідних повідомлень, з яких він може вибрати яке - то певне повідомлення і відповісти на нього.
При подвійному натисканні на певному повідомленні, воно відкривається в режимі перегляду для користувача. Тут, натиснувши на кнопку «Відповісти», можна відповісти на сообщеніі.TForm15.Button2Click (Sender: TObject); form15.Edit1.Text= Викладач then begin form12.show;.Edit1.Text:=form15.Edit1.Text;.Edit1.Text:=laquo;raquo;;.Memo1.Text:=laquo;raquo;;.Close;.show;.Edit1.Text:=form15.Edit1.Text;.Close;;
3.2.5 Додавання нових лекцій
Збереження нової лекції:
procedure TForm18.Button2Click (Sender: TObject); SaveDialog1, Memo1 doExecute then.SaveToFile (FileName) ;. FileName:=FileName;// Щоб виправлений текст не затёр джерело; ;
У даному пункті викладачеві дається можливість написання нових лекцій для користувачів. Для цього у вікні редактора необхідно набрати текст лекції і натиснути у пункті меню «Файл» на кнопку «Зберегти як».
Редагування лекції:
procedure TForm18.Button3Click (Sender: TObject); application.MessageBox ( Зберегти зміни у файлі? ,
Збереження , mb_iconQuestion + mb_yesno)=idyes then.Lines.SaveToFile (OpenDialog1.FileName);// Зберігаємо туди, звідки счіталі.Memo1.Text:= raquo ;;;
Також існує можливість редагування вже існуючих в списку лекцій. У цьому випадку в пункті меню «Файл» вибрати кнопку «Відкрити», потім відредагувати текст, а для збереження змін необхідно натиснути на кнопку «Збере...
