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

// виды работ

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;

// расценки

}

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

void __fastcall TForm5:: sButton18Click (TObject *Sender)

{

// Области/Города

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

sButton16->Enabled=true;

sButton17->Enabled=false;

sDBGrid1->Enabled=true;

DataModule4->ADOTable4->Cancel ();

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

else {

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet6; }

}

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

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

TShiftState Shift)

{

if (Key==VK_ESCAPE) {sButton4Click (sButton4); }

}

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

void __fastcall TForm5:: sButton30Click (TObject *Sender)

{

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

sButton30->Enabled=false;

sButton31->Enabled=true;

sDBEdit2->ReadOnly=false;

DataModule4->ADOTable6->Append ();

sDBGrid2->Enabled=false;

sDBEdit2->SetFocus ();

}

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

void __fastcall TForm5:: sButton31Click (TObject *Sender)

{

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

else {

sButton30->Enabled=true;

sButton31->Enabled=false;

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

DataModule4->ADOTable6->Post ();

sDBGrid2->Enabled=true;

sDBEdit2->ReadOnly=true; }

}

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

void __fastcall TForm5:: sButton32Click (TObject *Sender)

{

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

sButton30->Enabled=true;

sButton31->Enabled=false;

sDBGrid2->Enabled=true;

DataModule4->ADOTable6->Cancel ();

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

else {

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet8; }

}

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

void __fastcall TForm5:: sButton33Click (TObject *Sender)

{

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

sButton33->Enabled=false;

sButton34->Enabled=true;

sDBEdit3->ReadOnly=false;

DataModule4->ADOTable7->Append ();

sDBGrid3->Enabled=false;

sDBEdit3->SetFocus ();

}

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

void __fastcall TForm5:: sButton34Click (TObject *Sender)

{

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

else {

sButton33->Enabled=true;

sButton34->Enabled=false;

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

DataModule4->ADOTable7->Post ();

sDBGrid3->Enabled=true;

sDBEdit3->ReadOnly=true; }

}

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

void __fastcall TForm5:: sButton35Click (TObject *Sender)

{

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

sButton33->Enabled=true;

sButton34->Enabled=false;

sDBGrid3->Enabled=true;

DataModule4->ADOTable7->Cancel ();

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

else {

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet9; }

}

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

void __fastcall TForm5:: sButton36Click (TObject *Sender)

{

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

sButton36->Enabled=false;

sButton37->Enabled=true;

sDBEdit4->ReadOnly=false;

DataModule4->ADOTable8->Append ();

sDBGrid4->Enabled=false;

sDBEdit4->SetFocus ();

}

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

void __fastcall TForm5:: sButton37Click (TObject *Sender)

{

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

else {

sButton36->Enabled=true;

sButton37->Enabled=false;

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

DataModule4->ADOTable8->Post ();

sDBGrid4->Enabled=true;

sDBEdit4->ReadOnly=true; }

}

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

void __fastcall TForm5:: sButton38Click (TObject *Sender)

{

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

sButton36->Enabled=true;

sButton37->Enabled=false;

sDBGrid1->Enabled=true;

DataModule4->ADOTable8->Cancel ();

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

else {

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet10; }

}

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

void __fastcall TForm5:: sButton41Click (TObject *Sender)

{

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

sButton39->Enabled=true;

sButton40->Enabled=false;

sDBGrid5->Enabled=true;

DataModule4->ADOTable2->Cancel ();

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

else {

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet4; }

}

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

void __fastcall TForm5:: sButton40Click (TObject *Sender)

{

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

else {

sButton39->Enabled=true;

sButton40->Enabled=false;

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

DataModule4->ADOTable2->Post ();

sDBGrid5->Enabled=true;

sDBEdit5->ReadOnly=true; }

}

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

void __fastcall TForm5:: sButton39Click (TObject *Sender)

{

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

sButton39->Enabled=false;

sButton40->Enabled=true;

sDBEdit5->ReadOnly=false;

DataModule4->ADOTable2->Append ();

sDBGrid5->Enabled=false;

sDBEdit5->SetFocus ();

}

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

void __fastcall TForm5:: sButton42Click (TObject *Sender)

