;).Value:=form9.Label3.Caption;.ADOTable3.FieldByName(laquo;groupraquo;).Value:=form9.Label4.Caption;.ADOTable3.FieldByName(laquo;dataraquo;).Value:=datetostr(date);.ADOTable3.Post;
Після проходження тесту в таблицю Rezultati записується кількість набраних балів (rezultat), прізвище студента (fam), кількість отвеченних ім'я студента (name) і група, в якій він навчається (group), дата проходження тесту ( date).
4) Копіювання результатів тесту в файл обліку здачі тестів Rezultаti.txt:
if fileexists (put_k_data_base + rasshirenie_file_data_base) then(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);;(file_db,laquo;Имя + form9.Label3.Caption); (file_db, Прізвище + form9.Label2.Caption); (file_db, Група + form9.Label4.Caption); (file_db, Дата + datetostr (date)); (file_db, Час + timetostr (time)); (file_db, Результат + cena); (file_db, ); (file_db);
Після проходження тесту в файл Rezultati.txt записується кількість набраних балів (cena), прізвище студента (fam), кількість отвеченних ім'я студента (name) і група, в якій він навчається (group), дата і час проходження тесту (date, time).
Малюнок 11. Проходження тесту
5) Довідка
procedure Tabout.DBGrid1DrawColumnCell (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);;
У цьому пункті міститься повна інструкція про те, як здійснюється процес проходження тесту
3.1.2 Перехід до лекція
procedure TForm18.Button1Click (Sender: TObject); OpenDialog1.Execute then.Lines.LoadFromFile (OpenDialog1.FileName) ;;
Перехід до лекцій здійснюється вибором пенкта меню «Файл» - «Прочитати лекції», після чого в новому вікні в пункті «Файл» - «Відкрити»
3.1.3 Повідомлення
1) Відправлення повідомлень
procedure TForm12.Button1Click (Sender: TObject); form12.Memo1.Text= then (Handle, PChar ( Ваше не містить тексту! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2); exit; end; .ADOTable4.Insert; .ADOTable4.FieldValues ??[ ot_kogo ]:=form9.Label2.Caption + 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;.MessageBox(laquo;Сообщение доставлено! , Готово , MB_OK or MB_ICONINFORMATION) ;. show; end;
Для відправки нового повідомлення необхідно в меню користувача вибрати пункт меню «Повідомлення» - «Відправити новий» (малюнок 14). Далі в новому вікні ввести текст повідомлення і натиснути на кнопку відправити. Відправлення повідомлень можлива тільки викладачу.
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 ;;
Читання отриманих повідомлень здійснюється в два етапи.
При виборі першого підпункту перед користувачем з'являється список всіх вхідних повідомлень (малюнок 15).
При подвійному натисканні на певному повідомленні воно відкривається в режимі перегляду для користувача. Тут, натиснувши на кнопку «Відповісти», можна відповісти на повідомленні (малюнок 16) .Tform15.Button2Click (Sender: Tobject); form15.Edit1.Text=Викладач then begin form12.show; .Edit1.Text:=form15.Edit1. Text; .Edit1.Text: =; .Memo1.Text: =; .Close; .show; .Edit1.Text:=form15.Edit1.Text; .Close ;;
3.1.4 Вихід
procedure TForm9.N5Click (Sender: TObject) ;. show; .Close ;;
При натисканні в головному меню користувача кнопки «Назад» відкривається головне вікно програми.
3.2 Вхід в якості викладача
Малюнок 17. Вхід через викладача
Введення і перевірка пароля:
...
