ption = "";
{i = 1; (! QOtchet-> Eof)
{* QSelect = new * From Tema where Tema_ID =
}
{-> Cells [0] [1] = ""; -> Cells [1] [1] = "";
} QSelect;
}
}
}
// ---------------------------------------- -----------------------------------
// закриття форми__fastcall TForm3 :: FormClose (TObject * Sender, TCloseAction & Action)
{
// якщо були видалені користувачі, то видаляємо результати їхнього тестування
TADOQuery * QSel = new * From Otchet ");> Open ();> First (); (! QSel-> Eof)
{* QDel = new * From Users where User_ID =
} QSel;> Terminate ();
}
// ---------------------------------------- -----------------------------------
// кнопка "Нове тестування" __fastcall TForm3 :: SpeedButton1Click (TObject * Sender)
{-> Hide (); -> Show ();
}
// ---------------------------------------- -----------------------------------
// клацання миші на таблиці "Минулі тести" __fastcall TForm3 :: SG1SelectCell (TObject * Sender, int ACol, int ARow,
bool & CanSelect)
{
// якщо стався клацання миші на поле "Дата", то пересуваємо його
// на полі "Тема" (ACol == 1) = ACol-1;
// якщо стався клацання миші на поле "Час", то пересуваємо його
// на полі "Тема" (ACol == 2)
ACol = ACol-2; * QSelect = new * From Tema where Tema_text = '" * From Otchet where User_ID = "+ Form2-> QUsers1-> FieldByName (" User_ID ") -> AsString +" and Tema_ID = "+ QSelect-> FieldByName (" Tema_ID ") -> AsInteger + "and Date = '" + SG1-> Cells [ACol +1] [ARow] + "'" + "and Time = '" + SG1-> Cells [ACol +2] [ ARow] + "'" + "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 = "Тестування не...
