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

Ранее, в данном цикле статей, посвященных написанию программы для тестирования на Delphi, мы начали создание системы управления тестом. Сейчас мы ее, наконец, закончим.

Управление вариантами ответа

При клике на кнопку или метку «Редактировать», должно открывать окно управления вариантами ответа.

Создадим для этого новую форму, назовем ее EditUnit (скачать dfm).

Внешний вид:

Как видно, она чем-то похожа на главную форму. Рассмотрим основные компоненты.

Метка куда выводится текст вопроса, это QTextLabel.. При  нажатии на метку «Редактировать» (QEditLabel), QTextLabel заменяется текстовым полем QTextMemo, в котором текст вопроса можно редактировать.

Список вариантов ответа выводится в компонент AListBox типа TCheckListBox.

Справа также расположены две TCategoryPanel: AnswerPanel (Вариант ответа) и QuestionPanel (Тест).

Панель «Вариант ответа»

Текст выбранного варианта ответа выводиться в поле ATextMemo. Его правильность определяет Check Box ARightCheckBox.

Метка «Сохранить» (ASaveLabel) собственно сохраняет изменения для текущего варианта ответа.

Метка «Добавить» (ACreateLabel) вызывает модальное окно для добавления нового варианта ответа.

Метка «Удалить» (ADeleteLabel) удаляет выбранный вариант ответа.

Панель «Тест»

Здесь только одна кнопка «Применить» (AplayButton). При клике на ней сохраняются изменения и закрывается окно управления вариантами ответа.

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

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

Так же, для удобства сделаем вопрос полем класса формы.

  1. TQEditForm = class(TForm)
  2. ...
  3. public
  4.   Question: TStQuestion;
  5.  
  6.   constructor Create( AOwner: TComponent; setQuestion: TStQuestion );
  7. end;
  8.  
  9. ...
  10.  
  11. constructor TQEditForm.Create( AOwner: TComponent; setQuestion: TStQuestion );
  12. begin
  13.   inherited Create( AOwner );
  14.   Question := setQuestion;
  15. end;

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

Запись в свойство SelectAnswer

Рассмотрим метод при записи в свойство SelectAnswer – SetSelectAnswer. Нам просто нужно заполнить текстовое поле ATextMemo и флажок  ARightCheckBox.

  1. TQEditForm = class(TForm)
  2. ...
  3. private
  4.   procedure SetSelectAnswer(const Value: TStAnswer);
  5. public
  6.   Question: TStQuestion;
  7.  
  8.   constructor Create( AOwner: TComponent; setQuestion: TStQuestion );
  9.   property SelectAnswer: TStAnswer read FSelectAnswer write SetSelectAnswer;
  10. end;
  11.  
  12. ...
  13.  
  14. procedure TQEditForm.SetSelectAnswer(const Value: TStAnswer);
  15. begin
  16.   ATextMemo.Text := Value.Text;
  17.   ARightCheckBox.Checked := Value.Right;
  18.   FSelectAnswer := Value;
  19. end;

Загрузка вопроса

Введем еще закрытых метода для полной «загрузки» данных из вопроса на форму.

Метод LoadData

Просто выводит варианты ответа в AListBox.

  1. procedure TQEditForm.LoadData;
  2. var
  3.   i: integer;
  4.   Answer: TStAnswer;
  5. begin
  6.   AListBox.Items.Clear;
  7.   for i := 0 to Question.StAnswerList.Count - 1 do
  8.     begin
  9.       Answer := TStAnswer( Question.StAnswerList.Items[i] );
  10.       AListBox.Items.Add( Answer.Text );
  11.       AListBox.Checked[ i ] := Answer.Right;
  12.     end;
  13. end;

Метод LoadHead

Показывает текст вопроса в метке QTextLabel.

  1. procedure TQEditForm.LoadHead;
  2. begin
  3.   QTextLabel.Caption := Question.Text;
  4. end;

Метод LoadAnswer

Делает выбранным вариант ответа (свойство SelectAnswer) под заданным индексом.

  1. procedure TQEditForm.LoadAnswer( index: integer );
  2. begin
  3.   if (index >= 0) and (index < Question.StAnswerList.Count) then
  4.     begin
  5.       SelectAnswer := TStAnswer( Question.StAnswerList.Items[ index ] );
  6.     end;
  7. end;

