Geum.ru

Автоматизированное рабочее место производственно-технического отдела

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

Empty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery2->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton61Click (TObject *Sender)

{(sDBEdit37->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery2->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton62Click (TObject *Sender)

{(DataModule4->ADOQuery2->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery2->IsEmpty () ==false && sButton62->Caption=="Удалить") {->ADOQuery2->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery2->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton63Click (TObject *Sender)

{(DataModule4->ADOQuery3->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery3->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton64Click (TObject *Sender)

{(sDBEdit42->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery3->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton65Click (TObject *Sender)

{(DataModule4->ADOQuery3->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery3->IsEmpty () ==false && sButton65->Caption=="Удалить") {->ADOQuery3->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery3->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton66Click (TObject *Sender)

{(DataModule4->ADOQuery4->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery4->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton67Click (TObject *Sender) {(sDBEdit43->Text=="" || sDBEdit50->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery4->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton68Click (TObject *Sender)

{(DataModule4->ADOQuery4->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery4->IsEmpty () ==false && sButton68->Caption=="Удалить") {->ADOQuery4->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery4->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton69Click (TObject *Sender)

{(DataModule4->ADOQuery5->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery5->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton70Click (TObject *Sender)

{(sDBEdit44->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery5->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton71Click (TObject *Sender)

{(DataModule4->ADOQuery5->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery5->IsEmpty () ==false && sButton71->Caption=="Удалить") {->ADOQuery5->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery5->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton72Click (TObject *Sender) {(DataModule4->ADOQuery6->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery6->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton73Click (TObject *Sender)

{(sDBEdit45->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery6->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton74Click (TObject *Sender)

{(DataModule4->ADO