Автоматизация работы программы «заявки» зао «тагилэнергосети"»

                                     Т =  56429/172288 = 0,33 года.                           (33)

То есть дополнительные капиталовложения окупятся примерно в течении 0,33 года эксплуатации системы.

           4) Расчетный  коэффициент эффективности дополнительных  капитальных вложений Ер является величиной, обратной Т, т.е. Ер = 1 / Т.   Ен = 0,33 – нормативный коэффициент эффективности.  Если расчётный коэффициент больше или равен Ен, т.е. если Ер ³ 0,33, то проект принимается к внедрению и создание ЭИС эффективно.

                                       Ер = 1 / 0,33 = 3,0                                   (34)

Так как 3,0 = Ер > Ен = 0,33, то проект принимается к внедрению и создание информационной системы эффективно.

1. Годовой экономический эффект Э вычисляется по формуле:

                                                Э = DСт – КД  ∙ Ен,                                 (35)

Э = 172288-56429*0,33=153666руб.

 

Годовой экономический эффект составил 153666руб. Полученный программный продукт обладает сравнительно быстрой окупаемостью и способствует значительной экономии средств и может быть рекомендован к применению.

 

ЗАКЛЮЧЕНИЕ

 

 

Данный проект ставил перед собой целью автоматизацию приема заявок на неисправность электрооборудования в аварийно-диспетчерской службе ЗАО «Тагилэнергосети», в связи с потребностью повышения эффективности работы персонала службы.

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

В рамках дипломной работы, для реализации поставленной цели был проведён предварительный этап создания программного комплекса – анализ деятельности предприятия.

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

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

 Комплексный анализ предметной области показал, что существует возможность повышения эффективности работы, чему в частности служит автоматизация процессов приема заявок.

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

 В проекте прорабатываются  теоретические аспекты проектирования  информационных систем. 

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

 Определены потоки  входных  оперативных данных, выходной и  нормативно-справочной информации.

Инфологическая модель разрабатываемой системы после выбора в качестве СУБД Microsoft Access легла в основу даталогического проектирования: создания базы данных, разработки программных модулей.

Был разработан программный продукт, отвечающий всем требованиям технического задания, обеспечивающий значительную экономию временных ресурсов на работу по учету, на контроль и анализ производственной деятельности. Программа состоит из следующих блоков:

- нормативно-справочная информация;

- ввод и обработка информации по заявкам;

- аналитическая и отчетная информация.

В главе 3 был выполнен расчет экономической эффективности проекта. При сравнительно маленькой себестоимости разработки, программа, обладает коротким сроком окупаемости и способствует значительной экономии средств, что особенно важно для небольшого предприятия.

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

В марте 2013 года программа прошла апробацию в ЗАО «Тагилэнергосети», где получила положительные отзывы, и была внедрена в эксплуатацию.

Таким образом, можно считать, что задачи дипломной работы решены, цель достигнута.

 

ИСТОЧНИКИ ИНФОРМАЦИИ

