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

Form2->Hide();

Form1->Show();

}

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

void __fastcall TForm2::Button1Click(TObject *Sender)

{

ADOTable1->Append();

DBGrid1->SetFocus();

Form3->Show();

}

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

void __fastcall TForm2::N1Click(TObject *Sender)

{

Form1->Show();

Form2->Hide();

}

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

void __fastcall TForm2::N4Click(TObject *Sender)

{

Form2->Close();

}

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

void __fastcall TForm2::Button2Click(TObject *Sender)

{

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

ShowMessage("Ошибка");

else {

ADOTable1->Delete();

ShowMessage("Данные удалены");