Тестування програми

9 Тестування програми

Тестування програми – це один із способів перевірити програму на її правильну роботу. Воно допомагає виявити помилки та виправити їх. Також тестування допомагає виявити які необхідні мінімальні запити до комп’ютера.

Перш за все перевірялось чи не виникає проблем при запуску та закритті програми. Потім маємо перевірити програму безпосередньо на готовому працюючому коді. Для цього введемо будь-яку з відомих нам вулиць і натиснемо пошук. Цей експеримент пройшов успішно, вулицю знайдено. Але вже при наступному виборі на екрані монітора застигла минула вулиця. Це можна віднести до збою в програмі. Перевіривши по новому код програми і переправивши деякі команди програма запрацювала нормально, бо при наступному запуску, та перевірці вже було все гаразд. Вулиця чітко виводилась на екран монітора, та зникала при виборі наступної. Також тестувалася програма на вибір вулиці та відсортування вулиць по їх розміщенню в різних районах міста. При виборі вулиці на екран з’явилась шукана вулиця.

Дана програма також тестувалась на різних комп’ютерах з різними операційними системами класу Windows. Зокрема програма показала свою швидкодії та коректну роботу на операційній системі Windows XP Professional. Також на даних комп’ютерах було встановлено різне апаратне забезпечення, яке показувало конкретні недоліки та не доопрацювання в програмі. В результаті цього тесту, було перевірено, як програма поводить себе на різних комп’ютерах. Вона довго завантажувалась на старих машина, не коректно працювала. Або відкривалась за декілька секунд, на операційних системах, де швидкодія процесора, та оперативної пам’яті вистачало. Програма тестувалась близько ста разів. За цей час сталось багато змін в коді програми. Програма під час тестування показала певний ряд різноманітних помилок як орфографічних та логічних помилок, які були виправлені по ходу опрацювання тестування. Тестування пройшло успішно, тому можна сказати що програма повністю готова до експлуатування.

10 Інструкція з експлуатації програми

Для роботи програми комп’ютер повинен відповідати таким умовам:

ü   Windows 9x/2000/ME/XP

ü   Pentium III 1000MGz

ü   256 Mb Ram

ü   64 Mb video card

ü   CD-ROM

ü   260 МВ вільного місця

ü   Наявність мишки та клавіатури

Для того щоб встановити програму, необхідно вставити диск з програмою, потім скопіювати повністю папку на комп’ютер. Та запустити програму.

Щоб запустити програму достатньо два рази клацнути на неї, програма знаходиться в папці.

Після запуску програми користувачу потрібно спочатку вибрати одну з трьох дій: Ввести назву, вибрати із вказаних або вибрати район. Після того як користувач ввів правильну назву вулиці йому потрібно натиснути кнопку пошуку. За допомогою неї здійснюється пошук вказаної вулиці. Після чого вулицю буде показано на екран. Якщо вулиця буде введена не вірно то користувач буде повідомлений. Щоб скористатися командою перегляду району необхідно спочатку при виборі району поставити галочку для підтвердження цієї дії. Тоді в списку вибрати потрібний район і він буде завантажений. Щоб відмінити цю команду і перейти до простого сортування необхідно зняти галочку. Також за допомогою команди “нормальний розмір” яка розміщується в головному меню можна переглянути карту повністю. Якщо на карті потрібно знайти пені визначні місця наприклад такі як: театр, кінотеатр, музей та навіть просто бензозаправну, спочатку потрібно знати як воно все позначається. Тут і допоможуть умовні позначення які розміщуються в головному меню. Потрібно вибрати: головне меню “Вид” потім підпункт “Умовні позначення”. Тоді з’являться всі позначення які використовуються на карті.

11 Аналіз отриманих результатів

Аналіз отриманих результатів проводився під час тестування програми. На кожному етапі введення чи вибору вулиці програми виводить потрібні вулиці на монітор якщо назва співпала та виводить помилку якщо такої назви немає. Виконаний проект повністю відповідає усім поставленим вимогам, тому з упевненістю можна сказати, що поставленої мети досягнуто.

В програмі можна вибрати, ввести та відсортувати по районі вулиці.

Після введення чи вибору вулиці вона автоматично буде показана на екрані монітора, і ми можемо пересвідчитись в достовірності роботи програми.

Рисунок 10. Вікно програми перед початком роботи.

