Автоматизована система обліку з підключення Інтернет-мережі в РУП Белтелеком

Зміст

Введення

1 Призначення і область застосування

1.1 Загальні відомості

1.2 Призначення та мета створення системи

1.3 Вимоги до системи

2 Дослідницька частина

2.1 Аналіз методів рішення задачі

2.2 Вхідні дані

2.3 Вихідні дані

3 Конструкторська частина

3.1 Розробка інформаційної моделі

3.2 Розробка алгоритму задачі

3.3 Розробка інтерфейсу користувача

3.4 Розробка довідкової системи

4 Тестування програмного продукту

5 Організаційно-економічна частина

6 Охорона праці, техніка безпеки, протипожежні заходи та охорона навколишнього середовища

Висновок

Література

Програми

Додаток А Код програми

Додаток Б Керівництво програміста

Додаток В Керівництво користувача

Введення

Тема даного дипломного проекту: «Автоматизована система обліку з підключення Інтернет мережі в РУП« Белтелеком ». Мета дипломного проекту полягає в розробці програмного модуля, що дозволяє вести облік по підключенню користувачів до мережі Інтернет.

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

Даний дипломний проект дозволяє скоротити час при внесенні необхідних даних.

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

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

1 Призначення і область застосування

1.1 Загальні відомості

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

На підприємстві РУП «Белтелеком» були представлені документи, на підставі яких була розроблена наступна програма, представлена ​​на малюнку 1.

Рисунок 1 - Інтерфейс програми

1.2 Призначення та мета створення системи

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

Для користувача розроблена програма дуже легка і проста у застосуванні. Передбачає швидку і зручну роботу на зрозумілій користувачеві мовою.

Ця програма дозволить швидко вносити конкретні дані.

Програма передбачає введення даних наступного типу:

-Особистісних даних (ПІБ, рік народження, адреса, телефон);

-Паспортних даних (серія і номер паспорта, ким виданий, дата видачі);

-Даних з підключення до мережі Інтернет (дата підключення, тип підключення, тариф за хвилину);

-Даних з користування мережею Інтернет (дата користування, час, вартість).

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

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

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

1.3 Вимоги до системи

Обсяг виконуваного модуля необмежений, але при програмуванні необхідно, щоб код програми був коротким. Для виконання програми досить 20Мб оперативної пам'яті. Час виконання програми не обмежена. Користувальницький інтерфейс містить різноманіття виконуваних форм, звітів, відомостей.

Конфігурацією апаратних і програмних засобів для функціонування розробленої програми є комп'ютер з наступними характеристиками:

- Наявність встановленої версії Windows 98 - XP;

- BDE Administrator для роботи з базою даних;

- Процесор Pentium - 100 МГц;

- 256 Мбайт оперативної пам'яті;

- 20 Мбайт вільного простору на жорсткому диску;

- Philips 170 C монітор;

- Миша А4 Tech;

- Стандартна клавіатура.

2 Дослідницька частина

2.1 Аналіз методів рішення задачі

Метою мого дипломного проекту є автоматизована система обліку з підключення Інтернет мережі в РУП «Белтелеком».

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

Розробляється автоматизована інформаційна система обліку з підключення Інтернет мережі в РУП «Белтелеком» має допомогти вирішити такі стоять перед нею завдання:

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

- Реалізувати багатофункціональний пошук інформації про користувачів мережі Інтернет;

- Поліпшити і спростити доступ до інформації, що зберігається;

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

- Забезпечити отримання різних видів інформації в рамках предметної області;

- Забезпечити сопровождаемость системи та надійне застосування програмного засобу;

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

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

2.2 Вхідні дані

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

- ПІБ;

- Рік народження;

- Адреса;

- Телефон.

Також в програму входять і паспортні дані користувачів:

- Серія і номер паспорта;

- Ким виданий;

- Дата видачі.

В якості даних по підключенню до мережі Інтернет будуть використовуватися такі значення:

- Дата підключення;