{

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

sButton42->Enabled=false;

sButton43->Enabled=true;

sDBEdit6->ReadOnly=false;

DataModule4->ADOTable3->Append ();

sDBGrid6->Enabled=false;

sDBEdit6->SetFocus ();

}

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

void __fastcall TForm5:: sButton43Click (TObject *Sender)

{

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

else {

sButton42->Enabled=true;

sButton43->Enabled=false;

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

DataModule4->ADOTable3->Post ();

sDBGrid6->Enabled=true;

sDBEdit6->ReadOnly=true; }

}

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

void __fastcall TForm5:: sButton44Click (TObject *Sender)

{

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

sButton42->Enabled=true;

sButton43->Enabled=false;

sDBGrid6->Enabled=true;

DataModule4->ADOTable3->Cancel ();

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

else {

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet5; }

}

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

void __fastcall TForm5:: sButton50Click (TObject *Sender)

{

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

sButton48->Enabled=true;

sButton49->Enabled=false;

sDBGrid8->Enabled=true;

DataModule4->ADOTable5->Cancel ();

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

else {

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet7; }

}

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

void __fastcall TForm5:: sButton49Click (TObject *Sender)

{

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

else {

sButton48->Enabled=true;

sButton49->Enabled=false;

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

DataModule4->ADOTable5->Post ();

sDBGrid8->Enabled=true;

sDBEdit9->ReadOnly=true;

sDBEdit10->ReadOnly=true; }

}

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

void __fastcall TForm5:: sButton48Click (TObject *Sender)

{

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

sButton48->Enabled=false;

sButton49->Enabled=true;

sDBEdit9->ReadOnly=false;

sDBEdit10->ReadOnly=false;

DataModule4->ADOTable5->Append ();

sDBGrid8->Enabled=false;

sDBEdit9->SetFocus ();

}

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

void __fastcall TForm5:: sButton51Click (TObject *Sender)

{

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

sButton51->Enabled=false;

sButton52->Enabled=true;

sDBEdit11->ReadOnly=false;

DataModule4->ADOTable9->Append ();

sDBGrid9->Enabled=false;

sDBEdit11->SetFocus ();

}

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

void __fastcall TForm5:: sButton52Click (TObject *Sender)

{

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

else {

sButton51->Enabled=true;

sButton52->Enabled=false;

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

DataModule4->ADOTable9->Post ();

sDBGrid9->Enabled=true;

sDBEdit11->ReadOnly=true; }

}

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

void __fastcall TForm5:: sButton53Click (TObject *Sender)

{

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

sButton51->Enabled=true;

sButton52->Enabled=false;

sDBGrid9->Enabled=true;

DataModule4->ADOTable9->Cancel ();

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

else {

sPageControl1->ActivePage=Form5->sTabSheet2;

sPageControl2->ActivePage=Form5->sTabSheet3;

sPageControl4->ActivePage=Form5->sTabSheet19; }

}

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

void __fastcall TForm5:: sDateEdit2Change (TObject *Sender)

{

sDateEdit2->MinDate=sDateEdit1->Date;

}

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

void __fastcall TForm5:: sDateEdit1Change (TObject *Sender)

{

sDateEdit1->MaxDate=sDateEdit2->Date;

}

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

void __fastcall TForm5:: sButton45Click (TObject *Sender)

{

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

sButton45->Enabled=false;

sButton46->Enabled=true;

sDBEdit7->ReadOnly=false;

sDBEdit27->ReadOnly=false;

DataModule4->ADOTable14->Append ();

sDBGrid7->Enabled=false;

sDBEdit27->SetFocus ();

}

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

void __fastcall TForm5:: sButton46Click (TObject *Sender)

{

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

else {

sButton45->Enabled=true;

sButton46->Enabled=false;

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

DataModule4->ADOTable14->Post ();

sDBGrid7->Enabled=true;

sDBEdit7->ReadOnly=true;

sDBEdit27->ReadOnly=true; }

}

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

void __fastcall TForm5:: sButton47Click (TObject *Sender)

