Система тестирования. Часть 3

В предыдущей части цикла статей мы разобрали работу с данными из XML файла.  Теперь уже можно приступить к написанию теста. Начнем с его админской части. Чуть более подробно распишем требования к системе администрирования, сформированные ранее:

  • Возможность просмотра списка всех вопросов
  • Добавление и удаление вопроса
  • Редактирование текста вопроса
  • Возможность изменять название теста и количество используемых вопросов
  • Вопрос можно пометить как неактивный
  • Для каждого вопроса можно просмотреть список вариантов ответа
  • Добавление, удаление и редактирование вариантов ответа
  • Вариантов ответа может быть любое количество, и верных из них тоже может быть хоть сколько
  • Сохранение и загрузка XML файла
  • Возможность работать без файла, потом все изменения просто сохранить
  • Имя файла можно передать как параметр командной строки, и программа должна его открыть

Программа будет состоять из двух основных частей: управление вопросами и управление вариантами ответа для конкретного вопроса. Рассмотрим сначала управление вопросами и начнем с проектирования интерфейса.

Интерфейс приложения

Согласно требованиям от интерфейса нам нужно:

  • Просмотр списка вопросов
  • Кнопки для удаления, добавления и редактирования вопроса
  • Область просмотра, куда будет выводиться текст вопроса, при редактировании
  • Текстовое поле для названия теста и количества отображаемых вопросов
  • Кнопки для открытия и сохранения файла
  • Кнопка для создания пустого файла в памяти
  • Check Box для обозначения активности вопроса

Я предлагаю следующий вариант:

Скачать dfm формы.

Список вопросов выводится в компонент QListBox типа TListBox. Управление настройками теста и редактирование текста вопроса вынесены в компоненты типа TCategoryPanelGroup (сворачивающиеся панельки).

Рассмотрим каждый компонент интерфейса по порядку.

ToolBar. Панель инструментов

Кнопка “создать”( NewToolButton: TToolButton)

В памяти создается XMLфайл нужной нам структуры, но пока без основных данных. В дальнейшем его можно будет сохранить на диск. Если до этого уже был открыт какой-то файл, он закрывается без сохранения.

Кнопка “открыть”( OpenToolButton: TToolButton)

Показывает диалог выбора файла, и если файл удалось открыть, показывается список вопросов. В противном случае в Status Bar'e выводится сообщение об ошибке открытия файла.

Кнопка “сохранить”( SaveToolButton: TToolButton)

Если файла до этого уже был открыт, то просто выполняет сохранения. Если же идет работа с только что созданным в памяти файлом, то открывает диалог «Сохранить как…»

Кнопка “добавить”( AddToolButton: TToolButton)

Добавление нового вопроса. Открывает диалог, в который можно ввести текст добавляемого вопроса и обозначить его активность.

Кнопка “редактировать”( EditToolButton: TToolButton)

Открывает, собственно, вторую часть программы, где идет управление вариантами ответа для вопроса, выбранного в данный момент в ListBox'e.

Кнопка “удалить”( RemoveToolButton: TToolButton)

Удаляет выбранный вопрос, при это запрашивает подтверждение.

MainMenu. Главное меню

В общем-то, компоненты главного меню выполняют ту же саму функцию, что и кнопки на панели инструментов.

Список вопросов

Как уже было сказано ранее, вопросы выводятся в компонент QListBox типа ListBox. Он настроен таким образом, что одновременно может быть выбран только один вопрос.

Панели управления, расположенные справа (EditPanelGroup: TCategoryPanelGroup)

Управление тестом (EditTestPanel: TCategoryPanel)

Текущее название теста выводится в компонент TestNameEdit типа TEdit. Если QCountCheckBox (TCheckBox), активный, то тогда можно задать количество отображаемых вопросов в поле QCountEdit (TEdit).

Редактирование вопроса (EditQuestionPanel: TCategoryPanel)

Возможность управлять выбранным вопросом.

Текст вопроса выводится в компонент  QTextMemo (TMemo), в котором его можно редактировать. QActiveCheckBox (TCheckBox) позволяет задать «активность» вопроса.

Метка «Сохранить» (QSaveLabel: TLabel) позволяет сохранить сделанные изменения для вопроса (не в файл!).

Метки «Удалить» (QDeleteLabel: TLabel) и «Редактировать» (QEditLabel: TLabel) делают тоже самое, что и соответствующие компоненты панели инструментов.

Диалоги

Необходимо два диалога:

  • OpenDialog: TOpenDialog – для открытия файла
  • SaveDialog: TSaveDialog– для сохранения

С интерфейсом на этом можно закончить. Перейдем к загрузке данных из файла.

Получение вопросов из файла

Добавим в private формы следующие методы:

  1. TMainForm = class(TForm)
  2.   ...
  3. private
  4.   procedure Load( fileName: string );
  5.   procedure LoadData;
  6.   procedure LoadHead;
  7. end;

LoadHead – записывает данные из файла в компоненты управления тестом. То есть получает название и количество вопросов в тесте.

  • LoadData – заносит вопросы из файла в список QListBox
  • Load – общая загрузка файла.

Так же нам необходимо поле Data типа TStData. Что мы могли пользоваться созданным ранее набором методов по работе с файлом.

  1. TMainForm = class(TForm)
  2.   ...
  3. public
  4.   Data: TStData;
  5. end;

