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

ADOTable1->Next(); }

while (ADOTable1->Eof!=true);

ADOTable1->Insert();

x++;

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

ADOTable1->Post();

ADOTable1->Last();

if (StrToInt(Edit2->Text)>=summa) {

if (summa!=0) {

if (bol==false) {

bol=true;

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

Memo1->Lines->Add("Итого: "+FloatToStr(summa)+ " рублей");

if (Edit2->Text!="") {

Memo1->Lines->Add("Внесена оплата: "+Edit2->Text);

Memo1->Lines->Add("Сдача: "+FloatToStr(StrToInt(Edit2->Text)-summa));

}

Memo1->Lines->Add("Кассир:"+i);

Memo1->Lines->Add("Чек №"+ADOTable1->Fields->Fields[0]->AsString+" "+Date());

Memo1->Lines->Add("---------------------------Спасибо за покупку!!!-------------------------");

}

if (Edit2->Text!=""){

ShowMessage("Итого: "+FloatToStr(summa)+ " рублей"+

" Внесена оплата: "+Edit2->Text+" Сдача: "+FloatToStr(StrToInt(Edit2->Text)-summa));

} else ShowMessage("Итого: "+FloatToStr(summa)+ " рублей");

} else ShowMessage("Нет покупок!!!"); }

else ShowMessage("Недостаточно денег на покупку"); }

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

void __fastcall TForm2::Button6Click(TObject *Sender)