Для вибору вулиці натиснемо:

Виберемо вулицю зі списку:

Рисунок 10 Вибір зі списку вулиці.

Рис 11 Знайдена вулиця.

Після того як ми виберемо чи введемо вулицю вона з’явиться на екрані при умові що ви натиснете кнопку підтвердження.

Висновок Для розробки даної програми було необхідно продумати та пояснити кожний крок. Для програмування використовувалось орієнтоване середовище програмування Delphi. Програму можна використовувати для масового розповсюдження. Вона буде популярна серед великої кількості людей у різних вікових групах. В програмі створений простий графічний інтерфейс, який забезпечує легкість у користуванні і чітку зрозумілість для звичайних користувачів. Кожній людині якій буде потрібно знайти вулицю в місті Хмельницького може звернутись по допомогу до цієї програми. В ній наведена докладна історична інформація міста Хмельницького. Також в програмі створена довідка яка допоможе краще ознайомитися користувачу з програмою, коли він не зрозуміє як працює та чи інша команда в програмі.

Поставлена задача у створенні довідника по місту Хмельницькому, була виконана у повному обсязі та з додатковими завданнями, які були поставлені для кращої реалізації проекту. При перевірці працездатності програми на різних комп’ютерах не виникало ніяких проблем, вулиці завжди виводились в тому місці де було потрібно, програма працювала чітко та без помилок. При розробці даного проекту, було використано велику кількість літератури, з метою покращення своїх знань та навичок. Література використовувалась, також з метою докладнішого вивчення властивостей різних елементів. Значно покращились навики, щодо розробки програм на мові програмування Delphi.

До цього проекту була розроблена пояснювальна записка, згідно самостійної розробки аналогічного проекту в середовищі програмування. Дана записка містить одинадцять розділів для зручної розробки проекту. В кожному розділі детально розписані всі дії які буде необхідно виконати для того щоб реалізувати створення даного проекту.

Список використаної літератури:

 

1.       В. Фаронов – Система программирования Delphi;

2.       Глинський Я.М – Turbo Pascal\Delphi 6 – видання;

3.       Кэнту – Delphi для профисионалов;

4.       Краснов – Графика в проектах Delphi;

5.       Марков Є.П. – Програмированье в Delphi 7;

6.       Мозговой М. -Занимательное программирование.

7.       Григас Г. – Начала програмируванье. – М.,1987

8.       Грогоно П. – Програмируванье на языке паскаль.

9.       Спірідонов В.І. – Обчислювальна техніка і програмування.

10.    Глинський Я.М. – Основи інформатики та обчислювальної техніки.

11.    Абрамов С.А – Начала програмируванья на языке Паскаль.

12.    Фаронов В.В. – Delphi 5 учебный курс.

13.    Черняхівський В.В – Сучасна технологія візуального програмування.

14.    Немнюгин – Turbo Pascal.

15.    Климов – Pascal 7.0

16.    Юрий Гурский – Трюки и эффекты в Delphi 7.

17.    Род Стивенс – Delphi. Готовые алгоритмы.

18.    Виктор Пестриков, Артур Маслобоев – Delphi на примерах.

19.    Михаил Фленов – Программирование в Delphi глазами хакера.

Додаток А

 

unit Unit1;

interface

uses

Windows, Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids, Menus, ToolWin, ActnMan,

ActnCtrls, ActnMenus, CheckLst, OleCtrls, AcroPDFLib_TLB, Buttons;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Panel1: TPanel;

ScrollBox1: TScrollBox;

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N5: TMenuItem;

N8: TMenuItem;

N7: TMenuItem;

N10: TMenuItem;

N14: TMenuItem;

N6: TMenuItem;

N16: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Timer1: TTimer;

Button1: TButton;

ComboBox1: TComboBox;

Button2: TButton;

ComboBox2: TComboBox;

TreeView1: TTreeView;

N15: TMenuItem;

N17: TMenuItem;

Button3: TButton;

Label1: TLabel;

ComboBox3: TComboBox;

AcroPDF1: TAcroPDF;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

CheckBox1: TCheckBox;

Label2: TLabel;

Label3: TLabel;

N9: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);

procedure N15Click(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);

procedure Panel1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Type Vul=Record

Name:string[35];

X,Y,X1,Y1,X2,Y2,X3,Y3:Integer;

X4,Y4,X5,Y5,X6,Y6,X7,Y7:Integer;

