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

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

#endif

#include <vcl.h>

#pragma hdrstop

#include "Kur.h"

#include "Unit4.h"

bool OK;

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

#pragma package(smart_init)

#pragma link "CGRID"

#pragma link "PERFGRAP"

#pragma link "Word_2K_SRVR"

#pragma resource "*.dfm"

TForm1 *Form1;

TForm4 *Form4;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

fbMouseDown=0;

}

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

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form1->Close();

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{