1. Приказ Министерства Внутренних дел Российской Федерации от 19 февраля 1999 года № 121 «О Государственных регистрационных знаках транспортных средств»
2. Положение об аварийно-диспетчерской службе ЗАО «Тагилэнергосети». – 2011.
3. Должностные инструкции ЗАО «Тагилэнергосети». – 2011.
4. Блюттман К. Access. Трюки. – Спб. Питер – 2007. – 332 с.
5. Быстрицкий Г. Ф. Основы энергетики. – М.: КноРус – 2012- 352 с.
6. Вендров A.M. Современные методы и средства проектирования программного обеспечения. - М., 2008. - 183 с.
7. Гвоздева В. А., Лаврентьева И. Ю. Основы построения автоматизированных информационных систем: учебник. — M.: ИД «ФОРУМ»: ИНФРА-М, 2007. — 320 с.
8. Герасименко А. А., Федин В. Т. Передача и распределение электрической энергии. – М.: КноРус – 2012. - 352 с.
9. Джен Л. Харрингтон. Проектирование реляционных баз данных. – М.: Лори,  2006. -  230 с.
10. Диго С.М. Проектирование баз данных. Учебник. – М.: Финансы и статистика. – 2006. – 594 с.
11. Исаев Г. Н. М.: Информационные системы в экономике: Учебник.- М.: Омега-Л, 2013 г. – 386 с.
12. Исаев Г. Н. М.: Практикум по информационным технологиям: Учебник.- М.: Омега-Л, 2013 г. – 291 с.
13. Ковалев В.В. Финансовый анализ: методы и процедуры – М.: Финансы и статистика. – 2008. – 560 с.
14. Ковалев В.В. Финансовый анализ: управление капиталом. Выбор инвестиций. Анализ отчетности. – М.: Финансы и статистика. – 2007. – 365 с.
15. Крейнина М.Н. Финансовое состояние предприятия: Методы оценки. – М.: ДИС, 2009. – 224 с.
16. Кошелев В.Е. Базы данных в ACCESS 2007. – М.: Бином, 2013. – 592 с.
17. Мишинин А.И. Теория экономических информационных систем, 4-е издание. М.: Финансы и статистика, 2007. – 327 с.
18. Петров В.Н. Информационные системы, СПб: Питер, 2007.
19. Кузин А.В., Левонисова С.В. – Базы данных. – М.: Наука,2008. – 320 с.
20. План счетов бухгалтерского учета: Комментарии к применению. (Бухгалтеру и аудитору) -СПб: Питер, 2011. - 272 с.
21. Сергеев А.Новые возможности Access 2007. – Спб.: Питер, 2008. – 478 с.
22. Смирнова О.В. Access 2007 на практике. - М.: Феникс.- 2013. – 160с.
23. Титоренко А.Г.. Автоматизированные информационные технологии в экономике, М. Наука, 2008. –  56с.
24. Уткин В.Б., Балдин К.В.. Информационные системы и технологии в экономике. М., ЮНИТИ, 2006.
25. Федоров Н. В. Проектирование информационных систем на основе современных CASE-технологий. – М.:, Московский государственный индустриальный университет – 2007. – 261 с.
26. Шориков А.Ф., Тюлюкин В.А., Рузакова О.В. Прикладная информатика в экономике: итоговая аттестация специалиста: Учебное пособие. - Екатеринбург: Изд-во Урал.гос.экон.ун-та, 2007 – 72 с.
27. Цветков В.Я. Современные проблемы информатики и вычислительной техники  - М.: Наука, 2007. – 306 с.
28. Чуев И.Н., Чечевицына Л.Н. Экономика предприятия: Учебник. – 3-е изд., перераб. и доп., 2006. – 416 c.
29. Якубайтис Э.А. Информационные сети и системы: Справочная книга. М.: Финансы и статистика,  2006.
30. Современные исследования в экономике, финансах и бизнесе: методы и технологии: Материалы межрегиональной научно-практической конференции;Ред.коллегия: к.с.н., профессор Т.П.Беликова; к.п.н., доцент А.В.Боева; к.ф.-м.н., старший преподаватель И.О.Гордеева; к.п.н., доцент И.И.Палашева; к.э.н., доцент А.А.Удовикова; МОиН РФ.-Старый Оскол: Оскол-Информ, 2011. - 214 с.
31. Интернет-университет информационных технологий. – Cтатьи - Грекул М.В. - Основные понятия технологии проектирования информационных систем - http://www.intuit.ru Visual Basic, .NET, ASP, VBScript [Электронный ресурс] – Режим доступа:  http://www.vbnet.ru
32. Visual Basic на русском [Электронный ресурс] – Режим доступа: http://www.vbrussian.com
33. Разработка баз данных SQL + Access -[Электронный ресурс] – Режим доступа:  http://msdatabase.ru
34. MS Access Кирпичики -[Электронный ресурс] – Режим доступа:  http://msa.polarcom.ru/
35. Заметки об MS Access –[Электронный ресурс] – Режим доступа: http://ssy.mccinet.ru.

 

 

 

Приложение А

 

Исходный код модуля формы «Заявка»

 

Option Compare Database

Option Explicit

Dim sqlt

Dim s_ДатаЗ As Date, s_ВремяЗ As Date, s_Заявитель

Dim s_Телефон, s_Вход, s_Заявлено, s_Принял, prisnak As Integer, ctl1 As Control

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)

ctl1 = Me.ActiveControl

End Sub

Private Sub Вид_GotFocus()

SendKeys "{F4}"

End Sub

 

Private Sub Form_Current()

End Sub

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyF6

Me.Refresh

DoCmd.OpenReport "Заявка"

     Case Else

     End Select

 

End Sub

 

Private Sub Form_Open(Cancel As Integer)

sqlt = "SELECT Заявки.* FROM Заявки WHERE (((Заявки.ВхНомер)=" & Me.OpenArgs & "));"

Me.RecordSource = sqlt

Me.Requery

DoCmd.Maximize

End Sub

 

Private Sub ВремяЗ_AfterUpdate()

If prisnak = 1 Then

ВремяЗ = s_ВремяЗ

prisnak = 0

End If

End Sub

 

Private Sub ВремяЗ_BeforeUpdate(Cancel As Integer)

If ззз(НомерСмены) > 0 Then

prisnak = 1

Cancel = True

End If

End Sub

 

Продолжение приложения А

Private Sub ВремяЗ_Change()

If IsNull(ВремяЗ) And ззз(НомерСмены) > 0 Then

