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

Query10->Open();

}

void Talgo::vbazu(){

Table1->Refresh();

Table1->Edit();

// uchiteli

Table1->Fields->FieldByName("iskategoriya")->AsInteger = CheckBox3->Checked;

Table1->Fields->FieldByName("isnachskgod")->AsInteger = CheckBox2->Checked ? 1:0;

Table1->Fields->FieldByName("isstklasigod")->AsInteger = CheckBox4->Checked ? 1:0;

Table1->Fields->FieldByName("isgpdgod")->AsInteger = CheckBox5->Checked ? 1:0;

Table1->Fields->FieldByName("iskruzok")->AsInteger = CheckBox6->Checked ? 1:0;

Table1->Fields->FieldByName("isklasruk")->AsInteger = CheckBox7->Checked ? 1:0;

Table1->Fields->FieldByName("iskabinet")->AsInteger = CheckBox8->Checked ? 1:0;

Table1->Fields->FieldByName("isproverkatet")->AsInteger = CheckBox9->Checked ? 1:0;

Table1->Fields->FieldByName("ispsiholog")->AsInteger = CheckBox10->Checked ? 1:0;

Table1->Fields->FieldByName("isorganizator")->AsInteger = CheckBox11->Checked ? 1:0;

Table1->Fields->FieldByName("ismuzskola")->AsInteger = CheckBox23->Checked ? 1:0;

//sotr

Table1->Fields->FieldByName("isadminsotr")->AsInteger = RadioButton1->Checked ? 1:0;

// urtimannya

Table1->Fields->FieldByName("isprofsoyuz")->AsInteger=CheckBox12->Checked ? 1:0;

Table1->Fields->FieldByName("islgotnik")->AsInteger =CheckBox13->Checked ? 1:0;

Table1->Fields->FieldByName("ismnogodetmama")->AsInteger=CheckBox14->Checked ? 1:0;

Table1->Fields->FieldByName("isodinokmama")->AsInteger=CheckBox15->Checked ? 1:0;

Table1->Fields->FieldByName("isvdova")->AsInteger=CheckBox16->Checked ? 1:0;

Table1->Fields->FieldByName("isvdovec")->AsInteger=CheckBox17->Checked ? 1:0;

Table1->Fields->FieldByName("isdetiinvalidi")->AsInteger=CheckBox18->Checked ? 1:0;

Table1->Fields->FieldByName("ispens")->AsInteger=CheckBox21->Checked ? 1:0;

Table1->Post();

К-во Просмотров: 523
Бесплатно скачать Курсовая работа: Реляційна база данних трудової книжки