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

Содержание
Введение
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 170C монитор;
– мышь А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) – ФИО;
– Dannyepasporta – целочисленный тип(9) – серия и номер паспорта;
– Kem vydan– целочисленный тип(18) – кем выдан;
– Data vydachi – тип даты – дата выдачи.
В таблицу №3 «Данные по подключению в сетьинтернет» входят следующие поля:
– FIO –целочисленный тип(30) – ФИО;
– Data podkluchenia – тип даты – дата подключения;
– Tip podkluchenia – целочисленный тип(12) – тип подключения;
– Tarifza minutu – целочисленный тип – тариф за минуту.
В таблицу №4 «Данные по пользованию сетьюинтернет» включены следующие поля:
– FIO –целочисленный тип(35) – ФИО;
– Data polzovania – тип даты – дата пользования;
– Time(min)– тип время – время(минуты);
– Stoimost –целочисленный тип – стоимость.
3.2 Разработка алгоритмазадачи
Разработка алгоритма задачи – это важныйпроцесс создания программного объекта, так как она помогает более точно ипросто понять саму идею программы, разделяя при этом ее на отдельные блоки(задачи). Укрупненная схема работы программы представлена на рисунке 3.
С помощью алгоритма задачи наглядноотображается зависимость одних данных в используемой программе от других.Результатом разработки алгоритма задачи является логический блок, которыйнаглядно показывает процессы обработки данных, вводимых пользователем, иформирование при этом необходимых отчетных документов.
3.3 Разработка интерфейсапользователя
Данная программа разрабатывалась в среде Delphi7.
При создании проекта были задействованыследующие компоненты:
– TTable – кнопкадля отображения данных в табличной форме;
– TDataSource –служит для связи данных в таблице;
– TDBGrid – кнопкадля визуального отображения данных в таблице;
– TButton –кнопка, при нажатии на которую выполняется прописанная в ней функция либопроцедура;
–TDBNavigator – компонент, служащийдля перемещения, редактирования, удаления, добавления, отмены действия;
– TEdit – служитдля отображения текстовых и числовых значений;
– TLabel – длянадписи каких-либо компонентов, а также может служить для вывода ответов;
– TMainMenu – менюформы, в нем могут располагаться все те действия, которые могут выполняться наформе;
– TRadioGroup – служитдля маркированного списка;
– TBitBtn – кнопка с изображением(разновидность TButton), но сотличительной особенностью свойства Glyph,с помощью которого определяется растровое изображение, рисуемое на поверхностикнопки;
– TDBEdit –позволяет редактировать значение строкового поля текущей записи набора данных.
При разработке интерфейса для удобстваработы пользователя с программой использовались стандартные цвета и стандартныешрифты кнопок, текстовых полей, меню, форм.
3.4 Разработка справочнойсистемы
Справочная система данного программногомодуля состоит из раздела: «Справка». Раздел «Справка» содержит в себе дваподраздела: «О программе» и «О разработчике». В подразделе «О программе»отображаются данные о том, как работать с программой (Рисунок 4).
 /> 
Рисунок 4 – О программе

В подразделе «О разработчике» указываютсяданные создателя программы (Рисунок 5).
/> 
Рисунок 5 – О разработчике

4. Тестированиепрограммного продукта
Тестирование производилось в два этапа.
1) Тестирование устойчивости. Здесьпроверялась реакция программы на некорректный ввод данных, значения которыхвыходят за допустимый диапазон.
2) Тестирование функциональности. Здесьвыполнялась проверка правильности вычислений, корректности работы по исходнымданным. На этом этапе проверка осуществлялась путём ввода новых данных в базуданных. Данные во всех случаях успешно были занесены.
Таблица 1 — Журнал тестированияпрограммного продуктаОбъект Команда пользователя Ожидаемая реакция Отметка об отклике системы 1 2 3 4 Меню «Отчет» Выбор одинарным щелчком мыши Вывод формы с готовым отчетом Работает корректно Меню «Выход» Выбор одинарным щелчком мыши Выход из программы Работает корректно Меню «О программе» Выбор одинарным щелчком мыши Выпадающие меню Работает корректно Меню «О разработчике» Выбор одинарным щелчком мыши Вывод формы Работает корректно «Добавить» Выбор одинарным щелчком мыши Вывод формы Работает корректно «Изменить» Выбор одинарным щелчком мыши Вывод формы Работает корректно «Фильтрация» Выбор одинарным щелчком мыши Вывод формы с таблицей БД по личностным данным Работает корректно «Поиск» Выбор одинарным щелчком мыши Вывод формы с таблицей БД по личностным данным Работает корректно Вкладка «Подразделения» Выбор одинарным щелчком мыши Вывод формы с таблицей БД по подразделениям Работает корректно Кнопка «Паспортные данные» Выбор одинарным щелчком мыши Вывод формы с таблицей БД по паспортным данным Работает корректно Кнопка «Данные по подключению к сети Интернет» Выбор одинарным щелчком мыши Вывод формы с таблицей БД по данным по подключению к сети Интернет Работает корректно Кнопка «Данные по пользованию сетью Интернет» Выбор одинарным щелчком мыши Вывод формы с таблицей БД по данным по пользованию сетью Интернет Работает корректно

