p align="left">podsen:=floattostr(l); razpod:='350'+'x'+inttostr(SpinEdit1.Value); if CheckBox1.Checked=true then l:=l+2.1; z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l; Form8.StringGrid2.Cells[6,1]:=floattostr(z); Form8.StringGrid2.Cells[2,1]:='да'; end; if Combobox1.Text='400' then begin l:=(SpinEdit1.Value*0.001)*strtofloat(h400); podsen:=floattostr(l); razpod:='400'+'x'+inttostr(SpinEdit1.Value); if CheckBox1.Checked=true then l:=l+2.1; z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l; Form8.StringGrid2.Cells[6,1]:=floattostr(z); Form8.StringGrid2.Cells[2,1]:='да'; end; if Combobox1.Text='450' then begin l:=(SpinEdit1.Value*0.001)*strtofloat(h450); podsen:=floattostr(l); razpod:='450'+'x'+inttostr(SpinEdit1.Value); if CheckBox1.Checked=true then l:=l+2.1; z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l; Form8.StringGrid2.Cells[6,1]:=floattostr(z); Form8.StringGrid2.Cells[2,1]:='да'; end; if Combobox1.Text='500' then begin l:=(SpinEdit1.Value*0.001)*strtofloat(h500); podsen:=floattostr(l); razpod:='500'+'x'+inttostr(SpinEdit1.Value); if CheckBox1.Checked=true then l:=l+2.1; z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l; Form8.StringGrid2.Cells[6,1]:=floattostr(z); Form8.StringGrid2.Cells[2,1]:='да'; end; if Combobox1.Text='600' then begin l:=(SpinEdit1.Value*0.001)*strtofloat(h600); podsen:=floattostr(l); razpod:='600'+'x'+inttostr(SpinEdit1.Value); if CheckBox1.Checked=true then l:=l+2.1; z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l; Form8.StringGrid2.Cells[6,1]:=floattostr(z); Form8.StringGrid2.Cells[2,1]:='да'; end; Close end; end else begin Exit; Showmessage('Ошибка чтения файла цены'); end; CloseFile(f); end;end;end;end. unit Unit19; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls,unit8, Spin, jpeg, ExtCtrls; type TForm19 = class(TForm) Image1: TImage; Label13: TLabel;SpinEdit1: TSpinEdit; SpeedButton8: TSpeedButton; Label1: TLabel; procedure SpeedButton8Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form19: TForm19; implementation {$R *.dfm} procedure TForm19.SpeedButton8Click(Sender: TObject); Var pl,sum:real;k:integer; begin if Form8.StringGrid2.Cells [3,1]<>'да' then begin pl:=strtofloat(Form8.StringGrid2.Cells [6,1]); sum:=SpinEdit1.Value*0.003; sum:=pl+sum; Form8.StringGrid2.Cells [6,1]:=floattostr(sum); Form8.StringGrid2.Cells [3,1]:='да'; Close;endelse Showmessage('На этом окне профиль уже учтён!')end;end. unit Unit20; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, Spin, jpeg, ExtCtrls; type TForm20 = class(TForm) Image1: TImage; Label13: TLabel; SpinEdit1: TSpinEdit; Label1: TLabel; SpeedButton8: TSpeedButton; procedure SpeedButton8Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form20: TForm20; implementation uses Unit8; {$R *.dfm} procedure TForm20.SpeedButton8Click(Sender: TObject); Var pl,sum:real;k:integer; begin pl:=strtofloat(Form8.StringGrid2.Cells [6,1]); sum:=SpinEdit1.Value*0.025; sum:=pl+sum; Form8.StringGrid2.Cells [6,1]:=floattostr(sum); if (Components[k] is TSpinEdit) then (Components[k] as TSpinEdit).Value:=0;Close end; end. unit Unit21; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, Buttons, jpeg, unit1, ExtCtrls; type TForm21 = class(TForm) StringGrid3: TStringGrid; Image1: TImage; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; procedure FormCreate(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form21: TForm21; implementation {$R *.dfm} procedure TForm21.FormCreate(Sender: TObject); begin StringGrid3.Cells[0,0]:='Ширина'; StringGrid3.Cells[1,0]:='Moller(Германия)'; StringGrid3.Cells[2,0]:='Ulьtra(Ростов)'; StringGrid3.Cells[0,1]:='100';StringGrid3.Cells[0,2]:='150'; StringGrid3.Cells[0,3]:='200';StringGrid3.Cells[0,4]:='250'; StringGrid3.Cells[0,5]:='300';StringGrid3.Cells[0,6]:='350'; StringGrid3.Cells[0,7]:='400';StringGrid3.Cells[0,8]:='450'; StringGrid3.Cells[0,9]:='500';StringGrid3.Cells[0,10]:='600'; StringGrid3.Cells[0,11]:='700';StringGrid3.Cells[0,12]:='800'; StringGrid3.Cells[1,2]:='10,6';StringGrid3.Cells[1,3]:='12,1'; StringGrid3.Cells[1,4]:='14,5';StringGrid3.Cells[1,5]:='16,8'; StringGrid3.Cells[1,6]:='19,7';StringGrid3.Cells[1,7]:='22,4'; StringGrid3.Cells[1,8]:='25,4';StringGrid3.Cells[1,9]:='31,9'; StringGrid3.Cells[1,10]:='35,9';StringGrid3.Cells[2,1]:='3,8'; StringGrid3.Cells[2,2]:='5,7';StringGrid3.Cells[2,3]:='7,6'; StringGrid3.Cells[2,4]:='9,5';StringGrid3.Cells[2,5]:='11,5'; StringGrid3.Cells[2,6]:='13,4';StringGrid3.Cells[2,7]:='15,3'; StringGrid3.Cells[2,8]:='17,2';StringGrid3.Cells[2,9]:='19,1'; StringGrid3.Cells[2,10]:='21';StringGrid3.Cells[2,11]:='22,9'; StringGrid3.Cells[2,12]:='30,5';end; procedure TForm21.SpeedButton2Click(Sender: TObject); Var s:string;f:textfile; begin {$I-} AssignFile(f,dir+'\Цены\Подоконники\'); {$I+} If IOResult=0 then s:=dir+'\Цены\Подоконники\'; {$I-} Rewrite(f,s+'Moller.dat'); {$I+} If IOResult=0 then begin Writeln(f,StringGrid3.Cells[1,2]);Writeln(f,StringGrid3.Cells[1,3]); Writeln(f,StringGrid3.Cells[1,4]);Writeln(f,StringGrid3.Cells[1,5]); Writeln(f,StringGrid3.Cells[1,6]);Writeln(f,StringGrid3.Cells[1,7]); Writeln(f,StringGrid3.Cells[1,8]);Writeln(f,StringGrid3.Cells[1,9]); Writeln(f,StringGrid3.Cells[1,10]);CloseFile(f); Rewrite(f,s+'Ultra.dat');Writeln(f,StringGrid3.Cells[2,1]); Writeln(f,StringGrid3.Cells[2,2]);Writeln(f,StringGrid3.Cells[2,3]); Writeln(f,StringGrid3.Cells[2,4]);Writeln(f,StringGrid3.Cells[2,5]); Writeln(f,StringGrid3.Cells[2,6]);Writeln(f,StringGrid3.Cells[2,7]); Writeln(f,StringGrid3.Cells[2,8]);Writeln(f,StringGrid3.Cells[2,9]); Writeln(f,StringGrid3.Cells[2,10]);Writeln(f,StringGrid3.Cells[2,11]); Writeln(f,StringGrid3.Cells[2,12]);CloseFile(f); ShowMessage('Данные сохранены успешно!');end else begin Exit;ShowMessage('Ошибка при зиписи в файл!');end;end; procedure TForm21.SpeedButton1Click(Sender: TObject); begin Close;end;end. unit Unit22; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Buttons, jpeg,Unit1, ExtCtrls; type TForm22 = class(TForm) Image1: TImage; StringGrid1: TStringGrid;Label1: TLabel; Label2: TLabel; StringGrid2: TStringGrid;StringGrid3: TStringGrid; Label3: TLabel; SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton; procedure FormCreate(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form22: TForm22; implementation uses Unit13; {$R *.dfm} procedure TForm22.FormCreate(Sender: TObject); begin StringGrid1.Cells[0,0]:='Название';StringGrid1.Cells[1,0]:='Цвет'; StringGrid1.Cells[2,0]:='Светопропуск';StringGrid1.Cells[3,0]:='Цена(1м.кв)'; StringGrid1.Cells[0,1]:='R Silver 20';StringGrid1.Cells[0,2]:='R Silver 35'; StringGrid1.Cells[0,3]:='R Silver 50';StringGrid1.Cells[0,4]:='R Grey 10'; StringGrid1.Cells[0,5]:='R Blue 15';StringGrid1.Cells[0,6]:='R Gold 15'; StringGrid1.Cells[0,7]:='R Green 10';StringGrid1.Cells[0,8]:='R Bronze 10'; StringGrid1.Cells[0,9]:='HP Natural 20';StringGrid1.Cells[0,10]:='HP Natural 35'; StringGrid1.Cells[0,11]:='HP Bronze 35';StringGrid1.Cells[0,12]:='HP Blue 35'; StringGrid1.Cells[0,13]:='HP Green 30';StringGrid1.Cells[1,1]:='Серебро'; StringGrid1.Cells[1,2]:='Серебро';StringGrid1.Cells[1,3]:='Серебро'; StringGrid1.Cells[1,4]:='Серый';StringGrid1.Cells[1,5]:='Голубой'; StringGrid1.Cells[1,6]:='Золото';StringGrid1.Cells[1,7]:='Зеленый'; StringGrid1.Cells[1,8]:='Бронза';StringGrid1.Cells[1,9]:='Нейтральный'; StringGrid1.Cells[1,10]:='Нейтральный';StringGrid1.Cells[1,11]:='Бронза'; StringGrid1.Cells[1,12]:='Голубой';StringGrid1.Cells[1,13]:='Зеленый'; StringGrid1.Cells[2,1]:='18';StringGrid1.Cells[2,2]:='28';StringGrid1.Cells[2,3]:='47'; StringGrid1.Cells[2,4]:='7';StringGrid1.Cells[2,5]:='15';StringGrid1.Cells[2,6]:='15'; StringGrid1.Cells[2,7]:='10';StringGrid1.Cells[2,8]:='8';StringGrid1.Cells[2,9]:='24'; StringGrid1.Cells[2,10]:='35';StringGrid1.Cells[2,11]:='37';StringGrid1.Cells[2,12]:='35'; StringGrid1.Cells[2,13]:='30';StringGrid1.Cells[3,1]:='14,3';StringGrid1.Cells[3,2]:='15,3'; StringGrid1.Cells[3,3]:='15,3';StringGrid1.Cells[3,4]:='15,3';StringGrid1.Cells[3,5]:='15,3'; StringGrid1.Cells[3,6]:='15,3';StringGrid1.Cells[3,7]:='15,3'; StringGrid1.Cells[3,8]:='15,3';StringGrid1.Cells[3,9]:='19,1'; StringGrid1.Cells[3,10]:='19,1';StringGrid1.Cells[3,11]:='19,1'; StringGrid1.Cells[3,12]:='19,1';StringGrid1.Cells[3,13]:='19,1'; StringGrid2.Cells[0,0]:='Название';StringGrid2.Cells[1,0]:='Цвет'; StringGrid2.Cells[2,0]:='Светопропуск';StringGrid2.Cells[3,0]:='Цена(1м.кв)'; StringGrid2.Cells[0,1]:='Matt White';StringGrid2.Cells[0,2]:='Matt Bronze'; StringGrid2.Cells[0,3]:='Matt Silver';StringGrid2.Cells[0,4]:='Black Out'; StringGrid2.Cells[1,1]:='Белый';StringGrid2.Cells[1,2]:='Бронза'; StringGrid2.Cells[1,3]:='Серебро';StringGrid2.Cells[1,4]:='Черный'; StringGrid2.Cells[2,1]:='69';StringGrid2.Cells[2,2]:='36'; StringGrid2.Cells[2,3]:='16';StringGrid2.Cells[2,4]:='0'; StringGrid2.Cells[3,1]:='15,3';StringGrid2.Cells[3,2]:='15,3'; StringGrid2.Cells[3,3]:='15,3';StringGrid2.Cells[3,4]:='17,5'; StringGrid3.Cells[0,0]:='Название';StringGrid3.Cells[1,0]:='Цвет'; StringGrid3.Cells[2,0]:='Светопропуск';StringGrid3.Cells[3,0]:='Цена(1м.кв)'; StringGrid3.Cells[0,1]:='100MIC Silver 20';StringGrid3.Cells[0,2]:='Safety 2 MIL'; StringGrid3.Cells[0,3]:='Safety 4 MIL';StringGrid3.Cells[0,4]:='Safety 7 MIL'; StringGrid3.Cells[0,5]:='Класс защиты А1';StringGrid3.Cells[0,6]:='Класс защиты А2'; StringGrid3.Cells[0,7]:='Класс защиты А3';StringGrid3.Cells[0,8]:='Стекло 4мм'; StringGrid3.Cells[1,1]:='Серебро';StringGrid3.Cells[1,2]:='Прозрачная'; StringGrid3.Cells[1,3]:='Прозрачная';StringGrid3.Cells[1,4]:='Прозрачная'; StringGrid3.Cells[1,8]:='Бронза в массе';StringGrid3.Cells[2,1]:='20'; StringGrid3.Cells[2,2]:='98';StringGrid3.Cells[2,3]:='89'; StringGrid3.Cells[2,4]:='89';StringGrid3.Cells[3,1]:='32,3'; StringGrid3.Cells[3,2]:='24,9';StringGrid3.Cells[3,3]:='27'; StringGrid3.Cells[3,4]:='32,3';StringGrid3.Cells[3,5]:='39,7'; StringGrid3.Cells[3,6]:='52,9';StringGrid3.Cells[3,7]:='79,4'; StringGrid3.Cells[3,8]:='24,4';end; procedure TForm22.SpeedButton2Click(Sender: TObject); Var s:string;f:textfile;begin{$I-} AssignFile(f,dir+'\Цены\Тонировка\');{$I+} If IOResult=0 then s:=dir+'\Цены\Тонировка\';{$I-} Rewrite(f,s+'Prof.dat'); {$I+} If IOResult=0 then begin Writeln(f,StringGrid1.Cells[3,1]);Writeln(f,StringGrid1.Cells[3,2]); Writeln(f,StringGrid1.Cells[3,3]);Writeln(f,StringGrid1.Cells[3,4]); Writeln(f,StringGrid1.Cells[3,5]);Writeln(f,StringGrid1.Cells[3,6]); Writeln(f,StringGrid1.Cells[3,7]);Writeln(f,StringGrid1.Cells[3,8]); Writeln(f,StringGrid1.Cells[3,9]);Writeln(f,StringGrid1.Cells[3,10]); Writeln(f,StringGrid1.Cells[3,11]);Writeln(f,StringGrid1.Cells[3,12]); Writeln(f,StringGrid1.Cells[3,13]);CloseFile(f);Rewrite(f,s+'Dekor.dat'); Writeln(f,StringGrid2.Cells[3,1]);Writeln(f,StringGrid2.Cells[3,2]); Writeln(f,StringGrid2.Cells[3,3]);Writeln(f,StringGrid2.Cells[3,4]); CloseFile(f);Rewrite(f,s+'Udar.dat');Writeln(f,StringGrid3.Cells[3,1]); Writeln(f,StringGrid3.Cells[3,2]);Writeln(f,StringGrid3.Cells[3,3]); Writeln(f,StringGrid3.Cells[3,4]);Writeln(f,StringGrid3.Cells[3,5]); Writeln(f,StringGrid3.Cells[3,6]);Writeln(f,StringGrid3.Cells[3,7]); Writeln(f,StringGrid3.Cells[3,8]);CloseFile(f); ShowMessage('Данные сохранены успешно!');end else beginExit; ShowMessage('Ошибка при зиписи в файл!');end;end; procedure TForm22.SpeedButton1Click(Sender: TObject); begin Close;end;end.
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
|