|
p align="left">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.Value:=1;close;end;end. unit Unit12; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, Spin, Mask, ComCtrls, Grids, jpeg, ExtCtrls,ShellAPI,Unit1; type TForm12 = class(TForm) GroupBox2: TGroupBox;Label1: TLabel;Image1: TImage; SpeedButton4: TSpeedButton; RichEdit1: TRichEdit; SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton; SpeedButton5: TSpeedButton;ListBox1: TListBox; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure ListBox1Enter(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: Char); procedure FormShow(Sender: TObject); private FPrefix: array[0..255] of char; { Private declarations } public { Public declarations } end; var Form12: TForm12; Count:integer; implementation {$R *.dfm} procedure TForm12.SpeedButton1Click(Sender: TObject); begin close; end; procedure TForm12.SpeedButton4Click(Sender: TObject); begin richedit1.Lines.LoadFromFile(dir+'\БД\'+listbox1.Items.Strings[listbox1.ItemIndex]); end; procedure TForm12.SpeedButton5Click(Sender: TObject); begin RichEdit1.Print('Распечатка заказа'); end; procedure TForm12.ListBox1Enter(Sender: TObject); begin FPrefix[0] := #0; Label1.Caption := StrPas(FPrefix); end; procedure TForm12.FormKeyPress(Sender: TObject; var Key: Char); Var curKey: array[0..1] of char; ndx: integer; begin if ActiveControl = ListBox1 then begin if key = #8 {Backspace (клавиша возврата)} then begin if FPrefix[0] <> #0 then begin FPrefix[StrLen(FPrefix) - 1] := #0;end end else begin curKey[0] := Key; curKey[1] := #0; StrCat(FPrefix, curKey); ndx := SendMessage(ListBox1.Handle, LB_FINDSTRING, -1, longint(@FPrefix)); if ndx <> LB_ERR then ListBox1.ItemIndex := ndx;end; Label1.Caption := StrPas(FPrefix); Key := #0;end;end; procedure TForm12.FormShow(Sender: TObject); var F: TSearchRec; Path: string; Attr: Integer; begin Path := dir+'\БД\*.rtf'; Attr := faAnyFile; FindFirst(Path, Attr, F); if F.name <> '' then begin ListBox1.Items.Add(F.name); {Добавление в TListBox имени найденного файла} while FindNext(F) = 0 do ListBox1.Items.Add(F.name); end; FindClose(F);end;end. unit Unit13; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Buttons, unit1,jpeg, ExtCtrls; type TForm13 = class(TForm) Image1: TImage; SpeedButton3: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton; StringGrid1: TStringGrid;Label2: TLabel;Label3: TLabel; Label1: TLabel; procedure FormCreate(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form13: TForm13; implementation {$R *.dfm} procedure TForm13.FormCreate(Sender: TObject); begin Form13.StringGrid1.Cells[0,0]:='Наименование'; Form13.StringGrid1.Cells[0,1]:='Глухой модуль'; Form13.StringGrid1.Cells[0,2]:='Поворотный модуль'; Form13.StringGrid1.Cells[0,3]:='Поворотно-откидной'; Form13.StringGrid1.Cells[0,4]:='Входная дверь'; Form13.StringGrid1.Cells[0,5]:='Балконная поворотная'; Form13.StringGrid1.Cells[0,6]:='Поворотно-откидная '; Form13.StringGrid1.Cells[1,0]:='Высота(мм)'; Form13.StringGrid1.Cells[2,0]:='Ширина(мм)'; Form13.StringGrid1.Cells[3,0]:='Высота(мм)'; Form13.StringGrid1.Cells[4,0]:='Ширина(мм)';end; procedure TForm13.SpeedButton1Click(Sender: TObject); begin Form13.StringGrid1.Cells[1,1]:=inttostr(470); Form13.StringGrid1.Cells[1,2]:=inttostr(520); Form13.StringGrid1.Cells[1,3]:=inttostr(520); Form13.StringGrid1.Cells[1,4]:=inttostr(1000); Form13.StringGrid1.Cells[1,5]:=inttostr(410); Form13.StringGrid1.Cells[1,6]:=inttostr(410); Form13.StringGrid1.Cells[2,1]:=inttostr(400); Form13.StringGrid1.Cells[2,2]:=inttostr(410); Form13.StringGrid1.Cells[2,3]:=inttostr(410); Form13.StringGrid1.Cells[2,4]:=inttostr(530); Form13.StringGrid1.Cells[2,5]:=inttostr(410); Form13.StringGrid1.Cells[2,6]:=inttostr(410); Form13.StringGrid1.Cells[3,1]:=inttostr(2135); Form13.StringGrid1.Cells[3,2]:=inttostr(2250); Form13.StringGrid1.Cells[3,3]:=inttostr(2250); Form13.StringGrid1.Cells[3,4]:=inttostr(2250); Form13.StringGrid1.Cells[3,5]:=inttostr(2250); Form13.StringGrid1.Cells[3,6]:=inttostr(2250); Form13.StringGrid1.Cells[4,1]:=inttostr(2135); Form13.StringGrid1.Cells[4,2]:=inttostr(800); Form13.StringGrid1.Cells[4,3]:=inttostr(800); Form13.StringGrid1.Cells[4,4]:=inttostr(990); Form13.StringGrid1.Cells[4,5]:=inttostr(800); Form13.StringGrid1.Cells[4,6]:=inttostr(800);end; procedure TForm13.SpeedButton2Click(Sender: TObject); Var s:string;f:textfile; begin {$I-} AssignFile(f,dir+'\Технические допуски\'); {$I+} If IOResult=0 then begin s:=dir+'\Технические допуски\'; Rewrite(f,s+'\Глухой модуль.dat'); Writeln(f,Form13.StringGrid1.Cells[1,1]); Writeln(f,Form13.StringGrid1.Cells[2,1]); Writeln(f,Form13.StringGrid1.Cells[3,1]); Writeln(f,Form13.StringGrid1.Cells[4,1]); CloseFile(f); Rewrite(f,s+'\Поворотный модуль.dat'); Writeln(f,Form13.StringGrid1.Cells[1,2]); Writeln(f,Form13.StringGrid1.Cells[2,2]); Writeln(f,Form13.StringGrid1.Cells[3,2]); Writeln(f,Form13.StringGrid1.Cells[4,2]); CloseFile(f); Rewrite(f,s+'\Поворотно-откидной.dat'); Writeln(f,Form13.StringGrid1.Cells[1,3]); Writeln(f,Form13.StringGrid1.Cells[2,3]); Writeln(f,Form13.StringGrid1.Cells[3,3]);
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
| 