5 Организационно-экономическаячасть
 
5.1 Экономическаяхарактеристика темы дипломного проектирования
Внастоящее время между современной наукой и производством устанавливается иразвивается прямая, ранее практически отсутствующая кооперация. На ее основенаучный продукт превращается в непосредственный ресурс.
Всеболее широко в самых различных сферах производства используется вычислительнаятехника. Это явление называется компьютеризацией производства.
Компьютеризация— это основа техническогоперевооружения производства, необходимое условие повышения его эффективности.На базе ЭВМ и микропроцессоров создаются технологические комплексы, машины иоборудование, измерительные, регулирующие и информационные системы, ведутсяпроектно-конструкторские работы и научные исследования, осуществляетсяинформационное обслуживание, обучение и многое другое, что обеспечиваетповышение общественной и индивидуальной производительности труда, созданиеусловий для всестороннего и гармоничного развития личности.
Длянормального развития и функционирования предприятия необходимы постоянный обменинформацией между его звеньями, своевременная обработка большого объема данныхна различных уровнях управления, что также невозможно без использования ЭВМ.Потому от уровня компьютеризации в значительной степени зависит развитиеэкономики.
Экономический эффект от внедренияавтоматизированной информационной системы по учету подключения Интернет сети достигаетсяза счет того, что приложение позволяет автоматизировать процесс регистрацииинформации о пользователях, обеспечивает возможность хранения и обработкисведений, получения статистических данных и печати отчетов. Использованиепрограммы позволяет сократить время, необходимое оператору на выполнение работыв 2,5 раза. Внедрение данной программы позволяет сэкономить фонд заработнойплаты за счет сокращения времени работы оператора.
Ниже приведены расчётыпоказателей, которые характеризуют:
Прирост объёма производствапродукции
∆ВП=ВП1-ВП0                                    (1)
Где ВП1, ВП0– валовой объём производства продукции соответственно после и до использованияинновации.
514 тыс. руб.-329 тыс.руб.=185 тыс. руб.
Приростдобавленной стоимости (∆ДС):
∆ДС =ДС1– ДС1,                                       (2)
∆ДС = 16280 руб. – 14685 руб. = 1595 руб.
где ДС1 – добавленная стоимостьпосле использования новшества;
ДС0– добавленная стоимость до использования новшества.
Экономия затрат отснижения себестоимости продукции (∆3)
∆3 = Q1*(С0 – С1)                                                         (3)
∆З =350 шт. *(1350000 руб. – 1174800руб.) = 61320000 руб.
где С1 – себестоимость единицыпродукции после инновации;
С0–себестоимость единицы продукции до инновации;
Q1— годовой объем продажи продукции после применения новшества за 2008 год.
Рост производительноститруда (среднечасовой выработки):
∆ЧВин =(ВП0+∆ВПин )/(ЗТ0– ∆ЗТин) – ЧВ0                 (4)
ЗТ0=1174800руб.* 350 шт. = 411180000 руб.
ЧВ0= ВП0/Чср= 230000000 руб./150 = 1533333 руб.
∆ЧВин=(12000000руб.+ 750000 руб.)/( 411180000 руб. – 117500000 руб.) – 80000 руб. = -79999 руб.
где ВП0–стоимость выпуска продукции до нововведения;
∆ВП – увеличениевыпуска продукции за счет внедрения новации;
ЗТ0— затратытруда на производство продукции до внедрения новации;
ЧВ0–среднечасовая выработка до внедрения новации;
∆ЗТ– экономиязатрат труда после нововведения;
 ЧВ0– среднечасовая выработка довнедрения новации;
