Смекни!
smekni.com

Расчет стоимости пластиковых оконных конструкций и дверей (стр. 10 из 10)

z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;

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

Form8.StringGrid2.Cells[2,1]:='да'; end; Close

end; end else begin Exit; Showmessage('Ошибка чтения файла цены'); end;

CloseFile(f); end;end;end;end.

unit Unit19;

interface

uses

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

Dialogs, Buttons, StdCtrls,unit8, Spin, jpeg, ExtCtrls;

type

TForm19 = class(TForm)

Image1: TImage; Label13: TLabel;SpinEdit1: TSpinEdit; SpeedButton8: TSpeedButton;

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

private

{ Private declarations }

public

{ Public declarations } end;

var Form19: TForm19;

implementation

{$R *.dfm}

procedure TForm19.SpeedButton8Click(Sender: TObject);

Var pl,sum:real;k:integer;

begin

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

begin

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

sum:=SpinEdit1.Value*0.003;

sum:=pl+sum;

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

Form8.StringGrid2.Cells [3,1]:='да';

Close;endelse Showmessage('На этом окне профиль уже учтён!')end;end.

unit Unit20;

interface

uses

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

Dialogs, Buttons, StdCtrls, Spin, jpeg, ExtCtrls;

type

TForm20 = class(TForm)

Image1: TImage; Label13: TLabel; SpinEdit1: TSpinEdit; Label1: TLabel;

SpeedButton8: TSpeedButton; procedure SpeedButton8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations } end;

var Form20: TForm20;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm20.SpeedButton8Click(Sender: TObject);

Var pl,sum:real;k:integer;

begin

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

sum:=SpinEdit1.Value*0.025;

sum:=pl+sum;

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

if (Components[k] is TSpinEdit) then

(Components[k] as TSpinEdit).Value:=0;Close end; end.

unit Unit21;

interface

uses

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

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

type

TForm21 = class(TForm)

StringGrid3: TStringGrid; Image1: TImage; SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton; procedure FormCreate(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations } end;

var Form21: TForm21;

implementation

{$R *.dfm}

procedure TForm21.FormCreate(Sender: TObject);

begin

StringGrid3.Cells[0,0]:='Ширина';

StringGrid3.Cells[1,0]:='Moller(Германия)';

StringGrid3.Cells[2,0]:='Ulьtra(Ростов)';

StringGrid3.Cells[0,1]:='100';StringGrid3.Cells[0,2]:='150';

StringGrid3.Cells[0,3]:='200';StringGrid3.Cells[0,4]:='250';

StringGrid3.Cells[0,5]:='300';StringGrid3.Cells[0,6]:='350';

StringGrid3.Cells[0,7]:='400';StringGrid3.Cells[0,8]:='450';

StringGrid3.Cells[0,9]:='500';StringGrid3.Cells[0,10]:='600';

StringGrid3.Cells[0,11]:='700';StringGrid3.Cells[0,12]:='800';

StringGrid3.Cells[1,2]:='10,6';StringGrid3.Cells[1,3]:='12,1';

StringGrid3.Cells[1,4]:='14,5';StringGrid3.Cells[1,5]:='16,8';

StringGrid3.Cells[1,6]:='19,7';StringGrid3.Cells[1,7]:='22,4';

StringGrid3.Cells[1,8]:='25,4';StringGrid3.Cells[1,9]:='31,9';

StringGrid3.Cells[1,10]:='35,9';StringGrid3.Cells[2,1]:='3,8';

StringGrid3.Cells[2,2]:='5,7';StringGrid3.Cells[2,3]:='7,6';

StringGrid3.Cells[2,4]:='9,5';StringGrid3.Cells[2,5]:='11,5';

StringGrid3.Cells[2,6]:='13,4';StringGrid3.Cells[2,7]:='15,3';

StringGrid3.Cells[2,8]:='17,2';StringGrid3.Cells[2,9]:='19,1';

StringGrid3.Cells[2,10]:='21';StringGrid3.Cells[2,11]:='22,9';

StringGrid3.Cells[2,12]:='30,5';end;

procedure TForm21.SpeedButton2Click(Sender: TObject);

Var s:string;f:textfile;

begin

{$I-}

AssignFile(f,dir+'&bsol;Цены&bsol;Подоконники&bsol;');

{$I+}

If IOResult=0 then

s:=dir+'&bsol;Цены&bsol;Подоконники&bsol;';

{$I-}

Rewrite(f,s+'Moller.dat');

{$I+}

If IOResult=0 then begin

Writeln(f,StringGrid3.Cells[1,2]);Writeln(f,StringGrid3.Cells[1,3]);

