Базы данных для станции технического обслуживания

ADOQuery3->Close();

ADOQuery3->SQL->Clear();

ADOQuery3->SQL->Add("SELECT a.client, a.telephone_number, b.brand, b.model, b.body, b.engine, b.drive, c.type_of_job, d.cost_of_job, d.deposited_funds, d.fund_balance, d.order_date from client a, car b, type_of_job c, the_list_of_order d where a.id_client=d.id_client and b.id_car=d.id_car and c.id_type_of_job=d.id_type_of_job and order_date between :d1 and :d2");

ADOQuery3->Parameters->ParamByName("d1")->Value=DateTimePicker2->DateTime;

ADOQuery3->Parameters->ParamByName("d2")->Value=DateTimePicker3->DateTime;

ADOQuery3->Open();

}

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

 

void __fastcall TForm1::DateTimePicker2Change(TObject *Sender)

{

Edit1->Text=DateTimePicker2->DateTime;

}

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

 

void __fastcall TForm1::DateTimePicker3Change(TObject *Sender)

{

Edit2->Text=DateTimePicker3->DateTime;

}

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

 

void __fastcall TForm1::SpeedButton5Click(TObject *Sender)

{

DBGrid1->DataSource->DataSet=DataSource8->DataSet;

ADOQuery4->Close();

ADOQuery4->SQL->Clear();

ADOQuery4->SQL->Add("SELECT a.client, a.telephone_number, b.brand, b.model, b.body, b.engine, b.drive, c.type_of_job, d.cost_of_job, d.deposited_funds, d.fund_balance, d.order_date from client a, car b, type_of_job c, the_list_of_order d where a.id_client=d.id_client and b.id_car=d.id_car and c.id_type_of_job=d.id_type_of_job and a.client LIKE '%"+Edit3->Text+"%'");

ADOQuery4->Open();

}

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