- Тип підключення;

- Тариф за хвилину.

Самими основними і результуючими даними будуть дані по користуванню мережею Інтернет:

- Дата користування;

- Час;

- Вартість.

2.3 Вихідні дані

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

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

Виділяють такі види звітів:

- Простий звіт;

- Звіт з групуванням даних;

- Складової звіт, який би кілька різних звітів.

Звіт дозволяє переглянути та порівняти всі ті дані про користувачів, які будуть скомпоновані воєдино. У звіті буде надана інформація, як про загальні даних користувача, так і про дані користування Інтернетом (Малюнок 2).

Рисунок 2 - Звіт

3 Конструкторська частина

3.1 Розробка інформаційної моделі

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

До структури бази даних Project входять наступні таблиці:

- Таблиця № 1 - «Особисті дані»;

- Таблиця № 2 - «Паспортні дані»;

- Таблиця № 3 - «Дані по підключенню до мережі Інтернет»;

- Таблиця № 4 - «Дані з користування мережею Інтернет».

У таблицю № 1 «Особисті дані» входять наступні поля:

- FIO - символьний тип (35) - ПІБ;

- Data rozhdenia - тип дати - дата народження;

- Address - цілочисельний тип (20) - адресу;

- Telefon - цілочисельний тип (6) - телефон.

У таблицю № 2 «Паспортні дані» включені наступні поля:

- FIO - цілочисельний тип (35) - ПІБ;

- Dannye pasporta - цілочисельний тип (9) - серія і номер паспорта;

- Kem vydan - цілочисельний тип (18) - ким виданий;

- Data vydachi - тип дати - дата видачі.

У таблицю № 3 «Дані по підключенню до мережі інтернет» входять наступні поля:

- FIO - цілочисельний тип (30) - ПІБ;

- Data podkluchenia - тип дати - дата підключення;

- Tip podkluchenia - цілочисельний тип (12) - тип підключення;

- Tarif za minutu - цілочисельний тип - тариф за хвилину.

У таблицю № 4 «Дані з користування мережею Інтернет» включені наступні поля:

- FIO - цілочисельний тип (35) - ПІБ;

- Data polzovania - тип дати - дата користування;

- Time (min) - тип час - час (хвилини);

- Stoimost - цілочисельний тип - вартість.

3.2 Розробка алгоритму задачі

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

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

3.3 Розробка інтерфейсу користувача

Дана програма розроблялася в середовищі Delphi 7.

При створенні проекту були задіяні наступні компоненти:

- TTable - кнопка для відображення даних в табличній формі;

- TDataSource - служить для зв'язку даних у таблиці;

- TDBGrid - кнопка для візуального відображення даних у таблиці;

- TButton - кнопка, при натисканні на яку виконується прописана в ній функція або процедура;

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

- TEdit - служить для відображення текстових і числових значень;

- TLabel - для написи будь-яких компонентів, а також може служити для виводу відповідей;

- TMainMenu - меню форми, в ньому можуть розташовуватися всі ті дії, які можуть виконуватися на формі;

- TRadioGroup - служить для маркованого списку;

- TBitBtn - кнопка з зображенням (різновид TButton), але з відм ічітельной особливістю властивості Glyph, за допомогою якого визначається растрове зображення, що малюються на поверхні кнопки;

- TDBEdit - дозволяє редагувати значення строкового поля поточного запису набору даних.

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

3.4 Розробка довідкової системи

Довідкова система даного програмного модуля складається з розділу: «Довідка». Розділ «Довідка» містить у собі два підрозділи: «Про програму» та «Про розробника». У підрозділі «Про програму» відображаються дані про те, як працювати з програмою (Малюнок 4).

Рисунок 4 - Про програму

У підрозділі «Про розробника» зазначаються дані творця програми (Малюнок 5).

Малюнок 5 - Про розробника

4. Тестування програмного продукту

Тестування проводилося в два етапи.

