Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
;help. chm";(FileExists (FILE_HELP_NAME_STR)) {(Handle, "open", "help. chm", 0, 0, SW_SHOWNORMAL);; }{Application->MessageBoxA ("Справка отсутствует!","Ошибка. ",16);; }
}
// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn7Click (TObject *Sender)
{->ShowModal ();
}
// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn5Click (TObject *Sender)
{->ShowModal ();->sPageControl1->ActivePage=Form7->sTabSheet1;->sPageControl2->ActivePage=Form7->sTabSheet3;
}
// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn6Click (TObject *Sender)
{->Show ();->sPageControl1->ActivePage=Form7->sTabSheet2;
}
// ---------------------------------------------------------------------------__fastcall TForm1:: sButton3Click (TObject *Sender)
{->Close ();->Show ();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;
}
// ---------------------------------------------------------------------------
Нормативно-справочная информация
// ---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1. h"
#include "Unit2. h"
#include "Unit3. h"
#include "Unit4. h"
#include "Unit5. h"
#include "Unit6. h"
#include "Unit7. h"
#include "Unit8. h"
#include "Unit12. h"
// ---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma link "sGroupBox"
#pragma link "sPanel"
#pragma link "sRadioButton"
#pragma link "sStatusBar"
#pragma link "acDBGrid"
#pragma link "sButton"
#pragma link "sDBEdit"
#pragma link "sLabel"
#pragma resource "*. dfm"*Form2;
// ---------------------------------------------------------------------------
__fastcall TForm2:: TForm2 (TComponent* Owner)
: TForm (Owner)
{
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sRadioButton2Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sRadioButton3Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sRadioButton1Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton1Click (TObject *Sender)
{->ADOTable1->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton8Click (TObject *Sender)
{->Close ();->Show ();
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton7Click (TObject *Sender)
{->Close ();->Show ();
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton6Click (TObject *Sender)
{->ADOTable6->First ();->ADOTable7->First ();->ADOTable8->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton5Click (TObject *Sender)
{->ADOTable5->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton4Click (TObject *Sender)
{->ADOTable4->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton3Click (TObject *Sender)
{->ADOTable3->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton2Click (TObject *Sender)
{->ADOTable2->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton16Click (TObject *Sender)
{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sGroupBox2->Visible=false;->sGroupBox1->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton15Click (TObject *Sender)
{(DataModule4->ADOTable1->IsEmpty () ==true) // если записей нет то будет true>MessageBoxA ("Запись удалена!","Удаление. ",64); // уведомление пользователю{->ADOTable1->Delete ();("Запись удалена");
} // удаляем с последующем уведомлением
}
// ---------------------------------------------------------------------------__fastcall TForm2:: Timer1Timer (TObject *Sender)
{(sRadioButton1->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable6->RecordCount); }(sRadioButton2->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable7->RecordCount); }(sRadioButton3->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable8->RecordCount); }
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton14Click (TObject *Sender)
{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet2;->sPageControl2->ActivePage=Form5->sTabSheet3;->sPageControl4->ActivePage=Form5->sTabSheet18;
}
// ---------------------------------------------------------------------------__fastcall TForm2:: N9Click (TObject *Sender)
{FILE_HELP_NAME_STR = "help. chm";(FileExists (FILE_HELP_NAME_STR))
{ShellExecute (Handle, "open", "help. chm", 0, 0, SW_SHOWNORMAL);; }{Application->MessageBoxA ("Справка отсутствует!","Ошибка. ",16);; }
}
// ---------------------------------------------------------------------------__fastcall TForm2:: FormActivate (TObject *Sender)
{ /*->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true;->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true;->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true;->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true; */
}
// ---------------------------------------------------------------------------__fastcall TForm2:: N7Click (TObject *Sender)
{->Show ();
}
// ---------------------------------------------------------------------------__fastcall TForm2:: sButton9Click (TObject *Sender)
{(sGroupBox1->Visible==true) {->ADOTable1->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox2->Visible==true && sRadioButton1->Checked==true) {->ADOTable6->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox2->Visible==true && sRadioButton2->Checked==true) {->ADOTable7->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox2->Visible==true && sRadioButton3->Checked==true) {->ADOTable8->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox5->Visible==true && sDBGrid2->Visible==true) {->ADOTable2->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox5->Visible==true && s