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

Font-> Color = clGreen; -> Label7-> Font-> Color = пройдений! "; -> Label4-> Caption =" Набрано "+ FormatFloat (" #. # ", ball) +" балів "; -> Label7-> Caption = DateToStr (Date ());

}

// ------------------------ заповнюємо таблицю з темами, датою і часом на формі "Результат"

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

{* QSelect = new * From Tema where Tema_ID =

}

} QSelect;

}

} = 0; = 0; _user = 0;

} -> Checked = false; -> Checked = false; -> Checked = false; -> Checked = false;

// робимо чорний колір шрифту у всіх відповідей

CheckBox1-> Font-> Color = clWindowText; -> Font-> Color = clWindowText; -> Font-> Color = clWindowText; -> Font-> Color = clWindowText; -> Visible = false; -> Enabled = false;

}

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

// другий таймер__fastcall TForm1 :: Timer2Timer (TObject * Sender)

{-> Angles-> EndAngle = Pie1-> Angles-> EndAngle +2;

}

{-> Visible = false;

}

Форма "Результати тестування"

// клацання миші на таблиці "Користувач"

void __ fastcall TForm3 :: DBGrid1CellClick (TColumn * Column)

{> Close ();> SQL-> Clear ();> SQL-> Add ("Select * from Otchet where User_ID =" + Form2-> QUsers1 -> FieldByName ("User_ID") -> AsString + "and Tema_ID =" + Form2-> QTema-> FieldByName ("Tema_ID") -> AsString + "Order by Date, Time") ;> Open (); (! QOtchet-> IsEmpty ())

{(QOtchet-> FieldByName ("Res_text") -> AsString == "Тест не пройдений")

{-> Font-> Color = clRed; -> Font-> Color = clRed; -> Font-> Color = clRed;

}

{-> Font-> Color = clGreen; -> Font-> Color = clGreen; -> Font-> Color = clGreen;

}

{-> Font-> Color = clWindowText; -> Font-> Color = clWindowText; -> Caption = "Тестування не проводилося!";

Label4-> Caption = "Тестування не проводилося!";

Label7-> Ca...