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

unit Unit4;

interface

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

type
TForm4 = class(TForm)
Tab2: TStringGrid;
tab4: TSpeedButton;
procedure FormActivate(Sender: TObject);
procedure tab4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}



procedure TForm4.FormActivate(Sender: TObject);
begin
tab2.cells[0,0]:='Штрихкод';
tab2.cells[1,0] :='Тип (Ж.Ч)';
tab2.cells[2,0] :='Дата випуску';
tab2.cells[3,0] :='Термін придатності(років)';
tab2.cells[4,0] :='Країна';
tab2.cells[5,0] :='Ціна(грн)';
tab2.cells[6,0] :='Фірма';
tab2.cells[7,0] :='Кількість(шт)';
tab2.cells[8,0] :='Назва';
tab2.cells[0,1] :='11115';
tab2.cells[0,2] :='11116';
tab2.cells[0,3] :='11118';
tab2.cells[0,4] :='11121';
tab2.cells[1,1]:='Ж';
tab2.cells[1,2] :='Ч';
tab2.cells[1,3] :='Ч';
tab2.cells[1,4] :='Ж';
tab2.cells[2,1] :='5.09.2009';
tab2.cells[2,2] :='6.08.2011';
tab2.cells[2,3] :='25.12.2008';
tab2.cells[2,4] :='12.12.2008';
tab2.cells[3,1] :='12';
tab2.cells[3,2] :='8';
tab2.cells[3,3] :='10';
tab2.cells[3,4] :='1';
tab2.cells[4,1] :='Франція';
tab2.cells[4,2] :='Франція';
tab2.cells[4,3] :='Франція';
tab2.cells[4,4] :='Франція';
tab2.cells[5,1] :='150';
tab2.cells[5,2] :='250';
tab2.cells[5,3] :='120';
tab2.cells[5,4] :='300';
tab2.cells[6,1] :='Санекліпс';
tab2.cells[6,2] :='Ейвон';
tab2.cells[6,3] :='Агилера';
tab2.cells[6,4] :='Гранд';
tab2.cells[7,1] :='1000';
tab2.cells[7,2] :='200';
tab2.cells[7,3] :='500';
tab2.cells[7,4] :='432';
tab2.cells[8,1] :='Тройной';
tab2.cells[8,2] :='Армані';
tab2.cells[8,3] :='Дизел';
tab2.cells[8,4] :='Анна Суі';
end;

procedure TForm4.tab4Click(Sender: TObject);
begin
close;
end;



end.