{

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

sButton45->Enabled=true;

sButton46->Enabled=false;

sDBGrid7->Enabled=true;

DataModule4->ADOTable14->Cancel ();

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

else {

sPageControl1->ActivePage=sTabSheet2;

sPageControl2->ActivePage=sTabSheet11; }

}

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

void __fastcall TForm5:: sEdit1Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery1->Active=false;

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

DataModule4->ADOQuery1->SQL->Add ("select * from prorabi where prorabi LIKE '%"+sEdit1->Text+"%'; ");

DataModule4->ADOQuery1->Active=true; }

}

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

void __fastcall TForm5:: Timer1Timer (TObject *Sender)

{

if (sPageControl1->ActivePage==sTabSheet1) {Form5->Caption="Добавление данных"; }

if (sPageControl1->ActivePage==sTabSheet2) {Form5->Caption="Редактирование данных"; }

// объекты

if (sPageControl4->ActivePage==sTabSheet18) {sLabelFX12->Caption=IntToStr (DataModule4->ADOQuery12->RecordCount); }

if (sPageControl4->ActivePage==sTabSheet19) {sLabelFX13->Caption=IntToStr (DataModule4->ADOQuery13->RecordCount); }

if (sPageControl2->ActivePage==sTabSheet4) {sLabelFX1->Caption=IntToStr (DataModule4->ADOQuery1->RecordCount); }

if (sPageControl2->ActivePage==sTabSheet5) {sLabelFX2->Caption=IntToStr (DataModule4->ADOQuery2->RecordCount); }

if (sPageControl2->ActivePage==sTabSheet6) {sLabelFX3->Caption=IntToStr (DataModule4->ADOQuery3->RecordCount); }

if (sPageControl2->ActivePage==sTabSheet7) {sLabelFX4->Caption=IntToStr (DataModule4->ADOQuery4->RecordCount); }

if (sPageControl2->ActivePage==sTabSheet8) {sLabelFX5->Caption=IntToStr (DataModule4->ADOQuery5->RecordCount); }

if (sPageControl2->ActivePage==sTabSheet9) {sLabelFX6->Caption=IntToStr (DataModule4->ADOQuery6->RecordCount); }

if (sPageControl2->ActivePage==sTabSheet10) {sLabelFX7->Caption=IntToStr (DataModule4->ADOQuery7->RecordCount); }

if (sPageControl2->ActivePage==sTabSheet11) {sLabelFX8->Caption=IntToStr (DataModule4->ADOQuery8->RecordCount); }

if (sPageControl2->ActivePage==sTabSheet13) {sLabelFX14->Caption=IntToStr (DataModule4->ADOQuery14->RecordCount); }

// виды строительных работ

if (sPageControl3->ActivePage==sTabSheet15) {sLabelFX9->Caption=IntToStr (DataModule4->ADOQuery9->RecordCount); }

if (sPageControl3->ActivePage==sTabSheet16) {sLabelFX10->Caption=IntToStr (DataModule4->ADOQuery10->RecordCount); }

if (sPageControl3->ActivePage==sTabSheet17) {sLabelFX11->Caption=IntToStr (DataModule4->ADOQuery11->RecordCount); }

}

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

void __fastcall TForm5:: sDateEdit3Change (TObject *Sender)

{

sDateEdit3->MaxDate=sDateEdit4->Date;

}

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

void __fastcall TForm5:: sDateEdit4Change (TObject *Sender)

{

sDateEdit4->MinDate=sDateEdit3->Date;

}

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

void __fastcall TForm5:: sEdit2Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery2->Active=false;

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

DataModule4->ADOQuery2->SQL->Add ("select * from mastera where mastera LIKE '%"+sEdit2->Text+"%'; ");

DataModule4->ADOQuery2->Active=true; }

}

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

void __fastcall TForm5:: sEdit3Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery3->Active=false;

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

DataModule4->ADOQuery3->SQL->Add ("select * from obl where name_obl LIKE '%"+sEdit3->Text+"%'; ");

DataModule4->ADOQuery3->Active=true; }

}

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

void __fastcall TForm5:: sEdit4Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery4->Active=false;

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

DataModule4->ADOQuery4->SQL->Add ("select * from izm where nameEdizmer LIKE '%"+sEdit4->Text+"%'; ");

