Tashkent university of information technologies named after muhammad al-khwarizmi

• 
  ADOConnection
  
• 
  ADOTable
  
• 
  DataSource
  
• 
  DBGrid
  
• 
  DBEdit
  
• 
  Label
  
• 
  Button
  
• 
  DBNavigator
  

Code Filter:

void __fastcall TForm1::Edit6Change(TObject *Sender)

{

String filtr="";

filtr = " SELECT *FROM trip WHERE town_to like \"" +Edit6->Text + "%\"";

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add(filtr);

ADOQuery1->Open();

}

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

void __fastcall TForm1::Edit7Change(TObject *Sender)

{

String filtr="";

filtr = " SELECT *FROM trip WHERE town_from like \"" +Edit7->Text + "%\"";

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add(filtr);

ADOQuery1->Open();

}

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

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

if(RadioButton2->Checked==true){

String filtr="";

filtr = " SELECT *FROM trip WHERE time_out like '%2005%'";

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add(filtr);

ADOQuery1->Open();

}

}

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

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

if(RadioButton3->Checked==true){

String filtr="";

filtr = " SELECT *FROM trip WHERE town_from like '%Mos'";

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add(filtr);

ADOQuery1->Open();

}

}

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

void __fastcall TForm1::RadioButton3Click(TObject *Sender)

{

if(RadioButton3->Checked==true){

String filtr="";

filtr = " SELECT *FROM trip WHERE plane like '%Boeing'";

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add(filtr);

ADOQuery1->Open();

}

}

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