4 Курс / переподы / анал / Практика / Покутній Parfum / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Menus, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
tab1: TStringGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N101: TMenuItem;
N5: TMenuItem;
N2201: TMenuItem;
N20111: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Image1: TImage;
Help1: TMenuItem;
procedure FormActivate(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N101Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N2201Click(Sender: TObject);
procedure N20111Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure Help1Click(Sender: TObject);



private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit11, Unit12, Unit13, Unit3;

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
tab1.cells[0,0]:='Штрихкод';
tab1.cells[1,0] :='Тип (Ж.Ч)';
tab1.cells[2,0] :='Дата випуску';
tab1.cells[3,0] :='Термін придатності(років)';
tab1.cells[4,0] :='Країна';
tab1.cells[5,0] :='Ціна(грн)';
tab1.cells[6,0] :='Фірма';
tab1.cells[7,0] :='Кількість(шт)';
tab1.cells[8,0] :='Назва';
tab1.cells[0,1] :='11110';
tab1.cells[0,2] :='11111';
tab1.cells[0,3] :='11112';
tab1.cells[0,4] :='11113';
tab1.cells[0,5] :='11114';
tab1.cells[0,6] :='11115';
tab1.cells[0,7] :='11116';
tab1.cells[0,8] :='11117';
tab1.cells[0,9] :='11118';
tab1.cells[0,10] :='11120';
tab1.cells[0,11] :='11121';
tab1.cells[1,1]:='Ч';
tab1.cells[1,2] :='Ж';
tab1.cells[1,3] :='Ч';
tab1.cells[1,4] :='Ж';
tab1.cells[1,5] :='Ч';
tab1.cells[1,6] :='Ж';
tab1.cells[1,7] :='Ч';
tab1.cells[1,8] :='Ж';
tab1.cells[1,9] :='Ч';
tab1.cells[1,10] :='Ж';
tab1.cells[1,11] :='Ж';
tab1.cells[2,1] :='10.10.2001';
tab1.cells[2,2] :='1.05.2011';
tab1.cells[2,3] :='2.06.2005';
tab1.cells[2,4] :='4.05.2010';
tab1.cells[2,5] :='6.06.2006';
tab1.cells[2,6] :='5.09.2009';
tab1.cells[2,7] :='6.08.2011';
tab1.cells[2,8] :='4.06.2004';
tab1.cells[2,9] :='25.12.2008';
tab1.cells[2,10] :='12.12.2003';
tab1.cells[2,11] :='12.12.2008';
tab1.cells[3,1] :='6';
tab1.cells[3,2] :='5';
tab1.cells[3,3] :='10';
tab1.cells[3,4] :='2';
tab1.cells[3,5] :='20';
tab1.cells[3,6] :='12';
tab1.cells[3,7] :='8';
tab1.cells[3,8] :='4';
tab1.cells[3,9] :='10';
tab1.cells[3,10] :='4';
tab1.cells[3,11] :='1';
tab1.cells[4,1] :='Сантропе';
tab1.cells[4,2] :='Китай';
tab1.cells[4,3] :='Китай';
tab1.cells[4,4] :='Канада';
tab1.cells[4,5] :='Україна';
tab1.cells[4,6] :='Франція';
tab1.cells[4,7] :='Франція';
tab1.cells[4,8] :='Росія';
tab1.cells[4,9] :='Франція';
tab1.cells[4,10] :='Британія';
tab1.cells[4,11] :='Франція';
tab1.cells[5,1] :='50';
tab1.cells[5,2] :='170';
tab1.cells[5,3] :='90';
tab1.cells[5,4] :='45';
tab1.cells[5,5] :='130';
tab1.cells[5,6] :='150';
tab1.cells[5,7] :='250';
tab1.cells[5,8] :='30';
tab1.cells[5,9] :='120';
tab1.cells[5,10] :='390';
tab1.cells[5,11] :='300';
tab1.cells[6,1] :='Агилера';
tab1.cells[6,2] :='Гранд';
tab1.cells[6,3] :='Антил';
tab1.cells[6,4] :='Парфумс';
tab1.cells[6,5] :='Идол';
tab1.cells[6,6] :='Санекліпс';
tab1.cells[6,7] :='Ейвон';
tab1.cells[6,8] :='Кеті Перрі';
tab1.cells[6,9] :='Агилера';
tab1.cells[6,10] :='Гранд';
tab1.cells[6,11] :='Гранд';
tab1.cells[7,1] :='100';
tab1.cells[7,2] :='200';
tab1.cells[7,3] :='200';
tab1.cells[7,4] :='20';
tab1.cells[7,5] :='300';
tab1.cells[7,6] :='1000';
tab1.cells[7,7] :='200';
tab1.cells[7,8] :='400';
tab1.cells[7,9] :='500';
tab1.cells[7,10] :='243';
tab1.cells[7,11] :='432';
tab1.cells[8,1] :='Кристина';
tab1.cells[8,2] :='Габана';
tab1.cells[8,3] :='Есеншионал';
tab1.cells[8,4] :='Ніна Рііччі';
tab1.cells[8,5] :='Кензо';
tab1.cells[8,6] :='Тройной';
tab1.cells[8,7] :='Армані';
tab1.cells[8,8] :='Босс';
tab1.cells[8,9] :='Дизель';
tab1.cells[8,10] :='Донна Каран';
tab1.cells[8,11] :='Анна Суі';
end;

procedure TForm1.N9Click(Sender: TObject);
begin
begin
form2.visible:=true;
end;
end;


procedure TForm1.N2Click(Sender: TObject);
begin
begin
form4.visible:=true;
end;

end;

procedure TForm1.N3Click(Sender: TObject);
begin
begin
form5.visible:=true;
end;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
begin
form6.visible:=true;
end;
end;

procedure TForm1.N101Click(Sender: TObject);
begin
begin
form7.visible:=true;
end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
begin
form8.visible:=true;
end;
end;

procedure TForm1.N2201Click(Sender: TObject);
begin
begin
form9.visible:=true;
end;
end;

procedure TForm1.N20111Click(Sender: TObject);
begin
begin
form10.visible:=true;
end;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
begin
form11.visible:=true;
end;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
begin
form12.visible:=true;
end;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
begin
form13.visible:=true;
end;
end;





procedure TForm1.Help1Click(Sender: TObject);
begin
begin
form3.visible:=true;
end;
end;
end.