1) Тестування стійкості. Тут перевірялася реакція програми на некоректний введення даних, значення яких виходять за допустимий діапазон.

2) Тестування функціональності. Тут виконувалася перевірка правильності обчислень, коректності роботи з вихідними даними. На цьому етапі перевірка здійснювалася шляхом введення нових даних у базу даних. Дані у всіх випадках успішно були занесені.

Таблиця 1 - Журнал тестування програмного продукту

5 Організаційно-економічна частина

5.1 Економічна характеристика теми дипломного проектування

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

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

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

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

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

Нижче наведені розрахунки показників, які характеризують:

Приріст обсягу виробництва продукції

ΔВП = ВП _{1-ВП 0} (1)

Де ВП _1, ВП ₀ - валовий обсяг виробництва продукції відповідно після і до використання інновації.

514 тис. руб.-329 тис. руб .= 185 тис. руб.

Приріст доданої вартості (ΔДС):

ΔДС = ДС ₁ - ДС _1, (2)

ΔДС = 16280 руб. - 14685 руб. = 1595 руб.

де ДВ ₁ - додана вартість після використання нововведення;

ДС ₀ - додана вартість до використання нововведення.

Економія витрат від зниження собівартості продукції (Δ3)

Δ3 = Q ₁ * (С ₀ - З ₁₎ (3)

ΔЗ = 350 шт. * (1350000 крб. - 1174800 крб.) = 61320000 руб.

де С ₁ - собівартість одиниці продукції після інновації;

З _{0-собівартість} одиниці продукції до інновації;

Q ₁ - річний обсяг продажу продукції після застосування нововведення за 2008 рік.

Зростання продуктивності праці (середньогодинної вироблення):

ΔЧВ _ін = (ВП ₀ + ΔВП _ін) / (ЗТ ₀ - ΔЗТ _ін) - ЧВ ₀ (4)

ЗТ ₀ = 1174800 крб .* 350 шт. = 411180000 крб.

ЧВ ₀ = ВП ₀ / Ч _ср = 230000000 руб./150 = 1533333 крб.

ΔЧВ _ін = (12000000руб. + 750000 крб.) / (411 180 000 руб. - 117500000 руб.) - 80000 руб. = -79999 Крб.

де ВП ₀ - вартість випуску продукції до нововведення;

ΔВП - збільшення випуску продукції за рахунок впровадження новації;

ЗТ ₀ - витрати праці на виробництво продукції до впровадження новації;

ЧВ ₀ - середньогодинна вироблення до впровадження новації;

ΔЗТ - економія витрат праці після нововведення;

ЧВ ₀ - середньогодинна вироблення до впровадження новації;

Ч _ср - середньооблікова чисельність робітників.

Показники, що характеризують фінансову ефективність нововведень

Приріст чистого доходу ΔЧД за рахунок застосування інновації:

ΔЧД = ЧД ₁ - ЧД ₀ (5)

ΔЧД = 925000000 крб. - 711000000 руб. = 214000000 крб.

де ЧД ₁ - дохід, що включає чистий прибуток і амортизацію після використання нововведення;

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

5.2 Оцінка техніко-організаційного рівня виробництва підприємства

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

а) фондоозброєність праці:

Ф _у = ОПФ / Ч _ср, (6)

Ф _в = 10538 тис. руб./469 чол .= 22469 тис.руб. / Чол.

де ОПФ - середньорічна вартість основних виробничих фондів;

Ч _ср - середньооблікова чисельність ППП (робочих).

б) Електроозброєність праці:

Е _в = Р / Ч _ср, (7)

Е _в = 700 кВт * ч./150 чол. = 4,66

де Р - встановлена ​​потужність;

Ч _ср - середньооблікова чисельність ППП (робочих).

в) Коефіцієнт оновлення обладнання:

До _обн = Ф _бал / Ф _кн, (8)

До _обн = 5215тис. руб./216тис. руб .= 24

де К _бал - балансова вартість введеного обладнання за рік;

