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);
QuickRep1.Preview;end;end.
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, Spin, jpeg, ExtCtrls;
TForm11 = class(TForm)
Image1: TImage; SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton;
Label1: TLabel; SpinEdit1: TSpinEdit; procedure SpeedButton1Click(Sender: TObject);
var Form11: TForm11;
uses Unit16,Unit1;
procedure TForm11.SpeedButton1Click(Sender: TObject);
begin close; end;
procedure TForm11.SpeedButton2Click(Sender: TObject);
kolok:=SpinEdit1.Value;
form16.show;
SpinEdit1.Value:=1;close;end;end.
unit Unit12;
Dialogs, Buttons, StdCtrls, Spin, Mask, ComCtrls, Grids, jpeg, ExtCtrls,ShellAPI,Unit1;
TForm12 = class(TForm)
GroupBox2: TGroupBox;Label1: TLabel;Image1: TImage;
SpeedButton4: TSpeedButton; RichEdit1: TRichEdit; SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton; SpeedButton5: TSpeedButton;ListBox1: TListBox;
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure ListBox1Enter(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
FPrefix: array[0..255] of char;
var Form12: TForm12; Count:integer;
procedure TForm12.SpeedButton1Click(Sender: TObject);
procedure TForm12.SpeedButton4Click(Sender: TObject);
richedit1.Lines.LoadFromFile(dir+'\БД\'+listbox1.Items.Strings[listbox1.ItemIndex]);
procedure TForm12.SpeedButton5Click(Sender: TObject);
RichEdit1.Print('Распечатка заказа');
procedure TForm12.ListBox1Enter(Sender: TObject);
FPrefix[0] := #0;
Label1.Caption := StrPas(FPrefix);
procedure TForm12.FormKeyPress(Sender: TObject; var Key: Char);
Var curKey: array[0..1] of char;
ndx: integer;
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;
Key := #0;end;end;
procedure TForm12.FormShow(Sender: TObject);
var F: TSearchRec; Path: string; Attr: Integer;
Path := dir+'\БД\*.rtf';
Attr := faAnyFile;
FindFirst(Path, Attr, F);
if F.name <> '' then
ListBox1.Items.Add(F.name); {Добавление в TListBox имени найденного файла}
while FindNext(F) = 0 do
ListBox1.Items.Add(F.name); end; FindClose(F);end;end.
unit Unit13;
Dialogs, Grids, StdCtrls, Buttons, unit1,jpeg, ExtCtrls;
TForm13 = class(TForm)
Image1: TImage; SpeedButton3: TSpeedButton; SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton; StringGrid1: TStringGrid;Label2: TLabel;Label3: TLabel;
Label1: TLabel; procedure FormCreate(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
var Form13: TForm13;
procedure TForm13.FormCreate(Sender: TObject);
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);
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;
{$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]);
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]);
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]);
Writeln(f,Form13.StringGrid1.Cells[4,3]);
Rewrite(f,s+'\Входная дверь.dat');
Writeln(f,Form13.StringGrid1.Cells[1,4]);
Writeln(f,Form13.StringGrid1.Cells[2,4]);
Writeln(f,Form13.StringGrid1.Cells[3,4]);
Writeln(f,Form13.StringGrid1.Cells[4,4]);
Rewrite(f,s+'\Балконная поворотная.dat');
Writeln(f,Form13.StringGrid1.Cells[1,5]);
Writeln(f,Form13.StringGrid1.Cells[2,5]);
Writeln(f,Form13.StringGrid1.Cells[3,5]);
Writeln(f,Form13.StringGrid1.Cells[4,5]);
Rewrite(f,s+'\Поворотно-откидная.dat');
Writeln(f,Form13.StringGrid1.Cells[1,6]);
Writeln(f,Form13.StringGrid1.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;
TForm14 = class(TForm)
Image1: TImage; Label20: TLabel; SpinEdit1: TSpinEdit; Label1: TLabel;
SpeedButton14: TSpeedButton;
var Form14: TForm14;
end.
unit Unit15;
Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13