Writeln(f,StringGrid3.Cells[1,4]);Writeln(f,StringGrid3.Cells[1,5]);

Writeln(f,StringGrid3.Cells[1,6]);Writeln(f,StringGrid3.Cells[1,7]);

Writeln(f,StringGrid3.Cells[1,8]);Writeln(f,StringGrid3.Cells[1,9]);

Writeln(f,StringGrid3.Cells[1,10]);CloseFile(f);

Rewrite(f,s+'Ultra.dat');Writeln(f,StringGrid3.Cells[2,1]);

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

Writeln(f,StringGrid3.Cells[2,4]);Writeln(f,StringGrid3.Cells[2,5]);

Writeln(f,StringGrid3.Cells[2,6]);Writeln(f,StringGrid3.Cells[2,7]);

Writeln(f,StringGrid3.Cells[2,8]);Writeln(f,StringGrid3.Cells[2,9]);

Writeln(f,StringGrid3.Cells[2,10]);Writeln(f,StringGrid3.Cells[2,11]);

Writeln(f,StringGrid3.Cells[2,12]);CloseFile(f);

ShowMessage('Данные сохранены успешно!');end else begin

Exit;ShowMessage('Ошибка при зиписи в файл!');end;end;

procedure TForm21.SpeedButton1Click(Sender: TObject);

begin Close;end;end.

unit Unit22;

interface

uses

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

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

type

TForm22 = class(TForm)

Image1: TImage; StringGrid1: TStringGrid;Label1: TLabel; Label2: TLabel;

StringGrid2: TStringGrid;StringGrid3: TStringGrid; Label3: TLabel;

SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton;

procedure FormCreate(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations } end;

var Form22: TForm22;

implementation

uses Unit13;

{$R *.dfm}

procedure TForm22.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='Название';StringGrid1.Cells[1,0]:='Цвет';

StringGrid1.Cells[2,0]:='Светопропуск';StringGrid1.Cells[3,0]:='Цена(1м.кв)';

StringGrid1.Cells[0,1]:='R Silver 20';StringGrid1.Cells[0,2]:='R Silver 35';

StringGrid1.Cells[0,3]:='R Silver 50';StringGrid1.Cells[0,4]:='R Grey 10';

StringGrid1.Cells[0,5]:='R Blue 15';StringGrid1.Cells[0,6]:='R Gold 15';

StringGrid1.Cells[0,7]:='R Green 10';StringGrid1.Cells[0,8]:='R Bronze 10';

StringGrid1.Cells[0,9]:='HP Natural 20';StringGrid1.Cells[0,10]:='HP Natural 35';

StringGrid1.Cells[0,11]:='HP Bronze 35';StringGrid1.Cells[0,12]:='HP Blue 35';

StringGrid1.Cells[0,13]:='HP Green 30';StringGrid1.Cells[1,1]:='Серебро';

StringGrid1.Cells[1,2]:='Серебро';StringGrid1.Cells[1,3]:='Серебро';

StringGrid1.Cells[1,4]:='Серый';StringGrid1.Cells[1,5]:='Голубой';

StringGrid1.Cells[1,6]:='Золото';StringGrid1.Cells[1,7]:='Зеленый';

StringGrid1.Cells[1,8]:='Бронза';StringGrid1.Cells[1,9]:='Нейтральный';

StringGrid1.Cells[1,10]:='Нейтральный';StringGrid1.Cells[1,11]:='Бронза';

StringGrid1.Cells[1,12]:='Голубой';StringGrid1.Cells[1,13]:='Зеленый';

StringGrid1.Cells[2,1]:='18';StringGrid1.Cells[2,2]:='28';StringGrid1.Cells[2,3]:='47';

StringGrid1.Cells[2,4]:='7';StringGrid1.Cells[2,5]:='15';StringGrid1.Cells[2,6]:='15';

StringGrid1.Cells[2,7]:='10';StringGrid1.Cells[2,8]:='8';StringGrid1.Cells[2,9]:='24';

StringGrid1.Cells[2,10]:='35';StringGrid1.Cells[2,11]:='37';StringGrid1.Cells[2,12]:='35';

StringGrid1.Cells[2,13]:='30';StringGrid1.Cells[3,1]:='14,3';StringGrid1.Cells[3,2]:='15,3';

StringGrid1.Cells[3,3]:='15,3';StringGrid1.Cells[3,4]:='15,3';StringGrid1.Cells[3,5]:='15,3';

StringGrid1.Cells[3,6]:='15,3';StringGrid1.Cells[3,7]:='15,3';