X8,Y8,X9,Y9,X10,Y10,X11,Y11,X12,Y12,X13,Y13:Integer;

end;

var

Form1: TForm1;

A:array[1..313] of vul;

F:file of Vul;

an, ani: byte;

k: integer;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

AcroPDF1.LoadFile ('Дані\Карта\Khmelnitskiy Map.pdf');

ComboBox2.Items.Add('Виставка');

ComboBox2.Items.Add('Гречани');

ComboBox2.Items.Add('Ракове');

ComboBox2.Items.Add('Лезневе');

ComboBox2.Items.Add('Дубове');

ComboBox2.Items.Add('Ружична');

ComboBox2.Items.Add('Катіон');

ComboBox2.Items.Add('Книжківці');

ComboBox2.Items.Add('Центр');

ComboBox2.Items.Add('Озерна');

Button1.Enabled:=false;

Button2.Enabled:=false;

Button3.Enabled:=false;

TreeView1.Enabled:=false;

RadioButton1.Checked:=true;

AssignFile(F, 'Дані/Вулиці/Координати вулиць.DKH');

Reset(F);

for i:=1 to 313 do begin

Read(F,A[i]);

ComboBox1.Items.Add(A[i].Name);

ComboBox3.Items.Add(A[i].Name);

end;

CloseFile(f);

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

znaydeno: boolean;

begin

PatBlt(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight, WHITENESS);

znaydeno:=false;

for I:=1 to 313 do

if ComboBox3.Text=A[i].Name Then begin K:=I;

Image1.Align:=alNone;

znaydeno:=true;

ani:=1;

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=true;

Image1.Canvas.Pen.Mode:=Pmxor;

Image1.Canvas.Pen.Color :=$af;

Image1.Canvas.Pen.Width := 6;

ScrollBox1.HorzScrollBar.Position:=a[k].X-160;

ScrollBox1.VertScrollBar.Position:=a[k].Y-380;

if znaydeno=false then begin

ShowMessage('Ведіть правильну назву вулиці!');

ComboBox3.Clear;

ComboBox3.SetFocus;

ComboBox3.SelectAll;

end;

end;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

RadioButton1.Checked:= true;

ComboBox3.SetFocus;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Halt;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Image1.Canvas.Pen.Mode:=Pmxor;

if(ani=1)or(an=1) then begin

Image1.Canvas.MoveTo(a[k].x,a[k].y);

Image1.Canvas.LineTo(a[k].x1,a[k].y1);

Image1.Canvas.MoveTo(a[k].X1,a[k].y1);

Image1.Canvas.LineTo(a[k].X2,a[k].Y2);

Image1.Canvas.MoveTo(a[k].X2,a[k].y2);

Image1.Canvas.LineTo(a[k].X3,a[k].Y3);

Image1.Canvas.MoveTo(a[k].X3,a[k].y3);

Image1.Canvas.LineTo(a[k].X4,a[k].Y4);

Image1.Canvas.MoveTo(a[k].X4,a[k].y4);

Image1.Canvas.LineTo(a[k].X5,a[k].Y5);

Image1.Canvas.MoveTo(a[k].X5,a[k].y5);

Image1.Canvas.LineTo(a[k].X6,a[k].Y6);

Image1.Canvas.MoveTo(a[k].X6,a[k].y6);

Image1.Canvas.LineTo(a[k].X7,a[k].Y7);

Image1.Canvas.MoveTo(a[k].X7,a[k].y7);

Image1.Canvas.LineTo(a[k].X8,a[k].Y8);

Image1.Canvas.MoveTo(a[k].X8,a[k].y8);

Image1.Canvas.LineTo(a[k].X9,a[k].Y9);

Image1.Canvas.MoveTo(a[k].X9,a[k].y9);

Image1.Canvas.LineTo(a[k].X10,a[k].Y10);

Image1.Canvas.MoveTo(a[k].X10,a[k].y10);

Image1.Canvas.LineTo(a[k].X11,a[k].Y11);

Image1.Canvas.MoveTo(a[k].X11,a[k].y11);

Image1.Canvas.LineTo(a[k].X12,a[k].Y12);

Image1.Canvas.MoveTo(a[k].X12,a[k].y12);

Image1.Canvas.LineTo(a[k].X13,a[k].Y13);

end;

if an=0 then an:=1 else an:=0;

