Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
:: sButton123Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable16->Append ();->Enabled=false;->SetFocus ();
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton124Click (TObject *Sender)
{(sDBEdit8->Text=="" || sDBEdit33->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable16->Post ();->Enabled=true;->ReadOnly=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton125Click (TObject *Sender) {(sButton125->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable16->Cancel ();->Caption="Редактировать"; }{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable16->Edit ();->Enabled=false;->SetFocus ();
}
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton122Click (TObject *Sender)
{->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=true;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton114Click (TObject *Sender)
{(DataModule4->ADOQuery14->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=false;->Enabled=true;->Caption="Отмена";->SetFocus ();->ReadOnly=false; sDBEdit26->ReadOnly=false; sDBEdit49->ReadOnly=false;->ReadOnly=false; sDBEdit61->ReadOnly=false; sDBEdit63->ReadOnly=false;->ReadOnly=false; sDBEdit65->ReadOnly=false; sDBEdit66->ReadOnly=false; }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton115Click (TObject *Sender)
{(sDBEdit18->Text=="" || sDBEdit26->Text=="" || sDBEdit49->Text=="" || sDBEdit60->Text=="" || sDBEdit61->Text=="" || sDBEdit63->Text==""|| sDBEdit64->Text=="" || sDBEdit65->Text=="" || sDBEdit66->Text=="") {>MessageBoxA ("Какие-то из полей пусты, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true; sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;->ReadOnly=true; sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true;->ReadOnly=true; sDBEdit65->ReadOnly=true; sDBEdit66->ReadOnly=true;->ADOQuery14->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton116Click (TObject *Sender)
{(DataModule4->ADOQuery14->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery14->IsEmpty () ==false && sButton116->Caption=="Удалить") {->ADOQuery14->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true; sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;->ReadOnly=true; sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true;->ReadOnly=true; sDBEdit65->ReadOnly=true; sDBEdit66->ReadOnly=true;->ADOQuery14->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поля были заблокированы!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton118Click (TObject *Sender)
{i=0*1;i2=0*1;->ADOTable16->First ();->Clear ();(i=0; iEnabled=true;
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton120Click (TObject *Sender)
{a,a2;t1,t2,t3,t4;(sDBLookupComboBox24->Text=="" || sDBLookupComboBox25->Text=="" || sDBEdit20->Text=="" || sDBEdit21->Text=="" || sDBEdit24->Text=="" || sDBEdit25->Text=="") {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16);
}{(int i=0; iMessageBoxA ("Запись сохранена!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton119Click (TObject *Sender) {->ADOTable15->Cancel ();->Clear ();->Clear ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false; }
// ---------------------------------------------------------------------------__fastcall TForm5:: sMemo1Click (TObject *Sender) {select_m=0*1;i=0*1,t=0*1, ii=0*1;=0; select_m=sMemo1->CaretPos. y;(sMemo1->Lines->Strings [select_m]! ="") {->Lines->Add (sMemo1->Lines->Strings [select_m]);->Lines->Delete (select_m); }}
// ---------------------------------------------------------------------------__fastcall TForm5:: sMemo3Click (TObject *Sender) {select_m=0*1;i=0*1,t=0*1, ii=0*1;=0; select_m=sMemo3->CaretPos. y;(sMemo3->Lines->Strings [select_m]! ="") {->Lines->Add (sMemo3->Lines->Strings [select_m]);->Lines->Delete (select_m); }}
// ---------------------------------------------------------------------------__fastcall TForm5:: sMemo2Click (TObject *Sender) {select_m=0*1;_m=sMemo2->CaretPos. y;(sMemo2->Lines->Strings [select_m]! ="") {->Lines->Add (sMemo2->Lines->Strings [select_m]);->Lines->Delete (select_m); }}
// ---------------------------------------------------------------------------__fastcall TForm5:: sMemo4Click (TObject *Sender) {select_m=0*1;_m=sMemo4->CaretPos. y;(sMemo4->Lines->Strings [select_m]! ="") {->Lines->Add (sMemo4->Lines->Strings [select_m]);->Lines->Delete (select_m); }}
// ---------------------------------------------------------------------------__fastcall TForm5:: sButton121Click (TObject *Sender) {->Close ();->Show (); }
// ---------------------------------------------------------------------------
Расчёты
// ---------------------------------------------------------------------------
#include <vcl