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

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Tab1: TStringGrid;
BitBtn1: TBitBtn;
Button1: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
Button3: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
procedure FormActivate(Sender: TObject);


procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i:integer;

implementation

uses Unit2, Unit3;



{$R *.dfm}

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[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[0,12] :='21ган';
tab1.cells[0,13] :='Амгоінін';
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[1,13] :='Нестер';
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[2,13] :='Неверсмайл';
tab1.cells[3,1] :='Тайм';
tab1.cells[3,2] :='Гріндей';
tab1.cells[3,3] :='Олзетремейнс';
tab1.cells[3,4] :='Депешмод';
tab1.cells[3,5] :='СоД';
tab1.cells[3,6] :='БСЕ';
tab1.cells[3,7] :='Ноізія';
tab1.cells[3,8] :='Пендулум';
tab1.cells[3,9] :='Раско';
tab1.cells[3,10] :='Ільніньйо';
tab1.cells[3,11] :='Шріланка';
tab1.cells[3,12] :='Елвіспреслі';
tab1.cells[3,13] :='АС/ДЦ';
tab1.cells[4,1] :='10.10.1998';
tab1.cells[4,2] :='01.03.2001';
tab1.cells[4,3] :='18.12.2010';
tab1.cells[4,4] :='06.04.2003';
tab1.cells[4,5] :='26.09.2005';
tab1.cells[4,6] :='14.02.2001';
tab1.cells[4,7] :='08.10.2009';
tab1.cells[4,8] :='25.08.2004';
tab1.cells[4,9] :='05.03.2006';
tab1.cells[4,10] :='07.09.2007';
tab1.cells[4,11] :='31.09.2009';
tab1.cells[4,12] :='26.11.2004';
tab1.cells[4,13] :='01.03.1995';
tab1.cells[5,1] :='Софія';
tab1.cells[5,2] :='Ієріхон';
tab1.cells[5,3] :='Гадес';
tab1.cells[5,4] :='Мемфіс';
tab1.cells[5,5] :='Ольвія';
tab1.cells[5,6] :='Токіо';
tab1.cells[5,7] :='Мубай';
tab1.cells[5,8] :='Калькутта';
tab1.cells[5,9] :='Санпауло';
tab1.cells[5,10] :='Ньюйорк';
tab1.cells[5,11] :='Буеносайрес';
tab1.cells[5,12] :='Сартовало';
tab1.cells[5,13] :='Амстердам'

end;







procedure TForm1.Button3Click(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[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[0,12] :='21ган';
tab1.cells[0,13] :='Амгоінін';
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[1,13] :='Нестер';
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[2,13] :='Неверсмайл';
tab1.cells[3,1] :='Тайм';
tab1.cells[3,2] :='Гріндей';
tab1.cells[3,3] :='Олзетремейнс';
tab1.cells[3,4] :='Депешмод';
tab1.cells[3,5] :='СоД';
tab1.cells[3,6] :='БСЕ';
tab1.cells[3,7] :='Ноізія';
tab1.cells[3,8] :='Пендулум';
tab1.cells[3,9] :='Раско';
tab1.cells[3,10] :='Ільніньйо';
tab1.cells[3,11] :='Шріланка';
tab1.cells[3,12] :='Елвіспреслі';
tab1.cells[3,13] :='АС/ДЦ';
tab1.cells[4,1] :='10.10.1998';
tab1.cells[4,2] :='01.03.2001';
tab1.cells[4,3] :='18.12.2010';
tab1.cells[4,4] :='06.04.2003';
tab1.cells[4,5] :='26.09.2005';
tab1.cells[4,6] :='14.02.2001';
tab1.cells[4,7] :='08.10.2009';
tab1.cells[4,8] :='25.08.2004';
tab1.cells[4,9] :='05.03.2006';
tab1.cells[4,10] :='07.09.2007';
tab1.cells[4,11] :='31.09.2009';
tab1.cells[4,12] :='26.11.2004';
tab1.cells[4,13] :='01.03.1995';
tab1.cells[5,1] :='Софія';
tab1.cells[5,2] :='Ієріхон';
tab1.cells[5,3] :='Гадес';
tab1.cells[5,4] :='Мемфіс';
tab1.cells[5,5] :='Ольвія';
tab1.cells[5,6] :='Токіо';
tab1.cells[5,7] :='Мубай';
tab1.cells[5,8] :='Калькутта';
tab1.cells[5,9] :='Санпауло';
tab1.cells[5,10] :='Ньюйорк';
tab1.cells[5,11] :='Буеносайрес';
tab1.cells[5,12] :='Сартовало';
tab1.cells[5,13] :='Амстердам'
end;



procedure TForm1.Button1Click(Sender: TObject);
var k:string;
begin
form1.Visible:=false;
form3.Visible:=true;
if radiobutton1.checked=true then
begin
form3.StringGrid1.cells[0,1] :='Бедбойс';
form3.StringGrid1.cells[0,2] :='Холдон';
form3.StringGrid1.cells[0,3] :='Стрімлайн';
end;
if radiobutton2.Checked=true then
begin
form3.StringGrid1.cells[4,1] :='06.04.2003';
form3.StringGrid1.cells[4,2] :='25.08.2004';
end;

if radiobutton6.checked=true then
begin
form3.StringGrid1.cells[0,1] :='Насенелсметер';
end;
if radiobutton3.checked=true then
begin
form3.StringGrid1.cells[3,1] :='Депешмод';
form3.StringGrid1.cells[3,2] :='Пендулум';
end;
if radiobutton4.Checked=true then
begin
form3.StringGrid1.cells[5,1]:='Софія';
end;
if radiobutton5.checked=true then
begin
form3.StringGrid1.cells[0,0]:='Броаймпро';
form3.StringGrid1.cells[0,2] :='Насенелсметер';
form3.StringGrid1.cells[0,3] :='Бедбойс';
form3.StringGrid1.cells[0,4] :='Гіперсан';
form3.StringGrid1.cells[0,5] :='Тріптуамстердам';
form3.StringGrid1.cells[0,6] :='Сетміонфаєр';
form3.StringGrid1.cells[0,7] :='Холдон';
form3.StringGrid1.cells[0,8] :='Бекінблек';
form3.StringGrid1.cells[0,9] :='Амеріканідіотс';
form3.StringGrid1.cells[0,10] :='Зесан';
form3.StringGrid1.cells[0,11] :='Стрімлайн';
form3.StringGrid1.cells[0,12] :='21ган';
form3.StringGrid1.cells[0,13] :='Амгоінін';
form3.StringGrid1.cells[1,1]:='Пупкін';
form3.StringGrid1.cells[1,2] :='Рижий';
form3.StringGrid1.cells[1,3] :='Самуро';
form3.StringGrid1.cells[1,4] :='Тикітай';
form3.StringGrid1.cells[1,5] :='Ещемамупозові';
form3.StringGrid1.cells[1,6] :='Ненужнослез';
form3.StringGrid1.cells[1,7] :='Емка';
form3.StringGrid1.cells[1,8] :='Тикітай';
form3.StringGrid1.cells[1,9] :='Арар';
form3.StringGrid1.cells[1,10] :='Юшкін';
form3.StringGrid1.cells[1,11] :='Каен';
form3.StringGrid1.cells[1,12] :='Дастен';
form3.StringGrid1.cells[1,13] :='Нестер';
form3.StringGrid1.cells[2,1] :='Лялькавуду';
form3.StringGrid1.cells[2,2] :='Грілочка';
form3.StringGrid1.cells[2,3] :='Шуфітінскій';
form3.StringGrid1.cells[2,4] :='Мексеканець';
form3.StringGrid1.cells[2,5] :='Сакуралол';
form3.StringGrid1.cells[2,6] :='Гузалинапро';
form3.StringGrid1.cells[2,7] :='Скампер';
form3.StringGrid1.cells[2,8] :='Існейн';
form3.StringGrid1.cells[2,9] :='Філь';
form3.StringGrid1.cells[2,10] :='Джанглав';
form3.StringGrid1.cells[2,11] :='Сайлентбоб';
form3.StringGrid1.cells[2,12] :='Джейнпро';
form3.StringGrid1.cells[2,13] :='Неверсмайл';
form3.StringGrid1.cells[3,1] :='Тайм';
form3.StringGrid1.cells[3,2] :='Гріндей';
form3.StringGrid1.cells[3,3] :='Олзетремейнс';
form3.StringGrid1.cells[3,4] :='Депешмод';
form3.StringGrid1.cells[3,5] :='СоД';
form3.StringGrid1.cells[3,6] :='БСЕ';
form3.StringGrid1.cells[3,7] :='Ноізія';
form3.StringGrid1.cells[3,8] :='Пендулум';
form3.StringGrid1.cells[3,9] :='Раско';
form3.StringGrid1.cells[3,10] :='Ільніньйо';
form3.StringGrid1.cells[3,11] :='Шріланка';
form3.StringGrid1.cells[3,12] :='Елвіспреслі';
form3.StringGrid1.cells[3,13] :='АС/ДЦ';
form3.StringGrid1.cells[4,1] :='10.10.1998';
form3.StringGrid1.cells[4,2] :='01.03.2001';
form3.StringGrid1.cells[4,3] :='18.12.2010';
form3.StringGrid1.cells[4,4] :='06.04.2003';
form3.StringGrid1.cells[4,5] :='26.09.2005';
form3.StringGrid1.cells[4,6] :='14.02.2001';
form3.StringGrid1.cells[4,7] :='08.10.2009';
form3.StringGrid1.cells[4,8] :='25.08.2004';
form3.StringGrid1.cells[4,9] :='05.03.2006';
form3.StringGrid1.cells[4,10] :='07.09.2007';
form3.StringGrid1.cells[4,11] :='31.09.2009';
form3.StringGrid1.cells[4,12] :='26.11.2004';
form3.StringGrid1.cells[4,13] :='01.03.1995';
form3.StringGrid1.cells[5,1] :='Софія';
form3.StringGrid1.cells[5,2] :='Ієріхон';
form3.StringGrid1.cells[5,3] :='Гадес';
form3.StringGrid1.cells[5,4] :='Мемфіс';
form3.StringGrid1.cells[5,5] :='Ольвія';
form3.StringGrid1.cells[5,6] :='Токіо';
form3.StringGrid1.cells[5,7] :='Мубай';
form3.StringGrid1.cells[5,8] :='Калькутта';
form3.StringGrid1.cells[5,9] :='Санпауло';
form3.StringGrid1.cells[5,10] :='Ньюйорк';
form3.StringGrid1.cells[5,11] :='Буеносайрес';
form3.StringGrid1.cells[5,12] :='Сартовало';
form3.StringGrid1.cells[5,13] :='Амстердам';
form3.StringGrid1.rows[1].clear;
form3.StringGrid1.rows[13].clear;
form3.StringGrid1.cells[0,0]:='Назва';
form3.StringGrid1.cells[1,0] :='Композитор';
form3.StringGrid1.cells[2,0] :='Поет';
form3.StringGrid1.cells[3,0] :='Виконавець';
form3.StringGrid1.cells[4,0] :='Дата першого виконання';
form3.StringGrid1.cells[5,0] :='Місто';
end;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
aboutbox.showmodal;
end;

end.