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

{

if(activeflag){

Query7->Close();

Query7->SQL->Clear();

Query7->SQL->Add(

"select constanta from z_nastr_sposobpensfond where id="+wwDBLookupCombo6->Text

);

Query7->Open();

}

}

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

void __fastcall Talgo::Button2Click(TObject *Sender)

{

vbazu();

}

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

void __fastcall Talgo::wwDBLookupCombo7Change(TObject *Sender)

{

if(activeflag){

Query11->Close();

Query11->SQL->Clear();

Query11->SQL->Add(

"select constanta,znach from z_nastr_adm_posadi where id="+wwDBLookupCombo7->Text

);

Query11->Open();

}

}

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

void __fastcall Talgo::CheckBox19Click(TObject *Sender)