Реферат Розрахунок вартості пластикових віконних конструкцій і дверей

s,

Dialogs, Grids, StdCtrls, Buttons, unit1, jpeg, ExtCtrls;

type

TForm13 = class (TForm)

Image1: TImage; SpeedButton3: TSpeedButton; SpeedButton2: TSpeedButton;

SpeedButton1: TSpeedButton; StringGrid1: TStringGrid; Label2: TLabel; Label3: TLabel;

Label1: TLabel; procedure FormCreate (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var Form13: TForm13;

implementation

{$ R *. dfm}

procedure TForm13.FormCreate (Sender: TObject);

begin

Form13.StringGrid1.Cells [0,0]: = 'Найменування';

Form13.StringGrid1.Cells [0,1]: = 'Глухий модуль';

Form13.StringGrid1.Cells [0,2]: = 'Поворотний модуль';

Form13.StringGrid1.Cells [0,3]: = 'Поворотно-відкидний';

Form13.StringGrid1.Cells [0,4]: = 'Вхідні двері';

Form13.StringGrid1.Cells [0,5]: = 'Балконна поворотна';

Form13.StringGrid1.Cells [0,6]: = 'Поворотно-відкидна';

Form13.StringGrid1.Cells [1,0]: = 'Висота (мм)';

Form13.StringGrid1.Cells [2,0]: = 'Ширина (мм)';

Form13.StringGrid1.Cells [3,0]: = 'Висота (мм)';

Form13.StringGrid1.Cells [4,0]: = 'Ширина (мм)'; end;

procedure TForm13.SpeedButton1Click (Sender: TObject);

begin

Form13.StringGrid1.Cells [1,1]: = inttostr (470);

Form13.StringGrid1.Cells [1,2]: = inttostr (520);

Form13.StringGrid1.Cells [1,3]: = inttostr (520);

Form13.StringGrid1.Cells [1,4]: = inttostr (1000);

Form13.StringGrid1.Cells [1,5]: = inttostr (410);

Form13.StringGrid1.Cells [1,6]: = inttostr (410);

Form13.StringGrid1.Cells [2,1]: = inttostr (400);

Form13.StringGrid1.Cells [2,2]: = inttostr (410);

Form13.StringGrid1.Cells [2,3]: = inttostr (410);

Form13.StringGrid1.Cells [2,4]: = inttostr (530);

Form13.StringGrid1.Cells [2,5]: = inttostr (410);

Form13.StringGrid1.Cells [2,6]: = inttostr (410);

Form13.StringGrid1.Cells [3,1]: = inttostr (2135);

Form13.StringGrid1.Cells [3,2]: = inttostr (2250);

Form13.StringGrid1.Cells [3,3]: = inttostr (2250);

Form13.StringGrid1.Cells [3,4]: = inttostr (2250);

Form13.StringGrid1.Cells [3,5]: = inttostr (2250);

Form13.StringGrid1.Cells [3,6]: = inttostr (2250);

Form13.StringGrid1.Cells [4,1]: = inttostr (2135);

Form13.StringGrid1.Cells [4,2]: = inttostr (800);

Form13.StringGrid1.Cells [4,3]: = inttostr (800);

Form13.StringGrid1.Cells [4,4]: = inttostr (990);

Form13.StringGrid1.Cells [4,5]: = inttostr (800);

Form13.StringGrid1.Cells [4,6]: = inttostr (800); end;

procedure TForm13.SpeedButton2Click (Sender: TObject);

Var s: string; f: textfile;

begin

{$ I-}

AssignFile (f, dir + ' Технічні допуски ');

{$ I +}

If IOResult = 0 then begin

s: = dir + ' Технічні допуски ';

Rewrite (f, s + ' Глухий модуль.dat');

Writeln (f, Form13.StringGrid1.Cells [1,1]);

Writeln (f, Form13.StringGrid1.Cells [2,1]);

Writeln (f, Form13.StringGrid1.Cells [3,1]);

Writeln (f, Form13.StringGrid1.Cells [4,1]);

CloseFile (f);

Rewrite (f, s + ' Поворотний модуль.dat');

Writeln (f, Form13.StringGrid1.Cells [1,2]);

Writeln (f, Form13.StringGrid1.Cells [2,2]);

Writeln (f, Form13.StringGrid1.Cells [3,2]);

Writeln (f, Form13.StringGrid1.Cells [4,2]);

CloseFile (f);

Rewrite (f, s + ' Поворотно-откідной.dat');

Writeln (f, Form13.StringGrid1.Cells [1,3]);

Writeln (f, Form13.StringGrid1.Cells [2,3]);

Writeln (f, Form13.StringGrid1.Cells [3,3]);

Writeln (f, Form13.StringGrid1.Cells [4,3]);

CloseFile (f);

Rewrite (f, s + ' Вхідна дверь.dat');

Writeln (f, Form13.StringGrid1.Cells [1,4]);

Writeln (f, Form13.StringGrid1.Cells [2,4]);

Writeln (f, Form13.StringGrid1.Cells [3,4]);

Writeln (f, Form13.StringGrid1.Cells [4,4]);

CloseFile (f);

Rewrite (f, s + ' Балконна поворотная.dat');

Writeln (f, Form13.StringGrid1.Cells [1,5]);

Writeln (f, Form13.StringGrid1.Cells [2,5]);

Writeln (f, Form13.StringGrid1.Cells [3,5]);

Writeln (f, Form13.StringGrid1.Cells [4,5]);

CloseFile (f);

Rewrite (f, s + ' Поворотно-откідная.dat');

Writeln (f, Form13.StringGrid1.Cells [1,6]);

Writeln (f, Form13.St...