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

void __fastcall Talgo::CheckBox3Click(TObject *Sender)

{

vbazu();

}

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

void __fastcall Talgo::wwDBLookupCombo4Change(TObject *Sender)

{

if(activeflag){

Query5->Close();

Query5->SQL->Clear();

Query5->SQL->Add(

"select constanta from z_nastr_vch_klasruk where id="+wwDBLookupCombo4->Text

);

Query5->Open();

}

}

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

void __fastcall Talgo::wwDBLookupCombo5Change(TObject *Sender)

{

if(activeflag){

Query6->Close();

Query6->SQL->Clear();

Query6->SQL->Add(

"select constanta from z_nastr_vch_visluga where id="+wwDBLookupCombo5->Text

);

Query6->Open();

}

}

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