Разработка необходимых запросов, программных модулей, отчётов
Для реализации ИС создавались запросы, отчёты и программные модули.
Формирование запросов осуществляется с помощью операторов реляционной алгебры. Реляционная алгебра – это математический аппарат, базируемый на традиционных теоретико-множественных операциях и дополненный специфическими операциям над отношениями.
Задача на обновление товара на складе:
Цель: при вводе новых данных в форме «Учёт поставок» при нажатии на кнопку сохранения вызвать модуль, который будет обращаться к запросу на обновление.
Рис.13 Запрос на обновление
Рис.14 Модуль
Задача на удаление товара со склада:
Цель: в форме с выводом состояния на складе при нажатии на кнопку вызвать модуль, по которому происходит обращение к запросу на удаление.
Рис.15 Запрос на удаление
Рис.16 Программный модуль
Задача на вывод просроченного товара:
Цель: сравнить текущую дату с датой реализации и вывести сообщение с просроченными продуктами.
Программный код:
Public Sub sclad()
Dim dbs As Database, rst As Recordset
Dim intj As Integer, inti As Integer
Dim s As String
s = ""
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Склад")
intj = rs.RecordCount
rs.Close
Set rst = dbs.OpenRecordset("СкладТовары")
rst.MoveFirst
For inti = 1 To intj
Debug.Print rst![Наименование] & " " & rst![Количество] & " " & rst![Дата реализации]
If rst![Дата реализации] < Date Then
s = s & Chr(10) & Chr(13) & rst![Наименование] & " " & rst![Количество] & " " & rst![Дата реализации]
End If
rst.MoveNext
Next inti
rst.Close
Set dbs = Nothing
MsgBox s, , "Просроченный товар"
End Sub
Задача на вывод наличия продуктов на складе:
Цель: при выборе наименования товара из поля со списком получить сообщение о наличии или отсутствии товара на складе. Если товар в наличии, то вывести количество.
Программный код:
Public Sub tovarkol(kod)
Dim dbs As Database, rst As Recordset
Dim intj As Integer, inti As Integer
Dim s As String
s = ""
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Склад")
intj = rst.RecordCount
rst.MoveFirst
For inti = 1 To intj
If rst![Дата реализации] > Date And rst![Код продукта] = kod Then
s = s & Chr(10) & Chr(13) & rst![Количество] & " " & rst![Дата реализации]
End If
rst.MoveNext
Next inti
rst.Close
Set dbs = Nothing
If s = "" Then s = "Товар отсутствует"
MsgBox s, , "Наличие товара на складе"
End Sub
Задача на вывод количества товаров данного сорта:
Цель: пользователь делает запрос на вывод таблицы
Рис.17 Запрос
Задача на вывод отчёта:
Цель: вывести отчёт всех производимых о поставках
Рис.18 Отчёт по поставкам
Заключение
В результате проведённой работы в Microsoft Access была создана ИС поддержки поставок скоропортящихся продуктов.
В процессе анализа предметной области системы и построения её упрощённой модели было выявлено 6 сущностей:
1. Продукты
2. Поставщики
3. Заказчики
4. Заказы
5. Поставки
6. Склад
Затем были установлены связи между этими сущностями, построена логическая модель, разработаны алгоритмы и технологии решения задач, накладываемые на ИС.
Разработанная ИС состоит из таблиц и форм, взаимодействие пользователя с системой осуществляется в диалоговом режиме. Основным связующим элементом ИС является система меню, состоящего из главного меню и подменю. Все отчёты, запросы и т.д. производятся на основе информации, хранящейся в базе ИС.
Автоматизированная информационная система позволит ускорить процесс, а также предоставит точность, быстроту и удобство работы с ней, исключит непроизводительные трудозатраты и многократно повысит производительность труда работников, при этом позволит произвести рациональное перераспределение трудовых ресурсов.
Полученная ИС предоставила возможность оперативного поиска необходимой системной информации в разрезе отдельных областей, обеспечила удобство ведения учёта поставок и заказов, а также снизила временные затраты на проверку сроков хранения продуктов.
Список использованных источников
- www.intuit.ru (Базы данных: модели, разработка, реализация.Лекции.)
- www.mstu.edu (Модель сущность-связь)
- www.kontrakty.com
- http://subscribe.ru/archive/comp.soft.db.compsoftdba2003.html
- http://www.ref.by/refs/54/29015/1.html