Автоматизированное рабочее место производственно-технического отдела

{

if (DataModule4->ADOQuery11->IsEmpty () ==true) {

Application->MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }

else {

sButton87->Enabled=false;

sButton88->Enabled=true;

sButton89->Caption="Отмена";

sDBEdit57->ReadOnly=false;

sDBEdit58->ReadOnly=false;

DataModule4->ADOQuery11->Edit ();

sDBGrid24->Enabled=false;

sDBEdit57->SetFocus ();

Application->MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

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

void __fastcall TForm5:: sButton88Click (TObject *Sender)

{

if (sDBEdit57->Text=="" || sDBEdit58->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }

else {

sButton88->Enabled=false;

sButton87->Enabled=true;

sButton89->Caption="Удалить";

sDBEdit57->ReadOnly=true;

sDBEdit58->ReadOnly=true;

DataModule4->ADOQuery11->Post ();

sDBGrid24->Enabled=true;

Application->MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

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

void __fastcall TForm5:: sButton89Click (TObject *Sender)

{

if (DataModule4->ADOQuery11->IsEmpty () ==true) {

Application->MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }

else if (DataModule4->ADOQuery11->IsEmpty () ==false && sButton89->Caption=="Удалить") {

DataModule4->ADOQuery11->Delete ();

Application->MessageBoxA ("Запись БД удалена!","Удаление. ",64); }

else {

sButton89->Caption="Удалить";

sButton88->Enabled=false;

sButton87->Enabled=true;

sDBEdit57->ReadOnly=true;

sDBEdit58->ReadOnly=true;

DataModule4->ADOQuery11->Cancel ();

sDBGrid24->Enabled=true;

Application->MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

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

void __fastcall TForm5:: sPageControl3Change (TObject *Sender)

{

// SQL reset

DataModule4->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;

DataModule4->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;

DataModule4->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true;

// BD reset

DataModule4->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true;

DataModule4->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;

DataModule4->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true;

// блокировка полей редактирования

// виды работ

sDBEdit51->ReadOnly=true; sDBEdit52->ReadOnly=true;

sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true;

sDBEdit37->ReadOnly=true; sDBEdit58->ReadOnly=true;

}

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

void __fastcall TForm5:: sButton96Click (TObject *Sender)

{

sDBGrid10->Enabled=true;

sButton25->Enabled=true;

sButton26->Enabled=false;

sButton27->Enabled=false;

DataModule4->ADOTable10->Cancel ();

sDBEdit12->Enabled=false;

sDBLookupComboBox13->Enabled=false;

sDBLookupComboBox9->Enabled=false;

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet12;

sPageControl3->ActivePage=sTabSheet15;

}

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

void __fastcall TForm5:: sButton97Click (TObject *Sender)

{

sDBGrid11->Enabled=true;

sButton90->Enabled=true;

sButton91->Enabled=false;

sButton92->Enabled=false;

DataModule4->ADOTable11->Cancel ();

sDBEdit17->Enabled=false;

sDBLookupComboBox10->Enabled=false;

sDBLookupComboBox12->Enabled=false;

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet12;

sPageControl3->ActivePage=sTabSheet16;

}

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

void __fastcall TForm5:: sButton98Click (TObject *Sender)

{

sDBGrid12->Enabled=true;

sButton93->Enabled=true;

sButton94->Enabled=false;

sButton95->Enabled=false;

DataModule4->ADOTable12->Cancel ();

sDBEdit22->Enabled=false;

sDBLookupComboBox11->Enabled=false;

sDBLookupComboBox14->Enabled=false;

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet12;

sPageControl3->ActivePage=sTabSheet17;

}

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

void __fastcall TForm5:: sButton99Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton22->SetFocus ();

sGroupBox2->Visible=false;

sGroupBox6->Visible=true;

sGroupBox3->Visible=false;

sGroupBox1->Visible=false;

sGroupBox8->Visible=true;

sGroupBox9->Visible=true;

sGroupBox10->Visible=false;

sGroupBox11->Visible=false;

sGroupBox23->Visible=false;

sGroupBox24->Visible=false;

}

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

void __fastcall TForm5:: sButton100Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton23->SetFocus ();

sGroupBox2->Visible=false;

sGroupBox6->Visible=true;

sGroupBox3->Visible=false;

sGroupBox1->Visible=false;

sGroupBox10->Visible=true;

sGroupBox23->Visible=true;

sGroupBox8->Visible=false;

sGroupBox11->Visible=false;

sGroupBox9->Visible=false;

sGroupBox24->Visible=false;

}

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

void __fastcall TForm5:: sButton101Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton24->SetFocus ();

sGroupBox2->Visible=false;

sGroupBox6->Visible=true;

sGroupBox3->Visible=false;

sGroupBox1->Visible=false;

sGroupBox11->Visible=true;

sGroupBox24->Visible=true;

sGroupBox10->Visible=false;

sGroupBox8->Visible=false;

sGroupBox23->Visible=false;

sGroupBox9->Visible=false;

}

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

void __fastcall TForm5:: sButton102Click (TObject *Sender)

{

Form5->Close ();

Form2->Show ();

Form2->sGroupBox1->Visible=true;

Form2->sGroupBox2->Visible=false;

Form2->sGroupBox3->Visible=false;

Form2->sGroupBox4->Visible=false;

Form2->sGroupBox5->Visible=false;

}

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

void __fastcall TForm5:: sButton103Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

sGroupBox3->Visible=false;

sGroupBox20->Visible=false;

sGroupBox6->Visible=false;

sGroupBox12->Visible=true;

sGroupBox13->Visible=false;

sGroupBox14->Visible=false;

sGroupBox15->Visible=false;

sGroupBox16->Visible=false;

sGroupBox17->Visible=false;

sGroupBox18->Visible=false;

sGroupBox19->Visible=false;

}

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

void __fastcall TForm5:: sEdit14Change (TObject *Sender)

{

for (int i=0; i<=0; i++) {

if ( (sEdit14->Text==" [") || (sEdit14->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }

DataModule4->ADOQuery1->Active=false;

DataModule4->ADOQuery1->SQL->Clear ();

DataModule4->ADOQuery1->SQL->Add ("select * from name_obj where name_object LIKE '%"+sEdit14->Text+"%'; ");

DataModule4->ADOQuery1->Active=true; }

}

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

void __fastcall TForm5:: sButton104Click (TObject *Sender)

{

if (DataModule4->ADOQuery13->IsEmpty () ==true) {

Application->MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }

else {

sButton104->Enabled=false;

sButton105->Enabled=true;

sButton106->Caption="Отмена";

sDBEdit13->ReadOnly=false;

DataModule4->ADOQuery13->Edit ();

sDBGrid27->Enabled=false;

sDBEdit13->SetFocus ();

Application->MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

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

void __fastcall TForm5:: sButton105Click (TObject *Sender)

{

if (sDBEdit13->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }

else {

sButton105->Enabled=false;

sButton104->Enabled=true;

sButton106->Caption="Удалить";

sDBEdit36->ReadOnly=true;

DataModule4->ADOQuery13->Post ();

sDBGrid27->Enabled=true;

Application->MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

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

void __fastcall TForm5:: sPageControl4Change (TObject *Sender)

{

DataModule4->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;

DataModule4->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true;

// блокировка полей редактирования

// объекты

sDBEdit13->ReadOnly=true;

sDBEdit28->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;

sDBEdit31->ReadOnly=true; sDBEdit32->ReadOnly=true;

sDBEdit34->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;

sDBEdit39->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;

sDBLookupComboBox15->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;

sDBLookupComboBox18->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;

sDBLookupComboBox21->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;

sDateEdit5->Enabled=false; sDateEdit6->Enabled=false;

}

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

void __fastcall TForm5:: sButton106Click (TObject *Sender)

{

if (DataModule4->ADOQuery13->IsEmpty () ==true) {

Application->MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }

else if (DataModule4->ADOQuery13->IsEmpty () ==false && sButton106->Caption=="Удалить") {

DataModule4->ADOQuery13->Delete ();

Application->MessageBoxA ("Запись БД удалена!","Удаление. ",64); }

else {

sButton106->Caption="Удалить";

sButton105->Enabled=false;

sButton104->Enabled=true;

sDBEdit13->ReadOnly=true;

DataModule4->ADOQuery13->Cancel ();

sDBGrid27->Enabled=true;

Application->MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

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

void __fastcall TForm5:: sButton28Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton12->SetFocus ();

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

sGroupBox3->Visible=false;

sGroupBox20->Visible=false;

sGroupBox16->Visible=true;

sGroupBox13->Visible=false;

sGroupBox14->Visible=false;

sGroupBox15->Visible=false;

sGroupBox12->Visible=false;

sGroupBox17->Visible=false;

sGroupBox18->Visible=false;

sGroupBox19->Visible=false;

sGroupBox20->Visible=false;

}

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

void __fastcall TForm5:: sButton107Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton13->SetFocus ();

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

sGroupBox3->Visible=false;

sGroupBox20->Visible=false;

sGroupBox17->Visible=true;

sGroupBox13->Visible=false;

sGroupBox14->Visible=false;

sGroupBox15->Visible=false;

sGroupBox16->Visible=false;

sGroupBox12->Visible=false;

sGroupBox18->Visible=false;

sGroupBox19->Visible=false;

sGroupBox20->Visible=false;

}

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

void __fastcall TForm5:: sButton108Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton15->SetFocus ();

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

sGroupBox3->Visible=false;

sGroupBox20->Visible=false;

sGroupBox19->Visible=true;

sGroupBox13->Visible=false;

sGroupBox14->Visible=false;

sGroupBox15->Visible=false;

sGroupBox16->Visible=false;

sGroupBox17->Visible=false;

sGroupBox18->Visible=false;

sGroupBox12->Visible=false;

sGroupBox20->Visible=false;

}

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

void __fastcall TForm5:: sButton109Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton9->SetFocus ();

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

sGroupBox3->Visible=false;

sGroupBox20->Visible=false;

sGroupBox13->Visible=true;

sGroupBox12->Visible=false;

sGroupBox14->Visible=false;

sGroupBox15->Visible=false;

sGroupBox16->Visible=false;

sGroupBox17->Visible=false;

sGroupBox18->Visible=false;

sGroupBox19->Visible=false;

sGroupBox20->Visible=false;

}

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

void __fastcall TForm5:: sButton110Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton10->SetFocus ();

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

sGroupBox3->Visible=false;

sGroupBox20->Visible=false;

sGroupBox14->Visible=true;

sGroupBox13->Visible=false;

sGroupBox12->Visible=false;

sGroupBox15->Visible=false;

sGroupBox16->Visible=false;

sGroupBox17->Visible=false;

sGroupBox18->Visible=false;

sGroupBox19->Visible=false;

sGroupBox20->Visible=false;

}

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

void __fastcall TForm5:: sButton111Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton11->SetFocus ();

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

sGroupBox3->Visible=false;

sGroupBox20->Visible=false;

sGroupBox15->Visible=true;

sGroupBox13->Visible=false;

sGroupBox14->Visible=false;

sGroupBox12->Visible=false;

sGroupBox16->Visible=false;

sGroupBox17->Visible=false;

sGroupBox18->Visible=false;

sGroupBox19->Visible=false;

sGroupBox20->Visible=false;

}

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

void __fastcall TForm5:: sButton112Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton14->SetFocus ();

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

sGroupBox3->Visible=false;

sGroupBox20->Visible=false;

sGroupBox18->Visible=true;

sGroupBox13->Visible=false;

sGroupBox14->Visible=false;

sGroupBox15->Visible=false;

sGroupBox16->Visible=false;

sGroupBox17->Visible=false;

sGroupBox12->Visible=false;

sGroupBox19->Visible=false;

sGroupBox20->Visible=false;

}

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

void __fastcall TForm5:: sButton113Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sButton21->SetFocus ();

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

sGroupBox3->Visible=false;

sGroupBox20->Visible=false;

sGroupBox20->Visible=true;

sGroupBox13->Visible=false;

sGroupBox14->Visible=false;

sGroupBox15->Visible=false;

sGroupBox16->Visible=false;

sGroupBox17->Visible=false;

sGroupBox18->Visible=false;

sGroupBox19->Visible=false;

sGroupBox12->Visible=false;

}

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

void __fastcall TForm5:: sButton117Click (TObject *Sender)

{

sPageControl1->ActivePage=sTabSheet1;

sGroupBox1->Visible=false;

sGroupBox3->Visible=true;

sGroupBox2->Visible=false;

sGroupBox6->Visible=false;

}

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

void __fastcall TForm5:: sEdit15Change (TObject *Sender)

{

for (int i=0; i<=0; i++) {

if ( (sEdit15->Text==" [") || (sEdit15->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }

DataModule4->ADOQuery14->Active=false;

DataModule4->ADOQuery14->SQL->Clear ();

DataModule4->ADOQuery14->SQL->Add ("select * from Razcenki where nameobosnov LIKE '%"+sEdit15->Text+"%'; ");

DataModule4->ADOQuery14->Active=true; }

}

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

void __fastcall TForm5:: sRadioButton2Click (TObject *Sender)

{

if (sRadioButton2->Checked) {

sGroupBox21->Visible=false;

sGroupBox25->Visible=true;

sDBEdit28->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;

sDBEdit31->ReadOnly=true; sDBEdit32->ReadOnly=true;

sDBEdit34->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;

sDBEdit39->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;

sDBLookupComboBox15->Enabled=true; sDBLookupComboBox16->Enabled=true; sDBLookupComboBox17->Enabled=true;

sDBLookupComboBox18->Enabled=true; sDBLookupComboBox19->Enabled=true; sDBLookupComboBox20->Enabled=true;

sDBLookupComboBox21->Enabled=true; sDBLookupComboBox22->Enabled=true; sDBLookupComboBox23->Enabled=true;

sDateEdit5->Enabled=true; sDateEdit6->Enabled=true;

sDBLookupComboBox15->SetFocus ();

Application->MessageBoxA ("Вы изменили режим редактирования БД!","Внимание. ",64); }

}

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

void __fastcall TForm5:: sRadioButton1Click (TObject *Sender)

{

if (sRadioButton1->Checked) {

sGroupBox25->Visible=false;

sGroupBox21->Visible=true;

sDBEdit28->ReadOnly=false; sDBEdit29->ReadOnly=false; sDBEdit30->ReadOnly=false;

sDBEdit31->ReadOnly=false; sDBEdit32->ReadOnly=false;

sDBEdit34->ReadOnly=false; sDBEdit35->ReadOnly=false; sDBEdit38->ReadOnly=false;

sDBEdit39->ReadOnly=false; sDateEdit3->ReadOnly=false; sDateEdit4->ReadOnly=false;

sDBLookupComboBox15->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;

sDBLookupComboBox18->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;

sDBLookupComboBox21->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;

sDateEdit5->Enabled=false; sDateEdit6->Enabled=false;

sDBEdit28->SetFocus ();

Application->MessageBoxA ("Вы изменили режим редактирования БД!","Внимание. ",64); }

}

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

void __fastcall TForm5:: sDateEdit5Change (TObject *Sender)

{

sDateEdit5->MaxDate=sDateEdit6->Date;

}

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

void __fastcall TForm5:: sDateEdit6Change (TObject *Sender)

{

sDateEdit6->MinDate=sDateEdit5->Date;

}

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

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

{

// SQL reset

DataModule4->ADOQuery1->Active=false; DataModule4->ADOQuery1->Active=true; DataModule4->ADOQuery2->Active=false; DataModule4->ADOQuery2->Active=true;

DataModule4->ADOQuery3->Active=false; DataModule4->ADOQuery3->Active=true; DataModule4->ADOQuery4->Active=false; DataModule4->ADOQuery4->Active=true;

DataModule4->ADOQuery5->Active=false; DataModule4->ADOQuery5->Active=true; DataModule4->ADOQuery6->Active=false; DataModule4->ADOQuery6->Active=true;

DataModule4->ADOQuery7->Active=false; DataModule4->ADOQuery7->Active=true; DataModule4->ADOQuery8->Active=false; DataModule4->ADOQuery8->Active=true;

DataModule4->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true; DataModule4->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;

DataModule4->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true; DataModule4->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;

DataModule4->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true; DataModule4->ADOQuery14->Active=false; DataModule4->ADOQuery14->Active=true;

// BD reset

DataModule4->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;

DataModule4->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true; DataModule4->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;

DataModule4->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true; DataModule4->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;

DataModule4->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true; DataModule4->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;

DataModule4->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true; DataModule4->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true;

DataModule4->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true; DataModule4->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;

DataModule4->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true; DataModule4->ADOTable13->Active=false; DataModule4->ADOTable13->Active=true;

DataModule4->ADOTable14->Active=false; DataModule4->ADOTable14->Active=true; DataModule4->ADOTable15->Active=false; DataModule4->ADOTable15->Active=true;

// объекты

sDBEdit13->ReadOnly=true; sDBEdit28->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;

sDBEdit31->ReadOnly=true; sDBEdit32->ReadOnly=true; sDBEdit34->ReadOnly=true; sDBEdit35->ReadOnly=true;

sDBEdit38->ReadOnly=true; sDBEdit39->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;

sDBLookupComboBox15->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;

sDBLookupComboBox18->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;

sDBLookupComboBox21->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;

sDateEdit5->Enabled=false; sDateEdit6->Enabled=false;

// виды работ

sDBEdit51->ReadOnly=true; sDBEdit52->ReadOnly=true; sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit58->ReadOnly=true;

// прорабы - материалы

sDBEdit36->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true; sDBEdit43->ReadOnly=true; sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;

sDBEdit46->ReadOnly=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true; sDBEdit50->ReadOnly=true;

DataModule4->ADOTable15->Cancel (); sMemo2->Clear (); sMemo4->Clear (); sMemo1->Enabled=false; sMemo2->Enabled=false; sMemo3->Enabled=false; sMemo4->Enabled=false;

sButton118->Enabled=true; sButton119->Enabled=false; sButton120->Enabled=false; sDBEdit14->Enabled=false; sDBEdit20->Enabled=false;

sDBEdit21->Enabled=false; sDBEdit24->Enabled=false; sDBEdit25->Enabled=false; sDBLookupComboBox24->Enabled=false; sDBLookupComboBox25->Enabled=false;

sButton51->Enabled=true; sButton52->Enabled=false; sDBGrid9->Enabled=true; DataModule4->ADOTable9->Cancel (); sButton53->Caption="Редактировать";

sButton16->Enabled=true; sButton17->Enabled=false; sDBGrid1->Enabled=true; DataModule4->ADOTable4->Cancel (); sButton18->Caption="Редактировать";

sButton30->Enabled=true; sButton31->Enabled=false; sDBGrid2->Enabled=true; DataModule4->ADOTable6->Cancel (); sButton32->Caption="Редактировать";

sButton33->Enabled=true; sButton34->Enabled=false; sDBGrid3->Enabled=true; DataModule4->ADOTable7->Cancel (); sButton35->Caption="Редактировать";

sButton36->Enabled=true; sButton37->Enabled=false; sDBGrid1->Enabled=true; DataModule4->ADOTable8->Cancel (); sButton38->Caption="Редактировать";

sButton39->Enabled=true; sButton40->Enabled=false; sDBGrid5->Enabled=true; DataModule4->ADOTable2->Cancel (); sButton41->Caption="Редактировать";

sButton42->Enabled=true; sButton43->Enabled=false; sDBGrid6->Enabled=true; DataModule4->ADOTable3->Cancel (); sButton18->Caption="Редактировать";

sButton45->Enabled=true; sButton46->Enabled=false; sDBGrid7->Enabled=true; DataModule4->ADOTable14->Cancel (); sButton47->Caption="Редактировать";

sButton48->Enabled=true; sButton49->Enabled=false; sDBGrid8->Enabled=true; DataModule4->ADOTable5->Cancel (); sButton50->Caption="Редактировать";

sButton123->Enabled=true; sButton124->Enabled=false; sDBGrid26->Enabled=true; DataModule4->ADOTable16->Cancel (); sButton125->Caption="Редактировать"; DataModule4->ADOTable1->Cancel ();

sButton5->Enabled=true; sButton6->Enabled=false; sButton7->Enabled=false; sRadioButton3->Enabled=false; sRadioButton4->Enabled=false;

sDBLookupComboBox1->Enabled=false; sDBLookupComboBox2->Enabled=false;

sDBLookupComboBox3->Enabled=false;

sDBLookupComboBox4->Enabled=false; sDBLookupComboBox5->Enabled=false;

sDBLookupComboBox6->Enabled=false; sDBLookupComboBox7->Enabled=false;

sDBLookupComboBox8->Enabled=false; sDateEdit1->Enabled=false; sDateEdit2->Enabled=false; Memo1->Clear (); Memo2->Clear ();

Memo1->Enabled=false; Memo2->Enabled=false;

sDBGrid12->Enabled=true; sButton93->Enabled=true; sButton94->Enabled=false; sButton95->Enabled=false; DataModule4->ADOTable12->Cancel ();

sDBEdit22->Enabled=false; sDBLookupComboBox11->Enabled=false; sDBLookupComboBox14->Enabled=false;

sDBGrid11->Enabled=true; sButton90->Enabled=true; sButton91->Enabled=false; sButton92->Enabled=false; DataModule4->ADOTable11->Cancel ();

sDBEdit17->Enabled=false; sDBLookupComboBox10->Enabled=false; sDBLookupComboBox12->Enabled=false;

sDBGrid10->Enabled=true; sButton25->Enabled=true; sButton26->Enabled=false; sButton27->Enabled=false; DataModule4->ADOTable10->Cancel ();

sDBEdit12->Enabled=false; sDBLookupComboBox13->Enabled=false; sDBLookupComboBox9->Enabled=false;

sButton56->Caption="Удалить"; sButton55->Enabled=false; sButton54->Enabled=true; sRadioButton1->Enabled=false; sRadioButton2->Enabled=false;

sDBEdit28->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true; sDBEdit31->ReadOnly=true; sDBEdit32->ReadOnly=true; sDBEdit34->ReadOnly=true;

sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true; sDBEdit39->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;

sDBLookupComboBox15->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;

sDBLookupComboBox18->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;

sDBLookupComboBox21->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;

sDateEdit5->Enabled=false; sDateEdit6->Enabled=false; DataModule4->ADOQuery12->Cancel (); sDBGrid13->Enabled=true;

sButton106->Caption="Удалить"; sButton105->Enabled=false; sButton104->Enabled=true; sDBEdit13->ReadOnly=true; DataModule4->ADOQuery13->Cancel (); sDBGrid27->Enabled=true;

sButton59->Caption="Удалить"; sButton58->Enabled=false; sButton57->Enabled=true; sDBEdit36->ReadOnly=true; DataModule4->ADOQuery1->Cancel (); sDBGrid14->Enabled=true;

sButton62->Caption="Удалить"; sButton61->Enabled=false; sButton60->Enabled=true; sDBEdit37->ReadOnly=true; DataModule4->ADOQuery2->Cancel (); sDBGrid15->Enabled=true;

sButton65->Caption="Удалить"; sButton64->Enabled=false; sButton63->Enabled=true; sDBEdit42->ReadOnly=true; DataModule4->ADOQuery3->Cancel (); sDBGrid16->Enabled=true;

sButton68->Caption="Удалить"; sButton67->Enabled=false; sButton66->Enabled=true; sDBEdit43->ReadOnly=true; sDBEdit50->ReadOnly=true; DataModule4->ADOQuery4->Cancel (); sDBGrid17->Enabled=true;

sButton71->Caption="Удалить"; sButton70->Enabled=false; sButton69->Enabled=true; sDBEdit44->ReadOnly=true; DataModule4->ADOQuery5->Cancel (); sDBGrid18->Enabled=true;

sButton74->Caption="Удалить"; sButton73->Enabled=false; sButton72->Enabled=true; sDBEdit45->ReadOnly=true; DataModule4->ADOQuery6->Cancel (); sDBGrid19->Enabled=true;

sButton77->Caption="Удалить"; sButton76->Enabled=false; sButton75->Enabled=true; sDBEdit46->ReadOnly=true; DataModule4->ADOQuery7->Cancel (); sDBGrid20->Enabled=true;

sButton80->Caption="Удалить"; sButton79->Enabled=false; sButton78->Enabled=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true; DataModule4->ADOQuery8->Cancel (); sDBGrid21->Enabled=true;

sButton83->Caption="Удалить"; sButton82->Enabled=false; sButton81->Enabled=true; sDBEdit51->ReadOnly=true; sDBEdit52->ReadOnly=true; DataModule4->ADOQuery9->Cancel (); sDBGrid22->Enabled=true;

sButton86->Caption="Удалить"; sButton85->Enabled=false; sButton84->Enabled=true; sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true; DataModule4->ADOQuery10->Cancel (); sDBGrid23->Enabled=true;

sButton89->Caption="Удалить"; sButton88->Enabled=false; sButton87->Enabled=true; sDBEdit57->ReadOnly=true; sDBEdit58->ReadOnly=true; DataModule4->ADOQuery11->Cancel (); sDBGrid24->Enabled=true;

sButton116->Caption="Удалить"; sButton115->Enabled=false; sButton114->Enabled=true; sDBEdit18->ReadOnly=true; sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;

sDBEdit60->ReadOnly=true; sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true; sDBEdit64->ReadOnly=true; sDBEdit65->ReadOnly=true; sDBEdit66->ReadOnly=true;

DataModule4->ADOQuery14->Cancel ();

sDBGrid25->Enabled=true; }

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

void __fastcall TForm5:: Memo1Click (TObject *Sender)

{ int select_m=0*1;

int i=0*1,t=0*1, ii=0*1;

i=0; select_m=Memo1->CaretPos. y;

if (Memo1->Lines->Strings [select_m]! ="") {

Memo2->Lines->Add (Memo1->Lines->Strings [select_m]);

Memo1->Lines->Delete (select_m); }

}

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

void __fastcall TForm5:: Memo2Click (TObject *Sender)

{ int select_m=0*1;

select_m=Memo2->CaretPos. y;

if (Memo2->Lines->Strings [select_m]! ="") {

Memo1->Lines->Add (Memo2->Lines->Strings [select_m]);

Memo2->Lines->Delete (select_m); }

}

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

void __fastcall TForm5:: sDBLookupComboBox7Click (TObject *Sender)

{

Memo2->Clear ();

if (sDBLookupComboBox7->Text=="Новое строительство") {

int i=0*1;

DataModule4->ADOTable10->First ();

Memo1->Clear ();

for (i=0; i<DataModule4->ADOTable10->RecordCount; i++) {

Memo1->Lines->Strings [i] =DataModule4->ADOTable10->FieldValues ["Name_stroj_materiala"];

Memo1->Lines->Add ("");

DataModule4->ADOTable10->Next ();

} }

else if (sDBLookupComboBox7->Text=="Ремонт") {

int i=0*1;

DataModule4->ADOTable11->First ();

Memo1->Clear ();

for (i=0; i<DataModule4->ADOTable11->RecordCount; i++) {

Memo1->Lines->Strings [i] =DataModule4->ADOTable11->FieldValues ["Name_stroj_materiala"];

Memo1->Lines->Add ("");

DataModule4->ADOTable11->Next ();

}} else {

int i=0*1;

DataModule4->ADOTable12->First ();

Memo1->Clear ();

for (i=0; i<DataModule4->ADOTable12->RecordCount; i++) {

Memo1->Lines->Strings [i] =DataModule4->ADOTable12->FieldValues ["Name_stroj_materiala"];

Memo1->Lines->Add ("");

DataModule4->ADOTable12->Next ();

}}

}

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

void __fastcall TForm5:: sButton123Click (TObject *Sender)

{

sButton125->Caption="Отмена";

sButton123->Enabled=false;

sButton124->Enabled=true;

sDBEdit8->ReadOnly=false;

sDBEdit33->ReadOnly=false;

DataModule4->ADOTable16->Append ();

sDBGrid26->Enabled=false;

sDBEdit8->SetFocus ();

}

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

void __fastcall TForm5:: sButton124Click (TObject *Sender)

{

if (sDBEdit8->Text=="" || sDBEdit33->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }

else {

sButton123->Enabled=true;

sButton124->Enabled=false;

sButton125->Caption="Редактировать";

DataModule4->ADOTable16->Post ();

sDBGrid26->Enabled=true;

sDBEdit8->ReadOnly=true;

sDBEdit33->ReadOnly=true; }

}

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

void __fastcall TForm5:: sButton125Click (TObject *Sender) {

if (sButton125->Caption=="Отмена") {

sButton123->Enabled=true;

sButton124->Enabled=false;

sDBGrid26->Enabled=true;

DataModule4->ADOTable16->Cancel ();

sButton125->Caption="Редактировать"; }

else {

sButton125->Caption="Отмена";

sButton123->Enabled=false;

sButton124->Enabled=true;

sDBEdit8->ReadOnly=false;

sDBEdit33->ReadOnly=false;

DataModule4->ADOTable16->Edit ();

sDBGrid26->Enabled=false;

sDBEdit8->SetFocus ();

}

}

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

void __fastcall TForm5:: sButton122Click (TObject *Sender)

{

sGroupBox12->Visible=false;

sGroupBox13->Visible=false;

sGroupBox14->Visible=false;

sGroupBox15->Visible=false;

sGroupBox16->Visible=false;

sGroupBox17->Visible=false;

sGroupBox18->Visible=false;

sGroupBox19->Visible=false;

sGroupBox20->Visible=false;

sGroupBox27->Visible=true;

}

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

void __fastcall TForm5:: sButton114Click (TObject *Sender)

{

if (DataModule4->ADOQuery14->IsEmpty () ==true) {

Application->MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }

else {

sDBGrid25->Enabled=false;

sButton114->Enabled=false;

sButton115->Enabled=true;

sButton116->Caption="Отмена";

sDBEdit18->SetFocus ();

sDBEdit18->ReadOnly=false; sDBEdit26->ReadOnly=false; sDBEdit49->ReadOnly=false;

sDBEdit60->ReadOnly=false; sDBEdit61->ReadOnly=false; sDBEdit63->ReadOnly=false;

sDBEdit64->ReadOnly=false; sDBEdit65->ReadOnly=false; sDBEdit66->ReadOnly=false; }

}

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

void __fastcall TForm5:: sButton115Click (TObject *Sender)

{

if (sDBEdit18->Text=="" || sDBEdit26->Text=="" || sDBEdit49->Text=="" || sDBEdit60->Text=="" || sDBEdit61->Text=="" || sDBEdit63->Text==""|| sDBEdit64->Text=="" || sDBEdit65->Text=="" || sDBEdit66->Text=="") {

Application->MessageBoxA ("Какие-то из полей пусты, сохранение не возможно!","Сохранение. ",16); }

else {

sButton115->Enabled=false;

sButton114->Enabled=true;

sButton116->Caption="Удалить";

sDBEdit18->ReadOnly=true; sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;

sDBEdit60->ReadOnly=true; sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true;

sDBEdit64->ReadOnly=true; sDBEdit65->ReadOnly=true; sDBEdit66->ReadOnly=true;

DataModule4->ADOQuery14->Post ();

sDBGrid25->Enabled=true;

Application->MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

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

void __fastcall TForm5:: sButton116Click (TObject *Sender)

{

if (DataModule4->ADOQuery14->IsEmpty () ==true) {

Application->MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }

else if (DataModule4->ADOQuery14->IsEmpty () ==false && sButton116->Caption=="Удалить") {

DataModule4->ADOQuery14->Delete ();

Application->MessageBoxA ("Запись БД удалена!","Удаление. ",64); }

else {

sButton116->Caption="Удалить";

sButton115->Enabled=false;

sButton114->Enabled=true;

sDBEdit18->ReadOnly=true; sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;

sDBEdit60->ReadOnly=true; sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true;

sDBEdit64->ReadOnly=true; sDBEdit65->ReadOnly=true; sDBEdit66->ReadOnly=true;

DataModule4->ADOQuery14->Cancel ();

sDBGrid25->Enabled=true;

Application->MessageBoxA ("Вы отменили редактирование БД! Поля были заблокированы!","Отмена. ",64); }

}

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

void __fastcall TForm5:: sButton118Click (TObject *Sender)

{

int i=0*1;

int i2=0*1;

DataModule4->ADOTable16->First ();

sMemo1->Clear ();

for (i=0; i<DataModule4->ADOTable16->RecordCount; i++) {

sMemo1->Lines->Strings [i] =DataModule4->ADOTable16->FieldValues ["Mexanizm"];

sMemo1->Lines->Add ("");

DataModule4->ADOTable16->Next (); }

DataModule4->ADOTable16->First ();

sMemo3->Clear ();

for (i2=0; i2<DataModule4->ADOTable16->RecordCount; i2++) {

sMemo3->Lines->Strings [i2] =DataModule4->ADOTable16->FieldValues ["Mashin"];

sMemo3->Lines->Add ("");

DataModule4->ADOTable16->Next (); }

sMemo1->Enabled=true;

sMemo2->Enabled=true;

sMemo3->Enabled=true;

sMemo4->Enabled=true;

DataModule4->ADOTable15->Append ();

sButton118->Enabled=false;

sButton119->Enabled=true;

sButton120->Enabled=true;

sDBEdit14->Enabled=true;

sDBEdit20->Enabled=true;

sDBEdit21->Enabled=true;

sDBEdit24->Enabled=true;

sDBEdit25->Enabled=true;

sDBLookupComboBox24->Enabled=true;

sDBLookupComboBox25->Enabled=true;

}

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

void __fastcall TForm5:: sButton120Click (TObject *Sender)

{

float a,a2;

float t1,t2,t3,t4;

if (sDBLookupComboBox24->Text=="" || sDBLookupComboBox25->Text=="" || sDBEdit20->Text=="" || sDBEdit21->Text=="" || sDBEdit24->Text=="" || sDBEdit25->Text=="") {

Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей",16);

}

else{

for (int i=0; i<sMemo2->Lines->Count; i++) {

if (i<sMemo2->Lines->Count-1) {

DataModule4->ADOTable15Mehanizmi->Text=DataModule4->ADOTable15Mehanizmi->Text+sMemo2->Lines->Strings [i] +", "; }

else DataModule4->ADOTable15Mehanizmi->Text=DataModule4->ADOTable15Mehanizmi->Text+sMemo2->Lines->Strings [i]; }

for (int i2=0; i2<sMemo4->Lines->Count; i2++) {

if (i2<sMemo4->Lines->Count-1) {

DataModule4->ADOTable15Transport_name->Text=DataModule4->ADOTable15Transport_name->Text+sMemo4->Lines->Strings [i2] +", "; }

else DataModule4->ADOTable15Transport_name->Text=DataModule4->ADOTable15Transport_name->Text+sMemo4->Lines->Strings [i2]; }

a2=StrToFloat (sDBEdit21->Text. ToDouble () *sDBEdit24->Text. ToDouble ());

a=StrToFloat (sDBEdit25->Text. ToDouble ()) +a2;

t1=a+ (a*0.3);

t2=t1- (t1*0.24);

t3=a+ (a*0.43);

t4=t3- (t3*0.37);

DataModule4->ADOTable15cena_city_otp->Text=FormatFloat ("0.00",t1);

DataModule4->ADOTable15cena_selo_otp->Text=FormatFloat ("0.00",t2);

DataModule4->ADOTable15cena_city_smet->Text=FormatFloat ("0.00",t3);

DataModule4->ADOTable15cena_selo_smet->Text=FormatFloat ("0.00",t4);

DataModule4->ADOTable15Stoimoct->Text=a2;

DataModule4->ADOTable15->Post ();

sMemo2->Clear ();

sMemo4->Clear ();

sMemo1->Enabled=false;

sMemo2->Enabled=false;

sMemo3->Enabled=false;

sMemo4->Enabled=false;

sButton118->Enabled=true;

sButton119->Enabled=false;

sButton120->Enabled=false;

sDBEdit14->Enabled=false;

sDBEdit20->Enabled=false;

sDBEdit21->Enabled=false;

sDBEdit24->Enabled=false;

sDBEdit25->Enabled=false;

sDBLookupComboBox24->Enabled=false;

sDBLookupComboBox25->Enabled=false;

Application->MessageBoxA ("Запись сохранена!","Сохранение. ",64); }

}

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

void __fastcall TForm5:: sButton119Click (TObject *Sender) {

DataModule4->ADOTable15->Cancel ();

sMemo2->Clear ();

sMemo4->Clear ();

sMemo1->Enabled=false;

sMemo2->Enabled=false;

sMemo3->Enabled=false;

sMemo4->Enabled=false;

sButton118->Enabled=true;

sButton119->Enabled=false;

sButton120->Enabled=false;

sDBEdit14->Enabled=false;

sDBEdit20->Enabled=false;

sDBEdit21->Enabled=false;

sDBEdit24->Enabled=false;

sDBEdit25->Enabled=false;

sDBLookupComboBox24->Enabled=false;

sDBLookupComboBox25->Enabled=false; }

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

void __fastcall TForm5:: sMemo1Click (TObject *Sender) {

int select_m=0*1;

int i=0*1,t=0*1, ii=0*1;

i=0; select_m=sMemo1->CaretPos. y;

if (sMemo1->Lines->Strings [select_m]! ="") {

sMemo2->Lines->Add (sMemo1->Lines->Strings [select_m]);

sMemo1->Lines->Delete (select_m); }}

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

void __fastcall TForm5:: sMemo3Click (TObject *Sender) {

int select_m=0*1;

int i=0*1,t=0*1, ii=0*1;

i=0; select_m=sMemo3->CaretPos. y;

if (sMemo3->Lines->Strings [select_m]! ="") {

sMemo4->Lines->Add (sMemo3->Lines->Strings [select_m]);

sMemo3->Lines->Delete (select_m); }}

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

void __fastcall TForm5:: sMemo2Click (TObject *Sender) {

int select_m=0*1;

select_m=sMemo2->CaretPos. y;

if (sMemo2->Lines->Strings [select_m]! ="") {

sMemo1->Lines->Add (sMemo2->Lines->Strings [select_m]);

sMemo2->Lines->Delete (select_m); }}

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

void __fastcall TForm5:: sMemo4Click (TObject *Sender) {

int select_m=0*1;

select_m=sMemo4->CaretPos. y;

if (sMemo4->Lines->Strings [select_m]! ="") {

sMemo3->Lines->Add (sMemo4->Lines->Strings [select_m]);

sMemo4->Lines->Delete (select_m); }}

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

void __fastcall TForm5:: sButton121Click (TObject *Sender) {

Form5->Close ();

Form3->Show (); }

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

Расчёты

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

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit4. h"

#include "Unit6. h"

#include "Unit10. h"

#include "Unit11. h"

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

#pragma package (smart_init)

#pragma link "sButton"

#pragma link "sPanel"

#pragma link "sStatusBar"

#pragma link "sPageControl"

#pragma link "sLabel"

#pragma link "sGroupBox"

#pragma link "acDBGrid"

#pragma link "sCustomComboEdit"

#pragma link "sMaskEdit"

#pragma link "sTooledit"

#pragma link "sCheckBox"

#pragma link "sEdit"

#pragma resource "*. dfm"

TForm6 *Form6;

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

__fastcall TForm6:: TForm6 (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TForm6:: sButton6Click (TObject *Sender)

{

Form6->Close ();

Form1->Show ();

}

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

void __fastcall TForm6:: sButton2Click (TObject *Sender)

{

sGroupBox1->Visible=true;

sGroupBox2->Visible=false;

}

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

void __fastcall TForm6:: sDateEdit1Change (TObject *Sender)

{

sDateEdit1->MaxDate=sDateEdit2->Date;

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj Where new_stroj Between: datastart and: datastop ");

DataModule4->ADOQuery12->Parameters->ParamByName ("datastart") - >Value=FormatDateTime ("dd. mm. yyyy",sDateEdit1->Date);

DataModule4->ADOQuery12->Parameters->ParamByName ("datastop") - >Value =FormatDateTime ("dd. mm. yyyy",sDateEdit2->Date);

DataModule4->ADOQuery12->Active=true;

}

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

void __fastcall TForm6:: sDateEdit2Change (TObject *Sender)

{

sDateEdit2->MinDate=sDateEdit1->Date;

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj Where close_stoj Between: datastart and: datastop ");

DataModule4->ADOQuery12->Parameters->ParamByName ("datastart") - >Value=FormatDateTime ("dd. mm. yyyy",sDateEdit1->Date);

DataModule4->ADOQuery12->Parameters->ParamByName ("datastop") - >Value = FormatDateTime ("dd. mm. yyyy",sDateEdit2->Date);

DataModule4->ADOQuery12->Active=true;

}

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

void __fastcall TForm6:: sButton7Click (TObject *Sender)

{

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj");

DataModule4->ADOQuery12->Active=true;

}

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

void __fastcall TForm6:: sCheckBox3Click (TObject *Sender)

{

if (sCheckBox3->Checked==true) {

sDateEdit1->Text="";

sDateEdit2->Text="";

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj");

DataModule4->ADOQuery12->Active=true;

sCheckBox4->Checked=false;

sCheckBox1->Visible=true;

sCheckBox2->Visible=true;

sButton8->Visible=true; }

else {

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj");

DataModule4->ADOQuery12->Active=true;

sCheckBox1->Visible=false;

sCheckBox2->Visible=false;

sButton8->Visible=false; }

}

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

void __fastcall TForm6:: sCheckBox4Click (TObject *Sender)

{

if (sCheckBox4->Checked==true) {

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj");

DataModule4->ADOQuery12->Active=true;

sCheckBox3->Checked=false;

sLabel10->Visible=true;

sLabel11->Visible=true;

sDateEdit1->Visible=true;

sDateEdit2->Visible=true;

sButton8->Visible=true; }

else {

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj");

DataModule4->ADOQuery12->Active=true;

sLabel10->Visible=false;

sLabel11->Visible=false;

sDateEdit1->Visible=false;

sDateEdit2->Visible=false;

sButton8->Visible=false; }

}

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

void __fastcall TForm6:: sButton8Click (TObject *Sender)

{

if (sDateEdit1->Text=="" || sDateEdit2->Text=="") {Application->MessageBoxA ("Заполнены не все поля, вывод отчёта не возможен!","Формирование отчёта. ",16); }

else {

Form11->QRLabel2->Caption=sEdit1->Text;

Form11->QRLabel5->Caption=sEdit2->Text+" "+sEdit3->Text;

if (sCheckBox3->Checked==true) {Form11->QRLabel8->Caption="строительству";

Form11->QRLabel9->Caption="";

Form11->QRLabel10->Caption="";

Form11->QRLabel12->Caption="";

Form11->QRLabel13->Caption=""; }

if (sCheckBox4->Checked==true) {Form11->QRLabel8->Caption="дате";

Form11->QRLabel9->Caption="с";

Form11->QRLabel10->Caption=sDateEdit1->Date;

Form11->QRLabel12->Caption="по";

Form11->QRLabel13->Caption=sDateEdit1->Date; }

Form11->QuickRep1->Preview (); }

}

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

void __fastcall TForm6:: sCheckBox1Click (TObject *Sender)

{

if (sCheckBox1->Checked==true) {

sCheckBox2->Checked=false;

sEdit4->Text="Действующее строительство"; }

else{

sEdit4->Text=""; }

}

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

void __fastcall TForm6:: sCheckBox2Click (TObject *Sender)

{

if (sCheckBox2->Checked==true) {

sCheckBox1->Checked=false;

sEdit5->Text="Строительство прекращено"; }

else{

sEdit5->Text=""; }

}

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

void __fastcall TForm6:: sEdit4Change (TObject *Sender)

{

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj where tip_stoj LIKE '%"+sEdit4->Text+"%'; ");

DataModule4->ADOQuery12->Active=true;

}

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

void __fastcall TForm6:: sEdit5Change (TObject *Sender)

{

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj where tip_stoj LIKE '%"+sEdit5->Text+"%'; ");

DataModule4->ADOQuery12->Active=true;

}

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

void __fastcall TForm6:: sButton5Click (TObject *Sender)

{

sGroupBox1->Visible=false;

sGroupBox2->Visible=true;

DataModule4->ADOQuery12->Active=false;

DataModule4->ADOQuery12->SQL->Clear ();

DataModule4->ADOQuery12->SQL->Add ("select * from obj");

DataModule4->ADOQuery12->Active=true;

}

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

void __fastcall TForm6:: FormKeyDown (TObject *Sender, WORD &Key,

TShiftState Shift)

{

if (Key==VK_ESCAPE) {sButton6Click (sButton6); }

}

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

void __fastcall TForm6:: Timer1Timer (TObject *Sender)

{

if (sEdit7->Text! ="" && sEdit8->Text! ="" && sEdit6->Text! ="") {sButton1->Enabled=true; }

else {sButton1->Enabled=false; }

}

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

void __fastcall TForm6:: sButton1Click (TObject *Sender)

{

int a;

Form10->QRLabel2->Caption=sEdit6->Text;

Form10->QRLabel5->Caption=sEdit7->Text+" "+sEdit8->Text;