p align="left">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 <vcl.h> #include <stdio.h> #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;
Страницы: 1, 2, 3
|