Курсовая работа: Реляційна база данних трудової книжки

x+" update z_algo_result set spivrobzarp = "+buf

);

Query8->ExecSQL();

}

//derzsluzbovec

if(Table1->Fields->FieldByName("isderzsluzbovec")->AsInteger){

sprintf(buf,"%f",(DBText15->Caption.ToDouble()+DBText17->Caption.ToDouble())*(1+DBText19->Caption.ToDouble()/100+DBText21->Caption.ToDouble()/100+DBText29->Caption.ToDouble()/100));

Query8->SQL->Clear();

Query8->SQL->Add(

x+" update z_algo_result set derzsluzzarp = "+buf

);

Query8->ExecSQL();

}

//utrimano

if(wwDBLookupCombo6->Text.ToInt() == 1 ){

Query9->Close();

Query9->Open();

sprintf(buf,"%f",Query9->Fields->FieldByName("res")->AsFloat);

}

if(wwDBLookupCombo6->Text.ToInt() == 2 ){

Query16->Close();

Query16->Open();

sprintf(buf,"%f",Query16->Fields->FieldByName("res")->AsFloat);

}

Query8->SQL->Clear();

Query8->SQL->Add(

x+" update z_algo_result set utrim="+buf

);

Query8->ExecSQL();