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




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

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




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

скачать

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

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

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

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);
Edit3.Text:=floattoStr(evro*kursE);end;
If RadioButton3.Checked=True then begin
kursE:=Strtofloat(Edit1.Text);
kursD:=Strtofloat(Edit2.Text);
evro:=Strtofloat(Edit5.Text);
Edit4.Text:=floattoStr((evro*kursE)/kursD);end;end;
procedure TForm9.Edit1KeyPress(Sender: TObject; var Key: Char);
var  vrPos, vrLength, vrSelStart: byte;
const  I: byte = 1;
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrPos := Pos(',', Text);
vrSelStart := SelStart;  end;
case Key of    '0'..'9':
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0;
end;    ',', '.':
begin
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0      else    Key := #44;  end;   #8: ;  else    Key := #0;  end;end;
procedure TForm9.Edit2KeyPress(Sender: TObject; var Key: Char);
var  vrPos, vrLength, vrSelStart: byte;
const  I: byte = 1;
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrPos := Pos(',', Text);
vrSelStart := SelStart;  end;
case Key of    '0'..'9':
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0;      end;    ',', '.':
begin
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0   else   Key := #44;  end;    #8: ;  else    Key := #0;  end;end;
procedure TForm9.Edit3KeyPress(Sender: TObject; var Key: Char);
var  vrPos, vrLength, vrSelStart: byte;
const  I: byte = 1;
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrPos := Pos(',', Text);
vrSelStart := SelStart;  end;
case Key of    '0'..'9':
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0;      end;    ',', '.':
begin
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then  Key := #0
else  Key := #44;   end;  #8: ; else  Key := #0; end;end;
procedure TForm9.Edit4KeyPress(Sender: TObject; var Key: Char);
var  vrPos, vrLength, vrSelStart: byte;
const  I: byte = 1;
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrPos := Pos(',', Text);
vrSelStart := SelStart;  end;
case Key of    '0'..'9':
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0;      end;    ',', '.':
begin
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0   else  Key := #44;  end;  #8: ; else Key := #0; end;end;
procedure TForm9.Edit5KeyPress(Sender: TObject; var Key: Char);
var  vrPos, vrLength, vrSelStart: byte;
const  I: byte = 1;
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrPos := Pos(',', Text);
vrSelStart := SelStart;  end;
case Key of    '0'..'9':
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0;      end;    ',', '.':
begin
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0   else  Key := #44;  end;  #8: ; else  Key := #0; end;end;end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls, StdCtrls, QRPrntr, ImgList, Buttons,
RpBase, RpSystem, RpDefine, RpRave;
type
TForm10 = class(TForm)
QuickRep1: TQuickRep; QRSubDetail1: TQRSubDetail; QRLabel5: TQRLabel;
QRRichText1: TQRRichText;  QRLabel1: TQRLabel;  QRLabel2: TQRLabel;
QRLabel3: TQRLabel; QRImage1: TQRImage;  QRImage2: TQRImage;
QRImage3: TQRImage;  QRImage4: TQRImage; QRImage5: TQRImage;
QRImage6: TQRImage; Image1: TImage; SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton;  procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var  Form10: TForm10;  nzak:integer;
implementation
uses Unit1,unit7;
{$R *.dfm}
procedure TForm10.FormCreate(Sender: TObject);
begin  QrrichText1.ParentRichEdit:=Form1.RichEdit1; end;
procedure TForm10.SpeedButton1Click(Sender: TObject);
Var h:integer;f:textfile;s:string;dlg:Word;
begin
AssignFile(f,dir+'\nzak.txt');
Reset(f);
Read(f,s);
nzak:=StrToInt(s);
nzak:=nzak+1;
s := IntToStr(nzak);
CloseFile(f);
rewrite(f);
write(f,s);
closefile(f);
Form1.RichEdit1.Lines.SaveToFile(dir+'\БД\'+fiozak+'(№'+inttostr(nzak)+')'+'.rtf');
dlg:=MessageDlg('Вы хотите сохранить заказ?',mtConfirmation,mbYesNoCancel,0);
if dlg = mrYes then
QuickRep1.PrintBackground  else
for h:=1 to 6 do
image1.Picture.SaveToFile(dir+'\temp\'+inttostr(h)+'.bmp');
Form1.RichEdit1.Lines.Clear;Close;end;
procedure TForm10.SpeedButton2Click(Sender: TObject);
begin
QuickRep1.Preview;end;end.
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, Spin, jpeg, ExtCtrls;
type
TForm11 = class(TForm)
Image1: TImage;   SpeedButton2: TSpeedButton;  SpeedButton1: TSpeedButton;
Label1: TLabel; SpinEdit1: TSpinEdit; procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var  Form11: TForm11;
implementation
uses Unit16,Unit1;
{$R *.dfm}
procedure TForm11.SpeedButton1Click(Sender: TObject);
begin  close; end;
procedure TForm11.SpeedButton2Click(Sender: TObject);
begin
kolok:=SpinEdit1.Value;
form16.show;
SpinEdit1.Value:=1;close;end;end.
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, Spin, Mask, ComCtrls, Grids, jpeg, ExtCtrls,ShellAPI,Unit1;
type
TForm12 = class(TForm)
GroupBox2: TGroupBox;Label1: TLabel;Image1: TImage;
SpeedButton4: TSpeedButton; RichEdit1: TRichEdit; SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton; SpeedButton5: TSpeedButton;ListBox1: TListBox;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure ListBox1Enter(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
private
FPrefix: array[0..255] of char;
{ Private declarations }
public
{ Public declarations }
end;
var  Form12: TForm12; Count:integer;
implementation
{$R *.dfm}
procedure TForm12.SpeedButton1Click(Sender: TObject);
begin  close; end;
procedure TForm12.SpeedButton4Click(Sender: TObject);
begin
richedit1.Lines.LoadFromFile(dir+'\БД\'+listbox1.Items.Strings[listbox1.ItemIndex]);
end;
procedure TForm12.SpeedButton5Click(Sender: TObject);
begin
RichEdit1.Print('Распечатка заказа');
end;
procedure TForm12.ListBox1Enter(Sender: TObject);
begin
FPrefix[0] := #0;
Label1.Caption := StrPas(FPrefix);
end;
procedure TForm12.FormKeyPress(Sender: TObject; var Key: Char);
Var curKey: array[0..1] of char;
ndx:    integer;
begin
if ActiveControl = ListBox1 then begin
if key = #8 {Backspace (клавиша возврата)} then begin
if FPrefix[0] <> #0 then begin
FPrefix[StrLen(FPrefix) - 1] := #0;end  end  else begin
curKey[0] := Key;
curKey[1] := #0;
StrCat(FPrefix, curKey);
ndx := SendMessage(ListBox1.Handle, LB_FINDSTRING,
-1, longint(@FPrefix));
if ndx <> LB_ERR then
ListBox1.ItemIndex := ndx;end;
Label1.Caption := StrPas(FPrefix);
Key := #0;end;end;
procedure TForm12.FormShow(Sender: TObject);
var  F: TSearchRec;  Path: string;  Attr: Integer;
begin
Path := dir+'\БД\*.rtf';
Attr := faAnyFile;
FindFirst(Path, Attr, F);
if F.name <> '' then
begin
ListBox1.Items.Add(F.name); {Добавление в TListBox имени найденного файла}
while FindNext(F) = 0 do
ListBox1.Items.Add(F.name);  end;  FindClose(F);end;end.
unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, Buttons, unit1,jpeg, ExtCtrls;
type
TForm13 = class(TForm)
Image1: TImage; SpeedButton3: TSpeedButton; SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton; StringGrid1: TStringGrid;Label2: TLabel;Label3: TLabel;
Label1: TLabel; procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var  Form13: TForm13;
implementation
{$R *.dfm}
procedure TForm13.FormCreate(Sender: TObject);
begin
Form13.StringGrid1.Cells[0,0]:='Наименование';
Form13.StringGrid1.Cells[0,1]:='Глухой модуль';
Form13.StringGrid1.Cells[0,2]:='Поворотный модуль';
Form13.StringGrid1.Cells[0,3]:='Поворотно-откидной';
Form13.StringGrid1.Cells[0,4]:='Входная дверь';
Form13.StringGrid1.Cells[0,5]:='Балконная поворотная';
Form13.StringGrid1.Cells[0,6]:='Поворотно-откидная ';
Form13.StringGrid1.Cells[1,0]:='Высота(мм)';
Form13.StringGrid1.Cells[2,0]:='Ширина(мм)';
Form13.StringGrid1.Cells[3,0]:='Высота(мм)';
Form13.StringGrid1.Cells[4,0]:='Ширина(мм)';end;
procedure TForm13.SpeedButton1Click(Sender: TObject);
begin
Form13.StringGrid1.Cells[1,1]:=inttostr(470);
Form13.StringGrid1.Cells[1,2]:=inttostr(520);
Form13.StringGrid1.Cells[1,3]:=inttostr(520);
Form13.StringGrid1.Cells[1,4]:=inttostr(1000);
Form13.StringGrid1.Cells[1,5]:=inttostr(410);
Form13.StringGrid1.Cells[1,6]:=inttostr(410);
Form13.StringGrid1.Cells[2,1]:=inttostr(400);
Form13.StringGrid1.Cells[2,2]:=inttostr(410);
Form13.StringGrid1.Cells[2,3]:=inttostr(410);
Form13.StringGrid1.Cells[2,4]:=inttostr(530);
Form13.StringGrid1.Cells[2,5]:=inttostr(410);
Form13.StringGrid1.Cells[2,6]:=inttostr(410);
Form13.StringGrid1.Cells[3,1]:=inttostr(2135);
Form13.StringGrid1.Cells[3,2]:=inttostr(2250);
Form13.StringGrid1.Cells[3,3]:=inttostr(2250);
Form13.StringGrid1.Cells[3,4]:=inttostr(2250);
Form13.StringGrid1.Cells[3,5]:=inttostr(2250);
Form13.StringGrid1.Cells[3,6]:=inttostr(2250);
Form13.StringGrid1.Cells[4,1]:=inttostr(2135);
Form13.StringGrid1.Cells[4,2]:=inttostr(800);
Form13.StringGrid1.Cells[4,3]:=inttostr(800);
Form13.StringGrid1.Cells[4,4]:=inttostr(990);
Form13.StringGrid1.Cells[4,5]:=inttostr(800);
Form13.StringGrid1.Cells[4,6]:=inttostr(800);end;
procedure TForm13.SpeedButton2Click(Sender: TObject);
Var s:string;f:textfile;
begin
{$I-}
AssignFile(f,dir+'\Технические допуски\');
{$I+}
If IOResult=0 then begin
s:=dir+'\Технические допуски\';
Rewrite(f,s+'\Глухой модуль.dat');
Writeln(f,Form13.StringGrid1.Cells[1,1]);
Writeln(f,Form13.StringGrid1.Cells[2,1]);
Writeln(f,Form13.StringGrid1.Cells[3,1]);
Writeln(f,Form13.StringGrid1.Cells[4,1]);
CloseFile(f);
Rewrite(f,s+'\Поворотный модуль.dat');
Writeln(f,Form13.StringGrid1.Cells[1,2]);
Writeln(f,Form13.StringGrid1.Cells[2,2]);
Writeln(f,Form13.StringGrid1.Cells[3,2]);
Writeln(f,Form13.StringGrid1.Cells[4,2]);
CloseFile(f);
Rewrite(f,s+'\Поворотно-откидной.dat');
Writeln(f,Form13.StringGrid1.Cells[1,3]);
Writeln(f,Form13.StringGrid1.Cells[2,3]);
Writeln(f,Form13.StringGrid1.Cells[3,3]);
Writeln(f,Form13.StringGrid1.Cells[4,3]);
CloseFile(f);
Rewrite(f,s+'\Входная дверь.dat');
Writeln(f,Form13.StringGrid1.Cells[1,4]);
Writeln(f,Form13.StringGrid1.Cells[2,4]);
Writeln(f,Form13.StringGrid1.Cells[3,4]);
Writeln(f,Form13.StringGrid1.Cells[4,4]);
CloseFile(f);
Rewrite(f,s+'\Балконная поворотная.dat');
Writeln(f,Form13.StringGrid1.Cells[1,5]);
Writeln(f,Form13.StringGrid1.Cells[2,5]);
Writeln(f,Form13.StringGrid1.Cells[3,5]);
Writeln(f,Form13.StringGrid1.Cells[4,5]);
CloseFile(f);
Rewrite(f,s+'\Поворотно-откидная.dat');
Writeln(f,Form13.StringGrid1.Cells[1,6]);
Writeln(f,Form13.StringGrid1.Cells[2,6]);
Writeln(f,Form13.StringGrid1.Cells[3,6]);
Writeln(f,Form13.StringGrid1.Cells[4,6]);
CloseFile(f);  ShowMessage('Данные сохранены успешно!');end
else Exit; end;
procedure TForm13.SpeedButton3Click(Sender: TObject);
begin  close; end; end.
unit Unit14;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, Spin, jpeg, ExtCtrls;
type
TForm14 = class(TForm)
Image1: TImage;  Label20: TLabel; SpinEdit1: TSpinEdit; Label1: TLabel;
SpeedButton14: TSpeedButton;
private
{ Private declarations }
public
{ Public declarations }
end;
Предыдущая страница 1 2 3 4 5 6 7 Следующая страница


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

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


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



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

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