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

unit Unit8;

interface

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

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

var
Form8: TForm8;

implementation

{$R *.dfm}




procedure TForm8.FormActivate(Sender: TObject);
begin
tab5.cells[0,0]:='Штрихкод';
tab5.cells[1,0] :='Тип (Ж.Ч)';
tab5.cells[2,0] :='Дата випуску';
tab5.cells[3,0] :='Термін придатності(років)';
tab5.cells[4,0] :='Країна';
tab5.cells[5,0] :='Ціна(грн)';
tab5.cells[6,0] :='Фірма';
tab5.cells[7,0] :='Кількість(шт)';
tab5.cells[8,0] :='Назва';
tab5.cells[0,1] :='11111';
tab5.cells[0,2] :='11112';
tab5.cells[1,1]:='Ж';
tab5.cells[1,2] :='Ч';
tab5.cells[2,1] :='1.05.2011';
tab5.cells[2,2] :='2.06.2005';
tab5.cells[3,1] :='5';
tab5.cells[3,2] :='10';
tab5.cells[4,1] :='Китай';
tab5.cells[4,2] :='Китай';
tab5.cells[5,1] :='170';
tab5.cells[5,2] :='90';
tab5.cells[6,1] :='Гранд';
tab5.cells[6,2] :='Антил';
tab5.cells[7,1] :='200';
tab5.cells[7,2] :='200';
tab5.cells[8,1] :='Габана';
tab5.cells[8,2] :='Есеншионал';
end;

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

end.