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)