Реферат Розрахунок вартості пластикових віконних конструкцій і дверей

ringGrid1.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;

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;

...