Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:4 Курс / переподы / анал / Практика / Покутній Parfum / Unit13
.pas unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Grids;
type
TForm13 = class(TForm)
tab11: TStringGrid;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
{$R *.dfm}
procedure TForm13.SpeedButton1Click(Sender: TObject);
begin
close;
end;
procedure TForm13.FormActivate(Sender: TObject);
begin
tab11.cells[0,0]:='Штрихкод';
tab11.cells[1,0] :='Тип (Ж.Ч)';
tab11.cells[2,0] :='Дата випуску';
tab11.cells[3,0] :='Термін придатності(років)';
tab11.cells[4,0] :='Країна';
tab11.cells[5,0] :='Ціна(грн)';
tab11.cells[6,0] :='Фірма';
tab11.cells[7,0] :='Кількість(шт)';
tab11.cells[8,0] :='Назва';
tab11.cells[0,1] :='11115';
tab11.cells[1,1]:='Ж';
tab11.cells[2,1] :='5.09.2009';
tab11.cells[3,1] :='12';
tab11.cells[4,1] :='Франція';
tab11.cells[5,1] :='150';
tab11.cells[6,1] :='Санекліпс';
tab11.cells[7,1] :='1000';
tab11.cells[8,1] :='Тройной';
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Grids;
type
TForm13 = class(TForm)
tab11: TStringGrid;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
{$R *.dfm}
procedure TForm13.SpeedButton1Click(Sender: TObject);
begin
close;
end;
procedure TForm13.FormActivate(Sender: TObject);
begin
tab11.cells[0,0]:='Штрихкод';
tab11.cells[1,0] :='Тип (Ж.Ч)';
tab11.cells[2,0] :='Дата випуску';
tab11.cells[3,0] :='Термін придатності(років)';
tab11.cells[4,0] :='Країна';
tab11.cells[5,0] :='Ціна(грн)';
tab11.cells[6,0] :='Фірма';
tab11.cells[7,0] :='Кількість(шт)';
tab11.cells[8,0] :='Назва';
tab11.cells[0,1] :='11115';
tab11.cells[1,1]:='Ж';
tab11.cells[2,1] :='5.09.2009';
tab11.cells[3,1] :='12';
tab11.cells[4,1] :='Франція';
tab11.cells[5,1] :='150';
tab11.cells[6,1] :='Санекліпс';
tab11.cells[7,1] :='1000';
tab11.cells[8,1] :='Тройной';
end;
end.
Соседние файлы в папке Покутній Parfum