Класс TWinEditTema(модуль AddTema) - отображает диалог добавления новой темы

4.  Класс TWinEditTema(модуль AddTema) - отображает диалог добавления новой темы.

Методы класса:

-   butCancelClick() - добавляет новую тему в файл БД Teма.db.

-   butOkClick() - закрывает диалог добавления новой темы.

4.2 Описание программы администрирования

Программа администрирования, являясь составной частью универсальной обучающе-контролирующей системы, предназначена для использования в сочетании с программой создания тестов и предоставляет пользователю следующие возможности:

·    формирование билетов;

·   задание времени ответа на вопросы билета;

·    задание системы оценки результатов тестирования;

·   просмотр и распечатка результатов (протокола) тестирования на принтере.

Программа реализована на языке Object Pascal в среде визуального программирования Delphi 2.0 фирмы Borland International. Текст программы и используемых ею модулей приведен в прил.2.

Программой используются следующие файлы БД: Control.db, Tema.db, Question.db, Tickets.db. Схема связей файлов БД, используемая рассматриваемой программой, приведена на рис.4.2.

Программа создает файл Test.ini и записывает в раздел Options следующие параметры:

Tema tema_id tema_name   Question quest_id tema_id(FK) quest_name   Tickets ticket_id ticket_num quest_id

Рис.4.2. Схема связей файлов БД для программы администрирования

Так как программа разрабатывалась в системе визуального программирования Borland Delphi в соответствии с принципом модульности, то в каждом модуле объявляется отдельный класс, который содержит в себе данные и методы работы с ними а также методы работы с данными из других классов. Ниже приведены описания классов, используемых в рассматриваемой программе.

1.  Класс TAdminForm (модуль Main) ‑ отображает главное окно программы.

Переменные класса:

-   CreateForm - индикатор создания формы (True,если выполняется метод FormCreate);

-   IniFile - используется для работы с INI-файлом.

Методы класса:

-   ShowHint() - отображает подсказку в строке состояния;

-   DBControlCalcFields() - производит пересчет оценок в соответсвии с текущей системой оценки результатов;

-   FormClose() - выполняет все необходимые действия перед закрытием программы;

-   TestTimeChange() - сохраняет в файле TEST.INI значение параметра TestTime;

-   MaxmarkChange() - сохраняет в файле TEST.INI значение параметра MaxMark;

-   CreateTicketBtnClick() - выводит диалог параметров формирования билетов;

-   FormShow() - открывает таблицы Question.db, Tema.db;

-   QuitBtnClick() - завершает выполнение программы;

-   CreateNewDBControl() - создает новую таблицу Control.db;

-   ClearBtnClick() - очищает таблицу результатов тестирования;

-   PrintBtnClick() - выводит на принтер таблицу с результатами тестирования.

2.  Класс TCreateTickDlg(модуль TQDialog)

Методы класса:

-   QuestCountEnter() - производит инициализацию переменных;

-   OKBtnClick() - выполняет формирование билетов из контрольных вопросов заданной темы;

-   FormClose() - закрывает файлы БД Question.db, Tema.db;

-   FormShow() - считывает параметры TestTime и MaxMark из файла Test.ini.