Geum.ru

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

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

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

begin RichEdit1.Paragraph.Alignment:=taRightJustify; end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

RichEdit1.SetFocus; end;

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin if Form1.SaveDialog1.Execute then

RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); end;

procedure TForm1.SpeedButton6Click(Sender: TObject);

begin if form1.OpenDialog1.Execute then

RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

var f: Integer;

begin for f := 0 to ComponentCount - 1 do begin

if (Components[f] is TEdit) then (Components[f] as TEdit).Text := ;

if (Components[f] is TMaskEdit) then (Components[f] as TMaskEdit).Text := ;

if (Components[f] is TMemo) then (Components[f] as TMemo).Text := ;end;

RichEdit1.Clear;

prof:=;spak:=;mon:=;got:=; got:=;adres:=;fiozam:=;fiozak:=;

Showmessage(Введите все данные по заказу!); end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin RichEdit1.Paragraph.Alignment:=taCenter;end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin Label5.Caption:= Дата + dateToStr(date);

Label11.Caption:=Номер заказа: + intToStr(nzak);

Label9.Caption:= Время + TimeToStr(Time); end;

procedure TForm1.SpeedButton11Click(Sender: TObject);

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; domtel:=MaskEdit3.Text;

sottel:=MaskEdit2.Text; data:=datetostr(DateTimePicker1.Date);

got:=memo4.Text; Form7.Showmodal; end; end;

procedure TForm1.N20Click(Sender: TObject);

begin form5.Showmodal; end;

procedure TForm1.FormCreate(Sender: TObject);

var f:textfile;s:string;

begin CheckEvent := TEvent.Create(nil, false, true, MYPROGRAM_CHECKEXIST);

wrSignaledthen">if CheckEvent.WaitFor(10) <> wrSignaled then

begin Showmessage(Программа уже запущена!);

Self.Close; halt; end;

DateTimePicker1.Date:=Date; odn:=;

dir:=ExtractFilePath(Application.ExeName);

AssignFile(f,dir+\nzak.txt);

Reset(f); Read(f,s); nzak:=StrToInt(s); CloseFile(f); end;

function Search_And_Replace(RichEdit: TRichEdit;

SearchText, ReplaceText: string): Boolean;

var startpos, Position, endpos: integer;

begin startpos := 0;

with RichEdit do begin endpos := Length(RichEdit.Text);

Lines.BeginUpdate;

while FindText(SearchText, startpos, endpos, [stMatchCase])<>-1 do

begin endpos := Length(RichEdit.Text) - startpos;

Position := FindText(SearchText, startpos, endpos, [stMatchCase]);

Inc(startpos, Length(SearchText)); SetFocus; SelStart := Position;

SelLength := Length(SearchText); richedit.clearselection;

SelText := ReplaceText; end;

Lines.EndUpdate; end; end;

procedure TForm1.SpeedButton13Click(Sender: TObject);

Var b,a:string; begin

if (fiozam=)or(fiozak=)or(adres=)

then showmessage(Не введены обязательные параметры!) else

if prof= then Showmessage(Введите информацию о заказе!)else

begin RichEdit1.Lines.LoadFromFile(dir+\Отчеты\ЕвроДом.rtf);

Search_And_Replace(Richedit1, №1,prof );

Search_And_Replace(Richedit1, №2,spak);

Search_And_Replace(Richedit1, №4,mon);

Search_And_Replace(Richedit1, №3,got );

if (SOB=)and(Lam=)and(So9=) then b:=

else if (SOB=)or(Lam=)or(So9=) then begin

if SOB= then b:=Lam+; +So9+; +ton;

if Lam= then b:=SOB+; +So9+; +ton;

if So9= then b:=SOB+; +Lam+; +ton;

if (Lam=)and(So9=) then b:=SOB+; +ton end

else b:=SOB+; +Lam+; +So9+; +ton;

Search_And_Replace(Richedit1, #B,b);

a:=MarkP+(+RazPod+)+Podsen+у.е;

if a=()у.е then a:=;

Search_And_Replace(Richedit1, #A,a );

if sottel=(8) then

Search_And_Replace(Richedit1, #6, )

else

Search_And_Replace(Richedit1, #6,sottel);

Search_And_Replace(Richedit1, #C,itog);

Search_And_Replace(Richedit1, #5,domtel);

Search_And_Replace(Richedit1, #1,fiozam );

Search_And_Replace(Richedit1, #2,data);

Search_And_Replace(Richedit1, #3,fiozak );

Search_And_Replace(Richedit1, #4,adres );

end; end;

procedure TForm1.SpeedButton9Click(Sender: TObject);

begin

RichEdit1.Perform(EM_UNDO, 0, 0);end;

procedure TForm1.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;

#32:begin end;

#46:

else

Key := #0; //"погасить" все остальные клавиши

end;end;

procedure TForm1.Edit2KeyPress(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;

#32:begin end;

#46:

else

Key := #0; //"погасить" все остальные клавиши end;end;

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin RichEdit1.Print(Печать отчета); end;

procedure TForm1.SpeedButton14Click(Sender: TObject);

thenbegin">begin if RichEdit1.Text<> then begin

form10.qrimage1.Picture.LoadFromFile(dir+\temp\+1.bmp);

form10.qrimage2.Picture.LoadFromFile(dir+\temp\+2.bmp);

form10.qrimage3.Picture.LoadFromFile(dir+\temp\+3.bmp);

form10.qrimage4.Picture.LoadFromFile(dir+\temp\+4.bmp);

form10.qrimage5.Picture.LoadFromFile(dir+\temp\+5.bmp);

form10.qrimage6.Picture.LoadFromFile(dir+\temp\+6.bmp);

form10.Show; end

else Showmessage(Сначала создайте отчёт!);end;end.

 

unit Unit2;

interface

uses

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

Dialogs, Buttons, StdCtrls, Spin, jpeg,Unit1, ExtCtrls;

type

TForm2 = class(TForm)

Image1: TImage;GroupBox1: TGroupBox;Label1: TLabel;

Label2: TLabel; Label3: TLabel; Label4: TLabel;

Label5: TLabel; Label6: TLabel; Label7: TLabel;

Label8: TLabel; Label9: TLabel; SpinEdit1: TSpinEdit;

SpinEdit2: TSpinEdit; SpinEdit3: TSpinEdit; SpinEdit4: TSpinEdit;

SpinEdit5: TSpinEdit; SpinEdit6: TSpinEdit; SpinEdit7: TSpinEdit;

SpinEdit8: TSpinEdit; SpinEdit9: TSpinEdit; SpinEdit10: TSpinEdit;

SpinEdit11: TSpinEdit; SpinEdit12: TSpinEdit; GroupBox2: TGroupBox;

Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel;

Label14: TLabel; Label15: TLabel;Label16: TLabel; Label17: TLabel;

Label18: TLabel; SpinEdit13: TSpinEdit; SpinEdit14: TSpinEdit;

SpinEdit15: TSpinEdit; SpinEdit16: TSpinEdit; SpinEdit17: TSpinEdit;

SpinEdit18: TSpinEdit; SpinEdit19: TSpinEdit; SpinEdit20: TSpinEdit;

SpinEdit21: TSpinEdit; SpinEdit22: TSpinEdit; SpinEdit23: TSpinEdit;

SpinEdit24: TSpinEdit; SpeedButton4: TSpeedButton; SpeedButton3: TSpeedButton;

SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton;

SpeedButton6: TSpeedButton; SpeedButton7: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton