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

Введение
1 Аналитическая часть
1.1 Описание деятельности предприятия
1.1.1 Характеристика предприятия и масштаба его деятельности
1.1.2 Программная и техническая архитектура используемых ИС
1.1.3 Структурно-функциональная диаграмма организации деятельности
1.2 Характеристика комплекса задач, задачи и обоснование необходимости автоматизации
1.2.1 Выбор комплекса задач и характеристика существующих бизнес процессов
1.2.2 Определение места и сущности проектируемой задачи
1.2.3 Формализация расчётов показателей в задаче проекта
1.2.4 Технико-экономическое обоснование проекта
1.3 Обоснование проектных решений
1.3.1 Обоснование проектных решений по техническому обеспечению
1.3.2 Обоснование проектных решений по программному обеспечению
2 Проектная часть
2.1 Разработка проекта автоматизации: информационный менеджмент
2.1.1 Разработка и описание проекта автоматизации
2.1.2 Оценка стоимостных параметров проекта автоматизации
2.2 Информационное обеспечение задачи
2.2.1 Информационная модель и её описание
2.2.2 Характеристика используемых классификаторов
2.2.3 Характеристика нормативно-справочной и входной информации
2.2.4 Характеристика результатной информации
2.2.5 Характеристика информационной базы проекта
2.3 Программное и технологическое обеспечение задачи
2.3.1 Дерево функций проекта
2.3.2 Сценарий диалога проекта
2.3.3 Программная и техническая архитектура проектируемого решения
2.3.4 Схемы технологического процесса (машинного этапа)
2.4 Контрольный пример реализации проекта и его описание
3 Обоснование экономической эффективности проекта
3.1 Выбор и обоснование методики расчёта экономической эффективности
3.2 Расчёт показателей экономической эффективности проекта
Заключение
Список литературы
Приложение 1. Руководство пользователя.
Приложение 2. Программный код.

OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord acForm, stDocName, acNewRec
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click

End Sub
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Выдача комплектующих"
DoCmd.OpenForm stDocName, , , "Ном_заказа = Номер_заказа"

Exit_Кнопка25_Click:
Exit Sub
Err_Кнопка25_Click:
MsgBox Err.Description
Resume Exit_Кнопка25_Click

End Sub
Private Sub Кнопка27_Click()
On Error GoTo Err_Кнопка27_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Регистрация поступления изделий на склад"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord acForm, stDocName, acNewRec
Exit_Кнопка27_Click:
Exit Sub
Err_Кнопка27_Click:
MsgBox Err.Description
Resume Exit_Кнопка27_Click

End Sub
Private Sub Кнопка29_Click()
On Error GoTo Err_Кнопка29_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Регистрация поступления заказов"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord acForm, stDocName, acNewRec
Exit_Кнопка29_Click:
Exit Sub
Err_Кнопка29_Click:
MsgBox Err.Description
Resume Exit_Кнопка29_Click

End Sub
Private Sub Кнопка31_Click()
On Error GoTo Err_Кнопка31_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Способ_вып_зак"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка31_Click:
Exit Sub
Err_Кнопка31_Click:
MsgBox Err.Description
Resume Exit_Кнопка31_Click

End Sub
Private Sub Кнопка34_Click()
On Error GoTo Err_Кнопка34_Click
DoCmd.Quit
Exit_Кнопка34_Click:
Exit Sub
Err_Кнопка34_Click:
MsgBox Err.Description
Resume Exit_Кнопка34_Click

End Sub
Private Sub Кнопка35_Click()
Dim Пароль As String
Пароль = InputBox("Для получения получения полного доступа необходимо ввести пароль", "Ввод пароля")
If Пароль = "123456" Then
DoCmd.OpenForm "Администратор"
Else
MsgBox "Неверный пароль", 48, "Ошибка"
End If
End Sub
Форма Администратор
Option Compare Database
Private Sub Option1_Click()
End Sub
Private Sub Form_Load()
DoCmd.OpenQuery "Недостаточно комплектующих"
DoCmd.OpenQuery "Невыполненные в срок заказы"
End Sub
Private Sub Кнопка23_Click()
On Error GoTo Err_Кнопка23_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Поступление комплектующих на склад"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click

End Sub
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Регистрация выдачи комплектующих со склада"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка25_Click:
Exit Sub
Err_Кнопка25_Click:
MsgBox Err.Description
Resume Exit_Кнопка25_Click

End Sub
Private Sub Кнопка27_Click()
On Error GoTo Err_Кнопка27_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Регистрация поступления изделий на склад"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка27_Click:
Exit Sub
Err_Кнопка27_Click:
MsgBox Err.Description
Resume Exit_Кнопка27_Click

End Sub
Private Sub Кнопка29_Click()
On Error GoTo Err_Кнопка29_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Регистрация поступления заказов"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка29_Click:
Exit Sub
Err_Кнопка29_Click:
MsgBox Err.Description
Resume Exit_Кнопка29_Click