end;

procedure TForm1.Button2Click(Sender: TObject);

var i:integer;

begin

PatBlt(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight, WHITENESS);

for I:=1 to 313 do

if ComboBox1.Text=A[i].Name Then begin K:=I;

Image1.Align:=alNone;

ani:=1;

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=true;

Image1.Canvas.Pen.Mode:=Pmxor;

Image1.Canvas.Pen.Color :=$af;

Image1.Canvas.Pen.Width := 6;

ScrollBox1.HorzScrollBar.Position:=a[k].X-160;

ScrollBox1.VertScrollBar.Position:=a[k].Y-380;

end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Image1.AutoSize:=false;

Image1.Align:=alClient;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

RadioButton2.Checked:= true;

ComboBox1.SetFocus;

ComboBox1.DroppedDown := True

end;

procedure TForm1.N4Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TForm1.TreeView1Click(Sender: TObject);

var i:integer;

begin

PatBlt(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight, WHITENESS);

for I:=1 to 313 do

if TreeView1.Selected.Text=A[i].Name Then begin K:=I;

Image1.Align:=alNone;

ani:=1;

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=true;

Image1.Canvas.Pen.Mode:=Pmxor;

Image1.Canvas.Pen.Color :=$af;

Image1.Canvas.Pen.Width := 6;

ScrollBox1.HorzScrollBar.Position:=a[k].X-160;

ScrollBox1.VertScrollBar.Position:=a[k].Y-380;

end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text<>'' then Button2.Enabled:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if ComboBox2.Text<>'' then

TreeView1.Enabled:=true;

if ComboBox2.Text='Виставка' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[2].name);

TreeView1.Items.Add(nil,a[3].name);

TreeView1.Items.Add(nil,a[4].name);

TreeView1.Items.Add(nil,a[5].name);

TreeView1.Items.Add(nil,a[6].name);

TreeView1.Items.Add(nil,a[7].name);

TreeView1.Items.Add(nil,a[8].name);

TreeView1.Items.Add(nil,a[9].name);

TreeView1.Items.Add(nil,a[10].name);

TreeView1.Items.Add(nil,a[11].name);

TreeView1.Items.Add(nil,a[12].name);

TreeView1.Items.Add(nil,a[13].name);

TreeView1.Items.Add(nil,a[26].name);

TreeView1.Items.Add(nil,a[27].name);

End;

if ComboBox2.Text='Озерна' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[14].name);

TreeView1.Items.Add(nil,a[15].name);

TreeView1.Items.Add(nil,a[16].name);

TreeView1.Items.Add(nil,a[17].name);

TreeView1.Items.Add(nil,a[18].name);

TreeView1.Items.Add(nil,a[19].name);

TreeView1.Items.Add(nil,a[20].name);

TreeView1.Items.Add(nil,a[21].name);

TreeView1.Items.Add(nil,a[22].name);

TreeView1.Items.Add(nil,a[23].name);

TreeView1.Items.Add(nil,a[24].name);

TreeView1.Items.Add(nil,a[25].name);

TreeView1.Items.Add(nil,a[28].name);

End;

if ComboBox2.Text='Лезневе' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[29].name);

TreeView1.Items.Add(nil,a[30].name);

TreeView1.Items.Add(nil,a[31].name);

TreeView1.Items.Add(nil,a[32].name);

TreeView1.Items.Add(nil,a[33].name);

TreeView1.Items.Add(nil,a[34].name);

TreeView1.Items.Add(nil,a[35].name);

TreeView1.Items.Add(nil,a[36].name);

TreeView1.Items.Add(nil,a[37].name);

TreeView1.Items.Add(nil,a[38].name);

TreeView1.Items.Add(nil,a[39].name);

TreeView1.Items.Add(nil,a[40].name);

TreeView1.Items.Add(nil,a[41].name);

TreeView1.Items.Add(nil,a[42].name);

TreeView1.Items.Add(nil,a[43].name);

TreeView1.Items.Add(nil,a[44].name);

TreeView1.Items.Add(nil,a[45].name);

TreeView1.Items.Add(nil,a[46].name);

TreeView1.Items.Add(nil,a[47].name);

TreeView1.Items.Add(nil,a[48].name);

TreeView1.Items.Add(nil,a[49].name);

TreeView1.Items.Add(nil,a[50].name);

