Расчет стоимости пластиковых оконных конструкций и дверей
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
r.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
then">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]);