Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
--------------------------------------__fastcall TForm5:: sButton95Click (TObject *Sender)
{
// реконструкция(sGroupBox11->Visible==true) {->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit9Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit10Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit11Change (TObject *Sender)
{(int i=0; iActive=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton55Click (TObject *Sender)
{(sDBEdit28->Text=="" || sDBEdit29->Text=="" || sDBEdit30->Text=="" || sDBEdit31->Text=="" || sDBEdit32->Text==""|| sDBEdit34->Text=="" || sDBEdit35->Text=="" || sDBEdit38->Text=="" || sDBEdit39->Text=="" || sDateEdit3->Text=="" || sDateEdit4->Text=="" || sDateEdit5->Text=="" || sDateEdit6->Text=="") {Application->MessageBoxA ("Какие-то из полей пусты, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->Enabled=false;->Enabled=false;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true;->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;->ADOQuery12->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton54Click (TObject *Sender)
{(DataModule4->ADOQuery12->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->Enabled=true;->Enabled=true;(sRadioButton1->Checked) {->SetFocus ();->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; }{->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 (); }->ADOQuery12->Edit ();->Enabled=false;>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton56Click (TObject *Sender)
{(DataModule4->ADOQuery12->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery12->IsEmpty () ==false && sButton56->Caption=="Удалить") {->ADOQuery12->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->Enabled=false;->Enabled=false;->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;->ADOQuery12->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поля были заблокированы!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton57Click (TObject *Sender)
{(DataModule4->ADOQuery1->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery1->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton58Click (TObject *Sender)
{(sDBEdit36->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery1->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton59Click (TObject *Sender)
{(DataModule4->ADOQuery1->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery1->IsEmpty () ==false && sButton59->Caption=="Удалить") {->ADOQuery1->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery1->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton60Click (TObject *Sender)
{(DataModule4->ADOQuery2->Is