48787 (Реляційна база данних трудової книжки), страница 2
Описание файла
Документ из архива "Реляційна база данних трудової книжки", который расположен в категории "". Всё это находится в предмете "информатика" из 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;