До _кн - вартість основних виробничих фондів (активна частина) на кінець аналізованого періоду.

г) Коефіцієнт вибуття встаткування:

До _виб = Ф _бал / Ф _нг, (9)

До _виб = 1366 тис. руб. / 216 тис. руб. = 6

де К _бал - балансова вартість вибулого обладнання за рік;

До _нг - вартість основних виробничих фондів (активна частина) на кінець року.

д) показники, що відображають рівень організації виробництва, праці та управління

До _стк = Кількість робітників, які звільнилися за рік, чол / Середньоспискова чисельність робітників за рік

До _стк = 17 чол. / 469 чол. = 0,04

6 Охорона праці, техніка безпеки, протипожежні заходи та охорона навколишнього середовища

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

Біологічна дія електромагнітних випромінювань кожного частотного діапазону відрізняється своєрідністю, але можна сказати, що ЕМВ впливає на функціонування організму в цілому, а також на окремі його системи (такі важливі, як імунна, ендокринна, кровотворна та ін) і органи (у тому числі очі , вуха).

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

Інфрачервоне випромінювання (довжина хвилі більше 0,76 мк) при великій інтенсивності (понад 5-7 ккал / см ² * хв) справляє негативний вплив на організм людини: порушується серцева діяльність, можливий перегрів організму.

Ультрафіолетове випромінювання при певних дозах і режимі може робити благотворний вплив на стан організму і працездатність людини. Але сильне опромінення променями (довжина хвилі менше 0,32 мк) несприятливо і може призвести до різних - шкірним, очним хворобам, захворювань нервової системи.

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

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

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

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

Спілкування з комп'ютером протягом 15 хвилин повністю безпечно для дитини, півгодини - вже гірше, але молодий організм відновитися досить швидко. Година у владі «машини» - і ваша дитина буде відходити вже значно довше. Півторагодинне спілкування з електронним «другом» обійдеться ще дорожче - з'являться залишкові явища.

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

У полі індукції людина перебуває в періодично змінюють один одного електричних і магнітних полях.

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

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

Біологічна дія електромагнітних полів радіочастот (від 30 до 300МГц) може бути як тепловим, так і не тепловим.

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

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

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

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

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

Інженерно-технічні засоби і методи включають:

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

- Екранування робочого місця;

- Видалення робочого місця від джерела електромагнітних полів;

- Раціональне розміщення в робочому приміщенні обладнання, що випромінює електромагнітну енергію;

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

- Застосування засобів індивідуального захисту.

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

Висновок

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

Крім того були розширені деякі знання з даної предметної області і закріплені знання об'єктно-орієнтованої мови програмування Delphi 7. При реалізації дипломного проекту були пройдені етапи опису та постановки завдання, кодування програми на алгоритмічну мову і тестування отриманого програми.

Для виконання дипломного проекту була використана література, яка представлена ​​у списку використаних джерел.

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

Література

1 Гофман В.Е., Хомоненко А. Д. Delphi 5. - СПб.: БХВ - Санкт-Петербург, 1999. - 800 с.

2 Матросов А.В., Сергєєв А.О., Чаунін М. П. HTML 4.0. - СПб.: БХВ - Петербург, 2000. - 672 с.

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

4 Кузан Л. Я., Шапорев В.М. Програмування Win 32 API в Delphi. - СПб.: БХВ - Петербург, 2005. - 368 с.

5 Дейт, К., Дж. Введення в системи баз даних, 7-е видання.: Пер. з англ. - М.: Видавничий будинок "Вільямс", 2001. - 1072 с.

6 Сухарєв М.В. Основи Delphi. Професійний підхід - СПб.: Наука і техніка, 2004. - 600 с.

7 Сорокін А. В. Delphi. Розробка баз даних. - СПб.: Питер, 2005. - 477 с.

8 Дарахвелідзе П.Г., Марков Е. П. Delphi 2005 для Win 32. - СПб.: БХВ - Петербург, 2005. - 1136 с.

