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

Query1->Close();

Query1->SQL->Clear();

Query1->SQL->Add(

"select constanta from z_nastr_vch_stavka_osv where id="+wwDBLookupCombo1->Text

);

Query1->Open();

}

}

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

void __fastcall Talgo::DBCheckBox1Click(TObject *Sender)

{

Table1->Edit();

if(CheckBox1->Checked){

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

GroupBox1->Visible=true;

}

else

{

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

GroupBox1->Visible=false;

}

Table1->Post();

}

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

void __fastcall Talgo::FormActivate(TObject *Sender)

{

activeflag=1;

AnsiString x="";

Query21->Close();