Чср –среднесписочная численность рабочих.
Показатели,характеризующие финансовую эффективностьнововведений
Прирост чистого дохода ∆ЧДза счет применения инновации:
∆ЧД=ЧД1 – ЧД0                                                 (5)
∆ЧД= 925000000 руб. – 711000000 руб. = 214000000 руб.
где ЧД1 –доход, включающий чистую прибыль и амортизацию после использования новшества;
ЧД0 – доход,включающий чистую прибыль и амортизацию доиспользования новшества.

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 ккал/см2*мин)оказывает неблагоприятное воздействие на организм человека: нарушаетсясердечная деятельность, возможен перегрев организма.
Ультрафиолетовое излучение приопределённых дозах и режиме может оказывать благотворное влияние на состояниеорганизма и работоспособность человека. Но сильное облучение лучами (длинаволны менее 0,32 мк) неблагоприятно и может привести к различным – кожным,глазным болезням, заболеваниям нервной системы.
На производстве и в быту источников ЭМИ внастоящее время становится больше. Кроме новой производственной техники речьидёт и о бытовой технике: холодильники, телевизоры, радиоприёмники, сотовыетелефоны, компьютеры, видеомагнитофоны, микроволновые печи и т.д.
Компьютер – один из мощнейших источниковЭМИ в квартире и в рабочем помещении. Кто работает с компьютером больше двухчасов, ощущают на себе его гнетущее влияние.
Компьютер обязательно должен бытьподключён к контуру заземления, но, ни в коем случае не к батарее, не к сейфу,что случается часто.
Кроме того, очень важно правильнопроложить все кабели: чтобы не было петель, колец и т.п. Провода нужно собратьв один жгут и аккуратно проложить по помещению, но, ни в коем случае разрешатьим валяться под ногами вместе с источниками, бесперебойного питания.
Общение с компьютером в течение 15 минутполностью безопасно для ребёнка, полчаса – уже хуже, но молодой организмвосстановиться достаточно быстро. Час во власти «машины» — и ваш ребёнок будетотходить уже значительно дольше. Полуторачасовое общение с электронным «другом»обойдётся ещё дороже – появятся остаточные явления.
Квартирная машина наносит удар сначала поцентральной нервной системе, потом по гормональной системе. У компьютеров«пятно максимального излучения» уводится назад и вбок. Поэтому тот, кто сидитперед своим монитором, защищён, а тот, кто сидит сзади и сбоку компьютера, дажене знает, что находится как раз в области самого сильного излучения. Поэтомустол с компьютером должен стоять только у стены, так, чтобы сзади и с боков к немуне было подхода.
В поле индукции человек находится впериодически сменяющих друг друга электрических и магнитных полях.
Биологический эффект воздействияэлектромагнитных полей на человека зависит от диапазона частот, интенсивности ипродолжительности облучения.
Постоянное действие электромагнитных полейнизкой частоты может быть причиной головной боли, вялости, сонливости,раздражительности, болей в области сердца, а также функциональные на рушенияцентральной нервной и сердечно — сосудистой систем, изменения некоторыхбиохимических показателей крови.
Биологическое действие электромагнитныхполей радиочастот (от 30 до 300МГц) может быть как тепловым, так и не тепловым.
Тепловое действие электромагнитного поляпроявляется в повышении общей температуры тела или повышением температурыотдельных его частей.
До некоторого предела организм человекасправляется с отводом теплоты, однако, начиная с некоторой величины, называемойтепловым порогом, температура тела начинает повышаться.
Длительное воздействие электромагнитныхполей, радиочастот с интенсивностью ниже теплового порога, но выше предельнодопустимого вызывает отклонение от нормы со стороны нервной, сердечнососудистойсистем: органов дыхания, пищеварения и некоторых биохимических показателейкрови. Причем на ранних стадиях воздействия характерны жалобы на головную боль,повышенную утомляемость, раздражительность, нарушение сна, боли в областисердца. В дальнейшем отмечаются усиление возбудимости, снижение памяти, приступыголовной боли, обморочные состояния, боли в области сердца. В момент приступовнаблюдается дрожь, побледнение или покраснение лица, резкая слабость,повышенная температура тела, высокое артериальное давление.
Средства и методы защиты отэлектромагнитных полей делятся на три группы: организационные,инженерно-технические и лечебно-профилактические.
Организационные мероприятияпредусматривают предотвращения попадания людей в зоны с высокой напряженностьюэлектромагнитного поля, установление рациональных режимов работы оборудования иобслуживающего персонала.
Инженерно-технические средства и методывключают:
— уменьшение напряженности и плотностипотока энергии, электромагнитных полей посредством использования согласованныхнагрузок и поглотителей мощности;
— экранирование рабочего места;
— удаление рабочего места от источникаэлектромагнитных полей;
— рациональное размещение в рабочемпомещении оборудования, излучающего электромагнитную энергию;
— применение средств предупреждающейсигнализации;
— применение средств индивидуальнойзащиты.
Лечебно-профилактические мероприятиянаправлены, прежде всего, на раннее выявление нарушений в состоянии здоровьяработающих путем периодических медицинских осмотров.

