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

void __fastcall TForm1::Button6Click(TObject *Sender)

{

DataModule2->IBStoredProc5->ParamByName("ID_CLIENT")->AsString=Form1->Edit9->Text;

DataModule2->IBStoredProc5->ParamByName("ID_ING")->AsString=Form1->Edit10->Text;

DataModule2->IBStoredProc5->ParamByName("ID_DET")->AsString=Form1->Edit11->Text;

DataModule2->IBStoredProc5->ParamByName("STOIMOST")->AsString=Form1->Edit12->Text;

DataModule2->IBStoredProc5->ParamByName("ID_RASCH")->AsString=Form1->Edit13->Text;

DataModule2->IBStoredProc5->ParamByName("DATE_PR")->AsString=Form1->Edit14->Text;

DataModule2->IBStoredProc5->ParamByName("DATE_V")->AsString=Form1->Edit15->Text;

DataModule2->IBStoredProc5->Prepare();

DataModule2->IBStoredProc5->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::Button7Click(TObject *Sender)

{

DataModule2->IBStoredProc7->ParamByName("NAME_DETAIL")->AsString=Edit23->Text;

DataModule2->IBStoredProc7->ParamByName("TECH_HAR")->AsString=Edit24->Text;

DataModule2->IBStoredProc7->ParamByName("PROIZVOD")->AsString=Edit25->Text;

DataModule2->IBStoredProc7->Prepare();

DataModule2->IBStoredProc7->ExecProc();

DataModule2->IBTransaction1->Commit();

DataModule2->IBTable1->Active=true;