Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
l2->ActivePage==sTabSheet11) {sLabelFX8->Caption=IntToStr (DataModule4->ADOQuery8->RecordCount); }(sPageControl2->ActivePage==sTabSheet13) {sLabelFX14->Caption=IntToStr (DataModule4->ADOQuery14->RecordCount); }
// виды строительных работ(sPageControl3->ActivePage==sTabSheet15) {sLabelFX9->Caption=IntToStr (DataModule4->ADOQuery9->RecordCount); }(sPageControl3->ActivePage==sTabSheet16) {sLabelFX10->Caption=IntToStr (DataModule4->ADOQuery10->RecordCount); }(sPageControl3->ActivePage==sTabSheet17) {sLabelFX11->Caption=IntToStr (DataModule4->ADOQuery11->RecordCount); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit3Change (TObject *Sender)
{->MaxDate=sDateEdit4->Date;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit4Change (TObject *Sender)
{->MinDate=sDateEdit3->Date;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit2Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit3Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit4Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit5Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit6Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit7Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit8Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit12Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit13Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton90Click (TObject *Sender)
{
// ремонт(sGroupBox10->Visible==true) {->ADOTable11->Append ();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton91Click (TObject *Sender)
{
// ремонт( (sGroupBox10->Visible==true) && (sDBLookupComboBox10->Text=="" || sDBLookupComboBox12->Text=="")) {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16); }{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11name_restavr->Text="Ремонт";->ADOQuery10->Active=false;->ADOQuery10->Active=true;->ADOTable11->Post ();->Enabled=false;->Enabled=false;->Enabled=false; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton92Click (TObject *Sender)
{
// ремонт(sGroupBox10->Visible==true) {->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton93Click (TObject *Sender)
{
// реконструкция(sGroupBox11->Visible==true) {->ADOTable12->Append ();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton94Click (TObject *Sender)
{
// реконструкция( (sGroupBox11->Visible==true) && (sDBEdit22->Text=="" || sDBLookupComboBox11->Text=="" || sDBLookupComboBox14->Text=="")) {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16); }{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12name_rekonctrik->Text="Реконструкция";->ADOQuery11->Active=false;->ADOQuery11->Active=true;->ADOTable12->Post ();->Enabled=false;->Enabled=false;->Enabled=false; }
}
// -------------------------------------