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

9; then

form15.Showmodal else

Showmessage ('Вікно можна ламінувати тільки один раз!'); end;

procedure TForm8.SpeedButton6Click (Sender: TObject);

begin

if Form8.StringGrid2.Cells [4,1] ='' then

form17.Show else

Showmessage ('Вікно можна тонувати тільки один раз! '); end;

procedure TForm8.SpeedButton7Click (Sender: TObject);

begin

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

Showmessage ('На вікно можна ставити тільки один підвіконня! ')

else Form18.Showmodal; end;

procedure TForm8.SpeedButton10Click (Sender: TObject);

begin

if Form8.StringGrid2.Cells [3,1] <> 'так' then

form19.Showmodal

else Showmessage ('На цьому вікні профіль вже врахований!'); end;

procedure TForm8.SpeedButton11Click (Sender: TObject);

begin

if impost> = 2 then begin e: = e +1;

if e <= (impost-1) then

form20.Showmodal

else showmessage ('Перевищено припустиме число! '); end

else showmessage ('Імпост вважається тільки між двома глухими модулями! ');

end;

procedure TForm8.SpeedButton12Click (Sender: TObject);

Var i: integer; p2, s: real; beginp2: = 0; s: = 0;

for i: = 1 to dob do

if StringGrid1.Cells [1, i] <>'' then

p2: = p2 + Strtofloat (StringGrid1.Cells [1, i]);

StringGrid2.Cells [0,1]: = Floattostr (p2);

for i: = 1 to dob do

if StringGrid1.Cells [2, i] <>'' then

s: = s + strtofloat (StringGrid1.Cells [2, i]);

if impost = 1 then

s: = s + p2 * 7;

StringGrid2.Cells [6,1]: = floattostr (s);

SpeedButton12.Visible: = false; SpeedButton5.Visible: = true;

SpeedButton6.Visible: = true; SpeedButton7.Visible: = true;

SpeedButton10.Visible: = true; SpeedButton11.Visible: = true;

SpeedButton14.Visible: = true; SpeedButton8.Visible: = true; end;

procedure TForm8.SpeedButton8Click (Sender: TObject);

Var pl, sen: real;

begin

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

begin

pl: = strtofloat (StringGrid2.Cells [6,1]);

sen: = (pl/100) * 12;

sen: = sen + pl;

StringGrid2.Cells [6,1]: = floattostr (sen);

StringGrid2.Cells [1,1]: = 'так';

ShowMessage ('Розрахунок закінчено!'); end

else Showmessage ('На цьому вікні монтаж вже розрахований!') end;

procedure TForm8.SpeedButton13Click (Sender: TObject);

begin

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

Form9.Edit5.Text: = StringGrid2.Cells [6,1];

form9.Show; end;

procedure TForm8.FormShow (Sender: TObject);

begin

SpeedButton3.Visible: = false;

SpeedButton9.Visible: = true;

StringGrid1.Cells [0,0]: = 'Модулі';

StringGrid1.Cells [1,0]: = 'Площа';

StringGrid1.Cells [2,0]: = 'Вартість';

StringGrid1.Cells [3,0]: = 'москіткі'; end;

procedure TForm8.SpeedButton14Click (Sender: TObject);

begin form14.show; end; end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, Buttons, jpeg, ExtCtrls;

type

TForm9 = class (TForm)

Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;

Label5: TLabel; Label6: TLabel; RadioButton1: TRadioButton;

RadioButton2: TRadioButton; RadioButton3: TRadioButton;

SpeedButton1: TSpeedButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit;

Edit5: TEdit; procedure SpeedButton1Click (Sender: TObject);

procedure Edit1KeyPress (Sender: TObject; var Key: Char);

procedure Edit2KeyPress (Sender: TObject; var Key: Char);

procedure Edit3KeyPress (Sender: TObject; var Key: Char);

procedure Edit4KeyPress (Sender: TObject; var Key: Char);

procedure Edit5KeyPress (Sender: TObject; var Key: Char);

private

{Private declarations}

public

{Public declarations}

end;

var Form9: TForm9;

implementation

{$ R *. dfm}

procedure TForm9.SpeedButton1Click (Sender: TObject);

Var evro, dol, rub: real; kursE, kursD: real;

begin

kursD: = 0; kursE: = 0; evro: = 0; dol: = 0; rub: = 0;

If RadioButton1.Checked = True then begin

kursD: = Strtofloat (Edit2.Text);

dol: = Strtofloat (Edit4.Text);

Edit3.Text: = floattoStr (dol * kursD); end;

If RadioButton2.Checked = True then begin

kursE: = Strtofloat (Edit1.Text);

evro: = Strtofloat (Edit5.Text);

...