Расчет стоимости пластиковых оконных конструкций и дверей
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ue;SpeedButton8.Visible:=true;end;
procedure TForm8.SpeedButton8Click(Sender: TObject);
Var pl,sen:real;
begin
then">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
then">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.Va