66
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::SpeedButton4Click(TObject *Sender)
{
Form3->Hide();
Form10->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit4.h»
#include «Unit1.h»
#include «Unit10.h»
#include «Unit8.h»
#include «Unit6.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton2Click(TObject *Sender)
{
Form4->Hide();
Form6->Show();
67
if (Form1->DataSource7->DataSet->Active==false) Form1->DataSource7->DataSet-
>Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton3Click(TObject *Sender)
{
Form4->Hide();
Form8->Show();
if (Form1->DataSource8->DataSet->Active==false) Form1->DataSource8->DataSet-
>Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton4Click(TObject *Sender)
{
Form4->Hide();
Form10->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit5.h»
#include «Unit1.h»
#include «Unit10.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
68
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit6.h»
#include «Unit1.h»
#include «Unit10.h»
#include «Unit5.h»
#include «Unit7.h»
#include «Unit11.h»
#include «Unit4.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn1Click(TObject *Sender)
{
Form5->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn2Click(TObject *Sender)
{
Form11->Show();
}
69
//---------------------------------------------------------------------------
void __fastcall TForm6::SpeedButton4Click(TObject *Sender)
{
Form6->Hide();
Form4->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit7.h»
#include «Unit1.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit8.h»
#include «Unit1.h»
70
#include «Unit2.h»
#include «Unit10.h»
#include «Unit11.h»
#include «Unit7.h»
#include «Unit4.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn1Click(TObject *Sender)
{
Form7->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn4Click(TObject *Sender)
{
Form11->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn3Click(TObject *Sender)
{
if (OpenDialog1->Execute())
OleContainer1->CreateObjectFromFile(OpenDialog1->FileName, false);
}
//---------------------------------------------------------------------------
void __fastcall TForm8::SpeedButton4Click(TObject *Sender)
{
Form8->Hide();
71
Form4->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit9.h»
#include «Unit1.h»
#include «Unit10.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm9 *Form9;
//---------------------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm9::SpeedButton1Click(TObject *Sender)
{
Form9->Hide();
Form10->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit10.h»
72
#include «Unit1.h»
#include «Unit3.h»
#include «Unit4.h»
#include «Unit9.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm10 *Form10;
//---------------------------------------------------------------------------
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm10::N1Click(TObject *Sender)
{
Form10->Hide();
Form3->Show();
Form3->TabSheet1->Show();
if (Form1->DataSource1->DataSet->Active==false) Form1->DataSource1->DataSet-
>Active=true;
if (Form1->DataSource2->DataSet->Active==false) Form1->DataSource2->DataSet-
>Active=true;
if (Form1->DataSource3->DataSet->Active==false) Form1->DataSource3->DataSet-
>Active=true;
if (Form1->DataSource4->DataSet->Active==false) Form1->DataSource4->DataSet-
>Active=true;
if (Form1->DataSource5->DataSet->Active==false) Form1->DataSource5->DataSet-
>Active=true;
if (Form1->DataSource6->DataSet->Active==false) Form1->DataSource6->DataSet-
>Active=true;
}
//---------------------------------------------------------------------------
73
void __fastcall TForm10::N2Click(TObject *Sender)
{
Form10->Hide();
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm10::N3Click(TObject *Sender)
{
Form10->Hide();
Form9->Show();
Form9->TabSheet1->Show();
if (Form1->DataSource9->DataSet->Active==false) Form1->DataSource9->DataSet-
>Active=true;
if (Form1->DataSource10->DataSet->Active==false) Form1->DataSource10->DataSet-
>Active=true;
if (Form1->DataSource11->DataSet->Active==false) Form1->DataSource11->DataSet-
>Active=true;
if (Form1->DataSource12->DataSet->Active==false) Form1->DataSource12->DataSet-
>Active=true;
if (Form1->DataSource13->DataSet->Active==false) Form1->DataSource13->DataSet-
>Active=true;
if (Form1->DataSource14->DataSet->Active==false) Form1->DataSource14->DataSet-
>Active=true;
if (Form1->DataSource15->DataSet->Active==false) Form1->DataSource15->DataSet-
>Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm10::N4Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
74
#pragma hdrstop
#include «Unit11.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm11 *Form11;
//---------------------------------------------------------------------------
__fastcall TForm11::TForm11(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------