TreeView1.Items.Add(nil,a[51].name);

TreeView1.Items.Add(nil,a[52].name);

TreeView1.Items.Add(nil,a[53].name);

TreeView1.Items.Add(nil,a[54].name);

TreeView1.Items.Add(nil,a[55].name);

TreeView1.Items.Add(nil,a[56].name);

TreeView1.Items.Add(nil,a[57].name);

TreeView1.Items.Add(nil,a[58].name);

TreeView1.Items.Add(nil,a[59].name);

TreeView1.Items.Add(nil,a[60].name);

TreeView1.Items.Add(nil,a[61].name);

TreeView1.Items.Add(nil,a[62].name);

TreeView1.Items.Add(nil,a[63].name);

TreeView1.Items.Add(nil,a[64].name);

TreeView1.Items.Add(nil,a[65].name);

TreeView1.Items.Add(nil,a[66].name);

End;

if ComboBox2.Text='Центр' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[67].name);

TreeView1.Items.Add(nil,a[68].name);

TreeView1.Items.Add(nil,a[69].name);

TreeView1.Items.Add(nil,a[70].name);

TreeView1.Items.Add(nil,a[71].name);

TreeView1.Items.Add(nil,a[72].name);

TreeView1.Items.Add(nil,a[73].name);

TreeView1.Items.Add(nil,a[74].name);

TreeView1.Items.Add(nil,a[75].name);

TreeView1.Items.Add(nil,a[76].name);

TreeView1.Items.Add(nil,a[77].name);

TreeView1.Items.Add(nil,a[78].name);

TreeView1.Items.Add(nil,a[79].name);

TreeView1.Items.Add(nil,a[80].name);

TreeView1.Items.Add(nil,a[81].name);

TreeView1.Items.Add(nil,a[82].name);

TreeView1.Items.Add(nil,a[83].name);

TreeView1.Items.Add(nil,a[84].name);

TreeView1.Items.Add(nil,a[85].name);

TreeView1.Items.Add(nil,a[86].name);

TreeView1.Items.Add(nil,a[98].name);

TreeView1.Items.Add(nil,a[99].name);

TreeView1.Items.Add(nil,a[100].name);

TreeView1.Items.Add(nil,a[101].name);

TreeView1.Items.Add(nil,a[102].name);

End;

if ComboBox2.Text='Ракове' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[87].name);

TreeView1.Items.Add(nil,a[88].name);

TreeView1.Items.Add(nil,a[89].name);

TreeView1.Items.Add(nil,a[90].name);

TreeView1.Items.Add(nil,a[91].name);

TreeView1.Items.Add(nil,a[92].name);

TreeView1.Items.Add(nil,a[93].name);

TreeView1.Items.Add(nil,a[94].name);

TreeView1.Items.Add(nil,a[95].name);

TreeView1.Items.Add(nil,a[96].name);

TreeView1.Items.Add(nil,a[97].name);

TreeView1.Items.Add(nil,a[112].name);

TreeView1.Items.Add(nil,a[113].name);

TreeView1.Items.Add(nil,a[114].name);

TreeView1.Items.Add(nil,a[115].name);

TreeView1.Items.Add(nil,a[116].name);

TreeView1.Items.Add(nil,a[116].name);

TreeView1.Items.Add(nil,a[117].name);

TreeView1.Items.Add(nil,a[118].name);

TreeView1.Items.Add(nil,a[119].name);

TreeView1.Items.Add(nil,a[313].name);

TreeView1.Items.Add(nil,a[120].name);

TreeView1.Items.Add(nil,a[121].name);

TreeView1.Items.Add(nil,a[122].name);

TreeView1.Items.Add(nil,a[123].name);

TreeView1.Items.Add(nil,a[124].name);

TreeView1.Items.Add(nil,a[125].name);

TreeView1.Items.Add(nil,a[126].name);

TreeView1.Items.Add(nil,a[127].name);

TreeView1.Items.Add(nil,a[128].name);

TreeView1.Items.Add(nil,a[129].name);

TreeView1.Items.Add(nil,a[130].name);

TreeView1.Items.Add(nil,a[131].name);

TreeView1.Items.Add(nil,a[132].name);

TreeView1.Items.Add(nil,a[133].name);

TreeView1.Items.Add(nil,a[134].name);

TreeView1.Items.Add(nil,a[135].name);

