Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ive=true;->ADOQuery8->Active=false; DataModule4->ADOQuery8->Active=true;->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true;->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true;->ADOQuery14->Active=false; DataModule4->ADOQuery14->Active=true;
// BD reset->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true;->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true;->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true;->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true;->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true;->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true;->ADOTable13->Active=false; DataModule4->ADOTable13->Active=true;->ADOTable14->Active=false; DataModule4->ADOTable14->Active=true;->ADOTable15->Active=false; DataModule4->ADOTable15->Active=true;
// блокировка полей редактирования
// объекты->ReadOnly=true;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true;->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;
// виды работ->ReadOnly=true; sDBEdit52->ReadOnly=true;->ReadOnly=true; sDBEdit55->ReadOnly=true;->ReadOnly=true; sDBEdit58->ReadOnly=true;
// прорабы - материалы->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true;->ReadOnly=true; sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;->ReadOnly=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true;->ReadOnly=true;
// расценки
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sPageControl2Change (TObject *Sender)
{->ActivePage=sTabSheet15;->ActivePage=sTabSheet18;
// SQL reset->ADOQuery1->Active=false; DataModule4->ADOQuery1->Active=true;->ADOQuery2->Active=false; DataModule4->ADOQuery2->Active=true;->ADOQuery3->Active=false; DataModule4->ADOQuery3->Active=true;->ADOQuery4->Active=false; DataModule4->ADOQuery4->Active=true;->ADOQuery5->Active=false; DataModule4->ADOQuery5->Active=true;->ADOQuery6->Active=false; DataModule4->ADOQuery6->Active=true;->ADOQuery7->Active=false; DataModule4->ADOQuery7->Active=true;->ADOQuery8->Active=false; DataModule4->ADOQuery8->Active=true;->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true;->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true;->ADOQuery14->Active=false; DataModule4->ADOQuery14->Active=true;
// BD reset->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true;->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true;->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true;->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true;->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true;->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true;->ADOTable13->Active=false; DataModule4->ADOTable13->Active=true;->ADOTable14->Active=false; DataModule4->ADOTable14->Active=true;->ADOTable15->Active=false; DataModule4->ADOTable15->Active=true;
// блокировка полей редактирования
// объекты->ReadOnly=true;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true;->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;
// виды работ->ReadOnly=true; sDBEdit52->ReadOnly=true;->ReadOnly=true; sDBEdit55->ReadOnly=true;->ReadOnly=true; sDBEdit58->ReadOnly=true;
// прорабы - материалы->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true;->ReadOnly=true; sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;->ReadOnly=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true;->ReadOnly=true;
// расценки
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton18Click (TObject *Sender)
{
// Области/Города(sButton18->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable4->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet6; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: FormKeyDown (TObject *Sender, WORD &Key,Shift)
{(Key==VK_ESCAPE) {sButton4Click (sButton4); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton30Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable6->Append ();->Enabled=false;->SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton31Click (TObject *Sender)
{(sDBEdit2->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable6->Post ();->Enabled=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton32Click (TObject *Sender)
{(sButton32->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable6->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet8; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton33Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable7->Append ();->Enabled=false;->SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton34Click (TObject *Sender)
{(sDBEdit3->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable7->Post ();->Enabled=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton35Click (TObject *Sender)
{(sButton35->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable7->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet9; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton36Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable8->Append ();->Enabled=false;-&g