Реферат на тему "Расчет стоимости пластиковых оконных конструкций и дверей"




Реферат на тему

текст обсуждение файлы править категориядобавить материалпродать работу




Курсовая на тему Расчет стоимости пластиковых оконных конструкций и дверей

скачать

Найти другие подобные рефераты.

Курсовая *
Размер: 146.86 кб.
Язык: русский
Разместил (а): Александр
Предыдущая страница 1 2 3 4 5 6 7

добавить материал

var  Form14: TForm14;
implementation
{$R *.dfm}
end.
unit Unit15;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls;
type
TForm15 = class(TForm)
Image1: TImage; RadioButton1: TRadioButton; RadioButton2: TRadioButton;
SpeedButton8: TSpeedButton; procedure SpeedButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var  Form15: TForm15;
implementation
uses Unit8;
{$R *.dfm}
procedure TForm15.SpeedButton8Click(Sender: TObject);
Var sum,t:real;
begin
if Form8.StringGrid2.Cells [5,1]='' then begin
If RadioButton1.Checked=true then begin
t:=strtofloat(Form8.StringGrid2.Cells [6,1]);
sum:=t+((t/100)*30);
Form8.StringGrid2.Cells [6,1]:=floattostr(sum);
Form8.StringGrid2.Cells [5,1]:='Одна сторона';
Close; end;
If RadioButton2.Checked=true then begin
t:=strtofloat(Form8.StringGrid2.Cells [6,1]);
sum:=t+((t/100)*40);
Form8.StringGrid2.Cells [6,1]:=floattostr(sum);
Form8.StringGrid2.Cells [5,1]:='Две стороны'; Close;end;end;end;end.
unit Unit16;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, unit1,Mask,ExtCtrls, jpeg, ComCtrls;
type
TForm16 = class(TForm)
Image1: TImage; Label1: TLabel;Edit1: TEdit;Edit2: TEdit;Label2: TLabel;
Label3: TLabel; Memo1: TMemo; Label6: TLabel; SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton; DateTimePicker1: TDateTimePicker;
MaskEdit2: TMaskEdit; MaskEdit3: TMaskEdit; Label8: TLabel; Label7: TLabel;
Label10: TLabel; Memo4: TMemo;  Label4: TLabel;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var  Form16: TForm16;
implementation
uses Unit10, Unit7;
{$R *.dfm}
procedure TForm16.SpeedButton2Click(Sender: TObject);
Var f: Integer;
begin
if (Edit1.Text='') or(Edit2.Text='')or(Memo1.Text='') then
Showmessage('Сначала введите необходимую информацию!') else
if(MaskEdit3.Text='')and(MaskEdit2.Text='(8)            ')then
Showmessage('Введите хотя бы один номер телефона!')
else begin
fiozam:=Edit1.Text;
fiozak:=Edit2.Text;
adres:=Memo1.Text;
got:=Memo4.Text;
data:=datetostr(DateTimePicker1.Date);
domtel:=MaskEdit3.Text;
sottel:=MaskEdit2.Text;
for f := 0 to ComponentCount - 1 do begin
if (Components[f] is TEdit) then
(Components[f] as TEdit).Text:='';
if (Components[f] is TMemo) then
(Components[f] as TMemo).Text:='';
if (Components[f] is TMaskEdit) then
(Components[f] as TMaskEdit).Text:='';
form7.Show;   Close;  end;end;end;
procedure TForm16.SpeedButton1Click(Sender: TObject);
begin Close;  end;
procedure TForm16.Edit1KeyPress(Sender: TObject; var Key: Char);
var    vrLength, vrSelStart: byte;
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrSelStart := SelStart;  end;
case Key of  'А'..'Я':begin end;
'а'..'я':begin end;
#8:begin end;
#32:begin end;
#46:
else    Key := #0;end;end;
procedure TForm16.Edit2KeyPress(Sender: TObject; var Key: Char);
var   vrLength, vrSelStart: byte;
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrSelStart := SelStart;  end;
case Key of  'А'..'Я':begin end;
'а'..'я':begin end;
#8:begin end;
#32:begin end;
#46:  else    Key := #0; end;end;
procedure TForm16.FormCreate(Sender: TObject);
begin datetimepicker1.Date:=Date;end;end.
unit Unit17;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, jpeg,unit1, ExtCtrls,unit8;
type
TForm17 = class(TForm)
Image1: TImage; SpeedButton8: TSpeedButton; SpeedButton1: TSpeedButton;
ComboBox1: TComboBox; ComboBox2: TComboBox; ComboBox3: TComboBox;
RadioButton1: TRadioButton; RadioButton2: TRadioButton;
RadioButton3: TRadioButton;     procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var  plo,zen:real;  Form17: TForm17;  senton:string;  t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12
,t13,h1,h2,h3,h4,h5,h6,h7,h8,r1,r2,r3,r4:string;
implementation
uses Unit22;
{$R *.dfm}
procedure TForm17.RadioButton1Click(Sender: TObject);
Var f:textfile;
begin
if RadioButton1.Checked=True then begin
ComboBox1.Enabled:=True;
ComboBox2.Enabled:=False;
ComboBox3.Enabled:=False;
{$I-}
AssignFile(f,dir+'\Цены\Тонировка\Prof.dat');
{$I+}
If IOResult=0 then begin
Reset(f);
while not EoF(f) do begin
readln(f,t1);  readln(f,t2);
readln(f,t3);  readln(f,t4);
readln(f,t5);  readln(f,t6);
readln(f,t7);  readln(f,t8);
readln(f,t9);  readln(f,t10);
readln(f,t11); readln(f,t12);
readln(f,t13); end  end
else begin Exit; Showmessage('Ошибка чтения файла цены');
CloseFile(f);  end;end;end;
procedure TForm17.RadioButton2Click(Sender: TObject);
Var f:textfile;
begin
if RadioButton2.Checked=True then begin
ComboBox1.Enabled:=False;
ComboBox2.Enabled:=True;
ComboBox3.Enabled:=False;
{$I-}
AssignFile(f,dir+'\Цены\Тонировка\Dekor.dat');
{$I+}
If IOResult=0 then begin
Reset(f);
while not EoF(f) do begin
readln(f,r1);  readln(f,r2);
readln(f,r3);  readln(f,r4);  end    end
else begin Exit; Showmessage('Ошибка чтения файла цены');
CloseFile(f);  end;end;end;
procedure TForm17.RadioButton3Click(Sender: TObject);
Var f:textfile;
begin
if RadioButton3.Checked=True then begin
ComboBox1.Enabled:=False;
ComboBox2.Enabled:=False;
ComboBox3.Enabled:=True;
{$I-}
AssignFile(f,dir+'\Цены\Тонировка\Udar.dat');
{$I+}
If IOResult=0 then begin
Reset(f);
while not EoF(f) do begin
readln(f,h1);  readln(f,h2);
readln(f,h3);  readln(f,h4);
readln(f,h5);  readln(f,h6);
readln(f,h7); readln(f,h8); end end
else begin Exit; Showmessage('Ошибка чтения файла цены');
CloseFile(f);  end;end;end;
procedure TForm17.SpeedButton8Click(Sender: TObject);
Var f: Integer;
begin
if Form8.StringGrid2.Cells[4,1]='' then begin
if (RadioButton1.Checked<>true)and(RadioButton2.Checked<>true)and
(RadioButton3.Checked<>true) then
Showmessage('Сначала что-нибудь нужно выбрать!')
else
if (Combobox1.Text='')and(Combobox2.Text='')and
(Combobox3.Text='') then
Showmessage('Выберите конкретный тип тонировки!')
else begin
plo:=StrtoFloat(Form8.StringGrid2.Cells[0,1]);
zen:=strtofloat(Form8.StringGrid2.Cells[6,1])+(strtofloat(senton)*plo);
Form8.StringGrid2.Cells[6,1]:=floattostr(zen);
Form8.StringGrid2.Cells[4,1]:=ton;
for f := 0 to ComponentCount - 1 do
if (Components[f] is TCombobox) then
(Components[f] as TCombobox).Items.Clear;Close;end;
end else begin
Showmessage('Окно можно тонировать только один раз!');
Close;end;end;
procedure TForm17.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text='R Silver 20' then begin
ton:=ComboBox1.Text;
senton:=t1;end;
if ComboBox1.Text='R Silver 35' then begin
ton:=ComboBox1.Text;
senton:=t2; end;
if ComboBox1.Text='R Silver 50' then begin
ton:=ComboBox1.Text;
senton:=t3; end;
if ComboBox1.Text='R Grey 10' then begin
ton:=ComboBox1.Text;
senton:=t4; end;
if ComboBox1.Text='R Blue  15' then begin
ton:=ComboBox1.Text;
senton:=t5; end;
if ComboBox1.Text='R Gold 15 ' then begin
ton:=ComboBox1.Text;
senton:=t6; end;
if ComboBox1.Text='R Green 10' then begin
ton:=ComboBox1.Text;
senton:=t7; end;
if ComboBox1.Text='R Bronze 10' then begin
ton:=ComboBox1.Text;
senton:=t8;end;
if ComboBox1.Text='HP Natural 20 ' then begin
ton:=ComboBox1.Text;
senton:=t9;end;
if ComboBox1.Text='HP Natural 35 ' then begin
ton:=ComboBox1.Text;
senton:=t10; end;
if ComboBox1.Text='HP Bronze 35 ' then begin
ton:=ComboBox1.Text;
senton:=t11; end;
if ComboBox1.Text='HP Blue 35 ' then begin
ton:=ComboBox1.Text;
senton:=t12; end;
if ComboBox1.Text='HP Green 30 ' then begin
ton:=ComboBox1.Text;
senton:=t13;end;end;
procedure TForm17.ComboBox2Change(Sender: TObject);
begin
if ComboBox2.Text='Matt White' then begin
ton:=ComboBox2.Text;
senton:=r1;end;
if ComboBox2.Text='Matt Bronze' then begin
ton:=ComboBox2.Text;
senton:=r2;end;
if ComboBox2.Text='Matt Silver' then begin
ton:=ComboBox2.Text;
senton:=r3;end;
if ComboBox2.Text='Black Out' then begin
ton:=ComboBox2.Text;
senton:=r4;end;end;
procedure TForm17.ComboBox3Change(Sender: TObject);
begin
if ComboBox3.Text='100 MIC Silver 20' then begin
ton:=ComboBox3.Text;
senton:=h1;end;
if ComboBox3.Text='Safety 2 MIL' then begin
ton:=ComboBox3.Text;
senton:=h2;end;
if ComboBox3.Text='Safety 4 MIL' then begin
ton:=ComboBox3.Text;
senton:=h3;end;
if ComboBox3.Text='Safety 7 MIL' then begin
ton:=ComboBox3.Text;
senton:=h4;end;
if ComboBox3.Text='Класс защиты А1' then begin
ton:=ComboBox3.Text;
senton:=h5;end;
if ComboBox3.Text='Класс защиты А2' then begin
ton:=ComboBox3.Text;
senton:=h6;end;
if ComboBox3.Text='Класс защиты А3' then begin
ton:=ComboBox3.Text;
senton:=h7;end;
if ComboBox3.Text='Стекло 4мм' then begin
ton:=ComboBox3.Text;
senton:=h8;end;end;
procedure TForm17.SpeedButton1Click(Sender: TObject);
begin  form22.Show;end;end.
unit Unit18;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, Spin, jpeg, ExtCtrls,unit1,unit8;
type
TForm18 = class(TForm)
Image1: TImage; Label1: TLabel; Label2: TLabel; SpeedButton8: TSpeedButton;
RadioButton1: TRadioButton;RadioButton2: TRadioButton;ComboBox1: TComboBox;
SpinEdit1: TSpinEdit; CheckBox1: TCheckBox;
procedure SpeedButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var  Form18: TForm18;
h100,h150,h200,h250,h300,h350,h400,h450,h500,h600,h700,h800:string;
implementation
{$R *.dfm}
procedure TForm18.SpeedButton8Click(Sender: TObject);
Var f:textfile;k:integer;l,z:real;
begin  l:=0; z:=0;
if Form8.StringGrid2.Cells[2,1]='да' then begin
Showmessage('На окно можно ставить только один подоконник!');
Close; end   else
if (RadioButton1.Checked<>true)and(RadioButton2.Checked<>true)
then Showmessage('Сначала что-нибудь нужно выбрать!')
else
if (Combobox1.Text='')or(SpinEdit1.Value<=0)then
Showmessage('Введите все необходимые данные!')
else begin
if RadioButton2.Checked=True then begin
markP:='Ulьtra';
{$I-}
AssignFile(f,dir+'\Цены\Подоконники\Ultra.dat');
{$I+}
If IOResult=0 then begin     Reset(f);
while not EoF(f) do begin
readln(f,h100); readln(f,h150);
readln(f,h200); readln(f,h250);
readln(f,h300); readln(f,h350);
readln(f,h400); readln(f,h450);
readln(f,h500); readln(f,h600);
readln(f,h700); readln(f,h800); end;
if Combobox1.Text='100' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h100);
podsen:=floattostr(l);
razpod:='100'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then  l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='150' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h150);
podsen:=floattostr(l);
razpod:='150'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then  l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='200' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h200);
podsen:=floattostr(l);
razpod:='200'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='250' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h250);
podsen:=floattostr(l);
razpod:='250'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='300' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h300);
podsen:=floattostr(l);
razpod:='300'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='350' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h350);
podsen:=floattostr(l);
razpod:='350'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='400' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h400);
podsen:=floattostr(l);
razpod:='400'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='450' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h450);
podsen:=floattostr(l);
razpod:='450'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='500' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h500);
podsen:=floattostr(l);
razpod:='500'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='600' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h600);
podsen:=floattostr(l);
razpod:='600'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='700' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h700);
podsen:=floattostr(l);
razpod:='700'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='800' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h800);
podsen:=floattostr(l);
razpod:='800'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
end else begin Exit;
Showmessage('Ошибка чтения файла цены');   end;  CloseFile(f); Close; end;
if RadioButton1.Checked=True then begin
markP:='Moller';
{$I-}
AssignFile(f,dir+'\Цены\Подоконники\Moller.dat');
{$I+}
If IOResult=0 then begin
Reset(f);
while not EoF(f) do begin
readln(f,h150);  readln(f,h200);
readln(f,h250);  readln(f,h300);
readln(f,h350);  readln(f,h400);
readln(f,h450);  readln(f,h500);
readln(f,h600);  end;
if (Combobox1.Text='100')or(Combobox1.Text='700')or(Combobox1.Text='800') then
Showmessage('Такого размера нет, выберите другой!')
else begin
if Combobox1.Text='150' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h150);
podsen:=floattostr(l);
razpod:='150'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then  l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='200' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h200);
podsen:=floattostr(l);
razpod:='200'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='250' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h250);
podsen:=floattostr(l);
razpod:='250'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[0,6]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='300' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h300);
podsen:=floattostr(l);
razpod:='300'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='350' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h350);
podsen:=floattostr(l);
razpod:='350'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='400' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h400);
podsen:=floattostr(l);
razpod:='400'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='450' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h450);
podsen:=floattostr(l);
razpod:='450'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='500' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h500);
podsen:=floattostr(l);
razpod:='500'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да';   end;
if Combobox1.Text='600' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h600);
podsen:=floattostr(l);
razpod:='600'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then   l:=l+2.1;
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+'\Цены\Подоконники\');
{$I+}
If IOResult=0 then
s:=dir+'\Цены\Подоконники\';
{$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+'\Цены\Тонировка\');{$I+}
If IOResult=0 then  s:=dir+'\Цены\Тонировка\';{$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.
Предыдущая страница 1 2 3 4 5 6 7


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

Скачать курсовую работу бесплатно


Постоянный url этой страницы:
http://referatnatemu.com/?id=14933&часть=7



вверх страницы

Рейтинг@Mail.ru
Copyright © 2010-2015 referatnatemu.com