Курсовая работа: Автоматизация расчёта нагрузки и преподавателей ВУЗа

{Form4=new TForm4(Application);

Form4->Show();}

else

Application->MessageBox("","Попробуйтеещёраз",MB_OK);

}

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

void __fastcall TForm1::Image1Click(TObject *Sender)

{}

Листинг формы «Форма управления приложением»

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit2.h"

#include "Kur.h"

#include "Unit3.h"

#include "uni.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit5.h"

bool Success;

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

#pragma package(smart_init)

#pragma link "CGRID"

#pragma resource "*.dfm"

TForm4 *Form4;

TForm1 *Form1;

TForm3 *Form3;

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

__fastcall TForm4::TForm4(TComponent* Owner)