Geum.ru

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

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form2: TForm2;

implementation

uses Unit13, Unit14, Unit21, Unit22;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin close; end;

procedure TForm2.SpeedButton2Click(Sender: TObject);

Var s:string;

f:textfile;

begin

{$I-}

AssignFile(f,dir+\Цены\Окна);

{$I+}

If IOResult=0 then begin

s:=dir+\Цены\Окна;

Rewrite(f,s+\Exprof58mm24.dat);

Writeln(f,SpinEdit1.Value);

Writeln(f,SpinEdit2.Value);

Writeln(f,SpinEdit3.Value);

CloseFile(f);

Rewrite(f,s+\Exprof58mm32.dat);

Writeln(f,SpinEdit4.Value);

Writeln(f,SpinEdit5.Value);

Writeln(f,SpinEdit6.Value);

CloseFile(f);

Rewrite(f,s+\Exprof101mm24.dat);

Writeln(f,SpinEdit7.Value);

Writeln(f,SpinEdit8.Value);

Writeln(f,SpinEdit9.Value);

CloseFile(f);

Rewrite(f,s+\Exprof101mm32.dat);

Writeln(f,SpinEdit10.Value);

Writeln(f,SpinEdit11.Value);

Writeln(f,SpinEdit12.Value);

CloseFile(f);

end else Exit;

{$I-}

AssignFile(f,dir+\Цены\Двери);

{$I+}

If IOResult=0 then begin

s:=dir+\Цены\Двери;

Rewrite(f,s+\Exprof58mm24.dat);

Writeln(f,SpinEdit13.Value);

Writeln(f,SpinEdit14.Value);

Writeln(f,SpinEdit15.Value);

CloseFile(f);

Rewrite(f,s+\Exprof58mm32.dat);

Writeln(f,SpinEdit16.Value);

Writeln(f,SpinEdit17.Value);

Writeln(f,SpinEdit18.Value);

CloseFile(f);

Rewrite(f,s+\Exprof101mm24.dat);

Writeln(f,SpinEdit19.Value);

Writeln(f,SpinEdit20.Value);

Writeln(f,SpinEdit21.Value);

CloseFile(f);

Rewrite(f,s+\Exprof101mm32.dat);

Writeln(f,SpinEdit22.Value);

Writeln(f,SpinEdit23.Value);

Writeln(f,SpinEdit24.Value);

CloseFile(f); end else Exit;

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

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

SpinEdit1.Value:=58; SpinEdit2.Value:=167;

SpinEdit3.Value:=172; SpinEdit4.Value:=67;

SpinEdit5.Value:=175; SpinEdit6.Value:=181;

SpinEdit7.Value:=68; SpinEdit8.Value:=195;

SpinEdit9.Value:=201; SpinEdit10.Value:=79;

SpinEdit11.Value:=204; SpinEdit12.Value:=212;

SpinEdit13.Value:=152; SpinEdit14.Value:=157;

SpinEdit15.Value:=176; SpinEdit16.Value:=165;

SpinEdit17.Value:=170; SpinEdit18.Value:=187;

SpinEdit19.Value:=180; SpinEdit20.Value:=188;

SpinEdit21.Value:=0; SpinEdit22.Value:=194;

SpinEdit23.Value:=200;SpinEdit24.Value:=0; end;

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin form13.show; end;

procedure TForm2.SpeedButton6Click(Sender: TObject);

begin form21.Show; end;

procedure TForm2.SpeedButton7Click(Sender: TObject);

begin form22.Show; end; end.

 

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel;

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

nilthenbegin">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.CmFocus