QSelect->Open();

Содержание

• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• {
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• }
• //---------------------------------------------------------------------------
• //---------------------------------------------------------------------------
• //---------------------------------------------------------------------------
• //---------------------------------------------------------------------------
• Form3->Show();
• Form3->QOtchet->Close();
• Form3->QOtchet->SQL->Clear();
• Form3->QOtchet->Open();
• Form3->QOtchet->Open();
• Form3->QOtchet->Open();
• Form3->Label3->Font->Color= clRed;
• Form3->Label4->Font->Color= clRed;
• Form3->Label7->Font->Color= clRed;
• else
• else
• else
• else
• else
• else
• else
• Form3->Label3->Font->Color= clGreen;
• Form3->Label4->Font->Color= clGreen;
• //------------------------заполняем таблицу с темами, датой и временем на форме "Результат"
• Form3->QOtchet->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");
• Form3->SG1->RowCount=2;
• Form3->SG1->FixedRows=1;
• Form3->SG1->Cells[0][0]="Тема";
• Form3->SG1->Cells[1][0]="Дата";
• Form3->SG1->Cells[2][0]="Время";
• Form3->SG1->Cells[0][1]="";
• Form3->SG1->Cells[1][1]="";
• Form3->SG1->Cells[2][1]="";
• Form3->SG1->Cells[0][1]="";
• Form3->SG1->Cells[1][1]="";
• Form3->QOtchet->SQL->Clear();
• Form3->QOtchet->SQL->Add("Select * from Otchet where User_ID= "+Form2->QUsers1->FieldByName("User_ID")->AsString+ "order by Date, Time");
• Form3->QOtchet->First();
• int i=1;
• TADOQuery *QSelect=new TADOQuery(NULL);
• TADOQuery *QSelect=new TADOQuery(NULL);
• TADOQuery *QSel=new TADOQuery(NULL);
• QSelect->ConnectionString=Form2->ADOConnection1->ConnectionString;
• QSelect->ConnectionString=Form2->ADOConnection1->ConnectionString;
• QSel->ConnectionString=Form2->ADOConnection1->ConnectionString;
• QDel->ConnectionString=Form2->ADOConnection1->ConnectionString;
• QSelect->SQL->Add("Select * from Tema where Tema_ID= "+Form3->QOtchet->FieldByName("Tema_ID")->AsString);
• QSelect->Open();
• QSelect->Open();
• if (!QSelect->IsEmpty())
• Form3->SG1->Cells[0][i]=QSelect->FieldByName("Tema_text")->AsString;
• Form3->SG1->Cells[1][i]=Form3->QOtchet->FieldByName("Date")->AsString;
• Form3->SG1->Cells[2][i]=Form3->QOtchet->FieldByName("Time")->AsString;
• Form3->SG1->RowCount=i+1;
• i++;
• delete QSelect;
• delete QSelect;
• TADOQuery *QDel=new TADOQuery(NULL);
• QSel->SQL->Add("Select * from Otchet");
• QSel->Open();
• QSel->First();
• QDel->SQL->Add("Select * from Users where User_ID= "+QSel->FieldByName("User_ID")->AsString);
• QDel->Open();
• if (QDel->IsEmpty())
• QSel->Delete();
• QSel->Next();
• Pie1->Visible=false;
• prav=0;
• CheckBox1->Font->Color = clWindowText;
• CheckBox2->Font->Color = clWindowText;
• CheckBox3->Font->Color = clWindowText;
• //закрытие формы
• Form1->Hide();

Похожие материалы

• Анализ системы автоматизации тестирования
• 1.2.3 Система тестирования «indigo»
• 4.2.Система тестирования
• Правила тестирования пользовательского интерфейса (взаимодействия программы с пользователем)
• 5.5. Тестирование графического интерфейса пользователя
• Тестирование программных систем
• 4.2.Система тестирования
• Тестирование системы
• Обзор системы тестирования Indigo.