Информационная система поддержки поставок скоропортящихся продуктов

     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