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

unit Unit9;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Grids;

type
TForm9 = class(TForm)
tab7: TStringGrid;
SpeedButton1: TSpeedButton;
procedure FormActivate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form9: TForm9;

implementation

{$R *.dfm}

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

procedure TForm9.SpeedButton1Click(Sender: TObject);
begin
close;
end;

end.