DataModule4->ADOQuery4->Active=true; }

}

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

void __fastcall TForm5:: sEdit5Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery5->Active=false;

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

DataModule4->ADOQuery5->SQL->Add ("select * from zak where namezak LIKE '%"+sEdit5->Text+"%'; ");

DataModule4->ADOQuery5->Active=true; }

}

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

void __fastcall TForm5:: sEdit6Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery6->Active=false;

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

DataModule4->ADOQuery6->SQL->Add ("select * from podr where namepodr LIKE '%"+sEdit6->Text+"%'; ");

DataModule4->ADOQuery6->Active=true; }

}

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

void __fastcall TForm5:: sEdit7Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery7->Active=false;

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

DataModule4->ADOQuery7->SQL->Add ("select * from genpodr where namegenpodr LIKE '%"+sEdit7->Text+"%'; ");

DataModule4->ADOQuery7->Active=true; }

}

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

void __fastcall TForm5:: sEdit8Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery8->Active=false;

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

DataModule4->ADOQuery8->SQL->Add ("select * from mat where namematerial LIKE '%"+sEdit8->Text+"%'; ");

DataModule4->ADOQuery8->Active=true; }

}

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

void __fastcall TForm5:: sEdit12Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery12->Active=false;

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

DataModule4->ADOQuery12->SQL->Add ("Select * from obj where name_object Like '%"+sEdit12->Text+"%' and obl Like '%"+sEdit13->Text+"%'");

DataModule4->ADOQuery12->Active=true; }

}

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

void __fastcall TForm5:: sEdit13Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery12->Active=false;

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

DataModule4->ADOQuery12->SQL->Add ("Select * from obj where name_object Like '%"+sEdit12->Text+"%' and obl Like '%"+sEdit13->Text+"%'");

DataModule4->ADOQuery12->Active=true; }

}

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

void __fastcall TForm5:: sButton90Click (TObject *Sender)

{

// ремонт

if (sGroupBox10->Visible==true) {

DataModule4->ADOTable11->Append ();

sDBGrid11->Enabled=false;

sButton91->Enabled=true;

sButton92->Enabled=true;

sButton90->Enabled=false;

sDBEdit17->Enabled=true;

sDBLookupComboBox10->Enabled=true;

sDBLookupComboBox12->Enabled=true; }

}

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

void __fastcall TForm5:: sButton91Click (TObject *Sender)

{

// ремонт

if ( (sGroupBox10->Visible==true) && (sDBLookupComboBox10->Text=="" || sDBLookupComboBox12->Text=="")) {

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

else {

sDBGrid11->Enabled=true;

sButton90->Enabled=true;

sButton91->Enabled=false;

sButton92->Enabled=false;

DataModule4->ADOTable11name_restavr->Text="Ремонт";

DataModule4->ADOQuery10->Active=false;

DataModule4->ADOQuery10->Active=true;

DataModule4->ADOTable11->Post ();

sDBEdit17->Enabled=false;

sDBLookupComboBox10->Enabled=false;

sDBLookupComboBox12->Enabled=false; }

}

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

void __fastcall TForm5:: sButton92Click (TObject *Sender)

{

// ремонт

if (sGroupBox10->Visible==true) {

sDBGrid11->Enabled=true;

sButton90->Enabled=true;

sButton91->Enabled=false;

sButton92->Enabled=false;

DataModule4->ADOTable11->Cancel ();

sDBEdit17->Enabled=false;

sDBLookupComboBox10->Enabled=false;

sDBLookupComboBox12->Enabled=false; }

}

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

void __fastcall TForm5:: sButton93Click (TObject *Sender)

{

// реконструкция

if (sGroupBox11->Visible==true) {

DataModule4->ADOTable12->Append ();

sDBGrid12->Enabled=false;

sButton94->Enabled=true;

sButton95->Enabled=true;

sButton93->Enabled=false;

sDBEdit22->Enabled=true;

sDBLookupComboBox11->Enabled=true;

sDBLookupComboBox14->Enabled=true; }

}

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

void __fastcall TForm5:: sButton94Click (TObject *Sender)

{

// реконструкция

if ( (sGroupBox11->Visible==true) && (sDBEdit22->Text=="" || sDBLookupComboBox11->Text=="" || sDBLookupComboBox14->Text=="")) {

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

else {

sDBGrid12->Enabled=true;

sButton93->Enabled=true;

sButton94->Enabled=false;

sButton95->Enabled=false;

DataModule4->ADOTable12name_rekonctrik->Text="Реконструкция";

DataModule4->ADOQuery11->Active=false;

DataModule4->ADOQuery11->Active=true;

DataModule4->ADOTable12->Post ();

sDBEdit22->Enabled=false;

sDBLookupComboBox11->Enabled=false;

sDBLookupComboBox14->Enabled=false; }

}

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

void __fastcall TForm5:: sButton95Click (TObject *Sender)

{

// реконструкция

if (sGroupBox11->Visible==true) {

sDBGrid12->Enabled=true;

sButton93->Enabled=true;

sButton94->Enabled=false;

sButton95->Enabled=false;

DataModule4->ADOTable12->Cancel ();

sDBEdit22->Enabled=false;

sDBLookupComboBox11->Enabled=false;

sDBLookupComboBox14->Enabled=false; }

}

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

void __fastcall TForm5:: sEdit9Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery9->Active=false;

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

DataModule4->ADOQuery9->SQL->Add ("select * from new_stoitelstvo where Name_stroj_materiala LIKE '%"+sEdit9->Text+"%'; ");

DataModule4->ADOQuery9->Active=true; }

}

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

