Моделювання комп'ютерної мережі (стаціонарної)

Размещено на http://www.allbest.ru/

ХЕРСОНСЬКИЙ НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ

ФАКУЛЬТЕТ ІНФОРМАЦІЙНИХ ТЕХНОЛОГІЙ ТА ДИЗАЙНУ

КАФЕДРА ІНФОРМАТИКИ І КОМП'ЮТЕРНИХ НАУК

КУРСОВА РОБОТА

На тему: “Моделювання комп'ютерної мережі (стаціонарної)”

Студента 2-курсу група 2КН

Остролуцького Владислава Володимировича

Науковий керівник

Вороненко Марія Олександрівна к.т.н., доц.

Херсон 2020



• Содержание
• Вступ
• 1. Аналіз завдання
• 2. Розробка бібліотеки класів
• 2.1 Діаграма класів
• 2.2 Вибір мови програмування
• 2.3 Реализація класів
• 3. Розробка тестового додатка
• 3.1 Методика тестування
• 3.2 Структура тестового додатку
• 4. Результати тестування
• Список використаних джерел
• Застосування


Вступ

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

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

Великі вкладення в розвиток автоматизації і зв'язку цілком виправдовують себе: завдяки цим коштам поліпшується процес видобутку та переробки корисних копалин, забезпечується оперативний зв'язок з філіями, периферійними офісами, здійснюється контроль над роботою персоналу.

Застосування сучасних інформаційних технологій допоможе вирішити обидві ці проблеми: за рахунок впровадження комп'ютерної техніки та програмного забезпечення на вищому рівні керівництва будуть підтримуватися складні методи прийняття рішень, а на оперативному і середньому рівнях - збиратися і оброблятися необхідна інформація. Управління використовує вихідну інформацію з одного боку, як предмет праці, на вході в систему, а з іншого - має на виході результатом (продуктом) також інформацію у вигляді обґрунтування управлінських рішень. Особливості інформації як предмета праці в наступному:

- можливість багаторазового використання;

- швидке старіння і втрата цінності при несвоєчасному наданні;

- саморозвиток (перехід до нової якості у міру накопичення обсягів);

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

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

Таким чином, для розробки і впровадження програми моделювання комп'ютерної мережі (стаціонарної), повинні сформуватися такі передумови:

- усвідомлення необхідності вирішення комплексу завдань в області інформатизації процесу підтримки діяльності з метою істотного поліпшення керованості організації;

- наявність волі керівництва, розуміння тривалості і трудомісткості процесу впровадження системи;

- наявність кваліфікованих кадрів, які в змозі здійснювати координацію послідовної розробки і впровадження доповнень

При наявності цих передумов в компанії з'являються шанси успішного впровадження комплексної системи автоматизації документообігу.

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

Мета роботи - аналіз засобів організації інформаційної системи підтримки діяльності кабельної системи зв'язку, вибір способів і виконання впровадження програмних рішень побудови програмного додатка а також розробка програмних модулів для виконання завдань обліку структурних схем об'єктів мережі.

Для досягнення поставленої мети необхідно вирішити такі завдання:

- розглянути технології організації зв'язку;

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

- виконати розробку діаграм користування і потоків інформації для удосконалення та оптимізації бізнес-процесів служби підтримки діяльності кабельної системи зв'язку;

- привести обґрунтування обраних технологій створення програмного продукту;

- створити програмні модулі для побудови інтерфейсів служби інформаційної підтримки діяльності.

Структура роботи. Робота складається з вступу, трьох розділів

1. Аналіз роботи

Загальним завданням управління процесами підтримки обслуговування кабельної системи зв'язку є забезпечення максимальної ефективності.

Для пошуку та порівняльного аналізу варіантів таких рішень в останні десятиліття активно залучаються сучасні інформаційні технології (ІТ) і створюються інформаційні системи підтримки діяльності. Спектр функцій, що реалізуються інформаційними системами (ІС) в процесі прийняття рішень, досить широкий.

Як стаціонарний абонентських пристроїв можуть застосовуватися звичайні офісні телефонні апарати з блоками підключення до мережі Ethernet або спеціалізовані маршрутизатори, комутатори, що підключаються до комп'ютерних мереж.

Рисунок 1 структура комунікаційної системи підприємства

Інформація, що надходить з різних джерел, проходить попередню обробку і «складується» в базу даних. Якщо в інформаційній системі використовуються формалізовані знання експертів, то система включає ще й базу знань. Організація ефективного зберігання накопичених даних (і знань) з можливістю їх подальшого гнучкого повторного використання дозволяє скоротити час і знизити трудовитрати на цільову підготовку даних для аналізу і моделювання при розробці варіантів вирішення «нових» завдань.

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

Одним з поширених варіантів ІС, які використовуються в підтримці управління процесами підтримки супроводу систем комунікацій, є інформаційно-довідкові системи, що забезпечують не тільки збереження і надання даних, але і їх кількісну обробку, а також візуалізацію.

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



2. Розробіть класну бібліотеку

2.1 Діаграма класів