ВремяЗ = s_ВремяЗ

prisnak = 0

End If

End Sub

 

Private Sub ВремяЗ_GotFocus()

If Not IsNull(ВремяЗ) Then

s_ВремяЗ = ВремяЗ

End If

End Sub

 

Private Sub ВремяП_AfterUpdate()

' дата вып-я

If ВремяЗ > #10:00:00 PM# Then

 If ВремяП < #2:00:00 AM# Then

 Дата = ДатаЗ + 1

Exit Sub

End If

End If

Дата = ДатаЗ

End Sub

 

Private Sub Вход_AfterUpdate()

If prisnak = 1 Then

Вход = s_Вход

prisnak = 0

End If

End Sub

 

Private Sub Вход_BeforeUpdate(Cancel As Integer)

If ззз(НомерСмены) > 0 Then

prisnak = 1

Cancel = True

End If

End Sub

 

Private Sub Вход_Change()

If IsNull(Вход) And ззз(НомерСмены) > 0 Then

Вход = s_Вход

prisnak = 0

End If

End Sub

 

Private Sub Вход_GotFocus()

If Not IsNull(Вход) Then

s_Вход = Вход

End If

End Sub

 

Продолжение приложения А

Private Sub Выполнено_AfterUpdate()

End Sub

 

Private Sub Выполнено_GotFocus()

If IsNull(Выполнено) Then

Выполнено.Dropdown

End If

End Sub

 

Private Sub Дата_DblClick(Cancel As Integer)

Me!Дата = Date

End Sub

 

Private Sub ДатаОплаты_AfterUpdate()

If Not IsNull(Me!ДатаОплаты) Then

Me!Использование = True

Else

Me!Использование = False

End If

End Sub

 

Private Sub ДатаОплаты_DblClick(Cancel As Integer)

Me!ДатаИспоьзования = Date

End Sub

 

Private Sub ДатаЗ_AfterUpdate()

If prisnak = 1 Then

ДатаЗ = s_ДатаЗ

prisnak = 0

End If

End Sub

 

Private Sub ДатаЗ_BeforeUpdate(Cancel As Integer)

If ззз(НомерСмены) > 0 Then

prisnak = 1

Cancel = True

End If

End Sub

 

Private Sub ДатаЗ_Change()

If IsNull(ДатаЗ) And ззз(НомерСмены) > 0 Then

ДатаЗ = s_ДатаЗ

prisnak = 0

End If

End Sub

 

Private Sub ДатаЗ_GotFocus()

If Not IsNull(ДатаЗ) Then

s_ДатаЗ = ДатаЗ

End If

End Sub

Продолжение приложения А

Private Sub Заявитель_AfterUpdate()

If prisnak = 1 Then

Заявитель = s_Заявитель

prisnak = 0

End If

End Sub

 

Private Sub Заявитель_BeforeUpdate(Cancel As Integer)

If ззз(НомерСмены) > 0 Then

prisnak = 1

Cancel = True

End If

End Sub

 

Private Sub Заявитель_Change()

If IsNull(Заявитель) And ззз(НомерСмены) > 0 Then

Заявитель = s_Заявитель

prisnak = 0

End If

End Sub

 

Private Sub Заявитель_GotFocus()

If Not IsNull(Заявитель) Then

s_Заявитель = Заявитель

End If

End Sub

 

Private Sub Заявлено_BeforeUpdate(Cancel As Integer)

If ззз(НомерСмены) > 0 Then

prisnak = 1

Cancel = True

End If

End Sub

 

Private Sub Заявлено_Change()

If IsNull(Заявлено) And ззз(НомерСмены) > 0 Then

Заявлено = s_Заявлено

prisnak = 0

End If

End Sub

 

Private Sub Заявлено_GotFocus()

If Not IsNull(Заявлено) Then

s_Заявлено = Заявлено

Else

Заявлено.Dropdown

End If

End Sub

 

 

Private Sub Кнопка18_Click()

Продолжение приложения А

Me.Refresh

DoCmd.OpenReport "Заявка", acViewPreview

End Sub

 

Private Sub Кнопка65_Click()

Обн

End Sub

 

Private Sub Кнопка87_Click()

DoCmd.OpenReport "АктНаряд", acViewPreview

End Sub

 

Private Sub КодЭУ_GotFocus()

КодЭУ.Requery

End Sub

 

Private Sub Номер_BeforeUpdate(Cancel As Integer)

If ззз(НомерСмены) > 0 Then

prisnak = 1

Cancel = True

End If

End Sub

 

Private Sub НомерСмены_DblClick(Cancel As Integer)

DoCmd.OpenForm "Смена", , , , , , НомерСмены

End Sub

 

Private Sub Принял_AfterUpdate()

