Структура файлового забезпечення прикладної навчальної програми С++ з автоматизацією ХТП синтезу сечовини з двоступінчатою дистиляці

>        void __fastcall N36Click(TObject *Sender);

private: // User declarations 

public:  // User declarations

        __fastcall TForm1(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif 

Файл Unit1.cpp 

//---------------------------------------------------------------------------

#include <vcl.h>

#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 "Unit9.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit12.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::N2Click(TObject *Sender)

{

Image1->Picture->LoadFromFile("images/sxema/sxema.jpg");

Label1->Visible = true;

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image4MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

Label1->Caption="пусковий підігрівник";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

Label1->Caption="";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

Label1->Caption="сховище рідкого аміаку";

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image3MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

Label1->Caption="насос високого тиску";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image5MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

Label1->Caption="газгольдер";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image7MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

Label1->Caption="компресор високого тиску";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image6MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

Label1->Caption="колона синтезу";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image8MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

Label1->Caption="дистиляційна колона першого ступеня";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image11MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="колона фракційної розгонки";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image12MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="конденсатор";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image10MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="сепаратор";

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image9MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

Label1->Caption="збірник рідкого аміаку";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image13MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="дистиляційна колона другого ступеня";

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image14MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="відстійник";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image17MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="холодильник";

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image18MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="насос високого тиску";    

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image15MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="краплевідбійник";

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image16MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="вакуум-випарний апарат";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image22MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="барометричний конденсатор";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image23MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="вакуум-компресор";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image24MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="водовіддільник";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image20MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="фільтрпрес";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image21MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="шнековий кристалізатор";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::Image19MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{

Label1->Caption="центрифуга";       

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form2->RichEdit1->Lines->LoadFromFile("images/sxema/opis.rtf");

Form2->Caption="Опис схеми технологічного процесу синтезу сечовини з двухступінчастою дистиляцією плаву ";

Form2->ShowModal();

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::N7Click(TObject *Sender)

{

Form3->Image1->Picture->LoadFromFile("images/aparat/dist.jpg");

Form3->Caption="Дистиляційна колона";

Form3->ShowModal();

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::N11Click(TObject *Sender)

{

Form3->Image1->Picture->LoadFromFile("images/aparat/kolona.jpg");

Form3->Caption="Колона синтезу";

Form3->ShowModal();

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::N15Click(TObject *Sender)

{

Form3->Image1->Picture->LoadFromFile("images/aparat/vakum.jpg");

Form3->Caption="Вакуум-випарний апарат";

Form3->ShowModal();

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::N8Click(TObject *Sender)

{

Form2->RichEdit1->Lines->LoadFromFile("images/aparat/dist.rtf");

Form2->Caption=" Дистиляційна колона ";

Form2->ShowModal(); 

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::N12Click(TObject *Sender)

{

Form2->RichEdit1->Lines->LoadFromFile("images/aparat/kolona.rtf");

Form2->Caption=" Колона синтезу ";

Form2->ShowModal();

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::N16Click(TObject *Sender)

{

Form2->RichEdit1->Lines->LoadFromFile("images/aparat/vakum.rtf");

Form2->Caption=" Вакуум-випарний апарат ";

Form2->ShowModal();

}

//--------------------------------------------------------------------------- 

void __fastcall TForm1::N9Click(TObject *Sender)

{

Form4->Caption=" Дистиляційна колона ";