TreeView1.Items.Add(nil,a[136].name);

TreeView1.Items.Add(nil,a[137].name);

TreeView1.Items.Add(nil,a[138].name);

TreeView1.Items.Add(nil,a[154].name);

TreeView1.Items.Add(nil,a[155].name);

TreeView1.Items.Add(nil,a[156].name);

TreeView1.Items.Add(nil,a[157].name);

TreeView1.Items.Add(nil,a[158].name);

TreeView1.Items.Add(nil,a[159].name);

TreeView1.Items.Add(nil,a[160].name);

TreeView1.Items.Add(nil,a[161].name);

TreeView1.Items.Add(nil,a[162].name);

TreeView1.Items.Add(nil,a[163].name);

TreeView1.Items.Add(nil,a[164].name);

TreeView1.Items.Add(nil,a[213].name);

TreeView1.Items.Add(nil,a[214].name);

TreeView1.Items.Add(nil,a[215].name);

TreeView1.Items.Add(nil,a[216].name);

TreeView1.Items.Add(nil,a[217].name);

TreeView1.Items.Add(nil,a[218].name);

TreeView1.Items.Add(nil,a[219].name);

End;

if ComboBox2.Text='Ружична' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[165].name);

TreeView1.Items.Add(nil,a[166].name);

TreeView1.Items.Add(nil,a[167].name);

TreeView1.Items.Add(nil,a[168].name);

TreeView1.Items.Add(nil,a[169].name);

TreeView1.Items.Add(nil,a[170].name);

TreeView1.Items.Add(nil,a[171].name);

TreeView1.Items.Add(nil,a[172].name);

TreeView1.Items.Add(nil,a[173].name);

TreeView1.Items.Add(nil,a[174].name);

TreeView1.Items.Add(nil,a[175].name);

TreeView1.Items.Add(nil,a[176].name);

TreeView1.Items.Add(nil,a[177].name);

TreeView1.Items.Add(nil,a[178].name);

TreeView1.Items.Add(nil,a[179].name);

TreeView1.Items.Add(nil,a[180].name);

TreeView1.Items.Add(nil,a[181].name);

TreeView1.Items.Add(nil,a[182].name);

TreeView1.Items.Add(nil,a[183].name);

TreeView1.Items.Add(nil,a[184].name);

TreeView1.Items.Add(nil,a[185].name);

TreeView1.Items.Add(nil,a[186].name);

TreeView1.Items.Add(nil,a[187].name);

TreeView1.Items.Add(nil,a[188].name);

TreeView1.Items.Add(nil,a[189].name);

TreeView1.Items.Add(nil,a[223].name);

TreeView1.Items.Add(nil,a[224].name);

TreeView1.Items.Add(nil,a[225].name);

TreeView1.Items.Add(nil,a[226].name);

TreeView1.Items.Add(nil,a[227].name);

TreeView1.Items.Add(nil,a[228].name);

TreeView1.Items.Add(nil,a[229].name);

TreeView1.Items.Add(nil,a[230].name);

TreeView1.Items.Add(nil,a[231].name);

TreeView1.Items.Add(nil,a[232].name);

TreeView1.Items.Add(nil,a[233].name);

TreeView1.Items.Add(nil,a[234].name);

TreeView1.Items.Add(nil,a[235].name);

TreeView1.Items.Add(nil,a[236].name);

TreeView1.Items.Add(nil,a[237].name);

TreeView1.Items.Add(nil,a[238].name);

TreeView1.Items.Add(nil,a[239].name);

TreeView1.Items.Add(nil,a[240].name);

TreeView1.Items.Add(nil,a[241].name);

TreeView1.Items.Add(nil,a[242].name);

TreeView1.Items.Add(nil,a[243].name);

TreeView1.Items.Add(nil,a[244].name);

TreeView1.Items.Add(nil,a[245].name);

TreeView1.Items.Add(nil,a[246].name);

TreeView1.Items.Add(nil,a[247].name);

TreeView1.Items.Add(nil,a[248].name);

TreeView1.Items.Add(nil,a[249].name);

TreeView1.Items.Add(nil,a[250].name);

TreeView1.Items.Add(nil,a[251].name);

End;

if ComboBox2.Text='Книжківці' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[136].name);

TreeView1.Items.Add(nil,a[139].name);

TreeView1.Items.Add(nil,a[140].name);

TreeView1.Items.Add(nil,a[141].name);