void __fastcall TForm5:: sEdit10Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery10->Active=false;

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

DataModule4->ADOQuery10->SQL->Add ("select * from restavraciya where Name_stroj_materiala LIKE '%"+sEdit10->Text+"%'; ");

DataModule4->ADOQuery10->Active=true; }

}

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

void __fastcall TForm5:: sEdit11Change (TObject *Sender)

{

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

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

DataModule4->ADOQuery11->Active=false;

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

DataModule4->ADOQuery11->SQL->Add ("select * from rekoctrykciya where Name_stroj_materiala LIKE '%"+sEdit11->Text+"%'; ");

DataModule4->ADOQuery11->Active=true; }

}

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

void __fastcall TForm5:: sButton55Click (TObject *Sender)

{

if (sDBEdit28->Text=="" || sDBEdit29->Text=="" || sDBEdit30->Text=="" || sDBEdit31->Text=="" || sDBEdit32->Text==""|| sDBEdit34->Text=="" || sDBEdit35->Text=="" || sDBEdit38->Text=="" || sDBEdit39->Text=="" || sDateEdit3->Text=="" || sDateEdit4->Text=="" || sDateEdit5->Text=="" || sDateEdit6->Text=="") {Application->MessageBoxA ("Какие-то из полей пусты, сохранение не возможно!","Сохранение. ",16); }

else {

sButton55->Enabled=false;

sButton54->Enabled=true;

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

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

sDBGrid13->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton54Click (TObject *Sender)

{

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

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

else {

sButton54->Enabled=false;

sButton55->Enabled=true;

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

sRadioButton1->Enabled=true;

sRadioButton2->Enabled=true;

if (sRadioButton1->Checked) {

sDBEdit28->SetFocus ();

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; }

else {

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

DataModule4->ADOQuery12->Edit ();

sDBGrid13->Enabled=false;

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

}

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

void __fastcall TForm5:: sButton56Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery12->Delete ();

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

else {

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;

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

}

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

void __fastcall TForm5:: sButton57Click (TObject *Sender)

{

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

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

else {

sButton57->Enabled=false;

sButton58->Enabled=true;

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

sDBEdit36->ReadOnly=false;

DataModule4->ADOQuery1->Edit ();

sDBGrid14->Enabled=false;

sDBEdit36->SetFocus ();

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

}

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

void __fastcall TForm5:: sButton58Click (TObject *Sender)

{

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

else {

sButton58->Enabled=false;

sButton57->Enabled=true;

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

sDBEdit36->ReadOnly=true;

DataModule4->ADOQuery1->Post ();

sDBGrid14->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton59Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery1->Delete ();

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

else {

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

sButton58->Enabled=false;

sButton57->Enabled=true;

sDBEdit36->ReadOnly=true;

DataModule4->ADOQuery1->Cancel ();

sDBGrid14->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton60Click (TObject *Sender)

{

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

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

else {

sButton60->Enabled=false;

sButton61->Enabled=true;

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

sDBEdit37->ReadOnly=false;

DataModule4->ADOQuery2->Edit ();

sDBGrid15->Enabled=false;

sDBEdit37->SetFocus ();

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

}

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

void __fastcall TForm5:: sButton61Click (TObject *Sender)

{

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

else {

sButton61->Enabled=false;

sButton60->Enabled=true;

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

sDBEdit37->ReadOnly=true;

DataModule4->ADOQuery2->Post ();

sDBGrid15->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton62Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery2->Delete ();

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

else {

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

sButton61->Enabled=false;

sButton60->Enabled=true;

sDBEdit37->ReadOnly=true;

DataModule4->ADOQuery2->Cancel ();

sDBGrid15->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton63Click (TObject *Sender)

{

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

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

else {

sButton63->Enabled=false;

sButton64->Enabled=true;

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

sDBEdit42->ReadOnly=false;

DataModule4->ADOQuery3->Edit ();

sDBGrid16->Enabled=false;

sDBEdit42->SetFocus ();

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

}

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

void __fastcall TForm5:: sButton64Click (TObject *Sender)

{

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

else {

sButton64->Enabled=false;

sButton63->Enabled=true;

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

sDBEdit42->ReadOnly=true;

DataModule4->ADOQuery3->Post ();

sDBGrid16->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton65Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery3->Delete ();

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

else {

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

sButton64->Enabled=false;

sButton63->Enabled=true;

sDBEdit42->ReadOnly=true;

DataModule4->ADOQuery3->Cancel ();

sDBGrid16->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton66Click (TObject *Sender)

{

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

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

else {

sButton66->Enabled=false;

sButton67->Enabled=true;

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

sDBEdit43->ReadOnly=false;

sDBEdit50->ReadOnly=false;

DataModule4->ADOQuery4->Edit ();

sDBGrid17->Enabled=false;

sDBEdit43->SetFocus ();

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

}

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

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

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

else {

sButton67->Enabled=false;

sButton66->Enabled=true;

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

sDBEdit43->ReadOnly=true;

sDBEdit50->ReadOnly=true;

DataModule4->ADOQuery4->Post ();

sDBGrid17->Enabled=true;

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

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

void __fastcall TForm5:: sButton68Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery4->Delete ();

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

else {

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

sButton67->Enabled=false;

sButton66->Enabled=true;

sDBEdit43->ReadOnly=true;

sDBEdit50->ReadOnly=true;

DataModule4->ADOQuery4->Cancel ();

sDBGrid17->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton69Click (TObject *Sender)

{

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

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

else {

sButton69->Enabled=false;

sButton70->Enabled=true;

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

sDBEdit44->ReadOnly=false;

DataModule4->ADOQuery5->Edit ();

sDBGrid18->Enabled=false;

sDBEdit44->SetFocus ();

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

}

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

void __fastcall TForm5:: sButton70Click (TObject *Sender)

{

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

else {

sButton70->Enabled=false;

sButton69->Enabled=true;

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

sDBEdit44->ReadOnly=true;

DataModule4->ADOQuery5->Post ();

sDBGrid18->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton71Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery5->Delete ();

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

else {

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

sButton70->Enabled=false;

sButton69->Enabled=true;

sDBEdit44->ReadOnly=true;

DataModule4->ADOQuery5->Cancel ();

sDBGrid18->Enabled=true;

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

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

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

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

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

else {

sButton72->Enabled=false;

sButton73->Enabled=true;

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

sDBEdit45->ReadOnly=false;

DataModule4->ADOQuery6->Edit ();

sDBGrid19->Enabled=false;

sDBEdit45->SetFocus ();

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

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

void __fastcall TForm5:: sButton73Click (TObject *Sender)

{

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

else {

sButton73->Enabled=false;

sButton72->Enabled=true;

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

sDBEdit45->ReadOnly=true;

DataModule4->ADOQuery6->Post ();

sDBGrid19->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton74Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery6->Delete ();

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

else {

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

sButton73->Enabled=false;

sButton72->Enabled=true;

sDBEdit45->ReadOnly=true;

DataModule4->ADOQuery6->Cancel ();

sDBGrid19->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton75Click (TObject *Sender)

{

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

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

else {

sButton75->Enabled=false;

sButton76->Enabled=true;

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

sDBEdit46->ReadOnly=false;

DataModule4->ADOQuery7->Edit ();

sDBGrid20->Enabled=false;

sDBEdit46->SetFocus ();

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

}

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

void __fastcall TForm5:: sButton76Click (TObject *Sender)

{

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

else {

sButton76->Enabled=false;

sButton75->Enabled=true;

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

sDBEdit46->ReadOnly=true;

DataModule4->ADOQuery7->Post ();

sDBGrid20->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton77Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery7->Delete ();

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

else {

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

sButton76->Enabled=false;

sButton75->Enabled=true;

sDBEdit46->ReadOnly=true;

DataModule4->ADOQuery7->Cancel ();

sDBGrid20->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton78Click (TObject *Sender)

{

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

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

else {

sButton78->Enabled=false;

sButton79->Enabled=true;

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

sDBEdit47->ReadOnly=false;

sDBEdit48->ReadOnly=false;

DataModule4->ADOQuery8->Edit ();

sDBGrid21->Enabled=false;

sDBEdit47->SetFocus ();

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

}

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

void __fastcall TForm5:: sButton79Click (TObject *Sender)

{

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

else {

sButton79->Enabled=false;

sButton78->Enabled=true;

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

sDBEdit47->ReadOnly=true;

sDBEdit48->ReadOnly=true;

DataModule4->ADOQuery8->Post ();

sDBGrid21->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton80Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery8->Delete ();

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

else {

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

sButton79->Enabled=false;

sButton78->Enabled=true;

sDBEdit47->ReadOnly=true;

sDBEdit48->ReadOnly=true;

DataModule4->ADOQuery8->Cancel ();

sDBGrid21->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton81Click (TObject *Sender)

{

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

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

else {

sButton81->Enabled=false;

sButton82->Enabled=true;

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

sDBEdit51->ReadOnly=false;

sDBEdit52->ReadOnly=false;

DataModule4->ADOQuery9->Edit ();

sDBGrid22->Enabled=false;

sDBEdit51->SetFocus ();

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

}

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

void __fastcall TForm5:: sButton82Click (TObject *Sender)

{

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

else {

sButton82->Enabled=false;

sButton81->Enabled=true;

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

sDBEdit51->ReadOnly=true;

sDBEdit52->ReadOnly=true;

DataModule4->ADOQuery9->Post ();

sDBGrid22->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton83Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery9->Delete ();

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

else {

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

sButton82->Enabled=false;

sButton81->Enabled=true;

sDBEdit51->ReadOnly=true;

sDBEdit52->ReadOnly=true;

DataModule4->ADOQuery9->Cancel ();

sDBGrid22->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton84Click (TObject *Sender)

{

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

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

else {

sButton84->Enabled=false;

sButton85->Enabled=true;

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

sDBEdit54->ReadOnly=false;

sDBEdit55->ReadOnly=false;

DataModule4->ADOQuery10->Edit ();

sDBGrid23->Enabled=false;

sDBEdit54->SetFocus ();

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

}

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

void __fastcall TForm5:: sButton85Click (TObject *Sender)

{

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

else {

sButton85->Enabled=false;

sButton84->Enabled=true;

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

sDBEdit54->ReadOnly=true;

sDBEdit55->ReadOnly=true;

DataModule4->ADOQuery10->Post ();

sDBGrid23->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton86Click (TObject *Sender)

{

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

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

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

DataModule4->ADOQuery10->Delete ();

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

else {

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

sButton85->Enabled=false;

sButton84->Enabled=true;

sDBEdit54->ReadOnly=true;

sDBEdit55->ReadOnly=true;

DataModule4->ADOQuery10->Cancel ();

sDBGrid23->Enabled=true;

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

}

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

void __fastcall TForm5:: sButton87Click (TObject *Sender)