Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Система тестування користувачів

Реферат Система тестування користувачів





n="justify"> {i = 1; (! Form3-> QOtchet-> Eof)

{* QSelect = new * From Tema where Tema_ID =

}

} QSelect;

}

}

}

// ---------------------------------------- -----------------------------------

// кнопка "Про програму" __fastcall TForm2 :: N2Click (TObject * Sender)

{-> Visible = false; -> Visible = true;

}

{

// видалення всіх записів, що належать віддаленому користувачеві * QSel = new * From Otchet ");> Open ();> First (); (! QSel-> Eof)

{* QDel = new * From Users where User_ID =

} QSel;

}

Форма "Тестування" ball = 0; prav = 0;// кількість правильних відповідей (у БД) prav_user = 0;// кількість правильних відповідей, даних пользователемneprav_user = 0;// кількість неправильних відповідей , даних користувачем

// кнопка "ОК" __fastcall TForm1 :: SpeedButton1Click (TObject * Sender)

{

// перевірка чи вибраний взагалі який-небудь відповідь

if (CheckBox1-> Checked == false & CheckBox2-> Checked == false & CheckBox3-> Checked == false & CheckBox4-> Checked == false)

{("Не обраний жоден відповідь!");;

}

// підрахунок кол-ва правильних відповідей, обраних користувачем> First ();

// якщо користувач відповів правильно

if (CheckBox1-> Checked == true & QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 1)

{_user = prav_user + +;

}

// якщо користувач поставив "галочку" на неправильній відповіді

if (CheckBox1-> Checked == true & QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 0)

{_user = neprav_user + +; -> Font-> Color = clRed;

}

// якщо користувач не поставив "галочку" на правильній відповіді

if (QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 1 & CheckBox1-> Checked == false)

{-> Font-> Color = clGreen;

}> Next ();

// якщо користувач відповів правильно (CheckBox2-> Checked == true & QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 1)

{_user = prav_user + +;

}

// якщо користувач поставив "галочку" на неправильній відповіді

if (CheckBox2-> Checked == true & QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 0)


Назад | сторінка 12 з 17 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Система реєстрації та авторизації користувачів на сайті
  • Реферат на тему: Система тестування
  • Реферат на тему: Адаптивна система тестування
  • Реферат на тему: Автоматизована WEB-система тестування студентів
  • Реферат на тему: Автоматизована система тестування знань з програмування