Для начала в обработчике события onCreate формы, нужно создать сам объект Data:

  1. procedure TMainForm.FormCreate(Sender: TObject);
  2. begin
  3.   Data := TStData.GetInstance;
  4. end;

Теперь уже можно перейти к методам загрузки данных.

Метод Load

В качестве параметра получает имя файла с данными. Сначала, используя объект Data загружает его в память, далее вызывает методы LoadHeadи LoadData. Исключения обрабатываются.

  1. procedure TMainForm.Load( fileName: string );
  2. begin
  3.     try
  4.       Data.Load( fileName );
  5.       LoadData;
  6.       LoadHead;
  7.       StatusBar.Panels[0].Text := 'Документ загружен успешно';
  8.  
  9.     except
  10.         on EDOMParseError do
  11.           StatusBar.Panels[0].Text := 'Неверный формат документа';
  12.         else
  13.           StatusBar.Panels[0].Text := 'Неверная структура файла';
  14.     end;
  15. end;

Метод LoadHead

Название теста загружается в поле TestNameEdit. Потом проверяется, если количество вопросов больше нуля, то QCountCheckBox становится активным, и это количество вопросов заносится в поле QCountEdit. В противном случае переключатель не выбран и поле доступно только для чтения.

  1. procedure TMainForm.LoadHead;
  2. begin
  3.   TestNameEdit.Text := Data.StTest.Text;
  4.   if Data.StTest.QCount > 0 then
  5.     begin
  6.       QCountCheckBox.Checked := true;
  7.       QCountEdit.Text := IntToStr( Data.StTest.QCount );
  8.       QCountEdit.Enabled := true;
  9.     end
  10.   else
  11.     begin
  12.       QCountCheckBox.Checked := false;
  13.       QCountEdit.Text := '';
  14.       QCountEdit.Enabled := false;
  15.     end;
  16. end;

Метод LoadData

Выводит список вопросов в компонент QListBox.

  1. procedure TMainForm.LoadData;
  2. var
  3.   i: integer;
  4.   Question: TStQuestion;
  5. begin
  6.   QListBox.Items.Clear;
  7.   for i := 0 to Data.StQuestionList.Count - 1 do
  8.     begin
  9.       Question := TStQuestion( Data.StQuestionList.Items[i] );
  10.       QListBox.Items.Add( Question.Text );
  11.     end;
  12. end;

Теперь, когда данные из файла мы уже может увидеть на форме, то onClick обработчики событий кнопок «открыть» панели инструментов и главного меню можно прописать следующее:

  1. if OpenDialog.Execute then Load(OpenDialog.FileName);

Скачав файл теста здесь, вы уже можете проверить, как все работает.

В тексте выше не раз встречалась фраза «выбранный вопрос», то есть тот вопрос, который в данный момент выбран в ListBox'e. Для удобства сделаем этот вопрос свойством, при записи в который будет выполняться некоторый метод SetSelectQuestion:

  1. TMainForm = class(TForm)
  2.   ...
  3. private
  4.   FSelectQuestion: TStQuestion;
  5.   ...
  6. public
  7.   ...
  8.   property SelectQuestion: TStQuestion read FSelectQuestion write
  9.       SetSelectQuestion;
  10. end;
  11.  
  12. //...
  13.  
  14. procedure TMainForm.SetSelectQuestion(const Value: TStQuestion);
  15. begin
  16.   QTextMemo.Text := Value.Text;
  17.   QActiveCheckBox.Checked := Value.Active;
  18.  
  19.   FSelectQuestion := Value;
  20. end;

Как видно при выборе вопроса, его текст и записываются в компоненты QTextMemo и QActiveCheckBox.

Добавим еще один закрытый метод LoadQuestion. Он будет делать выбранным вопрос под заданным индексом. Как мы помним, вопросы в классе TStData хранятся в списке TObjectList, и соответственно вопрос можно получить, обратившись по индексу.

  1. TMainForm = class(TForm)
  2.   ...
  3. private
  4.   ...
  5.   procedure LoadQuestion( index: integer );
  6.  
  7. public
  8.   ...
  9. end;
  10.  
  11. procedure TMainForm.LoadQuestion( index: integer );
  12. begin
  13.   // Если индекс вопроса, который нужно сделать выбранный, не отрицательный
  14.   // и меньше общего количества вопросов
  15.   if (index >= 0) and ( index < Data.StQuestionList.Count ) then
  16.     SelectQuestion := TStQuestion( Data.StQuestionList.Items[index] )
  17.   else // В противном случае
  18.     begin
  19.       QTextMemo.Text := '';
  20.       QActiveCheckBox.Checked := true
  21.     end;
  22.  
  23. end;

Исправим метод Load, добавив в блок try следующую строчку:

  1. LoadQuestion( 0 );

Таким образом, каждый раз при открытии файла выбранным будет первый вопрос. Это сделано во избежание некоторых ошибок.

На этом третью часть цикла статей по написанию системы тестирования можно завершить.

delphi, тест
6 08 июля 2010 | Система тестирования

Комментарии (2)

Хм | 27 февраля 2011 г. 13:07 Ответить

а исходник этого можно?:))

хм | 27 февраля 2011 г. 13:08 Ответить


Хм ,
все нашел)

Добавить комментарий

  • Допустимые html-теги:
    <b> </b> - жирный шрифт
    <em> </em> - наклонный
    <s> </s> - зачеркнутый
    <pre> </pre> - сохранение отступов (печать кода)
    [?]
Введите текст с картинки