Курсовая работа: Оптимизация сетевого графика по времени

Proizvod : String;//Производительность

Str : String;//колличество строк

Rab_I : String;//Работы

Rab_J : String;//Работы

OB_Rabot : String; //Обьем работ изделий

KolRes : String; //Колличество рабочих

Prodolgit: String; //Продолжительность

Err,i,j : Integer;

General : TGeneral;

F : Textfile;

implementation

uses Unit2, Unit3, Unit4;

{$R *.DFM}

procedure TGeneral.FormCreate(Sender: TObject);

begin

//General.WindowState:=WsMaximized;

General.Position:=poDesktopCenter;

General.Caption:='Оптимезация сетевого графика по времени.';

GroupBox1.Caption:='';

GroupBox2.Caption:='';

SG1.cells[0,0]:='I';

SG1.cells[1,0]:='J';

SG1.cells[2,0]:='Объемработ';

SG1.cells[3,0]:='Необход. ресурсов';

SG1.cells[4,0]:='Число ресурсов';

SG1.cells[5,0]:='Продолжительность';

SG1.cells[6,0]:='События';

SG1.cells[7,0]:='Рез. времени';

SG1.RowCount:=2;