Проектирование автоматизированной системы "Склад"

Рисунок 2.18 – Диаграмма компонентов ИС «Склад»

 

 

 

 

 

2. Диаграмма размещения

На рисунке 2.19 представлена диаграмма размещения модулей ИС «Склад»

Рисунок 2.19 – Диаграмма размещения модулей ИС «Склад» 

3. Практическая реализация АС «Склад»

3.1 Разработка интерфейса пользователя. Общая схема интерфейса пользователя

Рисунок 3.1 – Блок-схема интерфейса пользователя

В качестве пользовательского интерфейса был  выбран графический интерфейс типа «Меню» (рисунок 3.1).

3.2    Описание экранных форм интерфейса пользователя.

Запуск  приложения осуществляется из установленного каталога по исполняемому файлу «CKLAD.exe». Открывается главная форма приложения (рисунок 3.1).

Рисунок 3.1 – Главная форма

Главная форма приложения содержит меню Файл, Справочники, Операции, Отчеты, содержание которых представлено на рисунке  3.2.

 

 

Рисунок 3.2 – Содержание меню приложения

Как с помощью  меню «Справочники», так и при  нажатии кнопок на главной форме  можно посмотреть информацию о данных «Категории» (рисунок 3.3), «Единицы измерения» (рисунок 3.4), «Виды упаковки» (рисунок 3.5), «Виды товаров» (рисунок 3.6), «Производители» (рисунок 3.7), «Товары» (рисунок 3.8), «Клиенты» (рисунок 3.9), «Поставщики» (рисунок 3.10.

Рисунок 3.3 – Окно справочника «Категории»

 

Рисунок 3.4 – Окно справочника «Единицы измерения»

 

Рисунок 3.5 – Окно справочника «Упаковка»

 

Рисунок 3.6 – Окно справочника «Виды товаров»

 

Рисунок 3.7 – Окно справочника «Производители»

 

Рисунок 3.8 – Окно справочника «Товары»

 

Рисунок 3.9 – Окно справочника «Клиенты»

 

Рисунок 3.10 – Окно справочника «Поставщики»

При выборе операции «Расход продукции» на главной  форме или «Заявки/расход» из меню «Операции» открывается окно для  формирования расходного документа (рисунок  3.11).

В нижней части окна отображается информация о заявленном товаре. Так же можно  добавлять необходимый товар  в заявку (рисунок 3.12), изменять информацию об уже заявленном товаре и удалять товар из заявки.

В верхней  части окна отображается информация об атрибутах заявки. Если заявка сформирована и её можно отправить, необходимо нажать на кнопку «Отпуск товара по заявке». При успешном проведении операции всплывет подтверждающее это окно (рисунок  3.13).

Рисунок 3.11 – Окно формирования расходного документа

Рисунок 3.12 – Окно редактирования содержания заявки

Рисунок 3.13 – Окно, подтверждающее отправку заявки

 

3.3 Тестирование разработанного программного продукта

Тестирование  – это процесс, направленный на выявление  ошибок.

Процесс тестирования включает:

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

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

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

 

№	Название модуля/экрана	Описание тестового случая		Ожидаемые результаты		Тестовый случай пройден? Да/Нет		Комментарии
1	2	3		4		5		6
1	Кнопка "Категории"	Выбор одинарным щелчком мыши		Открытие справочника «Категории»		Да		Работает корректно
2	Кнопка "Ед. измерения"	Выбор одинарным щелчком мыши		Открытие справочника единиц измерения		Да		Работает корректно
3	Кнопка "Виды упаковки"	Выбор одинарным щелчком мыши		Открытие справочника «Упаковка»		Да		Работает корректно
4	Кнопка "Виды товаров"	Выбор одинарным щелчком мыши		Открытие справочника «Виды товаров»		Да		Работает корректно
5	Кнопка "Производители"	Выбор одинарным щелчком мыши		Открытие справочника производителей		Да		Работает корректно
6	Кнопка "Товары"	Выбор одинарным щелчком мыши		Открытие справочника «Товары»		Да		Работает корректно
7	Кнопка "Клиенты"	Выбор одинарным щелчком мыши		Открытие справочника «Клиенты»		Да		Работает корректно
8	Кнопка "Поставщики"	Выбор одинарным щелчком мыши		Открытие справочника «Поставщики»		Да		Работает корректно
9	Кнопка "Снабженцы"	Выбор одинарным щелчком мыши		Открытие справочника «Снабженцы»		Да		Работает корректно
10	Кнопка "Расход продукции"	Выбор одинарным щелчком мыши		Открытие панели для создания заявки		Да		Работает корректно
11	Кнопка "Отпуск товара по заявке"	Выбор одинарным щелчком мыши		Отпуск товара по заявке и вывод  панели подтверждения		Да		Работает корректно
12	Кнопка "Печать заявки"	Выбор одинарным щелчком мыши		Вывод панели печати заполненной заявки		Да		Работает корректно
13	Кнопка "Документ Excel"	Выбор одинарным щелчком мыши		Открытие документа Excel с таблицей заявки		Да		Работает корректно
14	Кнопка "Добавить"	Выбор одинарным щелчком мыши		Открытие панели редактирования содержания заявки		Да		Работает корректно
15	Кнопка "OK"		Выбор одинарным щелчком мыши		Подтверждение внесенных изменений		Да		Работает корректно
Продолжение таблицы 3.17
16	Кнопка "Отмена"		Выбор одинарным щелчком мыши		Закрытие панели изменения		Да		Работает корректно
17	Кнопка "Изменить"		Выбор одинарным щелчком мыши		Открытие панели редактирования содержания заявки		Да		Работает корректно
18	Кнопка "Удалить"		Выбор одинарным щелчком мыши		Удаление данных		Да		Работает корректно
19	Кнопка "Обновить данные"		Выбор одинарным щелчком мыши		Обновление данных		Да		Работает корректно
20	Кнопка "Списание продукции"		Выбор одинарным щелчком мыши		Открытие панели для создания документа  списания продукции		Да		Работает корректно
21	Кнопка "Печать истории списания"		Выбор одинарным щелчком мыши		Вывод панели печати документа списания продукции		Да		Работает корректно
22	Кнопка "Документ Excel"		Выбор одинарным щелчком мыши		Открытие документа Excel с таблицей документа		Да		Работает корректно
23	Кнопка "Добавить"		Выбор одинарным щелчком мыши		Добавление данных		Да		Работает корректно
24	Кнопка "Сохранить"		Выбор одинарным щелчком мыши		Сохранение изменений		Да		Работает корректно
25	Кнопка "Удалить"		Выбор одинарным щелчком мыши		Удаление данных		Да		Работает корректно
26	Кнопка "Отмена"		Выбор одинарным щелчком мыши		Отмена изменений		Да		Работает корректно
27	Кнопка "Приход продукции"		Выбор одинарным щелчком мыши		Открытие панели для создания приходного документа		Да		Работает корректно
28	Кнопка "Обновить"		Выбор одинарным щелчком мыши		Обновление данных		Да		Работает корректно
29	Кнопка "Внести"		Выбор одинарным щелчком мыши		Внесение данных		Да		Работает корректно
30	Кнопка "Сохранить"		Выбор одинарным щелчком мыши		Сохранение изменений		Да		Работает корректно
31	Кнопка "Отмена"		Выбор одинарным щелчком мыши		Отмена изменений		Да		Работает корректно
Продолжение таблицы 3.17
32	Кнопка/закладка "Выход"		Выбор одинарным щелчком мыши		Закрытие приложения		Да		Работает корректно

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

 

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4. Результаты разработки
1. Оценка качества и надёжности

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

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

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

2. Характеристика разработанного ПП

 

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

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

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

1. При  разработке информационной подсистемы  был пройден полный цикл проектирования  программы от постановки задачи  до сдачи информационной подсистемы  в эксплуатацию.

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

– уменьшение времени необходимого для ведения складского учета на предприятие;

– автоматизация контроля расхода технических ресурсов;

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

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

4. На  основании вышесказанного, можно  сделать вывод о том, что  разработка автоматизированной системы складского учета «Склад», является целесообразной, и будет приносить реальную пользу при использовании ее на предприятии.

 

 

 

 

Список литературы

1 Вендров А.М.Проектирование программного обеспечения экономических систем:Учебник.-М.:ФиС,2003. МО.

2    Норенков И.П. Основы автоматизированного проектирования: Учеб. для вузов. – М.: Изд-во МГТУ им. Н. Э. Баумана, 2000. – 360 с. ил. (сер. Информатика в техническом университете).

3 Липаев  В.В., Филинов Е.Н. Мобильность  программ и данных в открытых  информационных системах. М.: Научная  книга, 1997.

4 Системы  автоматизированного проектирования: Учеб. Пособие для вузов /  Под  ред. И.П. Норенкова. М.: Высш. Шк., 1986.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ А

 

Листинг основных модулей

Код модуля FmMenu

Private Sub Command1_Click()

FmCat.Show

End Sub

 

Private Sub Command10_Click()

FmSpisanie.Show

End Sub

 

Private Sub Command11_Click()

FmPrihod.Show

End Sub

 

Private Sub Command12_Click()

FmPost.Show

End Sub

 

Private Sub Command13_Click()

FmSnabj.Show

End Sub

 

Private Sub Command2_Click()

FmInch.Show

End Sub

 

Private Sub Command3_Click()

FmPack.Show

End Sub

 

Private Sub Command4_Click()

FmVid.Show

End Sub

 

Private Sub Command5_Click()

FmManuf.Show

End Sub

 

Private Sub Command6_Click()

FmTovar.Show

End Sub

 

Private Sub Command7_Click()

'MsgBox CurDir("C") & "\Price.xlt"

End Sub

 

Private Sub Command8_Click()

'FmZay.Show

FmZ.Show

End Sub

 

Private Sub Command9_Click()

FmClient.Show

End Sub

 

Private Sub mnuCat_Click(Index As Integer)

FmCat.Show

End Sub

 

Private Sub mnuClient_Click()

FmClient.Show

End Sub

 

Private Sub mnuExit_Click()

FmMenu.Hide

End Sub

 

Private Sub mnuInch_Click(Index As Integer)

FmInch.Show

End Sub

 

Private Sub mnuManuf_Click()

FmManuf.Show

End Sub

 

Private Sub mnuOtkl1_Click()

DataReport2.Show

End Sub

 

Private Sub mnuPack_Click()

FmPack.Show

End Sub

 

Private Sub mnuPrihod_Click()

FmPrihod.Show

End Sub

 

Private Sub mnuRas_Click()

FmZ.Show

End Sub

 

Private Sub mnuROtkl_Click()

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open FileName:=CurDir & "\Itog.xlt"

 

With DE

 

Dim rst As New ADODB.Recordset

'ComRTovar.Open

Set rst =.rsComOtkl

 

'rst.Open

rst.MoveFirst

i = 0

PosInc = 4

Do Until rst.EOF

'Добавление  новой строки:

If i <> 0 Then

objExcel.Rows.Item(PosInc + i).Select

objExcel.Selection.Insert

objExcel.Rows.Item(PosInc).Select

objExcel.Selection.Copy

objExcel.Rows.Item(PosInc + i).Select

objExcel.ActiveSheet.Paste

objExcel.Application.CutCopyMode = False

End If

 

objExcel.Cells(i + PosInc, 1) = i + 1

objExcel.Cells(i + PosInc, 2) = rst!Tovar_name

objExcel.Cells(i + PosInc, 3) = rst!Tovar_price

objExcel.Cells(i + PosInc, 4) = rst!Tovar_quan

objExcel.Cells(i + PosInc, 5) = rst!Sum_raschod_quan

objExcel.Cells(i + PosInc, 6) = rst!otkl

 

i = i + 1

rst.MoveNext

Loop

 

End With

objExcel.Visible = True

 

Exit Sub

ErrProc:

objExcel.Quit

Set objExcel = Nothing

End Sub

 

Private Sub mnuRTovar_Click()

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open FileName:=CurDir & "\Price.xlt"

 

With DE

'Шапка счета:

'objExcel.Cells(3, 2) = Format$(.rsComRTovar!NСчета, "0000")

'objExcel.Cells(4, 2) = FormatDateTime(.rsСчета!Дата, vbGeneralDate)

 

Dim rst As New ADODB.Recordset

'ComRTovar.Open

Set rst =.rsComRTovar

'.rsСчета("СоставСчета").Value

'Экспорт  в таблицу состава счета:

rst.Open