TreeView1.Items.Add(nil,a[142].name);

TreeView1.Items.Add(nil,a[143].name);

TreeView1.Items.Add(nil,a[144].name);

TreeView1.Items.Add(nil,a[145].name);

TreeView1.Items.Add(nil,a[146].name);

TreeView1.Items.Add(nil,a[147].name);

TreeView1.Items.Add(nil,a[148].name);

TreeView1.Items.Add(nil,a[149].name);

TreeView1.Items.Add(nil,a[150].name);

TreeView1.Items.Add(nil,a[151].name);

TreeView1.Items.Add(nil,a[152].name);

TreeView1.Items.Add(nil,a[153].name);

End;

if ComboBox2.Text='Дубове' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[91].name);

TreeView1.Items.Add(nil,a[103].name);

TreeView1.Items.Add(nil,a[104].name);

TreeView1.Items.Add(nil,a[105].name);

TreeView1.Items.Add(nil,a[106].name);

TreeView1.Items.Add(nil,a[107].name);

TreeView1.Items.Add(nil,a[108].name);

TreeView1.Items.Add(nil,a[109].name);

TreeView1.Items.Add(nil,a[110].name);

TreeView1.Items.Add(nil,a[111].name);

TreeView1.Items.Add(nil,a[189].name);

TreeView1.Items.Add(nil,a[190].name);

TreeView1.Items.Add(nil,a[191].name);

TreeView1.Items.Add(nil,a[192].name);

TreeView1.Items.Add(nil,a[193].name);

TreeView1.Items.Add(nil,a[194].name);

TreeView1.Items.Add(nil,a[195].name);

TreeView1.Items.Add(nil,a[196].name);

TreeView1.Items.Add(nil,a[197].name);

TreeView1.Items.Add(nil,a[198].name);

TreeView1.Items.Add(nil,a[199].name);

TreeView1.Items.Add(nil,a[200].name);

TreeView1.Items.Add(nil,a[201].name);

TreeView1.Items.Add(nil,a[202].name);

TreeView1.Items.Add(nil,a[203].name);

TreeView1.Items.Add(nil,a[204].name);

TreeView1.Items.Add(nil,a[205].name);

TreeView1.Items.Add(nil,a[206].name);

TreeView1.Items.Add(nil,a[207].name);

TreeView1.Items.Add(nil,a[208].name);

TreeView1.Items.Add(nil,a[209].name);

TreeView1.Items.Add(nil,a[210].name);

TreeView1.Items.Add(nil,a[211].name);

TreeView1.Items.Add(nil,a[212].name);

TreeView1.Items.Add(nil,a[220].name);

TreeView1.Items.Add(nil,a[221].name);

TreeView1.Items.Add(nil,a[222].name);

End;

if ComboBox2.Text='Катіон' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[252].name);

TreeView1.Items.Add(nil,a[253].name);

TreeView1.Items.Add(nil,a[254].name);

TreeView1.Items.Add(nil,a[255].name);

TreeView1.Items.Add(nil,a[256].name);

TreeView1.Items.Add(nil,a[257].name);

TreeView1.Items.Add(nil,a[258].name);

TreeView1.Items.Add(nil,a[259].name);

TreeView1.Items.Add(nil,a[260].name);

TreeView1.Items.Add(nil,a[261].name);

TreeView1.Items.Add(nil,a[262].name);

TreeView1.Items.Add(nil,a[263].name);

TreeView1.Items.Add(nil,a[264].name);

TreeView1.Items.Add(nil,a[265].name);

TreeView1.Items.Add(nil,a[266].name);

TreeView1.Items.Add(nil,a[267].name);

TreeView1.Items.Add(nil,a[268].name);

TreeView1.Items.Add(nil,a[269].name);

TreeView1.Items.Add(nil,a[270].name);

TreeView1.Items.Add(nil,a[271].name);

TreeView1.Items.Add(nil,a[272].name);

TreeView1.Items.Add(nil,a[273].name);

TreeView1.Items.Add(nil,a[274].name);

End;

if ComboBox2.Text='Гречани' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[275].name);

TreeView1.Items.Add(nil,a[276].name);

TreeView1.Items.Add(nil,a[277].name);

TreeView1.Items.Add(nil,a[278].name);

TreeView1.Items.Add(nil,a[279].name);

