та назву групи користувача відповідно. procedure SendResult (Name, SurName, Group, TestName: String; Mark: Integer); Метод, який посилає на сервер запит результату тестування, в якості параметрів передаються ім'я, прізвище, назву групи користувача, назва тесту і оцінка відповідно. procedure InitState (FileName: String); Метод, що виробляє ініціалізацію класу форми для роботи з тестовим файлом FileName (повне ім'я). procedure PutUserData (UName, USurname, UGroup: String); Даний метод використовується для передачі даних користувача UName, USurname, UGroup (імені, прізвища та назви групи) при вході в iTest головного вікна програми. p align="justify"> У цьому модулі також оголошений об'єкт тесту Test, класу TTest, Він описаний в модулі Core.
Дана форма виробляє завантаження тесту в компонент Test (він генерує на основі тестового файлу список питань для сеансу тестування). Вона показує дані кожного питання користувачеві, реагує на його вибір, дозволяє виробляти перехід вперед і назад по списку питань, показує результат тестування. Однією з головних функцій також є взаємодія з сервером по мережі. br/>
3.2.2 Модуль uJournal. pas головної форми проекту програми iJournal
Даний модуль містить клас форми TfrmJournal, основні поля якого відображені в таблиці 7, а методи в таблиці 8.
Таблиця 7 - Основні поля класу форми TfrmJournal
ПоляНазначеніеsgUsers: TStringGrid; Таблиця, яка використовується для відображення поточної групи журналу. FCurGroup: String; Поле-ім'я поточної групи. p align="justify"> Таблиця 8 - Основні методи класу форми TfrmJournal
МетодНазначеніеprocedure InitData; Метод ініціалізації форми frmJournal. procedure ChangeGroup (Group: String); Метод, що змінює поточну (отображаемую в sgUsers) групу на групу Group. procedure UpdateData; Метод, що відображає список користувачів поточної групи об'єкта Journal в компонент sgUsers. procedure miAddUserClick (Sender: TObject); Обробник події натискання по пункту меню miAddUser і кнопці spdAddUser додавання студента в групу. procedure miDelUserClick (Sender: TObject); Обробник події натискання по пункту меню miDelUser і кнопці spdDelUser видалення студента з групи. procedure miEditUserClick (Sender: TObject); Обробник події натискання по пункту меню miEdit і кнопці spdEditUser редагування запису студента. procedure miTestsListClick (Sender: TObject); Обробник події натискання по пункту меню miTestsList і кнопці spdEditList для виклику форми frmTestList, організуючою роботу зі списком оцінок. procedure miEditGroupClick (Sender: TObject); Обробник події натискання по пункту меню miEditGroup і кнопці spdGroups, який здійснює виклик форми frmGroups для операцій з групами. procedure miSaveClick (Sender: TObject); Обробник події натискання по пункту меню miSave і кнопці spdSave для запуску процесу збереже...