Как видно, все, в общем-то, очень похоже на методы загрузки из главной формы, написанные нами ранее.

Осталось только обработать событие при активизации формы – FormActivate:

  1. procedure TQEditForm.FormActivate(Sender: TObject);
  2. begin
  3.   LoadHead;
  4.   LoadData;
  5.   LoadAnswer( 0 );
  6. end;

Теперь можно перейти к, собственно, реализации функционала управления вариантами ответа.

Редактирование текста вопроса

Как уже сказано выше, текст вопроса выводится в метку QTextLabel. Если нажать на «Редактировать», то это метка заменяется текстовым полем QTextMemo, и соответственно текст «Редактировать» меняется на «Сохранить», при клике на который, изменения в тексте вопроса сохраняются, и вновь отображается метка QTextLabel.

Введем два закрытых метода: EditQText, который скрывает метку и показывает поле для редактирования и ShowQText, который наоборот показывает метку, при этом сохраняя изменения, сделанные в текстовом поле.

Метод EditQText

Кроме сказанного этот метод еще должен управлять меткой QEditLabel («Редактировать» или «Сохранить»). Ее текущее состояние записывается в свойство Tag.

  1. procedure TQEditForm.EditQText;
  2. begin
  3.   QTextLabel.Hide; // Скрываем метку
  4.   QTextMemo.Text := QTextLabel.Caption; // Текст из метки копируется в
  5.                                         // текстовое поле
  6.   QTextMemo.Show; // Отображение поля
  7.   QEditLabel.Tag := 0;
  8.   QEditLabel.Caption := 'Сохранить';  
  9. end;

Метод ShowQText

Обратный методу EditQText. Так же сохраняет сделанные изменения.

  1. procedure TQEditForm.ShowQText;
  2. begin
  3.   QTextMemo.Hide;
  4.   QTextLabel.Caption := QTextMemo.Text;
  5.   Question.Text := QTextMemo.Text;
  6.   QTextLabel.Show;
  7.   QEditLabel.Tag := 1;
  8.   QEditLabel.Caption := 'Редактировать';
  9. end;

Клик по QEditLabel

Обработчик события клика по метке. В зависимости от свойства Tag вызывает один из предыдущих методов.

  1. procedure TQEditForm.QEditLabelClick(Sender: TObject);
  2. begin
  3.   if QEditLabel.Tag = 1 then
  4.     EditQText;
  5.   else
  6.     ShowQText;
  7. end;

Список вариантов ответа (AListBox)

При выборе варианта ответа в AListBox, этот же вариант ответа должен записываться в свойство SelectAnswer. Определим обработчик события OnClick для AListBox:

  1. procedure TQEditForm.AListBoxClick(Sender: TObject);
  2. begin
  3.   LoadAnswer( AListBox.ItemIndex );
  4. end;

Так же, поскольку AListBoxэто компонент типа TCheckListBox, то и при изменении check box'a у конкретного варианта ответа, должен изменения и check box на панели «Вариант ответа».

  1. procedure TQEditForm.AListBoxClickCheck(Sender: TObject);
  2. begin
  3.   LoadAnswer( AListBox.ItemIndex );
  4.   SelectAnswer.Right := AListBox.Checked[ AListBox.ItemIndex ];
  5. end;

Панель «Вариант ответа»

Перейдем, теперь, к этой панели.

Сохранение изменений

При клике на метку «Сохранить», все изменения, сделанные с вариантом ответа должны сохраниться:

  1. procedure TQEditForm.ASaveLabelClick(Sender: TObject);
  2. begin
  3.   if (SelectAnswer <> nil) and (ATextMemo.Text <> '') then
  4.     begin
  5.       SelectAnswer.Text := ATextMemo.Text;
  6.       SelectAnswer.Right := ARightCheckBox.Checked;
  7.       LoadData;
  8.     end;
  9. end;

Удаление варианта ответа

Создадим метод DeleteSelectAnswer. Как понятно из названия – это удаление выбранного вопроса.

  1. procedure TQEditForm.DeleteSelectAnswer;
  2. begin
  3.   Question.StAnswerList.Remove( SelectAnswer );
  4.   LoadData;
  5.   FSelectAnswer := nil;
  6.   LoadAnswer( 0 );
  7. end;