TreeView1.Items.Add(nil,a[280].name);

TreeView1.Items.Add(nil,a[281].name);

TreeView1.Items.Add(nil,a[282].name);

TreeView1.Items.Add(nil,a[283].name);

TreeView1.Items.Add(nil,a[284].name);

TreeView1.Items.Add(nil,a[285].name);

TreeView1.Items.Add(nil,a[286].name);

TreeView1.Items.Add(nil,a[287].name);

TreeView1.Items.Add(nil,a[288].name);

TreeView1.Items.Add(nil,a[289].name);

TreeView1.Items.Add(nil,a[290].name);

TreeView1.Items.Add(nil,a[291].name);

TreeView1.Items.Add(nil,a[292].name);

TreeView1.Items.Add(nil,a[293].name);

TreeView1.Items.Add(nil,a[294].name);

TreeView1.Items.Add(nil,a[295].name);

TreeView1.Items.Add(nil,a[296].name);

TreeView1.Items.Add(nil,a[297].name);

TreeView1.Items.Add(nil,a[298].name);

TreeView1.Items.Add(nil,a[299].name);

TreeView1.Items.Add(nil,a[300].name);

TreeView1.Items.Add(nil,a[301].name);

TreeView1.Items.Add(nil,a[302].name);

TreeView1.Items.Add(nil,a[303].name);

TreeView1.Items.Add(nil,a[304].name);

TreeView1.Items.Add(nil,a[305].name);

TreeView1.Items.Add(nil,a[306].name);

TreeView1.Items.Add(nil,a[307].name);

TreeView1.Items.Add(nil,a[308].name);

TreeView1.Items.Add(nil,a[309].name);

TreeView1.Items.Add(nil,a[310].name);

TreeView1.Items.Add(nil,a[311].name);

TreeView1.Items.Add(nil,a[312].name);

end;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

if ComboBox2.Text<>'' then

Button3.Enabled:=true;

if CheckBox1.Checked=true then begin

Image1.AutoSize:=true;

Image1.Align:=alNone;

Image1.Picture.LoadFromFile('Дані\Райони\'+ComboBox2.Text+'.bmp');

ScrollBox1.HorzScrollBar.Position:=800;

ScrollBox1.VertScrollBar.Position:=1200;

end;

end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Button2.Click;

end;

procedure TForm1.ComboBox2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Button3.Click;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

RadioButton3.Checked:= true;

ComboBox2.SetFocus;

ComboBox2.DroppedDown := True

end;

procedure TForm1.ComboBox3Change(Sender: TObject);

begin

if ComboBox3.Text<>'' then Button1.Enabled:=true;

end;

procedure TForm1.ComboBox3KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Button1.Click;

end;

procedure TForm1.Panel1Click(Sender: TObject);

begin

Image1.Canvas.Pen.Mode:=Pmxor;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked = true then begin

ComboBox3.Enabled :=true;

ComboBox1.Enabled :=false;

Button2.Enabled :=false;

ComboBox2.Enabled :=false;

Button3.Enabled :=false;

CheckBox1.Enabled :=false;

Label3.Enabled :=false;

end;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked = true then begin

ComboBox1.Enabled :=true;

ComboBox3.Enabled :=false;

Button1.Enabled :=false;

ComboBox2.Enabled :=false;

Button3.Enabled :=false;

CheckBox1.Enabled :=false;

Label3.Enabled :=false;

end;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

if RadioButton3.Checked = true then begin

ComboBox1.Enabled :=false;

ComboBox3.Enabled :=false;

Button1.Enabled :=false;

Button2.Enabled :=false;

ComboBox2.Enabled :=true;

CheckBox1.Enabled :=true;

Label3.Enabled :=true;

end;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=true then

Button3.Enabled:=false else

Button3.Enabled:=true;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls;

type

TForm2 = class(TForm)

TreeView1: TTreeView;

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm2.TreeView1Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Дані\Справка\'+TreeView1.Selected.Text+'.FSH');

end;

end.

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

OKButton: TButton;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TForm4 = class(TForm)

Panel1: TPanel;

Button1: TButton;

ScrollBox1: TScrollBox;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

Image1.Picture.LoadFromFile('Дані\Умовні позначення\Умовні позначення.jpg');

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm5 = class(TForm)

Memo1: TMemo;

Panel1: TPanel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Дані\Справка\History.FSH');

end;

end.