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

unit Unit12;

interface

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

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

var
  Form12: TForm12;

implementation

{$R *.dfm}

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

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