Теперь напишем обработчик события клика по метке «Удалить»:

  1. procedure TQEditForm.ADeleteLabelClick(Sender: TObject);
  2. begin
  3.   if SelectAnswer <> nil then
  4.     if MessageBox(handle, 'Вы действительно хотите удалить этот вариант ответа?' + #13#10,
  5.       'Удаление варината ответа', mb_YesNo) = mrYes then
  6.       DeleteSelectAnswer;
  7. end;

Добавление варианта ответа

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

Создадим новую форму, назовем ACreateUnit (скачать dfm).

Внешний вид:

 

Так же, как и в QEditForm,  переопределим конструктор, добавив один параметр:

  1. constructor TACreateForm.Create( AOwner: TComponent; setQuestion: TStQuestion );
  2. begin
  3.   inherited Create( AOwner );
  4.   Question := setQuestion;
  5. end;

При клике на кнопку «ОК» должен создаться новый вариант ответа:

  1. procedure TACreateForm.OkButtonClick(Sender: TObject);
  2. var
  3.   newAnswer: TStAnswer;
  4. begin
  5.   newAnswer := TStAnswer.Create;
  6.   if ATextMemo.Text <> '' then
  7.     begin
  8.       newAnswer.Text := ATextMemo.Text;
  9.       newAnswer.right := QActiveCheckBox.Checked;
  10.       Question.StAnswerList.Add( newAnswer );
  11.     end;
  12.  
  13. end;

Теперь с ACreateUnitможно закончить. Вернемся к форме управления вариантами ответа.

Напишем обработчик события OnClick для метки «Добавить»:

  1. procedure TQEditForm.ACreateLabelClick(Sender: TObject);
  2. var
  3.   CreateForm: TACreateForm;
  4. begin
  5.   CreateForm := TACreateForm.Create( self, Question );
  6.   if CreateForm.ShowModal = mrOk then
  7.     begin
  8.       self.LoadData;
  9.       AListBox.ItemIndex := AListBox.Count - 1;
  10.       LoadAnswer( AListBox.Count - 1 );
  11.     end;
  12.  
  13. end;

Панель «Тест»

Наконец, осталось лишь обработать клик по кнопке «Применить» на панели «Тест». Поскольку все изменения сохранялись сразу, то при клике на эту кнопку нужно просто закрыть форму.

На этом и закончим с формой управления вариантами ответа. Вернемся к MainForm.

Поскольку управление вариантами ответа уже готово, осталось лишь его вызвать. Для этого добавим новый метод EditSelectQuestion. В котором и будет создаваться форма TQEditForm.

  1. procedure TMainForm.EditSelectQuestion;
  2. var
  3.   QEditForm: TQEditForm;
  4. begin
  5.   if SelectQuestion <> nil then
  6.     begin
  7.       QEditForm := TQEditForm.Create( self, SelectQuestion );
  8.       QEditForm.ShowModal;
  9.       LoadData;
  10.       SelectQuestion := FSelectQuestion;
  11.     end;
  12. end;

Теперь, нужно лишь вызвать этот метод при лике на кнопку в панели инструментов и метку «Редактировать»:

  1. procedure TMainForm.EditToolButtonClick(Sender: TObject);
  2.   EditSelectQuestion;
  3. end;
  4.  
  5. procedure TMainForm.QEditLabelClick(Sender: TObject);
  6. begin
  7.   EditSelectQuestion;
  8. end;

Закрытие формы

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

  1. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
  2. begin
  3.   if Changed then
  4.     begin
  5.       case MessageBox(handle, 'Сохранить сделанные изменения?' + #13#10,
  6.         'Сохранение', mb_YesNoCancel) of
  7.         IDYES: SaveTestSimple;  
  8.         IDCANCEL: action := caNone;
  9.       end;
  10.  
  11.     end;
  12. end;

Теперь программа составления теста полностью дописана и удовлетворяет всем требованиям, поставленным ранее. В следующих частях цикла статей мы напишем и саму программу тестирования.

Скачать исходники и exe файл

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

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

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

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