В даний час у зв'язку з розробкою і широким впровадженням підтримки якості обслуговування QoS, протоколу передачі трафіку реального часу (RTP, cRTP) в мережах зв'язку на базі протоколу IP, а також протоколів управління мультисервісних (голос / відео / дані) трафіком, таких як, H.323, SIP, MGCP і ін., з'явилася можливість створення інтегрованих мультисервісних корпоративних мереж зв'язку підприємства.

Моделі процесу управління в проблемних ситуаціях для предметної області управління розподіленим динамічним об'єктом корпоративної кабельної мережі показані на рис. 2-3.

Рисунок 2 Діаграма кооперації елементів обчислювальної мережі в процесі передачі повідомленні

На рис. 3 показані моделі взаємодії оператора і ІСППР в процесі моніторингу за станом керованого динамічного об'єкта і обробки тривожних сигналів. На додаток до діаграми станів ІСППР, що моделює процес пошуку рішень, наведено фрагмент діаграми станів з обробки сигналів тривоги.

Рисунок 3 схема співпраці в процесі моніторингу стану об'єкту управління кабелем мережі

ІТС включає мережеве обладнання - маршуртізатори і комутатори IP c підтримкою якості обслуговування і передачі трафіку реального часу, каналоутворювального обладнання; ІТС забезпечує передачу і доведення до користувача всіх мультисервісних послуг.

Організація інформаційного забезпечення грунтується на понятті інформаційної бази - сукупності впорядкованої інформації, яка використовується при функціонуванні інформаційної системи, а також взаємозв'язку різних складових цієї інформації. Організація інформаційної бази впливає на ефективність всієї системи, можливість вирішення функціональних завдань і т.д. Тому при розробці повинні бути прийняті проектні рішення щодо обсягів, розміщення, формам організації інформації, що циркулює в системі.

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

При функціонуванні даної інформаційної системи має здійснюватися контроль вхідний і вихідний інформації, в тому числі даних, що вводяться користувачем і даних, що містяться в таблицях баз даних.

При виконанні операцій по зміні або видалення даних необхідно забезпечити цілісність БД. Для операцій видалення необхідно передбачити можливість скасування. При спробі пошуку даних, відсутніх в базі, повинно виводитися відповідне повідомлення. На цій основі розроблена база даних, що складається з таблиць-довідників і таблиць, що зберігають оперативну інформацію. При розробці БД враховувалися наступні вимоги:

- накласти на вводяться користувачами дані обмеження по діапазонах значень (по числовим значенням, кількості символів) для підтримки логічної вірності даних, що вводяться і уникнути збоїв в системі при невідповідності типів даних і т.п.;

-зберігати довідкові та оперативні дані за первинними документами;

- загублені дані відновлювати з архіву або шляхом повторного введення.

2.2 Вибір мови програмування

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

База даних повинна відповідати поточним потребам організації інформації. Отримана інформація повинна бути відповідно до структури і змісту завдань, які будуть вирішені.

База даних повинна задовольняти актуальним інформаційним потребам організації. Отримана інформація повинна за структурою і змістом відповідати важливість справ.

В якості системи управління базою даних була обрана Microsoft Access. Її популярність можна пов'язувати з гарною реалізацією продукту, розрахованого як на початківця, так і на кваліфікованого користувача.

СУБД Access 7.0 для роботи з даними використовує процесор баз даних Microsoft Jet 3.0, об'єкти доступу до даних і засоби швидкої побудови інтерфейсу-Конструктор форм. Для отримання роздруківок використовуються Конструктори звітів. Автоматизація рутинних операцій може бути виконана за допомогою макрокоманд. На той випадок, коли не вистачає функціональності візуальних засобів користувачі Access можуть звернутися до створення процедур і функцій. При цьому як в макрокомандах можна використовувати виклики функцій, так і з коду процедур і функцій можна виконувати макрокоманди.

Головне якість Access, що залучає до нього багатьох користувачів, - тісна інтеграція з Microsoft Office. Вся робота з базою даних здійснюється через контейнери бази даних. Звідси здійснюється доступ до всіх об'єктів, а саме: таблиць, запитам, формам, звітам, макросам, модулів.

Як середовище розробки автоматизованої системи обрана Delphi.

Загальновизнаним є той факт, що Delphi є універсальним засобом для вирішення найрізноманітніших проблем програмування. У Delphi вдало поєднуються засоби візуального проектування додатків і оптимізуючий компілятор, чого, на жаль, не можна сказати про інших системах RAD. Використовуючи Delphi, можна досягти швидкості програм, написаних на мові C ++, уникнувши при цьому труднощів цієї мови програмування.

Крім ефективності виконуваного коду, кожному розробнику необхідно засіб, яке було б, з одного боку, досить потужним і гнучким, щоб виконати будь-яку стоїть перед ними завдання, а, з іншого боку - було досить простим і зручним в роботі. Така система повинна бути побудована на принципах об'єктно-орієнтованого програмування, і разом з тим, має дозволяти застосовувати, в разі необхідності, асемблер. Вона повинна генерувати не тільки виконувані файли в форматі ЕХЕ, але і створювати файли DLL і драйверів пристроїв. Нарешті, вона поєднувати в собі функції середовища для швидкої розробки баз даних, що не змушувала б їх кожен раз при програмуванні спускатися до ядра СУБД.

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

