Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Query6->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery6->IsEmpty () ==false && sButton74->Caption=="Удалить") {->ADOQuery6->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery6->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton75Click (TObject *Sender)
{(DataModule4->ADOQuery7->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery7->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton76Click (TObject *Sender)
{(sDBEdit46->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery7->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton77Click (TObject *Sender)
{(DataModule4->ADOQuery7->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery7->IsEmpty () ==false && sButton77->Caption=="Удалить") {->ADOQuery7->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery7->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton78Click (TObject *Sender)
{(DataModule4->ADOQuery8->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery8->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton79Click (TObject *Sender)
{(sDBEdit47->Text=="" || sDBEdit48->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery8->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton80Click (TObject *Sender)
{(DataModule4->ADOQuery8->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery8->IsEmpty () ==false && sButton80->Caption=="Удалить") {->ADOQuery8->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery8->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton81Click (TObject *Sender)
{(DataModule4->ADOQuery9->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery9->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton82Click (TObject *Sender)
{(sDBEdit51->Text=="" || sDBEdit52->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery9->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton83Click (TObject *Sender)
{(DataModule4->ADOQuery9->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery9->IsEmpty () ==false && sButton83->Caption=="Удалить") {->ADOQuery9->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery9->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton84Click (TObject *Sender)
{(DataModule4->ADOQuery10->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery10->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton85Click (TObject *Sender)
{(sDBEdit54->Text=="" || sDBEdit55->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery10->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton86Click (TObject *Sender)
{(DataModule4->ADOQuery10->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery10->IsEmpty () ==false && sButton86->Caption=="Удалить") {->ADOQuery10->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery10->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton87Click (TObject *Sender)
{(DataModule4->ADOQuery11->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пу