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




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

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




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

скачать

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

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

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

Label4: TLabel; Label5: TLabel; SpeedButton1: TSpeedButton;
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
begin  close  end;
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin close; end; end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm4 = class(TForm)
Image1: TImage; Label1: TLabel; Label3: TLabel; Label2: TLabel;
Label4: TLabel; Label5: TLabel;  SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin close; end; end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg,unit1, Buttons;
type
TForm5 = class(TForm)
TreeView1: TTreeView; Timer1: TTimer;RichEdit1: TRichEdit;Image1: TImage;
Label3: TLabel; Label2: TLabel; Label1: TLabel; Bevel1: TBevel;Bevel2: TBevel;
SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton;
procedure Timer1Timer(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var  Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.Timer1Timer(Sender: TObject);
begin
if TreeView1.Selected<>nil then begin
label3.Caption:=TreeView1.Selected.Text;
if TreeView1.Selected.Text='Решение задач' then
RichEdit1.Lines.LoadFromFile(dir+'\Справка\Основные задачи.rtf');
if TreeView1.Selected.Text='УралСтройМантаж' then
RichEdit1.Lines.LoadFromFile(dir+'\Справка\УралСтройМонтаж.rtf');
if TreeView1.Selected.Text='Описание интерфейса' then
RichEdit1.Lines.LoadFromFile(dir+'\Справка\Интерфейс.rtf');
if TreeView1.Selected.Text='Расчет стоимости' then
RichEdit1.Lines.LoadFromFile(dir+'\Справка\Расчет.rtf');
if TreeView1.Selected.Text='Системные требования' then
RichEdit1.Lines.LoadFromFile(dir+'\Справка\Системные требования.rtf');
if TreeView1.Selected.Text='Создание шаблонов' then
RichEdit1.Lines.LoadFromFile(dir+'\Справка\Шаблон.rtf');
if TreeView1.Selected.Text='Установка цен' then
RichEdit1.Lines.LoadFromFile(dir+'\Справка\Цены.rtf');end;end;
procedure TForm5.SpeedButton2Click(Sender: TObject);
begin  Close; end; end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, unit1,Buttons, ComCtrls,Unit7, jpeg ;
type
TForm6 = class(TForm)
Panel1: TPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;  SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton; SpeedButton4: TSpeedButton;
SpeedButton14: TSpeedButton; SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton; Panel2: TPanel;
UpDown2: TUpDown;UpDown1: TUpDown; SpeedButton11: TSpeedButton;
Image1: TImage; SpeedButton7: TSpeedButton; SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;  procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
private
procedure CmFocusChanged (var Msg: TCmFocusChanged);
message cm_FocusChanged;
{ Private declarations }
public
{ Public declarations }
end;
var  Msg1: TCmFocusChanged; Form6: TForm6;c:string;
implementation
{$R *.dfm}
procedure TForm6.SpeedButton1Click(Sender: TObject);
begin
b1 := TBitBtn.Create(Self);
nam:=nam+'#Глухой';
with b1 do begin
b1.Hint:='1';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Parent := Panel2;
Glyph.LoadFromFile(dir+'\Иконки\глухой.bmp');end;end;
procedure TForm6.CmFocusChanged (var Msg: TCmFocusChanged);
begin  Msg1:=Msg;  end;
procedure TForm6.SpeedButton2Click(Sender: TObject);
begin
nam:=nam+'#Поворотный';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='2';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Parent := Panel2;
Glyph.LoadFromFile(dir+'\Иконки\поворотный.bmp');end;end;
procedure TForm6.SpeedButton14Click(Sender: TObject);
begin
nam:=nam+'#Поворотный';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='2';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Parent := Panel2;
Glyph.LoadFromFile(dir+'\Иконки\поворотный1.bmp');end;end;
procedure TForm6.SpeedButton15Click(Sender: TObject);
begin
nam:=nam+'#Поворотный';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='2';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Parent := Panel2;
Glyph.LoadFromFile(dir+'\Иконки\поворотный1.bmp');end;end;
procedure TForm6.SpeedButton16Click(Sender: TObject);
begin
nam:=nam+'#Откидной';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='3';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Glyph.LoadFromFile(dir+'\Иконки\откидной.bmp');
Parent := Panel2;end;end;
procedure TForm6.SpeedButton3Click(Sender: TObject);
begin
nam:=nam+'#Откидной';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='3';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Glyph.LoadFromFile(dir+'\Иконки\откидной.bmp');
Parent := Panel2;end;end;
procedure TForm6.SpeedButton4Click(Sender: TObject);
begin
nam:=nam+'#балкон1';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='4';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Glyph.LoadFromFile(dir+'\Иконки\балкон1.bmp');
Parent := Panel2;end;end;
procedure TForm6.SpeedButton6Click(Sender: TObject);
begin
nam:=nam+'#Вход';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='6';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Glyph.LoadFromFile(dir+'\Иконки\вход.bmp');
Parent := Panel2;end;end;
procedure TForm6.SpeedButton5Click(Sender: TObject);
begin
nam:=nam+'#Балкон2';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='5';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Glyph.LoadFromFile(dir+'\Иконки\балкон2.bmp');
Parent := Panel2;end;end;
procedure TForm6.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
if Msg1.Sender.ClassName='TBitBtn' then
msg1.Sender.Width:=UpDown1.Position*3;
end;
procedure TForm6.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
if Msg1.Sender.ClassName='TBitBtn' then
msg1.Sender.Height:=UpDown2.Position*3;
end;
procedure TForm6.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;  { a magic number }
begin
ReleaseCapture;
if Msg1.Sender.ClassName='TBitBtn' then
msg1.Sender.perform(WM_SysCommand, SC_DragMove, 0);
end;
procedure TForm6.SpeedButton11Click(Sender: TObject);
Var p:integer;
begin
if Msg1.Sender.ClassName='TBitBtn' then begin
if msg1.Sender.Hint='1' then begin p:=pos('#Глухой',nam);delete(nam,p,7);msg1.Sender.Destroy;end;
if msg1.Sender.Hint='2' then begin p:=pos('#Поворотный',nam);delete(nam,p,11);msg1.Sender.Destroy;end;
if msg1.Sender.Hint='3' then begin p:=pos('#Откидной',nam);delete(nam,p,9);msg1.Sender.Destroy;end;
if msg1.Sender.Hint='4' then begin p:=pos('#балкон1',nam);delete(nam,p,8);msg1.Sender.Destroy;end;
if msg1.Sender.Hint='5' then begin p:=pos('#Балкон2',nam);delete(nam,p,8);msg1.Sender.Destroy;end;
if msg1.Sender.Hint='6' then begin p:=pos('#Вход',nam);delete(nam,p,5);msg1.Sender.Destroy;end;end;end;
procedure TForm6.SpeedButton9Click(Sender: TObject);
var
B: TBitmap;
srcRect,dstRect: TRect;
begin
B:=TBitmap.Create;
with dstRect do begin
Left:=0;
Top:=0;
Right:=Panel2.Width+1;
Bottom:=Panel2.Height+1;
end;
with srcRect do begin
Left:=Panel2.Left+15;
Right:=Panel2.Left+Panel2.Width+12;
Top:=Panel2.Top;
Bottom:=Panel2.Top+Panel2.Height+12;
end;
B.Width:=Panel2.Width;
B.Height:=Panel2.Height;
B.Canvas.CopyRect(dstRect,Self.Canvas,srcRect);
B.PixelFormat:=pf1bit;
B.SaveToFile(dir+'\Шаблоны\'+nam+'.bmp');
ShowMessage('Шаблон успешно сохранился!');
B.Free;end;
procedure TForm6.SpeedButton8Click(Sender: TObject);
begin  close;end;end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,unit1, ComCtrls, Buttons, Grids, Spin, jpeg;
type
TForm7 = class(TForm)
Panel1: TPanel;    Panel2: TPanel;  SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton;
SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton;
SpeedButton9: TSpeedButton; SpeedButton10: TSpeedButton;
Image1: TImage; SpeedButton7: TSpeedButton; SpeedButton8: TSpeedButton;
ComboBox1: TComboBox; Label4: TLabel;Label3: TLabel;
ComboBox3: TComboBox; Label2: TLabel; ComboBox2: TComboBox;
UpDown1: TUpDown; UpDown2: TUpDown; Image2: TImage;
OpenDialog1: TOpenDialog;  SpeedButton4: TSpeedButton;
SpeedButton14: TSpeedButton; SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton; SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton; SpeedButton13: TSpeedButton;
SpeedButton17: TSpeedButton; Label1: TLabel; Label5: TLabel; Label6: TLabel;
Label7: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
procedure CmFocusChanged (var Msg: TCmFocusChanged);
message cm_FocusChanged;
{ Public declarations }
end;  const n=15 ;
var  Form7: TForm7;  j,pay1,okn,tek:integer;  b1 : TBitBtn;  fail,put,Activ,odn:string;
Msg1: TCmFocusChanged;  nam:string;
implementation
uses Unit9, Unit8;
{$R *.dfm}
procedure TForm7.CmFocusChanged (var Msg: TCmFocusChanged);
begin  Msg1:=Msg;  end;
procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
b1 := TBitBtn.Create(Self);
nam:=nam+'#Глухой';
with b1 do begin
b1.Hint:='1';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Parent := Panel2;
Glyph.LoadFromFile(dir+'\Иконки\глухой.bmp');end;end;
procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
nam:=nam+'#Поворотный';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='2';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Parent := Panel2;
Glyph.LoadFromFile(dir+'\Иконки\поворотный.bmp');end;end;
procedure TForm7.SpeedButton3Click(Sender: TObject);
begin
nam:=nam+'#Откидной';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='3';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Glyph.LoadFromFile(dir+'\Иконки\откидной.bmp');
Parent := Panel2;end;end;
procedure TForm7.SpeedButton4Click(Sender: TObject);
begin
nam:=nam+'#балкон1';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='4';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Glyph.LoadFromFile(dir+'\Иконки\балкон1.bmp');
Parent := Panel2;end;end;
procedure TForm7.SpeedButton5Click(Sender: TObject);
begin
nam:=nam+'#Балкон2';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='5';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Glyph.LoadFromFile(dir+'\Иконки\балкон2.bmp');
Parent := Panel2;end;end;
procedure TForm7.SpeedButton6Click(Sender: TObject);
begin
nam:=nam+'#Вход';
b1 := TBitBtn.Create(Self);
with b1 do begin
b1.Hint:='6';
Left := 20;
Top := 20;
Width := 60;
Height := 100;
Glyph.LoadFromFile(dir+'\Иконки\вход.bmp');
Parent := Panel2;end;end;
procedure TForm7.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;  { a magic number }
begin
ReleaseCapture;
if Msg1.Sender.ClassName='TBitBtn' then
msg1.Sender.perform(WM_SysCommand, SC_DragMove, 0);
end;
procedure TForm7.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text='Оконные модули' then  begin
SpeedButton1.Visible:=True;SpeedButton2.Visible:=True;
SpeedButton14.Visible:=True;SpeedButton15.Visible:=True;
SpeedButton16.Visible:=True;SpeedButton3.Visible:=True;
SpeedButton4.Visible:=False;SpeedButton5.Visible:=False;
SpeedButton6.Visible:=False;  end else  begin
SpeedButton4.Visible:=True;SpeedButton5.Visible:=True;
SpeedButton6.Visible:=True;SpeedButton1.Visible:=False;
SpeedButton2.Visible:=False;SpeedButton3.Visible:=False;
SpeedButton14.Visible:=False;SpeedButton15.Visible:=False;
SpeedButton16.Visible:=False;end;end;
procedure TForm7.FormCreate(Sender: TObject);
begin okn:=1;
SpeedButton1.Visible:=False;SpeedButton2.Visible:=False;
SpeedButton3.Visible:=False;SpeedButton4.Visible:=False;
SpeedButton5.Visible:=False;SpeedButton6.Visible:=False;
SpeedButton14.Visible:=False;SpeedButton15.Visible:=False;
SpeedButton16.Visible:=False; end;
procedure TForm7.SpeedButton8Click(Sender: TObject);
begin
if (Combobox3.Text='') or (Combobox2.Text='') then
Showmessage('Укажите тип профиля и ст.-пакета')
else begin
prof:=Combobox3.Text;
spak:=Combobox2.Text;
close;end;end;
procedure TForm7.SpeedButton9Click(Sender: TObject);
var  B: TBitmap;  srcRect,dstRect: TRect;
begin
if (put='') or (nam='')then Showmessage('Сначала загрузите цену!!!')
else begin
B:=TBitmap.Create;
with dstRect do begin
Left:=0;
Top:=0;
Right:=Panel2.Width+1;
Bottom:=Panel2.Height+1;  end;
with srcRect do begin
Left:=Panel2.Left+145;
Right:=Panel2.Left+Panel2.Width+145;
Top:=Panel2.Top+10;
Bottom:=Panel2.Top+Panel2.Height+10;  end;
B.Width:=Panel2.Width;
B.Height:=Panel2.Height;
B.Canvas.CopyRect(dstRect,Self.Canvas,srcRect);
B.PixelFormat:=pf1bit;
B.SaveToFile(dir+'\temp\'+inttostr(okn)+'.bmp');
B.Free;form8.Show;end;end;
procedure TForm7.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
if Msg1.Sender.ClassName='TBitBtn' then
msg1.Sender.Width:=UpDown1.Position*3;end;
procedure TForm7.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
if Msg1.Sender.ClassName='TBitBtn' then
msg1.Sender.Height:=UpDown2.Position*3;end;
procedure TForm7.SpeedButton11Click(Sender: TObject);
Var p:integer;begin
if Msg1.Sender.ClassName='TBitBtn' then begin
if msg1.Sender.Hint='1' then begin p:=pos('#Глухой',nam);delete(nam,p,7);msg1.Sender.Destroy;end;
if msg1.Sender.Hint='2' then begin p:=pos('#Поворотный',nam);delete(nam,p,11);msg1.Sender.Destroy;end;
if msg1.Sender.Hint='3' then begin p:=pos('#Откидной',nam);delete(nam,p,9);msg1.Sender.Destroy;end;
Предыдущая страница 1 2 3 4 5 6 7 Следующая страница


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

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


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



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

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