Однією з найважливіших характеристик засоби розробки систем клієнт / сервер є його масштабованість (scalability), тобто можливість роботи як з найпростішими, так і складними базами даних. Багаторівнева архітектура додатків для роботи з базами даних, створених на Delphi робить дану систему масштабованої в такій мірі, що з нею не може потягатися ніяке інше засіб з наявних на ринку.

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



2.3 Реалізація класу

В якості основного був обраний бізнес-процес «Організація обліку процедур оформлення заявок на обслуговування кабельної мережі». За результатами дослідження процесу стало наочно зрозуміло розподіл функцій між співробітниками. У процесі дослідження не виявлено дублювання функцій, так само не виявлено прихованих ресурсів організації. За підсумками аналізу даного бізнес-процесу були побудовані моделі за методологією IDEF0. Детальніше з ними можна ознайомитися на малюнку 6).

Діаграми потоків даних (Dataflowdiagram, DFD) використовуються для опису документообігу та обробки інформації. Подібно IDEF0, DFD представляє моделируемую систему як мережу пов'язаних між собою робіт. Їх можна використовувати як доповнення до моделі IDEF0 для більш наочного відображення поточних операцій документообігу в корпоративних системах обробки інформації. Головна мета DFD - показати, як кожна робота перетворює свої вхідні дані у вихідні, а також виявити відносини між цими роботами.

Будь-яка DFD-діаграма може містити роботи, зовнішні сутності, стрілки (потоки даних) і сховища даних.

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



Рисунок 4 Діаграма потоків даних

Наступним етапом після визначення інфологічної моделі бази даних предметної області і вибору атрибутів таблиць, є програмна реалізація бази даних в середовищі Delphi. Наведемо підсумкову інформаційну схему даних (Рис.5)

Рисунок 5 Інформаційно-логічна схема бази даних

Для автоматизації введення даних, зміст яких фіксоване і практично не змінюється, були передбачені такі довідники:

? спровочнік видів утворень, у вигляді окремої таблиці і поля, яке зв'язується з допомогою індексу з полем «Освіта» таблиці «Співробітники»;

? довідник посад - містить найменування посади і поточний оклад. Зв'язок довідника по ключовому полю була створена по полю «Посада» таблиці «Сотрднікі»

? довідник місць розташувань - найменувань відділів, виробничих ділянок, пунктів розміщення обладнання служби підтримки. Ключове поле пов'язане з полем «Розташування» таблиці «Абоненти».

Тип зв'язків таблиць, довідників в базі даних було обрано «Один-до-багатьох» (1: М). Зв'язок визначає такий тип зв'язку між сутностями А і В, коли одному екземпляру сутності А може відповідати нуль, один або кілька екземплярів сутності В, проте кожному екземпляру сутності В відповідає тільки один екземпляр сутності А. Означає тип природного відносини між двома сукупностями даних, при якому для кожного окремого елемента з одного боку відносини може перебувати кілька пов'язаних з ним елементів по іншу сторону відносини.

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

В результаті аналізу предметної області завдання були виявлені наступні довідники і документи: Абоненти, Заявки, Співробітники.

Абоненти - довідник, що містить дані про абонентів кабельної мережі.

Заявки - довідник, що містить дані про заявки на обслуговування кабельної мережі.

Співробітники - довідник, що містить дані про співробітників служби підтримки кабельної мережі. Структура довідника представлені нижче.

Табличний вигляд довідника «Абоненти» представлено на рис 6.



Рисунок 6 Структура таблиці Абоненти

Табличний вигляд довідника «Заявки» представлено на рис. 7.

Рисунок 7 Структура таблиці Абоненти

Табличний вигляд довідника «Співробітники» представлено на рис.8.

Рисунок 8 Структура таблиці Абоненти

Табличний вигляд довідника «Посади» представлено на рис.9.



Рисунок 9 Структура таблиці Посади

Табличний вигляд довідника «Освіта» представлено на рис.10.

Рисунок 10 Структура таблиці Освіти

Таблиця перегляду довідника "місце" представлена на рис. 11.

Рисунок 11 Структура таблиці Розташування

Для зберігання інформації про об'єкти на мапі, є таблиці сеансів і детальна інформація про кожну сесію, яка підключена на поле "КодСеансу". Структура головної таблиці показана на рис. 12.

Рисунок 12 структура таблиці деталі сеансів

Структура дочірньої таблиці з записами про конкретні об'єкти, розмішені на карті представлена представлений на рис.13.

Рисунок 13 Структура таблиці деталі сеансу



3. Розробка тестового додатка

3.1 метод тестування

Вихідними даними завдання є довідники «Абоненти», «Співробітники», «Заявки», доступ до яких можна отримати з пунктів головного меню програми.

Кожна вхідна форма відкривається в окремому вікні, при виборі відповідного пункту меню на головній формі програмного додатка. Зовнішній вигляд головної форми має наступну структуру (рис. 14):

