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

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

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

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

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

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

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



#include

#pragma hdrstop



#include "Unit9.h"

#include "Unit22.h"

#include "Unit23.h"

#include "Unit4.h"

#include "Unit24.h"

#include "Unit27.h"

#include "Unit28.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Tzarplata *zarplata;

Tz_nastr *z_nastr;

extern TOKBottomDlg *OKBottomDlg;

extern TForm4 *Form4;

extern Talgo *algo;

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

__fastcall Tzarplata::Tzarplata(TComponent* Owner)

: TForm(Owner)

{

}

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



void __fastcall Tzarplata::N9Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_const_nar";

z_nastr->Table1->Open();

z_nastr->Caption = "Настроювання констант нарахування";

z_nastr->ShowModal();

}

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





void __fastcall Tzarplata::N6Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_vch_stavka_osv";

z_nastr->Table1->Open();

z_nastr->Caption = "Ставка за освітою";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N10Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_vch_visluga";

z_nastr->Table1->Open();

z_nastr->Caption = "Надбавка за вислугу років";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N13Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_const_vidr";

z_nastr->Table1->Open();

z_nastr->Caption = "Настроювання констант відрахування";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N12Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_likarnyani";

z_nastr->Table1->Open();

z_nastr->Caption = "Нарахування лікарняних";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N14Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_derzsluz_visluga";

z_nastr->Table1->Open();

z_nastr->Caption = "Держслужбовці - вислуга";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N7Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_vch_kateg";

z_nastr->Table1->Open();

z_nastr->Caption = "Вчителі - надбавка за категорію";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N8Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_vch_kruzok";

z_nastr->Table1->Open();

z_nastr->Caption = "Вчителі - за кружок";

z_nastr->ShowModal();



}

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



void __fastcall Tzarplata::N11Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_vch_perevirkazosh";

z_nastr->Table1->Open();

z_nastr->Caption = "Вчителі - перевірка зошитів";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N15Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_spivrob_posadi";

z_nastr->Table1->Open();

z_nastr->Caption = "Співробітники (інші) - посади";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N16Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_derzsluz_rang";

z_nastr->Table1->Open();

z_nastr->Caption = "Держслужбовці - ранг";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N17Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_derzsluz_intensiv";

z_nastr->Table1->Open();

z_nastr->Caption = "Держслужбовці - інтенсивність";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N18Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_derzsluz_premiya";

z_nastr->Table1->Open();

z_nastr->Caption = "Держслужбовці - премія";

z_nastr->ShowModal();

}

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









void __fastcall Tzarplata::N3Click(TObject *Sender)

{

Form4->subkid = 22;

Form4->Button4->Enabled=true;

Form4->ShowModal();



vhidzarp->potoch=0;

vhidzarp->ShowModal();

}

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





void __fastcall Tzarplata::N4Click(TObject *Sender)

{

Form4->subkid = 22;

Form4->Button4->Enabled=true;

Form4->ShowModal();



algo->ShowModal();

}

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



void __fastcall Tzarplata::N20Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_derzsluz_posada";

z_nastr->Table1->Open();

z_nastr->Caption = "Держслужбовці - посади";

z_nastr->ShowModal();

}

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



void __fastcall Tzarplata::N5Click(TObject *Sender)

{

z_nastr->Table1->Close();

z_nastr->Table1->TableName = "z_nastr_adm_posadi";

z_nastr->Table1->Open();

z_nastr->Caption = "Співробітники (адміністрація) - посади";

z_nastr->ShowModal();



}

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



void __fastcall Tzarplata::N2Click(TObject *Sender)

{

z_oper->Show();

}

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



void __fastcall Tzarplata::N19Click(TObject *Sender)

{

vhidzarp->potoch=1;

vhidzarp->ShowModal();

}

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



Додаткові модулі для роботи з SQL запитами.



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



#include

#include

#pragma hdrstop



#include "Unit24.h"

#include "Unit25.h"

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

#pragma package(smart_init)

#pragma link "wwdblook"

#pragma resource "*.dfm"

Talgo *algo;

extern Tplusalgo *plusalgo;



int activeflag=1;

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

__fastcall Talgo::Talgo(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Talgo::Button1Click(TObject *Sender)

{

knopka();

}

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









void __fastcall Talgo::wwDBLookupCombo1Change(TObject *Sender)

{

if(activeflag){



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

Query21->SQL->Clear();

Query21->SQL->Add(

"select content from variables where variables.var='subkobid'"

);

Query21->Open();



int skobid = Query21->Fields->FieldByName("content")->AsInteger;



Query21->Close();

Query21->SQL->Clear();

Query21->SQL->Add(

"select count(z_algo.id) as cnt from z_algo,variables where z_algo.skobid=variables.content and variables.var='subkobid'"

);

Query21->Open();



if(!(Query21->Fields->FieldByName("cnt")->AsInteger>0)){

Query21->Close();

Query21->SQL->Clear();

Query21->SQL->Add(

x+"insert into z_algo values( 0,"+skobid+",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,'',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) "

);

Query21->ExecSQL();



}



//Table1->Close();

Table1->Filtered=false;

Table1->Filter=x+"skobid = "+skobid;

Table1->Filtered=true;

Table1->Open();



Table2->Close();

Table2->Open();

// vchiteli

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

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

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

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

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

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

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

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

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

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

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

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