Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery11->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton88Click (TObject *Sender)
{(sDBEdit57->Text=="" || sDBEdit58->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery11->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton89Click (TObject *Sender)
{(DataModule4->ADOQuery11->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery11->IsEmpty () ==false && sButton89->Caption=="Удалить") {->ADOQuery11->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery11->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sPageControl3Change (TObject *Sender)
{
// SQL reset->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true;
// BD reset->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true;->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true;
// блокировка полей редактирования
// виды работ->ReadOnly=true; sDBEdit52->ReadOnly=true;->ReadOnly=true; sDBEdit55->ReadOnly=true;->ReadOnly=true; sDBEdit58->ReadOnly=true;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton96Click (TObject *Sender)
{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->ActivePage=sTabSheet2;->ActivePage=sTabSheet12;->ActivePage=sTabSheet15;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton97Click (TObject *Sender)
{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->ActivePage=sTabSheet2;->ActivePage=sTabSheet12;->ActivePage=sTabSheet16;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton98Click (TObject *Sender)
{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->ActivePage=sTabSheet2;->ActivePage=sTabSheet12;->ActivePage=sTabSheet17;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton99Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton100Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton101Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton102Click (TObject *Sender)
{->Close ();->Show ();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox4->Visible=false;->sGroupBox5->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton103Click (TObject *Sender)
{->ActivePage=sTabSheet1;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit14Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton104Click (TObject *Sender)
{(DataModule4->ADOQuery13->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery13->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton105Click (TObject *Sender)
{(sDBEdit13->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery13->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sPageControl4Change (TObject *Sender)
{->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false; DataModule4->ADOQuery13->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; 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;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton106Click (TObject *Sender)
{(DataModule4->ADOQuery13->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery13->IsEmpty () ==false && sButton106->Caption=="Удалить") {->ADOQuery13->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery13->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }
}