Рисунок 14 Структура віконного інтерфейсу графічних схем кабельної Існує режим пошуку даних в довідниках програми

Введення даних в бази даних здійснюється за допомогою заповнення необхідних полів довідників. На кожній формі представлені кнопки «Додати» для додавання запису, «Змінити» для зміни запису, «Видалити» для видалення запису і «Зберегти» для збереження зроблених змін.

Відкриття зображення і завантаження його на форму полотна:

процедура TForm111. Button4Click (Sender: TObject);

var

bmp: TBitmap;

begin

bmp:= TBitmap.Create;

if(OpenPictureDialog1.Execute) then

begin

bmp.LoadFromFile(OpenPictureDialog1.FileName);

Image1.Picture.Bitmap.Assign(bmp);

end;

end;

Процедура формування зображення виконує аналіз значень параметрів, що містять поточні вибрані настройки використання - тип фігури, положення курсору миші щодо координат малюнка, режим вставки або вибору графічного елементу. Згідно зі встановленими значеннями виконується заданий відповідно ситуації алгоритм створення зображення на об'єкті Image1:

procedure TForm111.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

edit1.Text:=inttostr(x);

edit2.Text:=inttostr(y);

if (edit3.Text='1')

then begin

Image1.Canvas.Rectangle(x-10,y-10,x+10,y+10);

end;

if (edit3.Text='3')

then begin

Image1.Canvas.LineTo(x,y);

edit3.Text:='0';

end;

if (edit3.Text='2')

then begin

edit3.Text:='3';

Image1.Canvas.MoveTo(x,y);

end;

if (edit3.Text='4') //вивід підпису в кругу

then begin

Image1.Canvas.Ellipse(x-15,y-15,x+15,y+15);

Image1.Canvas.TextOut(x-4, y-5, edit4.Text);

// edit3.Text:='0';

end;

if (edit3.Text='5') // вивід прибор

then begin

Image1.Canvas.Rectangle(x-12,y-8,x+12,y+8);

end;

if (edit3.Text='9') // вивід

then begin

Image1.Canvas.Rectangle(x-10,y-10,x+10,y+10);

Image1.Canvas.MoveTo(x+6,y-8);

Image1.Canvas.LineTo(x,y);

Image1.Canvas.LineTo(x+6,y);

Image1.Canvas.LineTo(x-2,y+8);

end;

if (edit3.Text='10') //вивід тексту

then begin

Image1.Canvas.TextOut(x-4, y-4, edit5.Text);

end;

end;

Процедури, які встановлюють значення параметрів графічного настроювання схеми, мають подібний формат і складаються з таких кроків:

- Динамічне створення нового графічного елементу;

- Написання в буфері номера риснка;

- виконання завантаження в динамічний об'єкт вмісту графічного файлу з фігурою;

- відображення фігури в контейнері поточного об'єкта.

Код містить наступну послідовність команд:

procedure TForm111.BitBtn2Click(Sender: TObject);

var

bmp: TBitmap;

begin

bmp:= TBitmap.Create;

edit3.Text:='5';//вивід прилада

bmp.LoadFromFile('1.bmp');

Image2.Picture.Bitmap.Assign(bmp);

end;

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

procedure TForm111.BitBtn1Click(Sender: TObject);

var bmp:TBitmap;

begin

bmp:= TBitmap.Create;

bmp.Width:= Screen.Width;

bmp.Height:= Screen.Height;

Image1.Canvas.CopyRect(rect(0, 0, image1.width, Image1.Height),canvas,Rect(110,90,1025,700));

image1.Picture.Bitmap.SaveToFile('screen.bmp');

BitBlt(bmp.Canvas.Handle, Form111.Left,Form111.Top, Screen.Width-100, Screen.Height-100,

GetDC(0), 0,0,SRCCOPY);

bmp.LoadFromFile('screen.bmp');

Image2.Picture.Bitmap.Assign(bmp);

Form22.Image1.Width:= 1025;

Form22.Image1.Height:= 603;

Form22.Image1.Picture.Assign(bmp);

Form22.Show;

Form22.Print;

bmp.Free;

end;

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

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

- DBGrid - таблиця значень, що призначається для зручного відображення інформації з баз даних;

- Button - кнопка, що виконує активацію дії користувача;

- Image - компонент, який використовується для вставки на форму графічного зображення, розміщеного в зазначеному файлі;

- BitBtn - кнопка активації обраного режиму роботи, з підтримкою відображень графічної іконки на об'єкті;

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

Основні події компонентів, що використовуються для виклику функціональних процедур програми:

– подія OnClick виникає в результаті клацання по керуючому елементу. Це означає, що користувач перевів курсор на керуючий елемент і клацнув лівою кнопкою миші.

- подія OnDblClick виникає в результаті подвійного клацання по кнопці миші, коли курсор знаходиться над керуючим елементом.

- подія OnEnter відбувається при отриманні керуючим елементом фокусу введення. При втраті фокуса введення в керуючому елементі генерується подія OnExit. Події OnEnter і OnExit не виникають при перемиканні між формами і додатками.

- подія OnKeyDown відбувається при натисканні користувачем будь-якої клавіші, коли керуючий елемент знаходиться у фокусі введення. При відпуску натиснутоюклавіші виникає подія On Key Up. Якщо користувач натиснув клавішу символів, то слідом за подією OnKeyDown і до події OnKeyUp виникає подія OnKeyPress..

- подія OnMouseDown відбувається при натисканні користувачем кнопки миші, коли курсор знаходиться над керуючим елементом. При відпуску кнопки в керуючому елементі відбувається подія OnMouseUp. При переміщенні курсора миші над елементом, що управляє, в останньому періодично виникає подія OnMouseMove, що дозволяє реагувати на просте зміна положення курсора.

Для впорядкування інтерфейсу було настроєно такі властивості функції:

1. Enabled -визначає, чи є компонент активним.

2. Height -висота.

3. Hint- спливаюча підказку.

4. Left - положення компонента по відношенню до лівого краю форми.

5. Name - це ім'я компонента.

6. Top - відступ від верхньої частини форми.

7. Visible -визначає видимість компонента.

8. Width - ширини.

9. Caption - відображаємий текст

У рамках програми розроблені такі форми:

- Forrn111 є основною формою заявки з доступом до основних режимів роботи програми;

- forrn222 є попередній формі перед друком діаграми;

- Forrn3 є переглядом діаграми в окремому вікні;

- Forrn4 є формою авторизації користувачів для роботи в програмі;

- forrn5 є формою посилання для абонентів;

- forrn6 є формою посилання на підтримку персоналу;

- forrn7 є формою ведення довідника заявок на обслуговування;

- Forrn8 є формою виведення об'єктів поточної схеми;

- forrn9 є однією з форм відліку для створених схем роботи.

3.2 Перевірка структури заявок

У програмі передбачено формування схеми в графічному виконанні, для побудови структури кабельної мережі. Режим містить основні компоненти мережі, які можна розташувати поверх графічного файлу - полотна, з можливістю роздрукувати результат створення схеми, очищення об'єктів або настройки принтера. Зовнішній вигляд режиму формування схеми наведено на рис. 15.

Рисунок 15 Режим схеми кабельної мережі

Загальний принцип роботи наступний: за допомогою кнопки «Відкрити зображення» виконується завантаження файлу з графічною схемою підсистеми кабельної мережі. Займана область виконує функцію області розміщення графічних елементів над зображенням. Натисканням на кнопки в лівій частині вікна вибираються тип елементів кабельної мережі, в контейнері в верхній частині вікна відображається поточний вибраний елемент. Переміщаючи курсор миші над графічної областю і натисканням лівою кнопкою миші можна розмістити зазначений об'єкт. Вивести підпис на схему можна за допомогою введення вмісту в текстове поле і натискання на кнопку «Позначення».

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

Діалогове вікно настройки принтера наведено на рис. 16:

Рисунок 16 Настроювання параметрів принтера

Основні дії над даними, виконуються в програмі можна розподілити на наступні процедури: додавання, видалення, збереження графічних елементів, перегляд графічних схем, виведення їх на друк. Лістинг основних програмних процедур наведено в додатку.

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

Режим попереднього перегляду сформованої схеми має такий вигляд (рис. 17):



Рисунок 17 Попередній перегляд друку схеми мережі

Також в цьому режимі передбачено пошук абонентів на прізвище або номером телефону. Для цього в текстові поля обраного критерію слід ввести значення, і натиснути на кнопку «Пошук». Програмою буде виконано відбір значень, які відповідають пошуковому критерію. Скасувати фільтрацію значень можна натисканням на кнопку «Скидання» у верхньому правому кутку вікна.

Кнопка «Вибрати абонента» призначена для передачі номера телефону абонента в режим графічного формування кабельної мережі, після натискання на неї форма довідника автоматично закривається



Рисунок 18 Режим редагування каталогу абонентів мережі

В даному режимі передбачено також виконання пошуку абонентів на прізвище або номеру. Для цього використовується таблиця абонентів "abonent" і наступний алгоритм:

- перевірка наявності введеного номера абонента (або прізвища) в текстове поле пошуку;

- скидання попередніх умов пошуку і відбору в компоненті, який відповідає за зв'язок з таблицею абонентів;

- установка умови відбору записів із зазначенням поля пошуку в базі даних, умови пошуку, введеного користувачем;

- активація процедури пошуку шляхом установки статусу фільтрації в значення «істина»;



4. Результати випробувань

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

Для FDDI характерна множинна передача маркера. Якщо в разі мережі Token-Ring новий (вільний) маркер передається абонентом тільки після повернення до нього його пакета, то в FDDI новий маркер передається абонентом відразу ж після закінчення передачі їм пакета. Послідовність дій тут наступна.

- Абонент, що бажає передавати, чекає маркера, який йде за кожним пакетом;

- Коли маркер прийшов, абонент видаляє його з мережі і передає свій пакет;

- Відразу після передачі пакета абонент посилає новий маркер;

Вигляд моделі, що складається з 10 комп'ютерів і файлового сервера, представлено на рисунку 19.

Малюнок 19 Імітаційна модель ЛВС

Кожна з моделей ЕОМ на малюнку є новим, розробленим класом, представленим на малюнку 20. Даний клас імітує алгоритм передачі і видалення маркера робочої машиною, і включає в себе робочу машину, умови для прийняття рішення про відправлення маркера або повідомлення, а також черги і затримки, що моделюють обробку повідомлення, створення маркера.

Рисунок 20 Клас ЕОМ

Умова «so», що визначає, якого виду повідомлення (маркер або інформація) і який робочої станції направлено, описано на малюнку 21.



Рисунок 21 Умова "so2"

Умова, в результаті якого вхідний електронний лист відправляється на машину-одержувача, а маркер видаляється, Представлено на малюнку 23.

Рисунок 22 умова"So2"

Умова, що надсилає повідомлення одержувачу апарата та видаляє маркер, відображається на рисунку 23.



Рисунок 23 умова«So3»

Робота системи в процесі симуляції показана на малюнках 24-26.

Рисунок 24 Початок роботи системи



Рисунок 26 початок обробки

Рисунок 27 В процесі обробки



Список використаних джерел

1. Маклаков С. В. BPwin і ERwin. CASE-засіб розробки інформаційних систем. М.: діалог-міфі, 2007. 256 с. Єгоренков А. А. MSExcelXP для початківців. М., лист новий, 2004.

2. Агафонова В. В. інтерфейси інформаційної системи в економіці-М: Фінанси та статистика, 2004. 176 с.

3. Дейт К. ДЖ. введення в базу даних систем-6-е видання і доповнені-м, Санкт-Петербург, Київ: Віл'ямс, 2005. 848 с.

4. Карпова Т.С. бази даних: моделі, розробка та впровадження-Санкт-Петербург: Пітер, 2005. 304 с.

5. Карпова Т. С. база даних: моделі, розробка, впровадження. Санкт-Петербург: Пітер, 2001. 304c.

6. Коннеллі, Томас, Бегг і т. д. Бази даних: проектування, реалізація, супровід. Теорія і практика 2-го видавництва: Переклад з англійської мови.Учбовий посібник. М: Вил'ямс, 2005р. 524 с.

7. Культін Н.Б. Основи програмування в Delphi. СПб.: БХВ-Петербург, 2005 р. 608 с.

8. Прокушева А.П. Економіка інформатики: Навчальний посібник. / А.П. Прокушева. М.: Дашков і Ко, 2006 р. 84 с.

9. Фаронов В.В. Програмування баз даних в Delphi 7. Навчальний курс. СПб: Пітер, 2006. 459с.

10. Фаронов В.В., Шумаков П.В. «DELPHI Керівництво розробника баз даних", М: Нолидж, 2000., 640с.: іл.

11. Фленов М.Є. Біблія Delphi. СПб.: БХВ-Петербург 2004р. 880 с.

12. Хомоненко А.Д. та ін. Delphi 7. / Під загальною редакцією А. Д. Хомоненко - СПб.: BHV, 2004.

13. Хомоненко, А. Д., Циганков В. М, Мальцев М. Г. Бази даних: Підручник для вузів - 3-е изд. Перероблене і доповнене. СПб: КОРОНА - Принт, 2004р. 672 с.

14. Хоуг, Кевін MCSE / MCSD: SQL Server 7. Проектування баз даних: Навчальний посібник. М: ЛОРИ, 2004р. 564 с.

15. Чекалов А. П. Бази даних: від проектування до розробки додатків Спб: БХВ - Петербург, 2004р. 384 с.



Застосування

Вихідний код модуля малювання схем:

unit Unit9;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls;

type

TForm9 = class(TForm)

ADOTable1: TADOTable;

ADOTable2: TADOTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1Код: TAutoIncField;

ADOTable1Название: TWideStringField;

ADOTable1Путь: TWideStringField;

ADOTable1ДатаСоздания: TDateTimeField;

ADOTable1Сотрудник: TWideStringField;

StringGrid1: TStringGrid;

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

