- •Ноу впо тульский институт управлени и бизнеса
- •Кулаков Александр а.
- •Реферат
- •Задание к дипломному проекту: информационная система “склад продовольственных товаров”
- •1. Обзор и анализ методов реализации ис “склад продовольственных товаров” 9
- •2. Проектирование ис “склад продовольственных товаров” 16
- •3. Обоснование экономической эффективности проекта 65
- •Введение
- •1. Обзор и анализ методов реализации ис “склад продовольственных товаров”
- •1.1. Технико-экономическая характеристика предметной области
- •1.1.1.Общая характеристика предприятия “склад продовольственных товаров”
- •1.1.2.Характеристика деятельности предприятия “склад продовольственных товаров”
- •1.2. Экономическая сущность задачи
- •1.3. Обоснование необходимости и цели использования вычислительной техники для решения задачи
- •1.4. Выбор системы управления базами данных для реализации ис
- •1.5. Постановка задачи проектирования
- •2. Проектирование ис “склад продовольственных товаров”
- •2.1. Информационное обеспечение задачи
- •2.1.1. Информационная модель ис “склад продовольственных товаров”
- •2.1.2. Инфологическая модель ис “склад продовольственных товаров”
- •2.1.3. Даталогическая модель ис “склад продовольственных товаров”
- •2.1.4. Характеристика нормативно-справочной, входной и результатной информации
- •2.2. Программное обеспечение ис “склад продовольственных товаров”
- •2.2.1. Проектирование сценария диалога
- •2.2.2. Описание программных модулей
- •2.2.2.1. Экранные формы ис “склад продовольственных товаров”
- •2.2.2.2. Отчет о формировании квитанции получения товара (Отчет 1)
- •2.2.2.3. Отчет о формировании квитанции выдачи товара (Отчет 2)
- •2.2.2.4. Отчет о наличии товаров на складе продовольственных товаров и их количестве на текущую дату (Отчет 3)
- •2.2.2.5. Отчет об ущербе от просроченного товара (Отчет 4)
- •2.2.2.6. Акт списания просроченного товара (Отчет 5)
- •2.3. Технологическое обеспечение ис “склад продовольственных товаров”
- •2.4. Руководство пользователя ис “склад продовольственных товаров”
- •3. Обоснование экономической эффективности проекта
- •3.1. Выбор и обоснование методики расчета экономической эффективности
- •3.2 Расчет показателей экономической эффективности проекта
- •Заключение
- •Список литературы
- •Приложение 1. Программное обеспечение формы ведения таблицы “информация о квитанциях на получение товара” (Kvit_In)
- •Приложение 2. Программное обеспечение формы ведения таблицы “информация о квитанциях на выдачу товара” (Kvit_Out)
- •Приложение 3. Программное обеспечение формы формирования квитанции получения товара” (Kvit_In_f)
- •Приложение 4. Программное обеспечение формы формирования квитанции выдачи товара” (Kvit_Out / Kvit_Out_f)
- •Приложение 5. Программное обеспечение формы формирования квитанции выдачи товара” (Kvit_Out / Kvit_Out_f)
Приложение 1. Программное обеспечение формы ведения таблицы “информация о квитанциях на получение товара” (Kvit_In)
Option Compare Database
' Просмотреть отчет
Private Sub B_Ot_Kvit_In_Click()
On Error GoTo Err_B_Ot_Kvit_In_Click
Dim stDocName As String
Sel_Kladov.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov
stDocName = "Kvit_Tovar_In"
DoCmd.OpenReport stDocName, acPreview
' B_Ot_Kvit_In.SetFocus ' Установить фокус на кнопку B_Ot_Kvit_In
Exit_B_Ot_Kvit_In_Click:
Exit Sub
Err_B_Ot_Kvit_In_Click:
MsgBox Err.Description
Resume Exit_B_Ot_Kvit_In_Click
End Sub
' Напечатать отчет
Private Sub B_Print_Kvit_In_Click()
On Error GoTo Err_B_Print_Kvit_In_Click
Dim stDocName As String
Sel_Kladov.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov
stDocName = "Kvit_Tovar_In"
DoCmd.OpenReport stDocName, acNormal
B_Print_Kvit_In.SetFocus ' Установить фокус на кнопку B_Print_Kvit_In
Exit_B_Print_Kvit_In_Click:
Exit Sub
Err_B_Print_Kvit_In_Click:
MsgBox Err.Description
Resume Exit_B_Print_Kvit_In_Click
End Sub
' Открыть форму
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , "", acLast ' Отобразить на форме последнюю запись
End Sub
' Удалить текущую запись
Private Sub B_Del_Rec_Click()
On Error GoTo Err_B_Del_Rec_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_B_Del_Rec_Click:
Exit Sub
Err_B_Del_Rec_Click:
MsgBox Err.Description
Resume Exit_B_Del_Rec_Click
End Sub
Приложение 2. Программное обеспечение формы ведения таблицы “информация о квитанциях на выдачу товара” (Kvit_Out)
Option Compare Database
' Открыть форму
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , "", acLast ' Отобразить на форме последнюю запись
End Sub
' Просмотреть отчет
Private Sub B_Ot_Kvit_Click()
On Error GoTo Err_B_Ot_Kvit_Click
Dim stDocName As String
Sel_Kladov_FIO.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov
stDocName = "Kvit_Tovar_Out"
DoCmd.OpenReport stDocName, acPreview
B_Ot_Kvit.SetFocus ' Установить фокус на кнопку B_Ot_Kvit
Exit_B_Ot_Kvit_Click:
Exit Sub
Err_B_Ot_Kvit_Click:
MsgBox Err.Description
Resume Exit_B_Ot_Kvit_Click
End Sub
' Напечатать отчет
Private Sub B_Pr_Out_Kvit_Click()
On Error GoTo Err_B_Pr_Out_Kvit_Click
Dim stDocName As String
Sel_Kladov_FIO.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov
stDocName = "Kvit_Tovar_Out"
DoCmd.OpenReport stDocName, acNormal
B_Ot_Kvit.SetFocus ' Установить фокус на кнопку B_Ot_Kvit
Exit_B_Pr_Out_Kvit_Click:
Exit Sub
Err_B_Pr_Out_Kvit_Click:
MsgBox Err.Description
Resume Exit_B_Pr_Out_Kvit_Click
End Sub
' Удалить текущую запись
Private Sub B_Del_Rec_Click()
On Error GoTo Err_B_Del_Rec_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_B_Del_Rec_Click:
Exit Sub
Err_B_Del_Rec_Click:
MsgBox Err.Description
Resume Exit_B_Del_Rec_Click
End Sub