48787 (Реляційна база данних трудової книжки), страница 3

2016-07-30СтудИзба

Описание файла

Документ из архива "Реляційна база данних трудової книжки", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48787"

Текст 3 страницы из документа "48787"

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

//utrimannya

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

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

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

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

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

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

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

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

//sotrudniki

CheckBox19->Checked = Table1->Fields->FieldByName("issotrudnik")->AsInteger ? true:false;

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

//derzsluzbovci

CheckBox20->Checked = Table1->Fields->FieldByName("isderzsluzbovec")->AsInteger ? true:false;



}

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



void __fastcall Talgo::FormClose(TObject *Sender, TCloseAction &Action)

{

activeflag=0;

Table1->Close();

Table2->Close();



}

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







void __fastcall Talgo::wwDBLookupCombo2Change(TObject *Sender)

{

if(activeflag){



Query2->Close();

Query2->SQL->Clear();

Query2->SQL->Add(

"select constanta from z_nastr_vch_kateg where id="+wwDBLookupCombo2->Text

);

Query2->Open();

}



}

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





void __fastcall Talgo::wwDBLookupCombo3Change(TObject *Sender)

{

if(activeflag){



Query3->Close();

Query3->SQL->Clear();

Query3->SQL->Add(

"select constanta from z_nastr_vch_perevirkazosh where id="+wwDBLookupCombo3->Text

);

Query3->Open();

}



}

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





void Talgo::knopka()

{

AnsiString x="";



vbazu();





Query8->SQL->Clear();

Query8->SQL->Add(" delete from z_algo_result ");

Query8->ExecSQL();

Query8->SQL->Clear();

Query8->SQL->Add(" insert into z_algo_result values(1,0,0,0,0)");

Query8->ExecSQL();



//vchiteli

Query4->Close();

Query4->Open();



char buf[30];

sprintf(buf,"%f",Query4->Fields->FieldByName("res")->AsFloat);

Query8->SQL->Clear();

Query8->SQL->Add(

x+" update z_algo_result set vchzarp="+buf

);

Query8->ExecSQL();



//sotrudnik inshi

if(Table1->Fields->FieldByName("issotrudnik")->AsInteger && RadioButton2->Checked){

sprintf(buf,"%f", DBText26->Caption.ToDouble() );

Query8->SQL->Clear();

Query8->SQL->Add(

x+" update z_algo_result set spivrobzarp = "+buf

);

Query8->ExecSQL();

}

//sotrudnik admin

if(Table1->Fields->FieldByName("issotrudnik")->AsInteger && RadioButton1->Checked){

sprintf(buf,"%f",Table1->Fields->FieldByName("admsotrstavka")->AsFloat * (1+DBText32->Caption.ToDouble()/100));

Query8->SQL->Clear();

Query8->SQL->Add(

x+" update z_algo_result set spivrobzarp = "+buf

);

Query8->ExecSQL();

}



//derzsluzbovec

if(Table1->Fields->FieldByName("isderzsluzbovec")->AsInteger){

sprintf(buf,"%f",(DBText15->Caption.ToDouble()+DBText17->Caption.ToDouble())*(1+DBText19->Caption.ToDouble()/100+DBText21->Caption.ToDouble()/100+DBText29->Caption.ToDouble()/100));

Query8->SQL->Clear();

Query8->SQL->Add(

x+" update z_algo_result set derzsluzzarp = "+buf

);

Query8->ExecSQL();

}





//utrimano

if(wwDBLookupCombo6->Text.ToInt() == 1 ){

Query9->Close();

Query9->Open();

sprintf(buf,"%f",Query9->Fields->FieldByName("res")->AsFloat);

}

if(wwDBLookupCombo6->Text.ToInt() == 2 ){

Query16->Close();

Query16->Open();

sprintf(buf,"%f",Query16->Fields->FieldByName("res")->AsFloat);

}



Query8->SQL->Clear();

Query8->SQL->Add(

x+" update z_algo_result set utrim="+buf

);

Query8->ExecSQL();







Query10->Close();

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();

}



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();

}

}

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



void __fastcall Talgo::wwDBLookupCombo6Change(TObject *Sender)

{

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)

{

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();

Query13->SQL->Clear();

Query13->SQL->Add(

"select constanta,znach from z_nastr_derzsluz_rang where id="+wwDBLookupCombo9->Text

);

Query13->Open();



}



}

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



void __fastcall Talgo::CheckBox20Click(TObject *Sender)

{

Table1->Edit();

if(CheckBox20->Checked){

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

GroupBox20->Visible=true;

}

else

{

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

GroupBox20->Visible=false;

}

Table1->Post();



}

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



void __fastcall Talgo::wwDBLookupCombo10Change(TObject *Sender)

{

if(activeflag){



Query14->Close();

Query14->SQL->Clear();

Query14->SQL->Add(

"select constanta,znach from z_nastr_derzsluz_intensiv where id="+wwDBLookupCombo10->Text

);

Query14->Open();



}



}

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



void __fastcall Talgo::wwDBLookupCombo11Change(TObject *Sender)

{

if(activeflag){



Query15->Close();

Query15->SQL->Clear();

Query15->SQL->Add(

"select constanta,znach from z_nastr_derzsluz_premiya where id="+wwDBLookupCombo11->Text

);

Query15->Open();



}



}

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



void __fastcall Talgo::wwDBLookupCombo13Change(TObject *Sender)

{

if(activeflag){



Query17->Close();

Query17->SQL->Clear();

Query17->SQL->Add(

"select constanta,znach from z_nastr_vch_visluga where id="+wwDBLookupCombo13->Text

);

Query17->Open();

}

}

Свежие статьи
Популярно сейчас
Как Вы думаете, сколько людей до Вас делали точно такое же задание? 99% студентов выполняют точно такие же задания, как и их предшественники год назад. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4125
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее