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

Table1->Edit();

if(CheckBox19->Checked){

Table1->Fields->FieldByName("issotrudnik")->AsInteger = 1;

GroupBox18->Visible=true;

}

else

{

Table1->Fields->FieldByName("issotrudnik")->AsInteger = 0;

GroupBox18->Visible=false;

}

Table1->Post();

}

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

void __fastcall Talgo::wwDBLookupCombo8Change(TObject *Sender)

{

if(activeflag){

Query12->Close();

Query12->SQL->Clear();

Query12->SQL->Add(

"select constanta,znach from z_nastr_derzsluz_posada where id="+wwDBLookupCombo8->Text

);

Query12->Open();

}

}

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

void __fastcall Talgo::wwDBLookupCombo9Change(TObject *Sender)

{

if(activeflag){

Query13->Close();