Курсовая работа: Разработка и патентная защита программного средства Автоматизированное рабочее место инженера п

DataModule2->IBTable3->Active=true;

DataModule2->IBTable4->Active=true;

DataModule2->IBTable5->Active=true;

}

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{

DataModule2->IBStoredProc6->ParamByName("ID_ZAK")->AsString=DBEdit2->Text;

DataModule2->IBStoredProc6->Prepare();

DataModule2->IBStoredProc6->ExecProc();

DataModule2->IBTransaction1->Commit();

DataModule2->IBTable1->Active=false;

DataModule2->IBTable1->Active=true;

DataModule2->IBTable2->Active=true;

DataModule2->IBTable3->Active=true;

DataModule2->IBTable4->Active=true;

DataModule2->IBTable5->Active=true;

}

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

void __fastcall TForm1::Button8Click(TObject *Sender)

{

DataModule2->IBStoredProc6->ParamByName("ID_ING")->AsString=DBEdit3->Text;

DataModule2->IBStoredProc8->ParamByName("FIO_ING")->AsString=Edit27->Text;

DataModule2->IBStoredProc8->ParamByName("TELEPHONE")->AsString=Edit28->Text;

DataModule2->IBStoredProc8->ParamByName("ADRES")->AsString=Edit29->Text;

DataModule2->IBStoredProc8->Prepare();

DataModule2->IBStoredProc8->ExecProc();

DataModule2->IBTransaction1->Commit();

}