Заключение
В результате работы над дипломным проектомбыла проведена самостоятельная исследовательская работа, а такжесистематизированы, закреплены и углублены теоретические и практические знания,отработаны практические навыки, сформированные на протяжении учебы поспециальности, которые были применены для решения конкретной задачи.
Крометого были расширены некоторые знания из данной предметной области и закрепленызнания объектно-ориентированного языка программирования Delphi7.При реализации дипломного проекта были пройдены этапы описания и постановки задачи,кодирование программы на алгоритмический язык и тестирование полученного приложения.
Длявыполнения дипломного проекта была использована литература, котораяпредставлена в списке использованных источников.
Наосновании вышеизложенного можно сделать вывод, что внедрение дипломного проектапо автоматизированной системе учета по подключению абонентов к сети Интернет вРУП «Белтелеком» экономически целесообразно и в будущем позволит с большейэффективностью вести учет пользователей, подключенных к сети Интернет, ихданные, а также количество времени нахождения в сети.

Литература
1 ГофманВ.Э., Хомоненко А.Д. Delphi 5. – СПб.: БХВ – Санкт-Петербург, 1999. – 800 с.
2 МатросовА.В., Сергеев А.О., Чаунин М. П. HTML 4.0. – СПб.: БХВ – Петербург,2000. – 672 с.
3 ХомоненкоА.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебныхзаведений. / Под ред. проф. А.Д. Хомоненко. – СПб.: КОРОНА принт, 2000. – 416с.
4 КузанЛ. Я., Шапоров В.Н. Программирование Win32 API в Delphi.– СПб.: БХВ – Петербург, 2005. – 368 с.
5 Дейт,К., Дж. Введение в системы баз данных, 7-е издание.: Пер. с англ. – М.:Издательский дом “Вильямс”, 2001. – 1072 с.
6 СухаревМ.В. Основы Delphi. Профессиональный подход – СПб.: наука и Техника,2004. – 600 с.
7 СорокинА.В. Delphi. Разработка баз данных. – СПб.: Питер, 2005. – 477 с.
8 ДарахвелидзеП.Г., Марков Е.П. Delphi 2005 для Win32. – СПб.: БХВ – Петербург,2005. – 1136 с.
9 ФароновВ.В., Шумаков П.В. Delphi 5. Руководство разработчика баз данных – М.:«Нолидж», 2000. – 640 с.
10 АрхангельскийА.Я. Delphi 2006. справочное пособие: Язык Delphi,классы, функции Win32 и .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 Unit1;
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}
procedureTForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;
procedureTForm1.Button2Click(Sender: TObject);
begin
form3.show;
end;
procedureTForm1.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;
procedureTForm1.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;
procedureTForm1.Button5Click(Sender: TObject);
begin
form9.show;
end;
procedureTForm1.N3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N6Click(Sender:TObject);
begin
form10.show;
end;
procedureTForm1.N5Click(Sender: TObject);
begin
Winhelp(Form1.Handle,'help1.hlp',Help_context,1);
end;
procedureTForm1.Button6Click(Sender: TObject);
begin
form11.show;
end;
procedureTForm1.Button7Click(Sender: TObject);
begin
form12.show;
end;
procedureTForm1.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}
procedureTForm2.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=''thentable1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedureTForm2.Button2Click(Sender: TObject);
begin
table1.edit;
if form8.showmodal=mrOk then
begin
if form8.DBEdit1.text='' thenTable1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedureTForm2.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}
procedureTForm3.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=''thentable1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedureTForm3.Button2Click(Sender: TObject);
begin
table1.edit;
if form14.showmodal=mrOk then
begin
if form14.DBEdit1.text='' thenTable1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedureTForm3.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}
procedureTForm9.Button1Click(Sender: TObject);
begin
table1.edit;
if form13.showmodal=mrOk then
begin
if form13.DBEdit1.text='' thenTable1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedureTForm9.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=''thentable1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedureTForm9.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}
procedureTForm11.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;
procedureTForm11.N1Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
procedureTForm11.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}
procedureTForm12.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;
procedureTForm12.Button1Click(Sender: TObject);
begin
Edit1.Text:='';
end;
procedureTForm12.Button3Click(Sender: TObject);
begin
form1.show;
form12.Close;
end;
end.

Приложение Б
Руководство программиста
Для того чтобы установить базу данных поразработке автоматизированной системы учета по подключению Интернет сети напредприятии «Белтелеком», необходимо выполнить следующее:
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 – Поиск
Для очистки поля ввода данных используетсякнопка «Очистить».