Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
e; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;
// виды работ->ReadOnly=true; sDBEdit52->ReadOnly=true; sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit58->ReadOnly=true;
// прорабы - материалы->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true; sDBEdit43->ReadOnly=true; sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;->ReadOnly=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true; sDBEdit50->ReadOnly=true;->ADOTable15->Cancel (); sMemo2->Clear (); sMemo4->Clear (); sMemo1->Enabled=false; sMemo2->Enabled=false; sMemo3->Enabled=false; sMemo4->Enabled=false;->Enabled=true; sButton119->Enabled=false; sButton120->Enabled=false; sDBEdit14->Enabled=false; sDBEdit20->Enabled=false;->Enabled=false; sDBEdit24->Enabled=false; sDBEdit25->Enabled=false; sDBLookupComboBox24->Enabled=false; sDBLookupComboBox25->Enabled=false;->Enabled=true; sButton52->Enabled=false; sDBGrid9->Enabled=true; DataModule4->ADOTable9->Cancel (); sButton53->Caption="Редактировать";->Enabled=true; sButton17->Enabled=false; sDBGrid1->Enabled=true; DataModule4->ADOTable4->Cancel (); sButton18->Caption="Редактировать";->Enabled=true; sButton31->Enabled=false; sDBGrid2->Enabled=true; DataModule4->ADOTable6->Cancel (); sButton32->Caption="Редактировать";->Enabled=true; sButton34->Enabled=false; sDBGrid3->Enabled=true; DataModule4->ADOTable7->Cancel (); sButton35->Caption="Редактировать";->Enabled=true; sButton37->Enabled=false; sDBGrid1->Enabled=true; DataModule4->ADOTable8->Cancel (); sButton38->Caption="Редактировать";->Enabled=true; sButton40->Enabled=false; sDBGrid5->Enabled=true; DataModule4->ADOTable2->Cancel (); sButton41->Caption="Редактировать";->Enabled=true; sButton43->Enabled=false; sDBGrid6->Enabled=true; DataModule4->ADOTable3->Cancel (); sButton18->Caption="Редактировать";->Enabled=true; sButton46->Enabled=false; sDBGrid7->Enabled=true; DataModule4->ADOTable14->Cancel (); sButton47->Caption="Редактировать";->Enabled=true; sButton49->Enabled=false; sDBGrid8->Enabled=true; DataModule4->ADOTable5->Cancel (); sButton50->Caption="Редактировать";->Enabled=true; sButton124->Enabled=false; sDBGrid26->Enabled=true; DataModule4->ADOTable16->Cancel (); sButton125->Caption="Редактировать"; DataModule4->ADOTable1->Cancel ();->Enabled=true; sButton6->Enabled=false; sButton7->Enabled=false; sRadioButton3->Enabled=false; sRadioButton4->Enabled=false;->Enabled=false; sDBLookupComboBox2->Enabled=false;->Enabled=false;->Enabled=false; sDBLookupComboBox5->Enabled=false;->Enabled=false; sDBLookupComboBox7->Enabled=false;->Enabled=false; sDateEdit1->Enabled=false; sDateEdit2->Enabled=false; Memo1->Clear (); Memo2->Clear ();->Enabled=false; Memo2->Enabled=false;->Enabled=true; sButton93->Enabled=true; sButton94->Enabled=false; sButton95->Enabled=false; DataModule4->ADOTable12->Cancel ();->Enabled=false; sDBLookupComboBox11->Enabled=false; sDBLookupComboBox14->Enabled=false;->Enabled=true; sButton90->Enabled=true; sButton91->Enabled=false; sButton92->Enabled=false; DataModule4->ADOTable11->Cancel ();->Enabled=false; sDBLookupComboBox10->Enabled=false; sDBLookupComboBox12->Enabled=false;->Enabled=true; sButton25->Enabled=true; sButton26->Enabled=false; sButton27->Enabled=false; DataModule4->ADOTable10->Cancel ();->Enabled=false; sDBLookupComboBox13->Enabled=false; sDBLookupComboBox9->Enabled=false;->Caption="Удалить"; sButton55->Enabled=false; sButton54->Enabled=true; sRadioButton1->Enabled=false; sRadioButton2->Enabled=false;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true; sDBEdit31->ReadOnly=true; sDBEdit32->ReadOnly=true; sDBEdit34->ReadOnly=true;->ReadOnly=true; sDBEdit38->ReadOnly=true; sDBEdit39->ReadOnly=true; sDateEdit3->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; DataModule4->ADOQuery12->Cancel (); sDBGrid13->Enabled=true;->Caption="Удалить"; sButton105->Enabled=false; sButton104->Enabled=true; sDBEdit13->ReadOnly=true; DataModule4->ADOQuery13->Cancel (); sDBGrid27->Enabled=true;->Caption="Удалить"; sButton58->Enabled=false; sButton57->Enabled=true; sDBEdit36->ReadOnly=true; DataModule4->ADOQuery1->Cancel (); sDBGrid14->Enabled=true;->Caption="Удалить"; sButton61->Enabled=false; sButton60->Enabled=true; sDBEdit37->ReadOnly=true; DataModule4->ADOQuery2->Cancel (); sDBGrid15->Enabled=true;->Caption="Удалить"; sButton64->Enabled=false; sButton63->Enabled=true; sDBEdit42->ReadOnly=true; DataModule4->ADOQuery3->Cancel (); sDBGrid16->Enabled=true;->Caption="Удалить"; sButton67->Enabled=false; sButton66->Enabled=true; sDBEdit43->ReadOnly=true; sDBEdit50->ReadOnly=true; DataModule4->ADOQuery4->Cancel (); sDBGrid17->Enabled=true;->Caption="Удалить"; sButton70->Enabled=false; sButton69->Enabled=true; sDBEdit44->ReadOnly=true; DataModule4->ADOQuery5->Cancel (); sDBGrid18->Enabled=true;->Caption="Удалить"; sButton73->Enabled=false; sButton72->Enabled=true; sDBEdit45->ReadOnly=true; DataModule4->ADOQuery6->Cancel (); sDBGrid19->Enabled=true;->Caption="Удалить"; sButton76->Enabled=false; sButton75->Enabled=true; sDBEdit46->ReadOnly=true; DataModule4->ADOQuery7->Cancel (); sDBGrid20->Enabled=true;->Caption="Удалить"; sButton79->Enabled=false; sButton78->Enabled=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true; DataModule4->ADOQuery8->Cancel (); sDBGrid21->Enabled=true;->Caption="Удалить"; sButton82->Enabled=false; sButton81->Enabled=true; sDBEdit51->ReadOnly=true; sDBEdit52->ReadOnly=true; DataModule4->ADOQuery9->Cancel (); sDBGrid22->Enabled=true;->Caption="Удалить"; sButton85->Enabled=false; sButton84->Enabled=true; sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true; DataModule4->ADOQuery10->Cancel (); sDBGrid23->Enabled=true;->Caption="Удалить"; sButton88->Enabled=false; sButton87->Enabled=true; sDBEdit57->ReadOnly=true; sDBEdit58->ReadOnly=true; DataModule4->ADOQuery11->Cancel (); sDBGrid24->Enabled=true;->Caption="Удалить"; sButton115->Enabled=false; sButton114->Enabled=true; sDBEdit18->ReadOnly=true; sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;->ReadOnly=true; sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true; sDBEdit64->ReadOnly=true; sDBEdit65->ReadOnly=true; sDBEdit66->ReadOnly=true;->ADOQuery14->Cancel ();->Enabled=true; }
// ---------------------------------------------------------------------------__fastcall TForm5:: Memo1Click (TObject *Sender)
{ int select_m=0*1;i=0*1,t=0*1, ii=0*1;=0; select_m=Memo1->CaretPos. y;(Memo1->Lines->Strings [select_m]! ="") {->Lines->Add (Memo1->Lines->Strings [select_m]);->Lines->Delete (select_m); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: Memo2Click (TObject *Sender)
{ int select_m=0*1;_m=Memo2->CaretPos. y;(Memo2->Lines->Strings [select_m]! ="") {->Lines->Add (Memo2->Lines->Strings [select_m]);->Lines->Delete (select_m); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sDBLookupComboBox7Click (TObject *Sender)
{->Clear ();(sDBLookupComboBox7->Text=="Новое строительство") {i=0*1;->ADOTable10->First ();->Clear ();(i=0; iNext ();
} }if (sDBLookupComboBox7->Text=="Ремонт") {i=0*1;->ADOTable11->First ();->Clear ();(i=0; iNext ();
}} else {i=0*1;->ADOTable12->First ();->Clear ();(i=0; iNext ();
}}
}
// ---------------------------------------------------------------------------__fastcall TForm5