Реферат Автоматизація розрахунку навантаження і викладачів ВУЗу

CColorGrid1-> ForegroundColor;

}

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

void __fastcall TForm1 :: N4Click (TObject * Sender)

{

Form1-> Color = ColorBox1-> Selected;

}

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

void __fastcall TForm1 :: N10Click (TObject * Sender)

{

Image1-> Canvas-> Pen-> Style = psSolid;

}

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

void __fastcall TForm1 :: N1Click (TObject * Sender)

{

Image1-> Canvas-> Pen-> Style = psDot;

}

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

void __fastcall TForm1 :: FormCreate (TObject * Sender)

{

Edit1-> Visible = false;

Button3-> Visible = false;

}

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

void __fastcall TForm1 :: Button3Click (TObject * Sender)

{

if (Edit1-> Text! = "Пе-81")

Application-> MessageBox ("Пароль введений невірно", "Повідомлення про помилку", MB_OK);

else

{Application-> MessageBox ("Введіть графічний код "," Ласкаво просимо! ", MB_OK);}

}

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

void __fastcall TForm1 :: N6Click (TObject * Sender)

{

Image1-> Canvas-> Pen-> Style = psDash;

}

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

void __fastcall TForm1 :: N3Click (TObject * Sender)

{

Image1-> Canvas-> Pen-> Style = psDot;

}

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

void __fastcall TForm1 :: Button4Click (TObject * Sender)

{

if (Image1-> Canvas-> Pen-> Style == psDash)

{Form4 = new TForm4 (Application);

Form4-> Show ();}

else

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

}

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

void __fastcall TForm1 :: Image1Click (TObject * Sender)

{}

Лістинг форми В«Форма управління додаткомВ»

# include

# 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 *...