End Sub
Private Sub Кнопка31_Click()
On Error GoTo Err_Кнопка31_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Регистрация выполнения заказов"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка31_Click:
Exit Sub
Err_Кнопка31_Click:
MsgBox Err.Description
Resume Exit_Кнопка31_Click

End Sub
Private Sub Кнопка34_Click()
On Error GoTo Err_Кнопка34_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Изделие"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка34_Click:
Exit Sub
Err_Кнопка34_Click:
MsgBox Err.Description
Resume Exit_Кнопка34_Click

End Sub
Private Sub Кнопка36_Click()
On Error GoTo Err_Кнопка36_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "КлиентыАдм"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка36_Click:
Exit Sub
Err_Кнопка36_Click:
MsgBox Err.Description
Resume Exit_Кнопка36_Click

End Sub
Private Sub Кнопка38_Click()
On Error GoTo Err_Кнопка38_Click
Dim stDocName As String
Dim stLinkCriteria As String


stDocName = "Способ_компл"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка38_Click:
Exit Sub
Err_Кнопка38_Click:
MsgBox Err.Description
Resume Exit_Кнопка38_Click

End Sub
Private Sub Кнопка40_Click()
On Error GoTo Err_Кнопка40_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Учет метизов по изделиям"
DoCmd.OpenForm stDocName, , , acReadOnly
Exit_Кнопка40_Click:
Exit Sub
Err_Кнопка40_Click:
MsgBox Err.Description
Resume Exit_Кнопка40_Click

End Sub
Private Sub Кнопка42_Click()
On Error GoTo Err_Кнопка42_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Учет керамики по изделиям"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка42_Click:
Exit Sub
Err_Кнопка42_Click:
MsgBox Err.Description
Resume Exit_Кнопка42_Click

End Sub
Private Sub Кнопка45_Click()
On Error GoTo Err_Кнопка45_Click
Dim stDocName As String
stDocName = "Регистрация заказов и их выполнения"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка45_Click:
Exit Sub
Err_Кнопка45_Click:
MsgBox Err.Description
Resume Exit_Кнопка45_Click

End Sub
Private Sub Кнопка47_Click()
On Error GoTo Err_Кнопка47_Click
DoCmd.Quit
Exit_Кнопка47_Click:
Exit Sub
Err_Кнопка47_Click:
MsgBox Err.Description
Resume Exit_Кнопка47_Click

End Sub
Private Sub Кнопка49_Click()
On Error GoTo Err_Кнопка49_Click
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1099)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка49_Click:
Exit Sub
Err_Кнопка49_Click:
MsgBox Err.Description
Resume Exit_Кнопка49_Click

End Sub
Private Sub Кнопка50_Click()
On Error GoTo Err_Кнопка50_Click
Dim stDocName As String
stDocName = ChrW(1053) & ChrW(1072) & ChrW(1082) & ChrW(1083) & ChrW(1072) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка50_Click:
Exit Sub
Err_Кнопка50_Click:
MsgBox Err.Description
Resume Exit_Кнопка50_Click

End Sub
Private Sub Кнопка51_Click()
On Error GoTo Err_Кнопка51_Click
Dim stDocName As String
stDocName = ChrW(1058) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1088) & ChrW(1085) & ChrW(1099) & ChrW(1081) & ChrW(32) & ChrW(1095) & ChrW(1077) & ChrW(1082)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка51_Click:
Exit Sub
Err_Кнопка51_Click:
MsgBox Err.Description
Resume Exit_Кнопка51_Click

End Sub
Private Sub Кнопка52_Click()
On Error GoTo Err_Кнопка52_Click
Dim stDocName As String
stDocName = ChrW(1057) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(45) & ChrW(1092) & ChrW(1072) & ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка52_Click:
Exit Sub
Err_Кнопка52_Click:
MsgBox Err.Description
Resume Exit_Кнопка52_Click

End Sub
Private Sub Кнопка53_Click()
On Error GoTo Err_Кнопка53_Click
Dim stDocName As String
stDocName = ChrW(1041) & ChrW(1083) & ChrW(1072) & ChrW(1085) & ChrW(1082) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088) & ChrW(1072)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка53_Click:
Exit Sub
Err_Кнопка53_Click:
MsgBox Err.Description
Resume Exit_Кнопка53_Click

End Sub
Private Sub Кнопка55_Click()
Dim qwe As Object
Set qwe = CreateObject("Word.Application")
qwe.documents.Open ("c:\ордер.doc")
qwe.Visible = True
End Sub
Форма Изделие
Option Compare Database
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Комплектующие"
DoCmd.OpenForm stDocName
DoCmd.GoToRecord acForm, stDocName, acNewRec
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click

End Sub
Private Sub Кнопка14_Click()
On Error GoTo Err_Кнопка14_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка14_Click:
Exit Sub
Err_Кнопка14_Click:
MsgBox Err.Description
Resume Exit_Кнопка14_Click

End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click

End Sub
Private Sub Кнопка16_Click()
On Error GoTo Err_Кнопка16_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка16_Click:
Exit Sub
Err_Кнопка16_Click:
MsgBox Err.Description
Resume Exit_Кнопка16_Click

End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click

End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click

