4 Курс / переподы / анал / Практика / курочкін / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls, Grids, jpeg, Buttons;

type
TForm1 = class(TForm)
Button1: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
N1001: TMenuItem;
N1002: TMenuItem;
C1: TMenuItem;
tab1: TStringGrid;
Image1: TImage;
BitBtn1: TBitBtn;
procedure N5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N1001Click(Sender: TObject);
procedure N1002Click(Sender: TObject);
procedure C1Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
form2.visible:=true;
end;


procedure TForm1.FormActivate(Sender: TObject);
begin
tab1.cells[0,0]:='Назва';
tab1.cells[1,0] :='Фірма';
tab1.cells[2,0] :='Країна';
tab1.cells[3,0] :='Ціна';
tab1.cells[4,0] :='Кількість упаковок';
tab1.cells[5,0] :='Дата випуску';
tab1.cells[6,0] :='Термін придатності';
tab1.cells[0,1] :='Ампиокс';
tab1.cells[0,2] :='Докси-М-Ратиофарм';
tab1.cells[0,3] :='инсти';
tab1.cells[0,4] :='Клотримазол';
tab1.cells[0,5] :='милистан';
tab1.cells[0,6] :='Найз';
tab1.cells[0,7] :='наусилиум';
tab1.cells[0,8] :='омез';
tab1.cells[0,9] :='Оспамокс';
tab1.cells[0,10] :='фамотидин';
tab1.cells[0,11] :='чистые судыны';
tab1.cells[1,1]:='ФК Здоровье';
tab1.cells[1,2] :='ГмбХ';
tab1.cells[1,3] :='прайвет лимитед';
tab1.cells[1,4] :='ХФЗ Борщаговский';
tab1.cells[1,5] :='халскере лимитед';
tab1.cells[1,6] :='Лабораторис ЛТД';
tab1.cells[1,7] :='фармасьютикал лтд';
tab1.cells[1,8] :='лаборатория тлд';
tab1.cells[1,9] :='Сандоз';
tab1.cells[1,10] :='сагмел';
tab1.cells[1,11] :='фк здоровье';
tab1.cells[1,12] :='Фито-чистяков';
tab1.cells[2,1] :='Украина';
tab1.cells[2,2] :='Ниметчина';
tab1.cells[2,3] :='пакистан';
tab1.cells[2,4] :='Украина';
tab1.cells[2,5] :='великобритания';
tab1.cells[2,6] :='Индия';
tab1.cells[2,7] :='индия';
tab1.cells[2,8] :='индия';
tab1.cells[2,9] :='Австрия';
tab1.cells[2,10] :='сша';
tab1.cells[2,11] :='украина';
tab1.cells[2,12] :='украина';
tab1.cells[3,1] :='11';
tab1.cells[3,2] :='16';
tab1.cells[3,3] :='11';
tab1.cells[3,4] :='7';
tab1.cells[3,5] :='9';
tab1.cells[3,6] :='16';
tab1.cells[3,7] :='40';
tab1.cells[3,8] :='33';
tab1.cells[3,9] :='24';
tab1.cells[3,10] :='139';
tab1.cells[3,11] :='2';
tab1.cells[3,12] :='53';

tab1.cells[4,1] :='20';
tab1.cells[4,2] :='80';
tab1.cells[4,3] :='5';
tab1.cells[4,4] :='10';
tab1.cells[4,5] :='12';
tab1.cells[4,6] :='20';
tab1.cells[4,7] :='2';
tab1.cells[4,8] :='4';
tab1.cells[4,9] :='12';
tab1.cells[4,10] :='10';
tab1.cells[4,11] :='10';
tab1.cells[4,12] :='30';

tab1.cells[5,1] :='13.08.2010';
tab1.cells[5,2] :='01.02.2010';
tab1.cells[5,3] :='01.01.2010';
tab1.cells[5,4] :='01.06.2010';
tab1.cells[5,5] :='01.12.2009';
tab1.cells[5,6] :='01.04.2009';
tab1.cells[5,7] :='01.05.2010';
tab1.cells[5,8] :='01.07.2010';
tab1.cells[5,9] :='01.09.2009';
tab1.cells[5,10] :='01.11.2009';
tab1.cells[5,11] :='01.01.2010';
tab1.cells[5,12] :='01.07.2010';

tab1.cells[6,1] :='12.07.2012';
tab1.cells[6,2] :='01.03.2013';
tab1.cells[6,3] :='01.01.2013';
tab1.cells[6,4] :='01.07.2013';
tab1.cells[6,5] :='21.01.2012';
tab1.cells[6,6] :='01.03.2012';
tab1.cells[6,7] :='01.04.2010';
tab1.cells[6,8] :='01.06.2013';
tab1.cells[6,9] :='01.08.2012';
tab1.cells[6,10] :='01.01.2012';
tab1.cells[6,11] :='02.01.2012';
tab1.cells[6,12] :='01.10.2012';

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
n3.Enabled:=true;;
form1.Activate;
end;

procedure TForm1.N1001Click(Sender: TObject);
begin
if tab1.Rowcount<>20 then
begin
tab1.rows[7].clear;
tab1.rows[8].clear;
tab1.rows[9].clear;
tab1.rows[10].clear;
tab1.rows[9].clear;
tab1.rows[10].clear;
tab1.rows[12].clear;
n3.Enabled:=false;
end;
end;

procedure TForm1.N1002Click(Sender: TObject);
begin
if tab1.Rowcount<>20 then
begin
tab1.rows[1].clear;
tab1.rows[2].clear;
tab1.rows[3].clear;
tab1.rows[4].clear;
tab1.rows[5].clear;
tab1.rows[6].clear;
tab1.rows[11].clear;
n3.Enabled:=false;
end;
end;

procedure TForm1.C1Click(Sender: TObject);
begin
tab1.rows[2].clear;
tab1.rows[3].clear;
tab1.rows[5].clear;
tab1.rows[6].clear;
tab1.rows[7].clear;
tab1.rows[8].clear;
tab1.rows[9].clear;
tab1.rows[10].clear;
n3.Enabled:=false;
end;



procedure SortStringGrid(var GenStrGrid: TStringGrid; ThatCol: Integer);
const
TheSeparator = '@';
var
CountItem, I, J, K, ThePosition: integer;
MyList: TStringList;
MyString, TempString: string;
begin
CountItem := GenStrGrid.RowCount;
MyList := TStringList.Create;
MyList.Sorted := False;
try
begin
for I := 1 to (CountItem - 1) do
MyList.Add(GenStrGrid.Rows[I].Strings[ThatCol] + TheSeparator +
GenStrGrid.Rows[I].Text);
Mylist.Sort;
for K := 1 to Mylist.Count do
begin
MyString := MyList.Strings[(K - 1)];
ThePosition := Pos(TheSeparator, MyString);
TempString := '';
TempString := Copy(MyString, (ThePosition + 1), Length(MyString));

MyList.Strings[(K - 1)] := '';
MyList.Strings[(K - 1)] := TempString;
end;
for J := 1 to (CountItem - 1) do
GenStrGrid.Rows[J].Text := MyList.Strings[(J - 1)];
end;
finally
MyList.Free;
end;
end;




end.