Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:4 Курс / переподы / анал / Практика / Покутній Parfum / Unit6
.pas unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Buttons;
type
TForm6 = class(TForm)
tab4: TStringGrid;
SpeedButton1: TSpeedButton;
procedure FormActivate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
procedure TForm6.FormActivate(Sender: TObject);
begin
tab4.cells[0,0]:='Штрихкод';
tab4.cells[1,0] :='Тип (Ж.Ч)';
tab4.cells[2,0] :='Дата випуску';
tab4.cells[3,0] :='Термін придатності(років)';
tab4.cells[4,0] :='Країна';
tab4.cells[5,0] :='Ціна(грн)';
tab4.cells[6,0] :='Фірма';
tab4.cells[7,0] :='Кількість(шт)';
tab4.cells[8,0] :='Назва';
tab4.cells[0,1] :='11110';
tab4.cells[0,2] :='11112';
tab4.cells[0,3] :='11113';
tab4.cells[0,4] :='11117';
tab4.cells[1,1]:='Ч';
tab4.cells[1,2] :='Ч';
tab4.cells[1,3] :='Ж';
tab4.cells[1,4] :='Ж';
tab4.cells[2,1] :='10.10.2001';
tab4.cells[2,2] :='2.06.2005';
tab4.cells[2,3] :='4.05.2010';
tab4.cells[2,4] :='4.06.2004';
tab4.cells[3,1] :='6';
tab4.cells[3,2] :='10';
tab4.cells[3,3] :='2';
tab4.cells[3,4] :='4';
tab4.cells[4,1] :='Сантропе';
tab4.cells[4,2] :='Китай';
tab4.cells[4,3] :='Канада';
tab4.cells[4,4] :='Росія';
tab4.cells[5,1] :='50';
tab4.cells[5,2] :='90';
tab4.cells[5,3] :='45';
tab4.cells[5,4] :='30';
tab4.cells[6,1] :='Агилера';
tab4.cells[6,2] :='Антил';
tab4.cells[6,3] :='Парфумс';
tab4.cells[6,4] :='Кеті Перрі';
tab4.cells[7,1] :='100';
tab4.cells[7,2] :='200';
tab4.cells[7,3] :='20';
tab4.cells[7,4] :='400';
tab4.cells[8,1] :='Кристина';
tab4.cells[8,2] :='Есеншионал';
tab4.cells[8,3] :='Ніна Річчі';
tab4.cells[8,4] :='Босс';
end;
procedure TForm6.SpeedButton1Click(Sender: TObject);
begin
close;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Buttons;
type
TForm6 = class(TForm)
tab4: TStringGrid;
SpeedButton1: TSpeedButton;
procedure FormActivate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
procedure TForm6.FormActivate(Sender: TObject);
begin
tab4.cells[0,0]:='Штрихкод';
tab4.cells[1,0] :='Тип (Ж.Ч)';
tab4.cells[2,0] :='Дата випуску';
tab4.cells[3,0] :='Термін придатності(років)';
tab4.cells[4,0] :='Країна';
tab4.cells[5,0] :='Ціна(грн)';
tab4.cells[6,0] :='Фірма';
tab4.cells[7,0] :='Кількість(шт)';
tab4.cells[8,0] :='Назва';
tab4.cells[0,1] :='11110';
tab4.cells[0,2] :='11112';
tab4.cells[0,3] :='11113';
tab4.cells[0,4] :='11117';
tab4.cells[1,1]:='Ч';
tab4.cells[1,2] :='Ч';
tab4.cells[1,3] :='Ж';
tab4.cells[1,4] :='Ж';
tab4.cells[2,1] :='10.10.2001';
tab4.cells[2,2] :='2.06.2005';
tab4.cells[2,3] :='4.05.2010';
tab4.cells[2,4] :='4.06.2004';
tab4.cells[3,1] :='6';
tab4.cells[3,2] :='10';
tab4.cells[3,3] :='2';
tab4.cells[3,4] :='4';
tab4.cells[4,1] :='Сантропе';
tab4.cells[4,2] :='Китай';
tab4.cells[4,3] :='Канада';
tab4.cells[4,4] :='Росія';
tab4.cells[5,1] :='50';
tab4.cells[5,2] :='90';
tab4.cells[5,3] :='45';
tab4.cells[5,4] :='30';
tab4.cells[6,1] :='Агилера';
tab4.cells[6,2] :='Антил';
tab4.cells[6,3] :='Парфумс';
tab4.cells[6,4] :='Кеті Перрі';
tab4.cells[7,1] :='100';
tab4.cells[7,2] :='200';
tab4.cells[7,3] :='20';
tab4.cells[7,4] :='400';
tab4.cells[8,1] :='Кристина';
tab4.cells[8,2] :='Есеншионал';
tab4.cells[8,3] :='Ніна Річчі';
tab4.cells[8,4] :='Босс';
end;
procedure TForm6.SpeedButton1Click(Sender: TObject);
begin
close;
end;
end.
Соседние файлы в папке Покутній Parfum