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

;

Label19: TLabel; SpeedButton13: TSpeedButton; SpeedButton14: TSpeedButton;

Label20: TLabel; procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton9Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure StringGrid1SelectCell (Sender: TObject; ACol, ARow: Integer;

var CanSelect: Boolean);

procedure SpeedButton4Click (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

procedure SpeedButton6Click (Sender: TObject);

procedure SpeedButton7Click (Sender: TObject);

procedure SpeedButton10Click (Sender: TObject);

procedure SpeedButton11Click (Sender: TObject);

procedure SpeedButton12Click (Sender: TObject);

procedure SpeedButton8Click (Sender: TObject);

procedure SpeedButton13Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure SpeedButton14Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var Form8: TForm8; p: integer; n, path, one, two, tri, minv, minh, maxv, maxh: string;

plos, res: real; l, h, impost, pay, stol, e, dob: integer; start: Boolean;

Razpod, Markp, Podsen, So9, Lam, SOB, Ton, Maskit: string;

implementation

uses Unit15, Unit17, Unit18, Unit19, Unit20, Unit9, Unit14;

{$ R *. dfm}

procedure TForm8.SpeedButton1Click (Sender: TObject);

begin

WinExec ('c :/ windows/system32/calc.exe', SW_showNormal);

end;

procedure TForm8.SpeedButton2Click (Sender: TObject);

var f: Integer;

begin

if StringGrid2.Cells [4,1] <>'' then

ton: = 'Тонування:' + ton;

if StringGrid2.Cells [0,1] <>'' then

SOB: = 'Загальна площа:' + StringGrid2.Cells [0,1];

if StringGrid2.Cells [6,1] <>'' then

itog: = StringGrid2.Cells [6,1] + 'у.о.';

if StringGrid2.Cells [3,1] = 'так' then

So9: = 'Профіль SO9 Враховано';

if StringGrid2.Cells [1,1] <>'' then

mon: = StringGrid2.Cells [1,1];

if StringGrid2.Cells [5,1] <>'' then

Lam: = 'Ламінування:' + StringGrid2.Cells [5,1];

for f: = 0 to ComponentCount - 1 do begin

if (Components [f] is TSpinEdit) then

(Components [f] as TSpinEdit). Value : = 0;

Stringgrid1.Cols [0]. Clear; Stringgrid1.Cols [1]. Clear;

Stringgrid1.Cols [2]. Clear; Stringgrid1.Cols [3]. Clear;

Stringgrid2.Rows [1]. Clear; SpeedButton5.Visible: = false;

SpeedButton6.Visible: = False; SpeedButton7.Visible: = false;

SpeedButton10.Visible: = false; SpeedButton11.Visible: = false;

SpeedButton14.Visible: = false; SpeedButton8.Visible: = false; end; close; end;

procedure TForm8.SpeedButton9Click (Sender: TObject);

label 1,2,3,4,5,6;

Var i, b: integer; nam1: string; f, dop: textfile;

begin b: = 1;

SpeedButton3.Visible: = true; SpeedButton9.Visible: = false;

{$ I-}

AssignFile (f, dir + put);

{$ I +}

If IOResult = 0 then begin

Reset (f);

while not EoF (f) do begin

readln (f, one);

readln (f, two);

readln (f, tri); end; CloseFile (f); end;

nam1: = nam; delete (nam1, 1,1); nam1: = nam1 + '#';

for i: = 1 to length (nam1) do begin

if nam1 [i] <> '#' then n: = n + nam1 [i]

else begin if n = 'Глухий' then begin

Label4.Caption: = 'Глухий';

pay: = strtoint (one);

if odn = '1 'then

pay: = pay-6;

impost: = impost +1;

{$ I-}

AssignFile (dop, dir + ' Технічні допуски Глухий модуль.dat');

{$ I +}

If IOResult = 0 then begin

Reset (dop);

while not EoF (dop) do begin

readln (dop, minv);

readln (dop, minh);

readln (dop, maxv);

readln (dop, maxh); end; CloseFile (dop); end;

SpinEdit1.MinValue: = strtoint (minh);

SpinEdit1.MaxValue: = strtoint (maxh);

SpinEdit2.MinValue: = strtoint (minv);

SpinEdit2.MaxValue: = strtoint (maxv);

SpinEdit1.Value: = strtoint (minh);

SpinEdit2.Value: = strtoint (minv);

ShowMessage ('Введіть розміри і натисніть "ОК" ');

1: application.ProcessMessages;

if start = true then begin l: = spinedit1.Value;

h: = spinedit2.Value;

plos: = (l * h) * 0.000001;

if (plos <= 0.5) then

res: = (plos * pay) + ((plos * pay)/100) * 30

else res: = plos * pay;

if ...