If prisnak = 1 Then

Принял = s_Принял

prisnak = 0

End If

End Sub

 

Private Sub Принял_BeforeUpdate(Cancel As Integer)

If ззз(НомерСмены) > 0 Then

prisnak = 1

Cancel = True

End If

End Sub

 

Private Sub Принял_Change()

If prisnak = 1 Then

Принял = s_Принял

prisnak = 0

End If

End Sub

 

Private Sub Принял_DblClick(Cancel As Integer)

DoCmd.OpenForm "Смена", , , , , , НомерСмены

End Sub

 

Продолжение приложения А

Private Sub Принял_GotFocus()

If Not IsNull(Принял) Then

s_Принял = Принял

End If

End Sub

 

Private Sub Причина_AfterUpdate()

Dim nnn As Integer, zz

nnn = Me!Причина.ListIndex

zz = Me!Причина.Column(1, nnn)

If Left(zz, 3) = "ава" Then

Характер = 1

Else

Характер = 2

End If

End Sub

 

Private Sub Причина_GotFocus()

If IsNull(Причина) Then

Причина.Dropdown

End If

End Sub

 

Private Sub Телефон_AfterUpdate()

If prisnak = 1 Then

Телефон = s_Телефон

prisnak = 0

End If

End Sub

 

Private Sub Телефон_BeforeUpdate(Cancel As Integer)

If ззз(НомерСмены) > 0 Then

prisnak = 1

Cancel = True

End If

End Sub

 

Private Sub Телефон_Change()

If IsNull(Телефон) And ззз(НомерСмены) > 0 Then

Телефон = s_Телефон

prisnak = 0

End If

End Sub

 

Private Sub Телефон_GotFocus()

If Not IsNull(Телефон) Then

s_Телефон = Телефон

End If

End Sub

 

Приложение Б

       Отчет по причинам заявок

1 В.Б.Уткин, К.В.Балдин. Информационные системы и технологии в экономике./–М., ЮНИТИ, 2003

2 М. Р. Кагаловский. Перспективные технологии информационных систем. ДМК Пресс, Компания АйТи, 2003

3 Исаев Г. Н. М.: Информационные системы в экономике: Учебник.- М.: Омега-Л, 2013 г. – с. 53

4 Исаев Г. Н. М.: Информационные системы в экономике: Учебник.- М.: Омега-Л, 2013. – с. 54

5 Уткин В.Б., Балдин К.В.. Информационные системы и технологии в экономике. М., ЮНИТИ, 2006. – с. 145

 

6 Исаев Г. Н. М.: Информационные системы в экономике: Учебник.- М.: Омега-Л, 2013. – с. 26

7 Цветков В.Я. Современные проблемы информатики и вычислительной техники  - М.: Наука, 2007. – с. 61

8 Смирнова О.В. Access 2007 на практике. - М.: Феникс.- 2013. – с. 18

9 Сергеев А.Новые возможности Access 2007. – Спб.: Питер, 2008. – с.32

10 Исаев Г. Н. М.: Практикум по информационным технологиям: Учебник.- М.: Омега-Л, 2013. – с. 51

11 Исаев Г. Н. М.: Практикум по информационным технологиям: Учебник.- М.: Омега-Л, 2013. – с.73

12 Исаев Г. Н. М.: Практикум по информационным технологиям: Учебник.- М.: Омега-Л, 2013. – с.75

13 Емельянова Н.З., Партыка Т.Л. Основы построения автоматизированных информационных систем. М.: ФОРУМ: ИНФРА, 2005

14 Петров В.Н. Информационные системы, СПб: Питер, 2007. – с. 69

 

15 Вендров A.M. Современные методы и средства проектирования программного обеспечения. - М., 2008. – с.49

16 Федоров Н. В. Проектирование информационных систем на основе современных CASE-технологий. – М.:, Московский государственный индустриальный университет – 2007.

17 Там же

18 Вендров A.M. Современные методы и средства проектирования программного обеспечения. - М., 2008. – с. 55

19 Кирсанов М.В. Современное делопроизводство : Учебное пособие. М.: ИНФРА-М, 2005.

20 Приказ Министерства Внутренних дел Российской Федерации от 19 февраля 1999 года № 121 «О Государственных регистрационных знаках транспортных средств

21 Проектирование базы данных. Под ред. Гриченко Н.М. Телеком, 2004

22 Вендеров А. Проектирование программного обеспечения экономических информационных систем.- М., 2000

23 Якубайтис Э.А. Информационные сети и системы: Справочная книга. М.: Финансы и статистика,  2006

24 Ковалев В.В. Финансовый анализ: управление капиталом. Выбор инвестиций. Анализ отчетности. – М.: Финансы и статистика. – 2007.