StringGrid1.Cells[3,8]:='15,3';StringGrid1.Cells[3,9]:='19,1';

StringGrid1.Cells[3,10]:='19,1';StringGrid1.Cells[3,11]:='19,1';

StringGrid1.Cells[3,12]:='19,1';StringGrid1.Cells[3,13]:='19,1';

StringGrid2.Cells[0,0]:='Название';StringGrid2.Cells[1,0]:='Цвет';

StringGrid2.Cells[2,0]:='Светопропуск';StringGrid2.Cells[3,0]:='Цена(1м.кв)';

StringGrid2.Cells[0,1]:='Matt White';StringGrid2.Cells[0,2]:='Matt Bronze';

StringGrid2.Cells[0,3]:='Matt Silver';StringGrid2.Cells[0,4]:='Black Out';

StringGrid2.Cells[1,1]:='Белый';StringGrid2.Cells[1,2]:='Бронза';

StringGrid2.Cells[1,3]:='Серебро';StringGrid2.Cells[1,4]:='Черный';

StringGrid2.Cells[2,1]:='69';StringGrid2.Cells[2,2]:='36';

StringGrid2.Cells[2,3]:='16';StringGrid2.Cells[2,4]:='0';

StringGrid2.Cells[3,1]:='15,3';StringGrid2.Cells[3,2]:='15,3';

StringGrid2.Cells[3,3]:='15,3';StringGrid2.Cells[3,4]:='17,5';

StringGrid3.Cells[0,0]:='Название';StringGrid3.Cells[1,0]:='Цвет';

StringGrid3.Cells[2,0]:='Светопропуск';StringGrid3.Cells[3,0]:='Цена(1м.кв)';

StringGrid3.Cells[0,1]:='100MIC Silver 20';StringGrid3.Cells[0,2]:='Safety 2 MIL';

StringGrid3.Cells[0,3]:='Safety 4 MIL';StringGrid3.Cells[0,4]:='Safety 7 MIL';

StringGrid3.Cells[0,5]:='Класс защиты А1';StringGrid3.Cells[0,6]:='Класс защиты А2';

StringGrid3.Cells[0,7]:='Класс защиты А3';StringGrid3.Cells[0,8]:='Стекло 4мм';

StringGrid3.Cells[1,1]:='Серебро';StringGrid3.Cells[1,2]:='Прозрачная';

StringGrid3.Cells[1,3]:='Прозрачная';StringGrid3.Cells[1,4]:='Прозрачная';

StringGrid3.Cells[1,8]:='Бронза в массе';StringGrid3.Cells[2,1]:='20';

StringGrid3.Cells[2,2]:='98';StringGrid3.Cells[2,3]:='89';

StringGrid3.Cells[2,4]:='89';StringGrid3.Cells[3,1]:='32,3';

StringGrid3.Cells[3,2]:='24,9';StringGrid3.Cells[3,3]:='27';

StringGrid3.Cells[3,4]:='32,3';StringGrid3.Cells[3,5]:='39,7';

StringGrid3.Cells[3,6]:='52,9';StringGrid3.Cells[3,7]:='79,4';

StringGrid3.Cells[3,8]:='24,4';end;

procedure TForm22.SpeedButton2Click(Sender: TObject);

Var s:string;f:textfile;begin{$I-}

AssignFile(f,dir+'&bsol;Цены&bsol;Тонировка&bsol;');{$I+}

If IOResult=0 then s:=dir+'&bsol;Цены&bsol;Тонировка&bsol;';{$I-}

Rewrite(f,s+'Prof.dat'); {$I+} If IOResult=0 then begin

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

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

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

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

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

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

Writeln(f,StringGrid1.Cells[3,13]);CloseFile(f);Rewrite(f,s+'Dekor.dat');

Writeln(f,StringGrid2.Cells[3,1]);Writeln(f,StringGrid2.Cells[3,2]);

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

CloseFile(f);Rewrite(f,s+'Udar.dat');Writeln(f,StringGrid3.Cells[3,1]);

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

Writeln(f,StringGrid3.Cells[3,4]);Writeln(f,StringGrid3.Cells[3,5]);

Writeln(f,StringGrid3.Cells[3,6]);Writeln(f,StringGrid3.Cells[3,7]);

Writeln(f,StringGrid3.Cells[3,8]);CloseFile(f);

ShowMessage('Данные сохранены успешно!');end else beginExit;

ShowMessage('Ошибка при зиписи в файл!');end;end;

procedure TForm22.SpeedButton1Click(Sender: TObject);

begin Close;end;end.