End Sub
Форма Регистрация поступления заказов
Option Compare Database
Private Sub Form_Load()
End Sub
Private Sub Внедренный27_Enter()
End Sub
Private Sub Кнопка26_Click()
On Error GoTo Err_Кнопка26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Клиенты2"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord acForm, stDocName, acNewRec
Exit_Кнопка26_Click:
Exit Sub
Err_Кнопка26_Click:
MsgBox Err.Description
Resume Exit_Кнопка26_Click



End Sub
Private Sub Количество_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub Надпись32_Click()
End Sub
Private Sub Поле33_AfterUpdate()
End Sub
Private Sub Поле33_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub Поле33_DblClick(Cancel As Integer)
End Sub
Private Sub Кнопка45_Click()
On Error GoTo Err_Кнопка45_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка45_Click:
Exit Sub
Err_Кнопка45_Click:
MsgBox Err.Description
Resume Exit_Кнопка45_Click

End Sub
Private Sub Кнопка48_Click()
On Error GoTo Err_Кнопка48_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Стоимость_заказа"
DoCmd.OpenForm stDocName, , , "Ном_заказа = Ном_заказа"

Exit_Кнопка48_Click:
Exit Sub
Err_Кнопка48_Click:
MsgBox Err.Description
Resume Exit_Кнопка48_Click

End Sub
Private Sub Кнопка49_Click()
On Error GoTo Err_Кнопка49_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка49_Click:
Exit Sub
Err_Кнопка49_Click:
MsgBox Err.Description
Resume Exit_Кнопка49_Click

End Sub
Форма Способ_вып_зак (способ получения информации о выполненных заказах)
Option Compare Database
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1056) & ChrW(1077) & ChrW(1075) & ChrW(1080) & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1103) & ChrW(32) & ChrW(1074) & ChrW(1099) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1086) & ChrW(1074)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click

End Sub
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Dim stDocName As String
Dim Номер_заказа As String
stDocName = "Регистрация выполнения заказов"
DoCmd.OpenForm stDocName, , , "Ном_заказа = Номер_заказа"

Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click

End Sub
Форма Способ_компл (выбор способа получения информации о наличии комплектующих на складе)
Option Compare Database
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Учет комплектующих на складе"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click

End Sub
Private Sub Кнопка2_Click()
Dim Название_изделия As String

MsgBox "Информация о наличии комплектующих будет выдана для выбранного изделия", 1, "Выбор изделия"
DoCmd.OpenForm "Учет комплектующих на складе", , , "НазвИзд = Название_изделия", acReadOnly
End Sub
Форма Регистрация выполнения заказов
Option Compare Database
Private Sub Внедренный27_Enter()
End Sub
Private Sub Кнопка26_Click()
On Error GoTo Err_Кнопка26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Клиенты1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка26_Click:
Exit Sub
Err_Кнопка26_Click:
MsgBox Err.Description
Resume Exit_Кнопка26_Click

End Sub
Private Sub Кнопка35_Click()
Dim strDocName As String
Dim strFilter As String
strDocName = "Заказы"
strFilter = "Ном_заказа = Forms![Регистрация выполнения заказов]![Номер заказа]"
DoCmd.OpenReport strDocName, acPreview, , strFilter
strFilter = "Ном_заказа = Forms![Регистрация выполнения заказов]![Номер заказа]"
DoCmd.OpenReport "Накладные", acPreview, , strFilter
DoCmd.OpenReport "Счет-фактура", acPreview, , strFilter
DoCmd.OpenReport "Товарный чек", acPreview, , strFilter
End Sub
Private Sub Кнопка36_Click()
On Error GoTo Err_Кнопка36_Click
Exit_Кнопка36_Click:
Exit Sub
Err_Кнопка36_Click:
MsgBox Err.Description
Resume Exit_Кнопка36_Click

End Sub
Private Sub Кнопка37_Click()
On Error GoTo Err_Кнопка37_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection
Exit_Кнопка37_Click:
Exit Sub
Err_Кнопка37_Click:
MsgBox Err.Description
Resume Exit_Кнопка37_Click

End Sub
Private Sub Кнопка39_Click()
On Error GoTo Err_Кнопка39_Click
Dim stDocName As String
stDocName = "Заказы"
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка39_Click:
Exit Sub
Err_Кнопка39_Click:
MsgBox Err.Description
Resume Exit_Кнопка39_Click

End Sub

5
Менеджеры
Маркетологи
Руководитель
Руководитель
Плановый отдел
сотрудники
Кладовщики
Бухгалтера
Водите
ли
Диспетчеры
менеджеры
Канцелярия
Агенты
Кассир
Отделы
продаж
Начальник ТО
Руководитель
Отдел
кадров
Руководитель
Гл.бух.
Начальник.
склада
Склад
Отдел рекламы
Администрация
Транспортный
отдел
Бухгалтерия
Отдел обслуживания
Управляющий
директор
Директор
по продажам
Генеральный
Директор
103
По всем поставщикам
По одному поставщику
По всем товарам
По одному товару
Расход товара
Конец
Приход товара
Формирование отчета за период
Начало