procedure DBGrid1ColEnter(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses unit4;

{$R *.dfm}

procedure TForm9.DBGrid1CellClick(Column: TColumn);

var

i:integer;

begin

StringGrid1.RowCount:=adotable2.RecordCount+1;

for i:= 1 to adotable2.RecordCount do

begin

StringGrid1.Cells[0,i+1]:='';

StringGrid1.Cells[1,i+1]:='';

end;

adotable2.First;

if (length(adotable1.FieldByName('Путь').AsString)>0) then Image1.Picture.LoadFromFile(adotable1.FieldByName('Путь').AsString);

for i:= 1 to adotable2.RecordCount do

begin

if(adotable2.FieldByName('КодСхемы').asinteger=adotable1.FieldByName('Код').asinteger)

then begin

StringGrid1.Cells[0,i+1]:=adotable2.FieldByName('Название').AsString;

StringGrid1.Cells[1,i+1]:=adotable2.FieldByName('Примечание').AsString;

StringGrid1.Cells[0,0]:='Наименование объекта';

StringGrid1.Cells[1,0]:='Примечание';

StringGrid1.ColWidths[0]:=400;

StringGrid1.ColWidths[1]:=100;

adotable2.Next;

end;

end;

end;

procedure TForm9.DBGrid1ColEnter(Sender: TObject);

var

i:integer;

begin

StringGrid1.RowCount:=adotable2.RecordCount+1;

adotable2.First;

if (length(adotable1.FieldByName('Путь').AsString)>0) then Image1.Picture.LoadFromFile(adotable1.FieldByName('Путь').AsString);

for i:= 1 to adotable2.RecordCount do

begin

if(adotable2.FieldByName('КодСхемы').asinteger=adotable1.FieldByName('Код').asinteger)

then begin

StringGrid1.Cells[0,i+1]:=adotable2.FieldByName('Название').AsString;

StringGrid1.Cells[1,i+1]:=adotable2.FieldByName('Примечание').AsString;

StringGrid1.Cells[1,0]:='Наименование объекта';

StringGrid1.Cells[1,1]:='Примечание';

StringGrid1.ColWidths[0]:=400;

StringGrid1.ColWidths[1]:=100;

adotable2.Next;

end;

end;

end;

end.

Лістинг програми авторизації користувача:

unit Unit4;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, DB, ADODB;

Type

// визначення складу елементів управління форми

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Edit1: TEdit;

ADOConnection1: TADOConnection;

abonent: TADOTable;

DataSource1: TDataSource;

zayavki: TADOTable;

DataSource2: TDataSource;

sotrudnik: TADOTable;

DataSource3: TDataSource;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses unit111,unit6;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

// перевірка на збіг паролів вказаною значенням користувачем

if sotrudnik.FieldByName('Пароль').AsString=edit1.Text then

begin

// якщо паролі збігаються

ShowMessage('Вас авторизовано');

form4.Hide; // заховати форму авторизації

form111.Show; // висновок головної форми додатка

end

else ShowMessage('Пароль введений неправильно! Повторіть введення ');

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

if edit1.Text='admin' then // якщо авторизовано адміністратора

begin

ShowMessage('Вас авторизовано');

form4.Hide;

form111.Show; // показати головну форму

// відобразити на екрані режими, доступні тільки адміністратору

form6.Label5.Visible:=true;

form6.edit5.Visible:=true;

form6.DBGrid1.Columns[5].Visible:=true;

end;

end;

end.

Лістинг довідника абонентів кабельної мережі:

unit Unit5;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls;

type

// визначення складу елементів управління форми

TForm5 = class(TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label4: TLabel;

Edit4: TEdit;

Button4: TButton;

Label5: TLabel;

Edit5: TEdit;

Button5: TButton;

Button6: TButton;

Button7: TButton;

procedure DBGrid1CellClick(Column: TColumn);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses unit4,unit111;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

// висновок на екран підтвердження дії користувача

if(Application.MessageBox('Добавить нового абонента? ',' Підтвердження '

,MB_YESNO + MB_ICONQUESTION)=IDYES)

then begin // якщо підтверджено

form4.abonent.insert; // вставка запису в таблицю

form4.abonent.FieldByName('ФИО').AsString:= 'Введіть ПІБ абонента...';

form4.abonent.Post;

end;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

// висновок на екран підтвердження дії користувача

if(Application.MessageBox('Зберегти інформацію про абонента?', 'Підтвердження ',MB_YESNO + MB_ICONQUESTION)=IDYES)

then begin

form4.abonent.edit;// переклад таблиці в режим редагування

// запись значений текстовых полей в таблицу

form4.abonent.FieldByName('ФИО').AsString:=Edit1.Text;

form4.abonent.FieldByName('Номер').AsString:=Edit2.Text;

form4.abonent.FieldByName('Расположение').AsString:=Edit3.Text;

form4.abonent.Post;// установить значения в таблицу

end;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

// висновок на екран підтвердження дії користувача

if(Application.MessageBox('Видалити обраного абонента?', 'Підтвердження ',MB_YESNO + MB_ICONQUESTION)=IDYES)

then begin

form4.abonent.delete; // видалення поточного запису з таблиці

end;

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

if length(edit4.Text)>0 then // якщо введено фільтр відбору значень номерів begin

form4.abonent.Filtered: = false;

// установка умови фільтрації

form4.abonent.filter: = 'Номер' + 'LIKE' + # 39 + '%' + Edit4.Text + '%' + # 39;

form4.abonent.Filtered: = true; // активація фільтрації

if form4.abonent.RecordCount <= 0 // якщо к-ть записів мінімальне

then begin

// вивід на екран діагностичного повідомлення

showmessage ( 'Абонентів з таким номером не знайдено!');

form4.abonent.Filtered: = false; end;

end

else form4.abonent.Filtered:=false;

end;

procedure TForm5.Button5Click(Sender: TObject);

begin

if length (edit5.Text)> 0 then // якщо введено фільтр відбору прізвищ

begin

form4.abonent.Filtered: = false;

// установка умови фільтрації

form4.abonent.filter: = 'ПІБ' + 'LIKE' + # 39 + '%' + Edit5.Text + '%' + # 39;

form4.abonent.Filtered: = true;

if form4.abonent.RecordCount <= 0

then begin

// якщо результату фільтрації немає

showmessage ( 'Абонентів з таким ПІБ, не знайдено!'); form4.abonent.Filtered:=false;

end; end

else form4.abonent.Filtered:=false; end;

procedure TForm5.Button6Click(Sender: TObject);

begin

form4.abonent.Filtered:=false;

end;

procedure TForm5.Button7Click(Sender: TObject);

begin

form111.Edit5.Text:=edit2.Text;

form5.Hide;

end;

procedure TForm5.DBGrid1CellClick(Column: TColumn);

begin

// висновок в текстові поля значень обраних з таблиці записів

Edit1.Text:=DBGrid1.DataSource.DataSet.Fields[1].AsString;

Edit2.Text:=DBGrid1.DataSource.DataSet.Fields[2].AsString;

Edit3.Text:=DBGrid1.DataSource.DataSet.Fields[3].AsString;

end;

end.

Лістинг програмного модуля ведення довідника заявок на обслуговування кабельної мережі:

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DBCtrls;

type

// визначення складу елементів управління форми

TForm7 = class(TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label4: TLabel;

Label5: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

ComboBox1: TComboBox;

DBLookupComboBox1: TDBLookupComboBox;

ComboBox2: TComboBox;

Label6: TLabel;

Edit4: TEdit;

Button4: TButton;

procedure DBGrid1CellClick(Column: TColumn);

procedure DBLookupComboBox1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses unit4;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

// вивід на екран підтвердження дії користувача

if (Application.MessageBox ( 'Додати нову заявку?', 'Підтвердження', MB_YESNO + MB_ICONQUESTION) = IDYES)

then begin

// вставка нового запису до зазначеного за замовчуванням номером абонента

form4.zayavki.insert;

form4.zayavki.FieldByName('Абонент').AsString:= 'Номер абонента...';

form4.zayavki.Post; // активація транзакції в базі даних

end;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

// висновок на екран підтвердження дії користувача

if (Application.MessageBox ( 'Зберегти інформацію про заявку?', 'Підтвердження', MB_YESNO + MB_ICONQUESTION) = IDYES)

then begin

form4.zayavki.edit; // переклад таблиці в режим редагування

// запис в зазначені поля таблиці значень з текстових полів,

// списків дати календарів, випадаючих списків статусів і співробітників

// відповідно

form4.zayavki.FieldByName('Абонент').AsString:=Edit1.Text;

form4.zayavki.FieldByName('ДатаН').AsDateTime:=DateTimePicker1.Date;

form4.zayavki.FieldByName('ДатаК').AsDateTime:=DateTimePicker2.Date;;

form4.zayavki.FieldByName('Статус').AsString:=combobox1.Text;

form4.zayavki.FieldByName('Сотрудник').AsString:=combobox2.Text;

form4.zayavki.Post; // активація запису змін в таблиці

end;

end;

procedure TForm7.Button3Click (Sender: TObject);

begin

// вивід на екран підтвердження дії користувача

if (Application.MessageBox ( 'Видалити обрану заявку?', 'Підтвердження', MB_YESNO + MB_ICONQUESTION) = IDYES)

then begin

form4.zayavki.delete; // команда, щоб видалити вибрані заявки з таблиці

end;

end;

procedure TForm7.Button4Click(Sender: TObject);

begin

if length(edit4.Text)>0 then // якщо умова фільтрації встановлено

begin

form4.zayavki.Filtered: = false;

// установка умови відбору значення

form4.zayavki.filter: = 'Абонент' + 'LIKE' + # 39 + '%' + Edit4.Text + '%' + # 39;

form4.zayavki.Filtered: = true; // активація фільтрації

if form4.abonent.RecordCount <= 0 // якщо значень фільтрації немає

then begin

// повідомлення на екран

showmessage ( 'Абонентів з таким номером не знайдено!');

// скасування фільтрації

form4.zayavki.Filtered:=false;

end;

end

else form4.zayavki.Filtered:=false; // скасування фільтрації

end;

procedure TForm7.DBGrid1CellClick (Column: TColumn);

begin

// вибір значення записи з таблиці та передача атрибутів (полів)

// в текстові поля, компоненти вибору дат, що випадають списки

Edit1.Text:=DBGrid1.DataSource.DataSet.Fields[1].AsString;

DateTimePicker1.Date:=DBGrid1.DataSource.DataSet.Fields[2].AsDateTime;

DateTimePicker2.Date:=DBGrid1.DataSource.DataSet.Fields[3].AsDateTime;

combobox1.Text:=DBGrid1.DataSource.DataSet.Fields[4].AsString;

//dblookupcombobox1.Text:=DBGrid1.DataSource.DataSet.Fields[5].AsString;

combobox2.Text:=DBGrid1.DataSource.DataSet.Fields[5].AsString;

dblookupcombobox1.KeyValue:=-1;

end;

procedure TForm7.DBLookupComboBox1Click(Sender: TObject);

begin

// подія виведення в поле довідника значення з бази даних після вибору зі списку

combobox2.Text:=dblookupcombobox1.Text;

end;

end.

Размещено на Allbest.ru