Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
tcall TForm5:: sButton15Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton19Click (TObject *Sender)
{->Close ();->Show ();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox4->Visible=false;->sGroupBox5->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton16Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable4->Append ();->Enabled=false;->SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton17Click (TObject *Sender)
{
// Области(sDBEdit1->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable4->Post ();->Enabled=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton5Click (TObject *Sender)
{->ADOTable1->Append (); // добавляет пустую запись в конец таблицы->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton6Click (TObject *Sender)
{ int i=0*1;(sDBLookupComboBox1->Text=="" || sDBLookupComboBox2->Text=="" || sDBLookupComboBox3->Text=="" || sDBLookupComboBox4->Text=="" || sDBLookupComboBox5->Text=="" || sDBLookupComboBox6->Text=="" || sDBLookupComboBox7->Text=="" || sDBLookupComboBox8->Text=="" || sDateEdit1->Text=="" || sDateEdit2->Text=="" || Memo2->Text=="") {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16);
}{->ADOTable1new_stroj->Value=sDateEdit1->Date;->ADOTable1close_stoj->Value=sDateEdit2->Date;(i=0; iStrings [i];
}(sRadioButton3->Checked) {DataModule4->ADOTable1tip_stoj->Text="Действующее строительство"; }{DataModule4->ADOTable1tip_stoj->Text="Строительство прекращено"; }->ADOTable1->Post ();->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Clear ();->Clear ();->Clear ();->Clear ();->Enabled=false;->Enabled=false;>MessageBoxA ("Запись сохранена!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton7Click (TObject *Sender)
{->ADOTable1->Cancel ();->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Clear ();->Clear ();->Clear ();->Clear ();->Enabled=false;->Enabled=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton20Click (TObject *Sender)
{->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton21Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton22Click (TObject *Sender)
{->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton23Click (TObject *Sender)
{->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton24Click (TObject *Sender)
{->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton25Click (TObject *Sender)
{
// новое строительство(sGroupBox9->Visible==true) {->ADOTable10->Append ();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton26Click (TObject *Sender)
{
// новое строительство( (sGroupBox9->Visible==true) && (sDBEdit12->Text=="" || sDBLookupComboBox13->Text=="" || sDBLookupComboBox9->Text=="")) {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16); }{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10name_newstroj->Text="Новое строительство";->ADOQuery9->Active=false;->ADOQuery9->Active=true;->ADOTable10->Post ();->Enabled=false;->Enabled=false;->Enabled=false; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton27Click (TObject *Sender)
{
// новое строительство(sGroupBox9->Visible==true) {->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sPageControl1Change (TObject *Sender)
{(sPageControl1->ActivePage==sTabSheet1) {sButton1->SetFocus (); }->ActivePage=sTabSheet3;->ActivePage=sTabSheet18;->Visible=false;->Visible=true;->Visible=false;->Visible=false;
// 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->Act