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

---------- ------------------------------

void __fastcall TForm4 :: N13Click (TObject * Sender)

{

GroupBox1-> Visible = false;

}

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

Лістинг форми В«Про програмуВ»

# include

# pragma hdrstop

# include "Unit3.h"

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

# pragma resource "*. dfm"

TForm7 * Form7;

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

__fastcall TForm7 :: TForm7 (TComponent * AOwner)

: TForm (AOwner)

{

}

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

void __fastcall TForm7 :: OKButtonClick (TObject * Sender)

{

Form7-> Close ();

}

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

Лістинг форми В«Текстовий редакторВ»

# include

# pragma hdrstop

# include "Uni.h"

# include "Unit3.h"

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

# pragma resource "*. dfm"

TForm3 * Form3;

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

__fastcall TForm3 :: TForm3 (TComponent * AOwner)

: TForm (AOwner)

{

}

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

void __fastcall TForm3 :: SpeedButton1Click (TObject * Sender)

{

if (OpenDialog1-> Execute ())

{Memo1-> Lines-> LoadFromFile (OpenDialog1-> FileName);

StatusBar1-> Panels-> Items [0] -> Text = OpenDialog1-> FileName;

}

}

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

void __fastcall TForm3 :: SpeedButton3Click (TObject * Sender)

{

if (Memo1-> Lines-> Count> 0)

{

if (MessageBox (0, "Ñîõðàíèòü ñîäåðæèìîå îêíà ðåäàêòèðîâàíèÿ? "," Ïîäòâåðäèòå

{

SpeedButton4Click (Sender);

}

}

Memo1-> Clear ();

StatusBar1-> Panels-> Items [0] -> Text = "Áåç èìåíè ";

}

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

void __fastcall TForm3 :: SpeedButton5Click (TObject * Sender)

{

if (StatusBar1-> Panels-> Items [0] -> Text == "Áåç èìåíè")

SpeedButton4Click (Sender);

else

{Memo1-> Lines-> SaveToFile (StatusBar1-> Panels-> Items [0] -> Text); } p>}

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

void __fastcall TForm3 :: SpeedButton2Click (TObject * Sender)

{

SpeedButton3Click (Sender);

Close ();

}

...