Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
t;SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton37Click (TObject *Sender)
{(sDBEdit4->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable8->Post ();->Enabled=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton38Click (TObject *Sender)
{(sButton38->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable8->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet10; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton41Click (TObject *Sender)
{(sButton41->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable2->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet4; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton40Click (TObject *Sender)
{(sDBEdit5->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable2->Post ();->Enabled=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton39Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable2->Append ();->Enabled=false;->SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton42Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable3->Append ();->Enabled=false;->SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton43Click (TObject *Sender)
{(sDBEdit1->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable3->Post ();->Enabled=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton44Click (TObject *Sender)
{(sButton44->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable3->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet5; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton50Click (TObject *Sender)
{(sButton50->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable5->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet7; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton49Click (TObject *Sender)
{( (sDBEdit9->Text=="" && sDBEdit10->Text=="") && (sDBEdit9->Text=="" || sDBEdit10->Text=="")) {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable5->Post ();->Enabled=true;->ReadOnly=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton48Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable5->Append ();->Enabled=false;->SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton51Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable9->Append ();->Enabled=false;->SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton52Click (TObject *Sender)
{(sDBEdit11->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable9->Post ();->Enabled=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton53Click (TObject *Sender)
{(sButton53->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable9->Cancel ();->Caption="Редактировать"; }{->ActivePage=Form5->sTabSheet2;->ActivePage=Form5->sTabSheet3;->ActivePage=Form5->sTabSheet19; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit2Change (TObject *Sender)
{->MinDate=sDateEdit1->Date;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit1Change (TObject *Sender)
{->MaxDate=sDateEdit2->Date;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton45Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable14->Append ();->Enabled=false;->SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton46Click (TObject *Sender)
{( (sDBEdit7->Text=="" && sDBEdit8->Text=="" && sDBEdit27->Text=="") && (sDBEdit7->Text=="" || sDBEdit8->Text=="" || sDBEdit27->Text=="")) {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable14->Post ();->Enabled=true;->ReadOnly=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton47Click (TObject *Sender)
{(sButton47->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable14->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet11; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit1Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: Timer1Timer (TObject *Sender)
{(sPageControl1->ActivePage==sTabSheet1) {Form5->Caption="Добавление данных"; }(sPageControl1->ActivePage==sTabSheet2) {Form5->Caption="Редактирование данных"; }
// объекты(sPageControl4->ActivePage==sTabSheet18) {sLabelFX12->Caption=IntToStr (DataModule4->ADOQuery12->RecordCount); }(sPageControl4->ActivePage==sTabSheet19) {sLabelFX13->Caption=IntToStr (DataModule4->ADOQuery13->RecordCount); }(sPageControl2->ActivePage==sTabSheet4) {sLabelFX1->Caption=IntToStr (DataModule4->ADOQuery1->RecordCount); }(sPageControl2->ActivePage==sTabSheet5) {sLabelFX2->Caption=IntToStr (DataModule4->ADOQuery2->RecordCount); }(sPageControl2->ActivePage==sTabSheet6) {sLabelFX3->Caption=IntToStr (DataModule4->ADOQuery3->RecordCount); }(sPageControl2->ActivePage==sTabSheet7) {sLabelFX4->Caption=IntToStr (DataModule4->ADOQuery4->RecordCount); }(sPageControl2->ActivePage==sTabSheet8) {sLabelFX5->Caption=IntToStr (DataModule4->ADOQuery5->RecordCount); }(sPageControl2->ActivePage==sTabSheet9) {sLabelFX6->Caption=IntToStr (DataModule4->ADOQuery6->RecordCount); }(sPageControl2->ActivePage==sTabSheet10) {sLabelFX7->Caption=IntToStr (DataModule4->ADOQuery7->RecordCount); }(sPageContro