94
экономический эффект. Очень важно правильно выбрать систему и не следует
экономить на процессе внедрения. Стоимость системы определяется в первую
очередь ее принадлежностью к определенному классу. Длительность процесса
внедрения зависит от сложности системы и может составлять от одной недели до
года и более.
В ходе выполнения данной работы была спроектирована и реализована
система автоматизации регистрируемых почтовых отправлений для УФПС
«Татарстан почтасы» посредством СУБД MS SQL Server и Visual Studio 2010.
Поставленные задачи были выполнены в процессе работы над заданием. На этапе
проектирования база данных системы была приведена к третьей нормальной
форме, то есть данные, содержащиеся в ней, не избыточны. Реализована
целостность БД на уровне физической структуры БД, в том числе, каскадное
удаление, когда при удалении записи из главной таблицы автоматически
удаляются записи из подчиненных таблиц.
Также был реализован интерфейс системы для доступа к БД в виде форм,
запросов и отчетов. В процессе выполнения работы были использованы знания
языков Visual Basic, а также SQL, на котором были написаны запросы к базе
данных, которые иллюстрируют ее работоспособность и готовность к применению.
95
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. Андерсен В. Microsoft Office Access 2013. Пер. с англ.- М.: АСТ, 2015.- 572 с.
2. Атре Ш. Структурный подход к организации баз данных.- М.: Финансы и
статистика, 2013.- 320 с.
3. Бойко В.В., Савинков В.М. Проектирование баз данных информационных
систем.- М.: Финансы и статистика, 2016.- 351 с.
4. В чем выгода систем электронного документооборота? Как выбрать СЭД для
компании? // http://www.bishelp.ru/uprbiz/avto/document.php
5. Внедрение системы электронного документооборота в вопросах и ответах //
http://www.mdi.ru/library/analit/edoc.html
6. ГОСТ 34.201-89 Информационная технология. Комплекс стандартов на
автоматизированные системы. Виды, комплектность и обозначения
документов при создании автоматизированных систем // СПС
КонсультантПлюс
7. ГОСТ 34.601-90 Информационная технология. Комплекс стандартов на
автоматизированные системы. Автоматизированные системы. Стадии
создания // СПС КонсультантПлюс
8. ГОСТ 34.602-89 Информационная технология. Комплекс стандартов на
автоматизированные системы. Техническое задание на создание
автоматизированной системы // СПС КонсультантПлюс
9. ГОСТ 34.603-92 Информационная технология. Виды испытаний
автоматизированных систем // СПС КонсультантПлюс
10. Джексон Г. Проектирование реляционных баз данных.- М.: Мир, 2016.- 252 с.
11. Жданов С.А. Экономические модели и методы управления.- М.: Дело и
Сервис, 2015.- 495 с.
12. Информатика. Учебное пособие / Под ред. В.Г. Кирия.- Иркутск: ИрГТУ,
2016.- 382 с.
13. Как выбрать систему электронного документооборота (СЭД) для компании? //
http://www.intertrust.ru/analytics/we_in_smi/162/
14. Карпова Т.С. Базы данных: модели, разработка, реализация.- СПб.: Питер,
2016.- 366 с.
96
15. Кириллов В.В. Структурированный язык запросов (SQL).- СПб.: ИТМО,
2014.- 80 с.
16. Коцюбинский А.О. 1С: Бухгалтерия 8.0. Учет производственной деятельности
и материально-производственных запасов.- М.: Триумф, 2017.- 190 с.
17. Коцюбинский А.О. 1С: Бухгалтерия 8.0. Учет торговых операций.- М.:
Триумф, 2017.- 207 с.
18. Кравченко Т.К., Пресняков В.Ф. Информационные технологии управления
предприятием. Учебное пособие.- М.: Изд-во ГУ-ВШЭ, 2012.- 440 с.
19. Курилович В. Visual Basic. Полное руководство.- М.: Солон-Пресс, 2016.- 384
с.
20. Лукин С.Н. Visual Basic. Самоучитель для начинающих.- М.: Диалог МИФИ,
2017.- 544 с.
21. Мартин Дж. Планирование развития автоматизированных систем.- М.:
Финансы и статистика, 2014.- 196 с.
22. Мейер М. Теория реляционных баз данных.- М.: Мир, 2013.- 608 с.
23. Моисеенко С.И. SQL. Задачи и решения.- СПб.: Питер, 2016.- 495 с.
24. Основы реляционных баз данных. Пер. с англ.- М.: Вильямс, 2015.- 390с.
25. РД 50-34.698-90 Автоматизированные системы. Требования к содержанию
документов // СПС КонсультантПлюс
26. Робинсон С. Microsoft Access (учебный курс).- СПб.: Питер, 2015.- 393 с.
27. Рязанцева Н. 1С: Предприятие 8.0. Управление производственным
предприятием.- СПб.: БХВ-Петербург, 2015.- 693 с.
28. Сайлер Б., Споттс Д. Использование Visual Basic 6.0.- СПб.: Вильямс. – 2016.-
832 с.
29. Симонович С.В. Информатика. Базовый курс.- СПб: Питер, 2016.- 640 с.
30. Тиори Т., Фрай Дж. Проектирование структур баз данных.- М.: Мир, 2015.-
287 с.
31. Уилтон П., Колби Д. SQL для начинающих. Пер. с англ.- М.: Диалектика,
2016.- 487 с.
32. Хаббард Дж. Автоматизированное проектирование баз данных.- М.: Мир,
2014.- 294 с.
97
33. Цикритизис Д., Лоховски Ф. Модели данных.- М.: Финансы и статистика,
2015.- 344 с.
34. Что такое СЭД // http://www.doc-online.ru/sed/
35. Электронный документооборот // http://www.iteam.ru/publications/it
/section_64/article_2687/
36. Электронный документооборот // http://www.westconcept.ru/ru/funkcionalnye
_reshenija/yelektronnyi_dokumentooborot/
98
ПРИЛОЖЕНИЯ
Приложение 1
Листинг кода Form1 (Проверка контейнера)
Public Class Form1
Dim DSHK As String
Dim Proverka As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Konteinery». При необходимости она может быть перемещена или
удалена.
Me.KonteineryTableAdapter.Fill(Me.PochtaDataSet.Konteinery)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
DSHK = DataGridView1.CurrentRow.Cells(1).Value
Dim Shtrihkody() = Split(DSHK, «*»)
Proverka = True
For i = LBound(Shtrihkody) To UBound(Shtrihkody)
Me.ProverkaPosylkiTableAdapter.Fill(Me.PochtaDataSet.ProverkaPosylki
, Shtrihkody(i), DataGridView1.CurrentRow.Cells(0).Value)
If ProverkaPosylkiDataGridView.CurrentCell.Value = 0 Then
Proverka = False
MsgBox(«В контейнере не хватает посылки со штрихкодом « +
Shtrihkody(i))
End If
Next i
Me.ProverkaPosylki2TableAdapter.Fill(Me
.PochtaDataSet.ProverkaPosylki2, DataGridView1.CurrentRow.Cells(0).Value)
For j = 0 To DataGridView1.RowCount - 1
99
If InStr(DSHK, ProverkaPosylki2DataGridView.Rows(j).Cells(0).Value) =
0 Then
Proverka = False
MsgBox(«В контейнере лишняя посылка со штрихкодом « +
ProverkaPosylki2DataGridView.CurrentRow.Cells(0).Value.ToString)
End If
Next j
If Proverka = True Then
Me.ProverkaPosylki3TableAdapter.Fill
(Me.PochtaDataSet.ProverkaPosylki3, DataGridView1.CurrentRow.Cells(0).Value)
MsgBox(«Проверка прошла успешно, все посылки на месте!»)
End If
End Sub
Private Sub ВнестиКонтейнерВБазуToolStripMenuItem_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles
ВнестиКонтейнерВБазуToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub ВнестиПосылкуВБазуToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ВнестиПосылкуВБазуToolStripMenuItem.Click
Form3.Show()
End Sub
End Class
100
Приложение 2
Листинг кода Form2 (Добавление контейнера в базу)
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Operatory». При необходимости она может быть перемещена или
удалена.
Me.OperatoryTableAdapter.Fill(Me.PochtaDataSet.Operatory)
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Otdeleniya». При необходимости она может быть перемещена или
удалена.
Me.OtdeleniyaTableAdapter.Fill(Me.PochtaDataSet.Otdeleniya)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.DobavKonteinerTableAdapter.Fill(Me.PochtaDataSet.DobavKonteiner,
DSHK.Text, OtdOtprav.CurrentRow.Cells(0).Value, Oper.CurrentRow.Cells(0).Value)
MsgBox(«Контейнер добавлен!»)
End Sub
End Class
101
Приложение 3
Листинг кода Form3 (Добавление посылки в базу)
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Regiony1». При необходимости она может быть перемещена или
удалена.
Me.Regiony1TableAdapter.Fill(Me.PochtaDataSet.Regiony1)
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Regiony». При необходимости она может быть перемещена или
удалена.
Me.RegionyTableAdapter.Fill(Me.PochtaDataSet.Regiony)
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Konteinery». При необходимости она может быть перемещена или
удалена.
Me.KonteineryTableAdapter.Fill(Me.PochtaDataSet.Konteinery)
End Sub
Private Sub RegionOtprav_SelectionChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RegionOtprav.SelectionChanged
If RegionOtprav.SelectedCells.Count > 0 Then
Me.VyborRayonaTableAdapter.Fill(Me.PochtaDataSet.VyborRayona,
RegionOtprav.CurrentRow.Cells(0).Value)
End If
End Sub
Private Sub RayonOtprav_SelectionChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RayonOtprav.SelectionChanged
If RayonOtprav.SelectedCells.Count > 0 Then
Me.VyborPunktaTableAdapter.Fill(Me.PochtaDataSet.VyborPunkta,
RayonOtprav.CurrentRow.Cells(0).Value)
End If
102
End Sub
Private Sub RegionPoluch_SelectionChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RegionPoluch.SelectionChanged
If RegionPoluch.SelectedCells.Count > 0 Then
Me.VyborRayona1TableAdapter.Fill(Me.PochtaDataSet.VyborRayona1,
RegionPoluch.CurrentRow.Cells(0).Value)
End If
End Sub
Private Sub RayonPoluch_SelectionChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RayonPoluch.SelectionChanged
If RayonPoluch.SelectedCells.Count > 0 Then
Me.VyborPunkta1TableAdapter.Fill(Me.PochtaDataSet.VyborPunkta1,
RayonPoluch.CurrentRow.Cells(0).Value)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.DobavPosylkuTableAdapter.Fill(Me.PochtaDataSet.DobavPosylku,
Shtrihkod.Text, Otprav.Text, Poluch.Text, Konteiner.Text,
IndeksOtprav.Text, AdresOtprav.Text,
PunktOtprav.CurrentRow.Cells(0).Value,
IndeksPoluch.Text, AdresPoluch.Text,
PunktPoluch.CurrentRow.Cells(0).Value)
End Sub
End Class
103
Приложение 4
Хранимые процедуры БД
1. DobavKonteiner - хранимая процедура БД, непосредственно отвечающая за
добавление контейнера в базу:
PROCEDURE [dbo].[DobavKonteiner]
@DSHK varchar(4000),
@KodOtd smallint,
@KodOp int
AS BEGIN
SET NOCOUNT ON;
INSERT INTO Konteinery (DSHK, OtdOtprav, Operator, Proverka)
VALUES (@DSHK, @KodOtd, @KodOp, 0)
END
2. DobavPosylku - хранимая процедура БД, непосредственно отвечающая
за добавление посылки в базу:
PROCEDURE [dbo].[DobavPosylku]
@Shtrihkod nchar(13),
@Otpravitel nvarchar(50),
@Poluchatel nvarchar(50),
@Konteiner bigint,
@IndexOtprav nchar(15),
@AdresOtprav nchar(50),
@PunktOtprav int,
@IndexPoluch nchar(15),
@AdresPoluch nchar(50),
@PunktPoluch int
AS BEGIN
SET NOCOUNT ON;
INSERT INTO Posylki VALUES (@Shtrihkod,@Otpravitel,@Poluchatel
,@Konteiner,@IndexOtprav,@AdresOtprav,
@PunktOtprav,@IndexPoluch,@AdresPoluch, @PunktPoluch)
END