- •Ноу впо тульский институт управлени и бизнеса
- •Кулаков Александр а.
- •Реферат
- •Задание к дипломному проекту: информационная система “склад продовольственных товаров”
- •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)
Приложение 4. Программное обеспечение формы формирования квитанции выдачи товара” (Kvit_Out / Kvit_Out_f)
Option Compare Database
Dim bs As Database ' База данных
Dim tab_01, tab_02, tab_03, tab_04 As Recordset ' Таблица базы данных
' Добавить товар в квитанцию выдачи
Private Sub Add_Tov_Click()
Call B_Add_Out_Click ' Добавить отпущенный товар
Call B_Rec_Out_Click ' Изменить количество товара и его стоимость в таблицах БД
End Sub
' Закрытие формы
Private Sub B_Close_Click()
On Error GoTo Err_B_Close_Click
DoCmd.Close
Exit_B_Close_Click:
Exit Sub
Err_B_Close_Click:
MsgBox Err.Description
Resume Exit_B_Close_Click
End Sub
' Открытие формы
Private Sub Form_Open(Cancel As Integer)
Set bs = CurrentDb ' bs := текущую базу данных ("Sklad")
Set tab_01 = bs.OpenRecordset("Kvit_Out") ' tab_01 связать с таблицей "Kvit_Out"
tab_01.MoveLast ' Встать на последнюю запись таблицы "Kvit_Out"
tab_01.AddNew ' Добавить запись в таблицу "Kvit_Out"
' tab_01.Edit
tab_01.Fields(1).Value = Date + Time ' Вставить текущую дату/время
tab_01.Fields(2).Value = 1 ' Вставить в запись 1-го кладовщика (по умолчанию)
tab_01.Fields(3).Value = 0 ' Обнулить поле Itogo
tab_01.Update ' Обновить результаты редактирования таблицы "Kvit_Out"
Sel_Tov.SetFocus
Refresh ' Отобразить на форме результаты редактирования
DoCmd.GoToRecord , "", acLast ' Отобразить на форме последнюю запись
End Sub
' Печать отчета
Private Sub B_Pr_Kvit_Out_Click()
On Error GoTo Err_B_Pr_Kvit_Out_Click
Dim stDocName As String
Sel_Kladov.SetFocus ' Установка фокуса на списке кладовщиков
stDocName = "Kvit_Tovar_Out_F"
DoCmd.OpenReport stDocName, acNormal
B_Pr_Kvit_Out.SetFocus ' Установка фокуса на кнопке печати отчета
Exit_B_Pr_Kvit_Out_Click:
Exit Sub
Err_B_Pr_Kvit_Out_Click:
MsgBox Err.Description
Resume Exit_B_Pr_Kvit_Out_Click
End Sub
' Просмотр отчета
Private Sub B_Kvit_Out_F_Click()
On Error GoTo Err_B_Kvit_Out_F_Click
Dim stDocName As String
Sel_Kladov.SetFocus ' Установка фокуса на списке кладовщиков
stDocName = "Kvit_Tovar_Out_F"
DoCmd.OpenReport stDocName, acPreview
B_Kvit_Out_F.SetFocus ' Установка фокуса на кнопке просмотра отчета
Exit_B_Kvit_Out_F_Click:
Exit Sub
Err_B_Kvit_Out_F_Click:
MsgBox Err.Description
Resume Exit_B_Kvit_Out_F_Click
End Sub
' Изменение в списке товаров
Private Sub Sel_Tov_Change()
Sel_Tov.SetFocus
Refresh
B_Add_Kvit.SetFocus
End Sub
' Добавить запись в таблицу Output
Private Sub B_Add_Out_Click()
On Error GoTo Err_B_Add_Out_Click
Dim stDocName As String
stDocName = "Add_Out"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_B_Add_Out_Click:
Exit Sub
Err_B_Add_Out_Click:
MsgBox Err.Description
Resume Exit_B_Add_Out_Click
End Sub
' Обновить в таблицах БД количество товара и его стоимость в табл. Kvit_Out
Private Sub B_Rec_Out_Click()
On Error GoTo Err_B_Rec_Out_Click
Dim stDocName As String
stDocName = "Obn_Kol_TO"
Sel_Tov.SetFocus ' Установить фокус на списке товаров
DoCmd.OpenQuery stDocName, acNormal, acEdit
B_Add_Out.SetFocus ' Установить фокус на кнопке "Добавить выданный товар"
Exit_B_Rec_Out_Click:
Refresh
Exit Sub
Err_B_Rec_Out_Click:
MsgBox Err.Description
Resume Exit_B_Rec_Out_Click
End Sub