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

= 1;

Grid-> Cells [0] [1] = "8.20";

Grid-> Cells [0] [2] = "10.00";

Grid-> Cells [0] [3] = "11.45";

Grid-> Cells [0] [4] = "13.20";

Grid-> Cells [0] [5] = "15.00";

Grid-> Cells [0] [6] = "16.45";

Grid-> Cells [0] [7] = "18.00";

Grid-> Cells [0] [8] = "19.45";

Grid-> Cells [1] [0] = "понеділок";

Grid-> Cells [2] [0] = "вівторок";

Grid-> Cells [3] [0] = "Среда";

Grid-> Cells [4] [0] = "Четвер";

Grid-> Cells [5] [0] = "П'ятниця";

Grid-> Show ();

GridForm-> Handle;

String StrFiltr;

Table1-> Filtered = false;

Table1-> Refresh ();

StrFiltr = ListBox1-> Items-> Strings [ListBox1-> ItemIndex] + "*";

Table1-> Filter = "FIO1 = '" + StrFiltr + "'";

Table1-> Filtered = true;

int i;

while (! Table1-> Eof)

{for (I = 1; i FieldCount; i + +)

{if (Table1Time-> Value == Grid-> Cells [0] [i])

Grid-> Cells [1] [i] = Table1Group-> Value + Table1N1-> Value;}

Table1-> Next ();

}

Table1-> Filtered = false;

Table1-> Bof;

Table1-> Filter = "FIO2 = '" + StrFiltr + "'";

Table1-> Filtered = true;

while (! Table1-> Eof)

{for (I = 1; i FieldCount; i + +)

{if (Table1Time-> Value == Grid-> Cells [0] [i])

Grid-> Cells [2] [i] = Table1Group-> Value + Table1N2-> Value;}

Table1-> Next ();}

Table1-> Filtered = false;

Table1-> Bof;

Table1-> Filter = "FIO3 = '" + StrFiltr + "'";

Table1-> Filtered = true;

while (! Table1-> Eof)

{for (I = 1; i FieldCount; i + +)

{if (Table1Time-> Value == Grid-> Cells [0] [i])

Grid-> Cells [3] [i] = Table1Group-> Value + Table1N3-> Value;}

Table1-> Next ();}

Table1-> Filtered = false;

Table1-> Bof;

Table1-> Filter = "FIO4 = '" + StrFiltr + "'";

Table1-> Filtered = true;

while (! Table1-> Eof)

{for (I = 1; i FieldCount; i + +)

{if (Table1Time-> Value == Grid-> Cells [0] [i])

Grid-> Cells [4] [i] = Table1Group-> Value + Table1N4-> Value;}

Table1-> Next ();}

Table1-> Filtered = false;

Table1-> Bof;

Table1-> Filter = "FIO5 = '" + StrFiltr + "'";

Table1-> Filtered = true;

while (! Table1-> Eof)

{for (I = 1; i FieldCount; i + +)

{if (Table1Time-> Value == Grid-> Cells [5] [i])

Grid-> Cells [5] [i] = Table1Group-> Value + Table1N5-> Value;}

Table1-> Next ();}

}

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

void __fastcall TForm6 :: Button2Click (TObject * Sender)

{

}

// --------------------------------------------- ------...