79
Обеспечение сохранности архивных документов, контроль за их состоянием,
восстановление при необходимости, соблюдением в помещениях условий,
необходимых для хранения документов. Проведение санитарно-гигиенических
мероприятий в архиве. Соблюдение правил противопожарной безопасности.
4 часа
4 часа
Участие в работах по экспертизе ценности архивных документов. Составление
описи дел для передачи документов в государственные архивы, составление
актов об уничтожении и передаче в другие организации на хранение
документов, сроки хранения которых истекли.
2часа
1 час
Итого по
периодической
работе
Общее количество
34 часа
(4,25 рабочих дня)
Общее количество
18 часов
(2,25 рабочих дня)
Таким образом, среднемесячный выигрыш во времени 2 рабочих дня, что в
денежном эквиваленте составляет 6000 рублей.
Общая сумма, затраченная на разработку, внедрение и первый месяц
эксплуатации составляет 47500 рублей, срок окупаемости 8 месяцев. Кроме
того, следует учитывать и экономию времени сотрудников при запросе
документов из архива.
Очевидно, что это не прямой финансовый доход, однако внедрение
программы позволить высвободить время секретаря-делопроизводителя,
улучшить качество работы, сделать бизнес-процессы более привычными и
удобными для молодых сотрудников
Дополнительный значительный выигрыш во времени при
использовании информационной системы получен при составлении отчетов
и аналитический справок. Все данные из информационной системы
выгружаются в Excel, нужным образом обрабатываются.
Значительная экономия рабочего времени планируется и при
составлении годового отчета по делопроизводству.
80
ЗАКЛЮЧЕНИЕ
В ходе выполнения выпускной квалификационной работы были
решены следующие задачи:
1)изучена деятельность МУП «Комплекс», в ходе изучения проведено
моделирование бизнес-процессов в методологии ARIS, IDEFO и DFD;
2)сформулированы задачи информационной поддержки архивного
делопроизводства МУП «Комплекс», подготовлены проектные решения по
информационному, техническому и программному обеспечению. В качестве
способа хранения информации была выбрана реляционная база данных
(СУБД – mysql), языком программирования был выбран объектно-
ориентированный язык веб-разработки php;
3)проведено проектирование база данных, база данных установлена на
SQL-сервер, установлена связь БД под MySQL с Access с помощью ODBC-
драйвера, что позволило создать удобные формы обработки информации для
сотрудников отдела автоматизации;
4)проведена установка и тестирование информационной системы по
учету и модернизации вычислительной техники;
5)проведены мероприятия по защите информации, хранящихся в
информационной системе в соответствии с законодательством РФ.
Таким образом, все задачи ВКР выполнены. Дальнейшее развитие
разработанной информационной системы возможно в сторону расширения
функционала.
81
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. ГОСТ 2.105 – 95. Общие требования к текстовым документам.
2. ГОСТ 7.32 – 2001. Отчет по научно-исследовательской работе.
Структура и правила оформления.
3. ГОСТ 7.82 – 2001. Библиографическое описание электронных
ресурсов.
4. ГОСТ 24.702 – 85 Эффективность автоматизированных систем
управления.
5. ГОСТ Р 7.0.5 – 2008. Библиографическая запись. Библиографическое
описание.
6. Коберн А., Современные методы описания функциональных
требований к системам, М.: издательство "Лори", 2017. – 288 с
7. Гайфуллин Б.Н., Обухов И.А., Автоматизация систем управления
предприятиями стандарта ERP-MRPII. – М:Интерфейс-пресс, 2010 г. – 114 c.
8. Гончаров А. Самоучитель. HMTL / А. Гончаров. – Спб. : Питер, 2011.
– 240 с.
9. Дунаев В. HTML, скрипты и стили / В. Дунаев. – Спб. : БХВ-
Петербург, 2015. – 816 с.
10.Жадеев А. PHP для начинающих / А. Жадеев. – Спб.: «Питер», 2014.
– 592 c.
11. Колисниченко Д. PHP и MySQL. Разработка WEB-приложений / Д.
Колисниченков – Спб: БХВ-Петербург, 2013. – 560 с.
12. Конналли Т. Базы данных. Проектирование, реализация и
сопровождение. Теория и практика / Т. Коналли, К. Бегг. – М.: Издательский
дом «Вильямс», 2013. – 1093 c.
13. Лобова Г.Моделирование и анализ бизнес-процессов SADT. – М.:
LAP LambertAcademicPublishing, 2014. – 352 c.
82
14. Макдональд, М. Создание Web-сайта. Недостающее руководство /
М. Макдональд. – Спб. : БХВ-Петербург, 2013. – 624 с.
15. Маклаков С. В. Моделирование бизнес-процессов с
AllFusionProcessModeler (BPwin 4.1) / С.В. Маклаков. – М. : ДИАЛОГ-
МИФИ, 2013. – 340 c.
16. Маклаков С.В. Создание информационных систем с
AllFusionModelingSuite / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2013. – 512
c.
17. Маклаков С.В. BPwin и Erwin. CASE-средства разработки
информационных систем / С.В. Маклаков. – М. : ДИАЛОГ–МИФИ, 2014. –
369 c.
18. Тельнов, Ю.Ф. Информационные системы и технологии.
Information System and Technologies: науч. изданиеподред. Тельнова Ю. Ф. –
М: Юнити-Дана,2012 – 303 с.
19. Флэнаган, Д. Javascript. Подробное руководство / Д. Флэнаган : пер
с англ. – М. : Символ-Плюс, 2013. – 1080 с.
20. Эндисофт. http://andysoftware.com/ru/rrlan/index.htm
21. Проектирование информационных систем. http://проектирование-
ис.рф/лекции/лекция-12/
83
ПРИЛОЖЕНИЯ
Приложение 1
Скрипт для выгрузки отдельно хранящихся файлов
Option Compare Database
Option Explicit
Private Sub cmdFileAdd_Click()
Dim dlgOpenFile As Object 'FileDialog
Dim strFileName As String, strFileNameNew As String
Dim rst As DAO.Recordset
On Error Resume Next
strFileName = CurrentProject.Path& "\Files\"
If Len(Dir$(strFileName, vbDirectory)) = 0 Then MkDirstrFileName
Set dlgOpenFile = Application.FileDialog(1&) 'msoFileDialogOpen
With dlgOpenFile
.InitialFileName = CurrentProject.Path
.AllowMultiSelect = False
.Title = "Укажитеприкрепляймыйфайл"
If .Show = -1 Then
strFileName = .SelectedItems(1)
Set rst = CurrentDb.OpenRecordset("tblAttachedFiles",
dbOpenTable)
With rst
.AddNew
.Fields(1) = Me.DocID
.Fields(2) = Mid(strFileName, InStrRev(strFileName, "\") + 1)
.Fields(3) = (Me.Text_ + "_") &CStr(.Fields(1)) & "_"
&CStr(.Fields(0)) & Mid(.Fields(2), InStrRev(.Fields(2), "."))
.Update
.Bookmark = .LastModified
strFileNameNew = CurrentProject.Path& "\Files\" & .Fields(3)
End With
FileCopystrFileName, strFileNameNew
If Err Then
Err.Clear
rst.Delete
MsgBox "Ooopps!..." &vbNewLine& "Не смогли прикрепить файл!",
vbCritical
Else
With Me.lstFileName
.Requery
.Value = rst.Fields(0)
End With
lstFileName_Click
End If
rst.Close
Else
MsgBox "А что отказались?",vbInformation
End If
84
End With
Set rst = Nothing
Set dlgOpenFile = Nothing
End Sub
Private Sub cmdFileDel_Click()
Dim strFileName As String, strSQL As String
Dim lngRecAff As Long
On Error GoToHandleErrors
If IsNull(Me.lstFileName) Then MsgBox "Нужно выбрать файл в
списке!", vbInformation: Exit Sub
If Len(Me.txtFileName) > 0 Then
If Len(Dir$(Me.txtFileName)) > 0 Then
Kill Me.txtFileName
strSQL = "DELETE * FROM tblAttachedFiles WHERE [FileID]= "
&CStr(Me.lstFileName) & " AND [DocID]="
&CStr(Me.lstFileName.Column(2)) & ";"
CurrentProject.Connection.ExecutestrSQL, lngRecAff 'тут
воспользуемся ADO чисто из-за возвращаемого числа обработанных
записей, но можно и обойтись
IflngRecAff = 0 Then
MsgBox "Ooopps!..." &vbNewLine& "Не смогли удалить запись о
файле!", vbCritical
Else
With Me.lstFileName
.Requery
.Value = .ItemData(0)
End With
Me.cmdFileAdd.SetFocus
lstFileName_Click
If Me.cmdFileDel.Enabled Then
Me.cmdFileDel.SetFocus
End If
End If
Else
MsgBox "Ooopps!..." &vbNewLine& "Не нашли файл!", vbCritical
End If
End If
ExitHere:
Exit Sub
HandleErrors:
Select Case Err.Number
Case 70 ' файлзанят
MsgBox "Ooopps!..." &vbNewLine& "Не смогли удалить файл!"
&vbNewLine& _"Возможно он открыт приложением, закройте его и
повторите операцию.", vbCritical
Case Else
MsgBox "Ошибка: " &Err.Number&vbNewLine&Err.Description,
vbCritical
End Select
85
Resume ExitHere
End Sub
Private Sub Form_Current()
Dim strFileName As String
If Not Me.NewRecord Then
With Me.lstFileName
.RowSource = "SELECT tblAttachedFiles.FileID,
tblAttachedFiles.FileNameNew, tblAttachedFiles.DocID,
tblDocuments.Text_ " & _"FROM tblDocuments RIGHT JOIN
tblAttachedFiles ON tblDocuments.DocID = tblAttachedFiles.DocID
" & _
"WHERE tblAttachedFiles.DocID=" &CStr(Me.DocID) & " AND Not
tblAttachedFiles.IsRemote;"
.Value = .ItemData(0)
If Not IsNull(.Value) Then
strFileName = CurrentProject.Path& "\Files\" & .Column(1)
If Len(Dir$(strFileName)) > 0 Then
Me.txtFileName = strFileName
Else
Me.txtFileName = Null
MsgBox "Файлы куда-то подевались...",vbCritical
End If
Else
Me.txtFileName = Null
End If
Me.cmdFileDel.Enabled = (.ListCount> 0)
End With
Me.cmdFileAdd.Enabled = True
Else
With Me.lstFileName
.RowSource = ""
.Value = Null
Me.txtFileName = .Value
End With
Me.cmdFileDel.Enabled = False
Me.cmdFileAdd.Enabled = False
End If
End Sub
Private Sub Form_Delete(Cancel As Integer)
Dim strFileName As String
On Error GoToHandleErrors
With Me.lstFileName
With .Recordset
Do Until .EOF
strFileName = CurrentProject.Path& "\Files\" & .Column(1)
If Len(Dir$(strFileName)) > 0 Then
Kill strFileName
'пока пометим удаленным, записи удалятся со связанной записью
документа
86
CurrentDb.Execute "UPDATE tblAttachedFiles SET IsRemote=TRUE
WHERE FileID="&CStr(.Fields(0))&";"
Else
MsgBox "Файл """ &strFileName& """ ненайден!",vbInformation,
"Удалениедокумента"
End If
.MoveNext
Loop
End With
.Requery
End With
ExitHere:
Exit Sub
HandleErrors:
Select Case Err.Number
Case 70 ' файлзанят
MsgBox "Ooopps!..." &vbNewLine& "Не смогли удалить файл!"
&vbNewLine& _"Возможно он открыт приложением, закройте его и
повторите операцию.", vbCritical
Cancel = -1 'отменим удаление документа
CaseElse
MsgBox "Ошибка: " &Err.Number&vbNewLine&Err.Description,
vbCritical
End Select
Resume ExitHere
End Sub
Private Sub lstFileName_Click()
Dim strFileName As String
With Me.lstFileName
If Not IsNull(.Value) Then
strFileName = CurrentProject.Path& "\Files\" & .Column(1)
If Len(Dir$(strFileName)) > 0 Then
Me.txtFileName = strFileName
Else
Me.txtFileName = Null
MsgBox "Файлы куда-то подевались...",vbCritical
End If
Else
Me.txtFileName = Null
End If
Me.cmdFileDel.Enabled = (.ListCount> 0)
End With
End Sub
Private Sub lstFileName_DblClick(Cancel As Integer)
On Error GoToHandleErrors
If Not IsNull(Me.txtFileName) Then
If Len(Dir$(Me.txtFileName)) > 0 Then
Application.FollowHyperlinkMe.txtFileName
Else
Me.txtFileName = Null
MsgBox "Файлы куда-то подевались...",vbCritical
87
End If
End If
ExitHere:
Exit Sub
HandleErrors:
Select Case Err.Number
Case486 ' с файлом не ассоциировано ни одной программы...
VBA.Shell "rundll32.exe shell32.dll,OpenAs_RunDLL """
&Me.txtFileName& "", vbNormalFocus
Case Else
MsgBox "Ошибка: " &Err.Number&vbNewLine&Err.Description,
vbCritical
End Select
Resume ExitHere
End Sub
Private Sub txtMyText_AfterUpdate()
If Me.NewRecord Then
Me.Dirty = False
Form_Current
End If
End Sub
Option Compare Database
Option Explicit
PublicFunctionCheckWord(vVal) AsBoolean ' проверка на
запрещенные символы в именах файлов
On Error Resume Next
If IsEmpty(vVal) Or IsNull(vVal) Then Exit Function
CheckWord = Not (CStr(vVal) Like "*[*|\:/""<>?]*")
End Function
Public Sub ADD_CONSTRAINT()
CurrentProject.Connection.Execute _
"ALTER TABLE [tblDocuments] ADD CONSTRAINT CheckWordCHECK "& _
"((SELECT CheckWord(tblDocuments.Text_) FROM [tblDocuments]
WHERE Not CheckWord(tblDocuments.Text_)));"
EndSub
PublicSubDrop_CONSTRAINT() 'снятие установка на таблицу проверки
на запрещенные символы в именах файлов
CurrentProject.Connection.Execute _
"ALTER TABLE [tblDocuments] DROP CONSTRAINT CheckWord;"
EndSub
Приложение 2
Организация VPN каналов на основе программного продукта OpenVPN.
OpenVPN будет устанавливаться на платформы Windows10 и
Linux. Сетевая топология стандартна. Имеется сеть головного
офиса (СГ) и сеть подразделений (СП).
88
СГ включает
интернет-шлюз с двумя сетевыми интерфейсами
***.***.***.*** - выдается провайдером, 192.168.0.1 -
назначается сисадмином.
OpenVPN Сервер на котором будем поднимать OpenVPN с одним
виртуальным и одним физическим интерфейсом:
10.8.0.1 - адрес виртуального интерфейса (назначается
OpenVPN).192.168.0.2 - физический интерфейс, параметры задаются
сисисадмином, смотрит в СГ, пользовательский компьютер 1, с IP
192.168.0.3, смотрит в СГ.
СП включает:
Интернет-шлюз с двумя сетевыми интерфейсами:
***.***.***.*** - выдается провайдером, смотрит в интернет.
192.168.1.2 - назначается сисадмином, смотрит в СП.
OpenVPN Клиент на котором будем поднимать OpenVPN с одним
виртуальным и одним физическим интерфейсом:
10.8.0.2 - адрес виртуального сетевого интерфейса (назначается
OpenVPN).192.168.1.2 - физический интерфейс, параметры задаются
сисадмином, смотрит в СГ, пользовательский компьютер 2, с IP
192.168.1.3, смотрит в СП.
Далее инсталлируем виртуальный сетевой адаптер TAP-Win32
Adapter V9 идрайвер к нему, ему программной назначаетсяIP
10.8.0.1 (маска 255.255.255.0 на сервере Linux) и IP10.8.0.2 на
клиенте.
Программа устанавливается в C:\ProgramFiles\OpenVPN.
Там же создается папкаkeys (для ключей аутентификации) и
папкаccdC:\Program Files\OpenVPN\config(для конфигурационных
настроек сервера для клиента).
Далее начинаем генерировать ключи:
главный CertificateAuthority (CA) сертификат и ключ, для каждого
сертификата сервера и клиента.
публичный и секретный ключи для сервера и каждого клиента
отдельно в следующей последовательности
основной ca.crt сертификат и ca.key ключ.
сертификат server.crt и ключ server.key.
сертификат office1.crt и ключ office1.key для клиента.
Генерация параметров dh1024.pem.
Генерация ключа tls-auth (ta.key) для аутентификации пакетов.
Разберем каждый пункт более подробно.
Генерируем основной сертификат ключ:
Пуск–Выполнить-cmd,
cd C:/Program Files/OpenVPN/easy-rsa
init-config
Не закрывая командную строку, в
C:\ProgramFiles\OpenVpn\easy-rsa редактируем vars.bat, заполнив
следующие параметры
KEY_COUNTRY=RF
KEY_PROVINCE=MO
KEY_CITY=Malinino
KEY_ORG =Organization
KEY_EMAIL=organization@email.ru
Раскрываем командную строку: