Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton28Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton107Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton108Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton109Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton110Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton111Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton112Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton113Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton117Click (TObject *Sender)
{->ActivePage=sTabSheet1;->Visible=false;->Visible=true;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit15Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sRadioButton2Click (TObject *Sender)
{(sRadioButton2->Checked) {->Visible=false;->Visible=true;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=true; sDBLookupComboBox16->Enabled=true; sDBLookupComboBox17->Enabled=true;->Enabled=true; sDBLookupComboBox19->Enabled=true; sDBLookupComboBox20->Enabled=true;->Enabled=true; sDBLookupComboBox22->Enabled=true; sDBLookupComboBox23->Enabled=true;->Enabled=true; sDateEdit6->Enabled=true;->SetFocus ();>MessageBoxA ("Вы изменили режим редактирования БД!","Внимание. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sRadioButton1Click (TObject *Sender)
{(sRadioButton1->Checked) {->Visible=false;->Visible=true;->ReadOnly=false; sDBEdit29->ReadOnly=false; sDBEdit30->ReadOnly=false;->ReadOnly=false; sDBEdit32->ReadOnly=false;->ReadOnly=false; sDBEdit35->ReadOnly=false; sDBEdit38->ReadOnly=false;->ReadOnly=false; sDateEdit3->ReadOnly=false; sDateEdit4->ReadOnly=false;->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;->SetFocus ();>MessageBoxA ("Вы изменили режим редактирования БД!","Внимание. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit5Change (TObject *Sender)
{->MaxDate=sDateEdit6->Date;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit6Change (TObject *Sender)
{->MinDate=sDateEdit5->Date;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: FormClose (TObject *Sender, TCloseAction &Action)
{
// SQL reset->ADOQuery1->Active=false; DataModule4->ADOQuery1->Active=true; DataModule4->ADOQuery2->Active=false; DataModule4->ADOQuery2->Active=true;->ADOQuery3->Active=false; DataModule4->ADOQuery3->Active=true; DataModule4->ADOQuery4->Active=false; DataModule4->ADOQuery4->Active=true;->ADOQuery5->Active=false; DataModule4->ADOQuery5->Active=true; DataModule4->ADOQuery6->Active=false; DataModule4->ADOQuery6->Active=true;->ADOQuery7->Active=false; DataModule4->ADOQuery7->Active=true; DataModule4->ADOQuery8->Active=false; DataModule4->ADOQuery8->Active=true;->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true; DataModule4->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true; DataModule4->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true; DataModule4->ADOQuery14->Active=false; DataModule4->ADOQuery14->Active=true;
// BD reset->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true; DataModule4->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true; DataModule4->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true; DataModule4->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true; DataModule4->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true;->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true; DataModule4->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true; DataModule4->ADOTable13->Active=false; DataModule4->ADOTable13->Active=true;->ADOTable14->Active=false; DataModule4->ADOTable14->Active=true; DataModule4->ADOTable15->Active=false; DataModule4->ADOTable15->Active=true;
// объекты->ReadOnly=true; sDBEdit28->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true; sDBEdit34->ReadOnly=true; sDBEdit35->ReadOnly=true;->ReadOnly=true; sDBEdit39->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=fals