Реферат Автоматизація ПОБУДОВИ діаграм динаміки обсягів промислового виробництва регіонів України

tify">} FormatGrid (TStringGrid * SG)

{i, W=0;> ColCount=4; (i=0; i ColCount; i++)>Cols[i]->Clear();>RowCount=2;>Cells[0][0]=«Год»;>Cells[1][0]=«Вид промисловості »;> Cells [2] [0] =« Обсяг производства»;>Cells[3][0]=«Регион»;>ColWidths[0]=70;>ColWidths[1]=200;>ColWidths[2]=200;(i=0;i<SG->ColCount- 1; i + +) W +=SG-> ColWidths [i];> ColWidths [3]=SG-> Width - W - 35;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: FormCreate (TObject * Sender)

{(sgData);

}

//---------------------------------------------------------------------------__fastcall TMainForm :: bAddClick (TObject * Sender)

{p; err; (! CheckData (eYear-> Text, eKind-> Text, eSize-> Text, eRegion-> Text, & err))

{(0, err.c_str (), «Помилка», mrOk);;

} ((((TEdit *) Sender) -> Text.Length () <3) | | (StrToInt (eYear-> Text) <1900) | | (StrToInt ( eYear-> Text)> 2013)) {MessageBox (0, «некоректно дата», «Помилка», mrOk); return; }=SgData-> RowCount; (int i=1;i&lt;p;i++)(eRegion-&gt;Text==sgData-&gt;Cells[3][i])(eKind-&gt;Text==sgData-&gt;Cells[1][i])(eYear-&gt;Text==sgData-&gt;Cells[0][i])

{(0, «Такий запис вже присутня», «Помилка», mrOk);;

}=sgData-> RowCount; (sgData-> Cells [0] [p - 1]==&laquo;&raquo;)-;&gt;RowCount++;&gt;Cells[0][p]=eYear-&gt;Text;&gt;Cells[1][p]=eKind-&gt;Text;&gt;Cells[2][p]=eSize-&gt;Text;&gt;Cells[3][p]=eRegion-&gt;Text;&gt;Enabled=true;(cbRegion, sgData, 3);

}

//---------------------------------------------------------------------------__fastcall TMainForm :: bDelClick (TObject * Sender)

{p=sgData-> Selection.Top, i, j; (p <1)

{(0, «Виберіть дані для видалення», «Помилка», mrOk);;

} (sgData-> Cells [0] [p] =="")

{(0, «Дані для видалення не знайдені», «Помилка», mrOk);;

} (i=p +1; i RowCount; i + +) (j=0; j ColCount; j + +)> Cells [j] [i -1]=sgData-> Cells [j] [i]; (j=0; j ColCount; j + +)> Cells [j] [sgData-> RowCount - 1]=«» ; (sgData-> RowCount> 2)> RowCount -;> Enabled=false; (cbRegion, sgData, 3);

}

//---------------------------------------------------------------------------__fastcall TMainForm :: bChangeClick (TObject * Sender)

{p; err; (! CheckData (eYear-> Text, eKind-> Text, eSize-> Text, eRegion-> Text, & err))

{(0, err.c_str (), «Помилка», mrOk);;

} ((((TEdit *) Sender) -> Text.Length () <3) | | (StrToInt (eYear-> Text) <1900) | | (StrToInt ( eYear-> Text)> 2013)) {MessageBox (0, «некоректно дата», «Помилка», mrOk); return; }=SgData-> RowCount; (int i=1;i&lt;p;i++)(eRegion-&gt;Text==sgData-&gt;Cells[3][i])(eKind-&gt;Text==sgData-&gt;Cells[1][i])(eYear-&gt;Text==sgData-&gt;Cells[0][i])(eSize-&gt;Text==sgData-&gt;Cells[...