}// якщо користувач обраний
{-> Hide (); -> Refresh (); -> Show (); -> QVopros-> SQL-> Clear ();// створення запиту, який вибирає всі
// питання для даної теми-> QVopros-> SQL-> Add ("Select * from Vopros where Tema_Parent =" + QTema-> FieldByName ("Tema_id") -> AsString + "order by Slognost"); -> QVopros-> Open (); -> QVopros-> First ();// установка курсору на першу // Створення запиту, який вибирає всі
// відповіді для даної питання-> QOtvet-> SQL-> Add ("Select * from Otvet where Parent_id = // Установка курсору на першу "+ Form1-> QVopros-> FieldByName (" Slognost ") -> AsString +"-ї категорії складності ";
}
}
// ---------------------------------------- -----------------------------------
// кнопка "Звіт" __fastcall TForm2 :: N1Click (TObject * Sender)
{-> Label3-> Font-> Color = clRed; -> Label4-> Font-> Color = clRed; -> Label7-> Font-> Color = clRed;
}
{-> Label3-> Font-> Color = clGreen; -> Label4-> Font-> Color = clGreen; -> Label7-> Font-> Color = clGreen;
}
{-> Label3-> Font-> Color = clWindowText; -> Label4-> Font-> Color = clWindowText; -> Label3-> Caption = " тестування не проводилося! "; -> Label4-> Caption =" Тестування не проводилося! "; -> Label7-> Caption =" ";
}
// ------------------------ заповнюємо таблицю з темами, датою і часом на формі * From Otchet where User_ID = "+ Form2-> QUsers1-> FieldByName (" User_ID ") -> AsString +" and Tema_ID = "+ Form2-> QTema-> FieldByName (" Tema_ID " ) -> AsString + "order by Date, Time"); -> QOtchet-> Open (); (! Form3-> QOtchet-> IsEmpty ())
{-> Label3-> Font-> Color = clRed; -> Label4-> Font-> Color = clRed; -> Label7-> Font-> Color = clRed;
}
{-> Label3-> Font-> Color = clGreen; -> Label4-> Font-> Color = clGreen; -> Label7-> Font-> Color = clGreen;
}
{-> Label3-> Font-> Color = clWindowText; -> Label4-> Font-> Color = clWindowText; -> Label3-> Caption = " тестування не проводилося! "; -> Label4-> Caption =" Тестування не проводилося! "; -> Label7-> Caption =" ";
QOtchet-> Open (); - > QOtchet-> First (); (! Form3-> QOtchet-> IsEmpty ())
