Реферат: Автоматизированная информационная система Малое авторемонтное предприятие

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

void __fastcall TForm2::Button3Click(TObject *Sender)

{

if(ADOTable1->IsEmpty()==true)

ShowMessage("ia?aai ?aaaeoe?iaaou");

else{Form4->ShowModal();}

}

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

void __fastcall TForm2::Button4Click(TObject *Sender)

{

if (bol==false) {

Memo1->Lines->Add("-----------------------------------------------------------------------------------------");

Memo1->Lines->Add("Авто: "+ADOTable1->Fields->Fields[1]->AsString);

Memo1->Lines->Add("Марка: "+ADOTable1->Fields->Fields[2]->AsString);

Memo1->Lines->Add("Запчасти: "+ADOTable1->Fields->Fields[3]->AsString);

Memo1->Lines->Add("Количество: "+Edit1->Text);

Memo1->Lines->Add("Стоимось: "+ADOTable1->Fields->Fields[4]->AsString);

//Memo1->Lines->Add("Общая цена "+IntToStr(StrToInt(Edit1->Text)*StrToInt(ADOTable1->Fields->Fields[4]));

//summa=summa+StrToInt(Edit2->Text)*ADOTable1->Fields->Fields[4]->AsInteger;

//Edit1->Text=1;

//Label4->Caption="Итого за покупку: "+ FloatToStr(summa)+ " рублей" ;

}

}

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

void __fastcall TForm2::Button5Click(TObject *Sender)

{

ADOTable1->Last();

x=ADOTable1->Fields->Fields[0]->AsInteger;

do {