9 Фаронов В.В., Шумаков П. В. Delphi 5. Керівництво розроблювача баз даних - М.: «Нолидж», 2000. - 640 с.

10 Архангельський А. Я. Delphi 2006. довідковий посібник: Мова Delphi, класи, функції Win 32 і. NET. - M.: OOO "Біном-Пресс", 2006. - 1152 с.

11 Методичні рекомендації для учнів з виконання дипломного проекту: МГЕПТК, 2008. - 15 с.

12 ГОСТ 2.105-95 Єдина система конструкторської документації «ЗАГАЛЬНІ вимоги до текстових документів»

13 ГОСТ 19.401-2000 ЕСПД ТЕКСТ ПРОГРАМИ

14 ГОСТ 19.402-2000 ЕСПД ОПИС ПРОГРАМИ

15 ГОСТ 19.701-90 ЕСПД СХЕМИ АЛГОРИТМІВ, ПРОГРАМ, ДАНИХ І СИСТЕМ

Додаток А

Код програми

unit Unit 1;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, Menus;

type

TForm1 = class (TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Button5: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Button6: TButton;

Button7: ​​TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit5, Unit6, Unit9, Unit10, Unit11, Unit12;

{$ R *. dfm}

procedure TForm1.Button1Click (Sender: TObject);

begin

form2.show;

end;

procedure TForm1.Button2Click (Sender: TObject);

begin

form3.show;

end;

procedure TForm1.Button3Click (Sender: TObject);

Var i: integer;

Begin

table1.Append;

if form5.showmodal = mrOk then

begin

table1.FieldByName ('FIO'). AsString: = form5.DBEdit1.text;

if ((Form5.DBEdit1.Text ='') or (Form5.DBEdit2.Text ='') or (Form5.DBEdit3.Text ='') or (Form5.DBEdit4.Text ='')) then begin

messagedlg ('Поля не заповнені!' + # 13 + 'Введіть будь ласка дані!', mtinformation, [mbok], 0);

Table1.Cancel;

end

else

table1.Post;

end

else

Table1.Cancel;

end;

procedure TForm1.Button4Click (Sender: TObject);

begin

table1.edit;

if form6.showmodal = mrOk then

begin

if ((Form6.DBEdit1.Text ='') or (Form6.DBEdit2.Text ='') or (Form6.DBEdit3.Text ='') or (Form6.DBEdit4.Text ='')) then begin

messagedlg ('Поля НЕ заповнені! '+ # 13 +' Введіть будь ласка дані! ', mtinformation, [mbok], 0); Table1.Cancel;

end

else

form1.Table1.Post;

end

else Table1.Cancel;

end;

procedure TForm1.Button5Click (Sender: TObject);

begin

form9.show;

end;

procedure TForm1.N3Click (Sender: TObject);

begin

close;

end;

procedure TForm1.N6Click (Sender: TObject);

begin

form10.show;

end;

procedure TForm1.N5Click (Sender: TObject);

begin

Winhelp (Form1.Handle, 'help1.hlp', Help_context, 1);

end;

procedure TForm1.Button6Click (Sender: TObject);

begin

form11.show;

end;

procedure TForm1.Button7Click (Sender: TObject);

begin

form12.show;

end;

procedure TForm1.N2Click (Sender: TObject);

begin

Form16.QuickRep1.Preview;

end;

unit Unit2;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type

TForm2 = class (TForm)

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

Button1: TButton;

Button2: TButton;

DBNavigator1: TDBNavigator;

Label2: TLabel;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form2: TForm2;

implementation

uses Unit7, Unit8, Unit1;

{$ R *. dfm}

procedure TForm2.Button1Click (Sender: TObject);

Var

i: integer;

begin

table1.Append;

if form7.showmodal = mrOk then

begin

table1.FieldByName ('FIO'). AsString: = form7.DBEdit1.text;

if form7.DBEdit1.text =''then table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm2.Button2Click (Sender: TObject);

begin

table1.edit;

if form8.showmodal = mrOk then

begin

if form8.DBEdit1.text =''then Table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm2.Button3Click (Sender: TObject);

begin

form1.show;

form2.Close;

end;

unit Unit3;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;

type

TForm3 = class (TForm)

DataSource1: TDataSource;

Table1: TTable;

Label1: TLabel;

DBGrid2: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form3: TForm3;

implementation

uses Unit8, Unit4, Unit14, Unit1;

{$ R *. dfm}

procedure TForm3.Button1Click (Sender: TObject);

Var

i: integer;

begin

table1.Append;

if form4.showmodal = mrOk then

begin

table1.FieldByName ('FIO'). AsString: = form4.DBEdit1.text;

if form4.DBEdit1.text =''then table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm3.Button2Click (Sender: TObject);

begin

table1.edit;

if form14.showmodal = mrOk then

begin

if form14.DBEdit1.text =''then Table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm3.Button3Click (Sender: TObject);

begin

form1.show;

form3.Close;

end;

unit Unit9;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;

type

TForm9 = class (TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form9: TForm9;

implementation

uses Unit13, Unit15, Unit1;

{$ R *. dfm}

procedure TForm9.Button1Click (Sender: TObject);

begin

table1.edit;

if form13.showmodal = mrOk then

begin

if form13.DBEdit1.text =''then Table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm9.Button2Click (Sender: TObject);

Var

i: integer;

begin

table1.Append;

if form15.showmodal = mrOk then

begin

table1.FieldByName ('FIO'). AsString: = form15.DBEdit1.text;

if form15.DBEdit1.text =''then table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm9.Button3Click (Sender: TObject);

begin

form1.show;

form9.Close;

end;

unit Unit11;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, Menus, DBCtrls;

type

TForm11 = class (TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

RadioGroup1: TRadioGroup;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

Button2: TButton;

Label1: TLabel;

DBNavigator1: TDBNavigator;

procedure Button1Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

Public

{Public declarations}

end;

var

Form11: TForm11;

implementation

uses Unit4, Unit1;

{$ R *. dfm}

procedure TForm11.Button1Click (Sender: TObject);

begin

case RadioGroup1.ItemIndex of

4: begin

Form11.Table1.Filtered: = false;

Edit2.Text :=''; Edit3.Text :='';

Edit1.Text :='';

end;

1: begin

if edit2.Text =''then

ShowMessage ('введіть адреса ')

else

Form11.Table1.Filter: = 'Address'+'='+ AnsiQuotedStr (edit2.Text ,'''');

Form11.Table1.Filtered: = true;

end;

2: begin

if edit3.Text =''then

ShowMessage ('введіть номер телефону ')

else

Form11.Table1.Filter: = 'Telefon'+'='+ AnsiQuotedStr (edit3.Text ,'''');

Form11.Table1.Filtered: = true;

end;

3: begin

end;

0: begin

if edit1.Text =''then

ShowMessage ('введіть ПІБ ')

else

Form11.Table1.Filter: = 'FIO'+'='+ AnsiQuotedStr (edit1.Text ,'''');

Form11.Table1.Filtered: = true;

end;

end;

end;

procedure TForm11.N1Click (Sender: TObject);

begin

Table1.Filtered: = False;

end;

procedure TForm11.Button2Click (Sender: TObject);

begin

form1.show;

form11.Close;

end;

unit Unit12;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, DBCtrls;

type

TForm12 = class (TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Label1: TLabel;

RadioGroup1: TRadioGroup;

Label2: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

DBNavigator1: TDBNavigator;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form12: TForm12;

implementation

uses Unit1;

{$ R *. dfm}

procedure TForm12.Button2Click (Sender: TObject);

var

Pole: ShortString;

begin

Case RadioGroup1.ItemIndex of

0: Pole: = 'FIO';

1: Pole: = 'God rozhdenia';

2: Pole: = 'Address';

3: Pole: = 'Telefon';

end;

If not (Table1.Locate (Pole, Edit1.Text, [loCaseInsensitive, loPartialKey])) then

messagedlg ('Ні таких даних! '+ # 13 +'', mtinformation, [mbok], 0);

end;

procedure TForm12.Button1Click (Sender: TObject);

begin

Edit1.Text :='';

end;

procedure TForm12.Button3Click (Sender: TObject);

begin

form1.show;

form12.Close;

end;

end.

Додаток Б

Керівництво програміста

Для того щоб встановити базу даних з розробки автоматизованої системи обліку з підключення Інтернет мережі на підприємстві «Белтелеком», <Project. Exe> необхідно виконати наступне:

1. створити папку BASE і скопіювати в неї базу даних;

2. відкрити BDE Administrator і створити псевдонім (STANDARD)

(Object → New → OK);

3. Вказати шлях до бази даних;

4. Вибрати Object → Apply → Yes;

5. Пере і менувати псевдонім Standard на PROBA;

6. Встановити Project.exe;

7. Створити ярлик на робочому столі.

Додаток В

Керівництво користувача

Дана розроблена програма знаходиться на диску E: \ в папці Танюша - завдання - Project. Exe. При запуску Project. Exe з'явиться діалогове вікно «РУП« Белтелеком », представлене на рисунку 9.

Рисунок 9 - Особисті дані

Основними елементами діалогового вікна, представленого на малюнку, є головне меню з наступними пунктами: «Меню», «Довідка». У пункт «Меню» входять підпункти «Звіт» та «Вихід». А в пункті «Довідка» відображаються підпункти «Про програму» та «Про розробника».

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

Рисунок 10 - Додавання записів

Після внесення даних натискаємо на кнопку «ОК». Тепер наша нова запис буде внесена до таблиці «Особисті дані». За аналогією можна поміняти будь-які дані нашого запису. Для цього потрібно вибрати її в таблиці, а потім натиснути на кнопку «змінити».

Також на формі представлені й інші кнопки: «Паспортні дані», «Дані по підключенню до мережі Інтернет», «Дані по користуванню мережею Інтернет».

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

Малюнок 11 - Паспортні дані

Після введення даних натискаємо «ОК». Тепер у таблицю «Паспортні дані» будуть внесені наші введені дані. Для виходу в основне вікно необхідно натиснути на кнопку «назад» або закрити у верхньому правому куті.

Далі натискаємо на кнопку «Дані по підключенню до мережі Інтернет». У вікні, вводимо всі необхідні дані, натиснувши на кнопку «додати». Вводимо всі необхідні дані. Потім натискаємо на кнопку «ОК». Тепер у нашій таблиці «Дані по підключенню до мережі Інтернет» будуть внесені всі потрібні нам дані (Малюнок 12).

Рисунок 12 - Додавання запису

Для повернення натискаємо на кнопку «назад».

Далі натискаємо на кнопку "Дані з користування мережею Інтернет». У вікні, вводимо всі необхідні дані, натиснувши на кнопку «додати». Вводимо всі необхідні дані. Потім натискаємо на кнопку «ОК» (Малюнок 13).

Малюнок 13 - Додавання запису

Для таблиці «Особисті дані» можна виконувати фільтрацію і пошук.

«Фільтрація» допомагає знайти значення з конкретними даними. Фільтрувати можна по ПІБ, за адресою, по телефону. Для того щоб відфільтрувати дані необхідно вибрати потрібний пункт, за яким буде відбуватися фільтрація, ввести дані і натиснути на кнопку «Фільтрація» (Малюнок 14).

Рисунок 14 - Фільтрація

Для відновлення всіх даних у таблиці необхідно натиснути в списку меню «всі записи».

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

Для пошуку потрібно вибрати потрібний пункт, ввести необхідні дані та натиснути на кнопку «Пошук» (Малюнок 15).

Рисунок 15 - Пошук

Для очищення поля введення даних використовується кнопка «Очистити».