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

Form3;

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

__fastcall TForm4 :: TForm4 (TComponent * Owner)

: TForm (Owner)

{

}

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

void __fastcall TForm4 :: Button1Click (TObject * Sender)

{

GroupBox1-> Visible = true;

Edit2-> Visible = false;

GroupBox1-> Caption = "Èñõîäíûå äàííûå ";

}

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

void __fastcall TForm4 :: N11Click (TObject * Sender)

{

Form4-> Close ();

}

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

void __fastcall TForm4 :: Table1BeforePost (TDataSet * DataSet)

{

if (MessageBox (0, "Âû äåéñòâèòåëüíî õîòèòå ñîõðàíèòü î íåæåëàòåëüíîé ìîäèôèêàöèè ÁÄ ", MB_YESNO) == IDNO)

Table1-> Cancel ();

else

{Table1-> Post ();

Table1-> Append ();}

}

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

void __fastcall TForm4 :: Table1CalcFields (TDataSet * DataSet)

{

Table1Voz-> Value = 2009-Table1God-> Value;

}

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

void __fastcall TForm4 :: N7Click (TObject * Sender)

{Form1 = new TForm1 (Application);

Form1-> Show ();

}

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

void __fastcall TForm4 :: O1Click (TObject * Sender)

{

Panel1-> Visible = 1;

ProgressBar1-> Visible = true;

}

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

void __fastcall TForm4 :: Edit1Change (TObject * Sender)

{int i;

Timer1-> Enabled = true;

ProgressBar1-> Visible = true;

TLocateOptions Options;

Success = Table1-> Locate (ComboBox1-> Text, Edit1-> Text, Options);

}

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

void __fastcall TForm4 :: Timer1Timer (TObject * Sender)

{

if (Edit1-> Text! = "" &&! Success)

Application-> MessageBox ("íå íàéäåíî íè îäíîé çàïèñè ", MB_OK);

}

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

void __fastcall TForm4 :: N6Click (TObject * Sender)

{

Form3 = new TForm3 (Application);

Form3-> Show ();

}

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

void __fastcall TForm4 :: Timer2Timer (TObject * Sender)

{if (Edit1-> Text! = ...