Автоматизация складского учета

В итоге получили:Рисунок 13 – ОперацияРисунок 14 – ПокупательРисунок 15 - ПроизводительРисунок 16 - СкладРисунок 17 - СтранаРисунок 18 - ТоварРисунок 19 - СделкаСоздание форм.Для создания формы необходимо выделить интересующую нас таблицы или запрос и нажать кнопку Форма:Рисунок 20 – Создание формыИли же формы можно создать через конструктор форм, в котором выбрать все интересующие нас поля. Так же в конструкторе можно изменить вид формы, добавить кнопки, для программирования каких-либо действий.Рисунок 21 - структура формы СделкаДля удобного и корректного проведения операций создадим формы: Товар, Производитель, Страна, Покупатель, Склад и Сделка.Рисунок 22 – ПокупательРисунок 23 - ПроизводительРисунок 24– СделкаРисунок 25 - СкладРисунок 26 – СтранаРисунок 27 - ТоварНа форме Сделка сделаем кнопку. При этом при изменении данных подчинённой формы и выхода из нее происходит обновление полей: расчётная сумма, скидка и итоговая сумма. Так же на форму поместим кнопку для обновления итоговой суммы сделки. Перечисленный функционал реализуем через макрос:OptionCompareDatabasePrivateSub Внедренный15_Exit(CancelAsInteger)’при выходе из подчинённой формыDim rs As DAO.Recordset Dim tov, zap_sot, cn As String tov = Me.№ ‘- запишем № текущейсделки zap_sot = "SELECT Sum([Товар]![цена]*[Операция]![Количество]) AS Выражение1 FROM Товар INNER JOIN (Сделка INNER JOIN Операция ON Сделка.[№] = Операция.[Сделка №]) ON Товар.[наименование товара] = Операция.Товар GROUP BY Сделка.[№] HAVING (((Сделка.[№])=" & tov & "));" ‘– создадим запрос для подсчета общей суммы товараSetrs = CurrentDb.OpenRecordset(zap_sot)If rs.RecordCount <> 0 Then cn = Nz(rs(0)) Else cn = 0Me.Расчетная_сумма = Val(cn) ‘– запишем общей суммы товара в поле расчетная сумма‘Ниже идет код для расчета суммы скидки s1 = Val(Me.Расчетная_сумма)s2 = 0If s1 >= 100000 Then s2 = 3If s1 >= 500000 Then s2 = 5If s1 >= 1000000 Then s2 = 7Me.Скидка___ = s2EndSubPrivateSub Кнопка19_Click()’ при нажатии на кнопку, тот же кодDim rs As DAO.Recordset Dim tov, zap_sot, cn As String tov = Me.№ zap_sot = "SELECT Sum([Товар]![цена]*[Операция]![Количество]) AS Выражение1 FROM Товар INNER JOIN (Сделка INNER JOIN Операция ON Сделка.[№] = Операция.[Сделка №]) ON Товар.[наименование товара] = Операция.Товар GROUP BY Сделка.[№] HAVING (((Сделка.[№])=" & tov & "));" Set rs = CurrentDb.OpenRecordset(zap_sot) If rs.RecordCount <> 0 Then cn = Nz(rs(0)) Else cn = 0Me.Расчетная_сумма = Val(cn) s1 = Val(Me.Расчетная_сумма)s2 = 0If s1 >= 100000 Then s2 = 3If s1 >= 500000 Then s2 = 5If s1 >= 1000000 Then s2 = 7Me.Скидка___ = s2End SubИспользуя макросы можно значительно расширить функциональность базы данных.Создание запросов и отчетов.Все задачи информационной системы, работающей с базами данных, решаются по средствам запросов и формирования отчетов. Сначала создадим запросы, которые на наш взгляд будут необходимы для нужд организации.Алгоритм создания запроса:На ленте во вкладке Создание выбрать пункт Мастер запросов.Выбрать таблицу и необходимые поля.После создания запроса перейти в режим конструктора и внести необходимые измененияСоздадим запросы:1 товар покупателиSELECT Товар.[наименование товара], Count(Покупатель.Название) AS [Count-Название], Сделка.ДатаFROM Покупатель INNERJOIN (Сделка INNERJOIN (Товар INNERJOIN Операция ON Товар.[наименование товара] = Операция.Товар) ON Сделка.[№] = Операция.[Сделка №]) ON Покупатель.Название = Операция.ПокупательGROUPBY Товар.[наименование товара], Сделка.ДатаHAVING (((Сделка.Дата)>[Дата 1] And (Сделка.Дата)<[Дата 2]));Рисунок 28 - 1 товар покупатели2 покупатели сумма покупкиSELECT Покупатель.Название, Sum(Сделка.[Итоговая сумма с учетом скидки]) AS [Sum-Итоговая сумма с учетом скидки], Сделка.ДатаFROM Покупатель INNERJOIN (Сделка INNERJOIN (Товар INNERJOIN Операция ON Товар.[наименование товара] = Операция.Товар) ON Сделка.[№] = Операция.[Сделка №]) ON Покупатель.Название = Операция.ПокупательGROUPBY Покупатель.Название, Сделка.ДатаHAVING (((Сделка.Дата)>[Дата 1] And (Сделка.Дата)<[Дата 2]));Рисунок 29 - 2 покупатели сумма покупки3 количество продажSELECT Сделка.[Тип сделки], Count(Сделка.[Тип сделки]) AS [Count-Тип сделки], Сделка.ДатаFROM СделкаGROUPBY Сделка.[Тип сделки], Сделка.ДатаHAVING (((Сделка.Дата)>[Дата 1] And (Сделка.Дата)<[Дата 2]));Рисунок 30 - 3 количество продажОсталось товара большеSQL код: SELECT Товар.[номер по порядку], Товар.[наименование товара], Товар.[единицы измерения], Товар.цена, Товар.[фактическое наличие количество], Товар.[фактическое наличие сумма], Товар.[учетные данные количество], Товар.[учетные данные сумма], Товар.[недостача количество], Товар.[недостача сумма], Товар.[излишки количество], Товар.[излишки сумма], Товар.[№ склада], Товар.производитель FROM Товар WHERE (((Товар.[фактическое наличие количество])>["Товара больше?"]));Рисунок 31 - Осталось товара больше ЗапросОсталось товара меньшеSQL код: SELECT Товар.[номер по порядку], Товар.[наименование товара], Товар.[единицы измерения], Товар.цена, Товар.[фактическое наличие количество], Товар.[фактическое наличие сумма], Товар.[учетные данные количество], Товар.[учетные данные сумма], Товар.[недостача количество], Товар.[недостача сумма], Товар.[излишки количество], Товар.[излишки сумма], Товар.[№ склада], Товар.производитель FROM Товар WHERE (((Товар.[фактическое наличие количество])<["Товара меньше?"]));Рисунок 32 - Осталось товара меньше ЗапросПокупатель ЗапросSQL код: SELECT Покупатель.Название, Покупатель.[Краткое описание], Покупатель.Страна, Покупатель.Адрес, Покупатель.Телефон, Покупатель.Товар, Покупатель.Количество FROM Покупатель;Рисунок 33 - Покупатель ЗапросПроизводитель ЗапросSQL код: SELECT Производитель.Название, Производитель.[Краткое описание], Производитель.Страна, Производитель.Адрес, Производитель.Телефон FROM Производитель;Рисунок 34 - Производитель ЗапросСклад ЗапросSQL код: SELECT Склад.[№ склада], Склад.Адрес, Склад.Телефон, Склад.[Краткое описание] FROM Склад;Рисунок 35 - Склад ЗапросСтрана ЗапросSQL код: SELECT Страна.Страна, Страна.[Краткое описание], Страна.Язык FROM Страна;Рисунок 36 - Страна ЗапросТовар ЗапросSQL код: SELECT Товар.[номер по порядку], Товар.[наименование товара], Товар.[единицы измерения], Товар.цена, Товар.[фактическое наличие количество], Товар.[фактическое наличие сумма], Товар.[учетные данные количество], Товар.[учетные данные сумма], Товар.[недостача количество], Товар.[недостача сумма], Товар.[излишки количество], Товар.[излишки сумма], Товар.[№ склада], Товар.производитель FROM Товар;Рисунок 37 - Товар ЗапросТовар на складе_перекрестныйSQL код: TRANSFORM Sum(Товар.[фактическое наличие количество]) AS [Sum-фактическое наличие количество] SELECT Товар.[№ склада], Sum(Товар.[фактическое наличие количество]) AS [Итоговое значение фактическое наличие количество] FROM ТоварGROUP BY Товар.[№ склада] PIVOT Товар.[наименование товара];Рисунок 38 - Товар на складе_перекрестный ЗапросАлгоритм создания отчета:Выбрать необходимую таблицу или запрос.На ленте во вкладке Создание выбрать пункт Отчет.После создания отчета перейти в режим конструктора и внести необходимые измененияРезультаты выполнения отчетов:Осталось товара меньше.Рисунок 39 - Осталось товара меньшеПокупатель.Рисунок 40 – ПокупательПроизводитель.Рисунок 41 – ПроизводительСклад.Рисунок 42 – СкладСтрана.Рисунок 43 – СтранаТовар на складе_перекрестный.Рисунок 44 - Товар на складе_перекрестный.Сделка кратко.Рисунок 45 - Сделка кратко.Сделка полный отчет.Рисунок 46 - Сделка полный отчет.Разделение базы данных.Если у нас не большая организация, то базы данных Access полностью решать наши задачи. Для этого нам нужно взять и разделить базу данных через кнопку (см. рис. 47), то мы получим отдельно клиентскую часть базы данных, в которой будут формы, макросы, запросы, отчеты и серверную часть где будут находится только таблицы. После этого серверную часть разместим на сетевом каталоге в организации, а клиентскую часть свяжем с текущем расположением серверной части. После этого клиентскую часть можно копировать на рабочие станции сотрудников и начинать работать всем одновременно с нашей базой данных. То есть таким образом мы легко получили уже готовый продукт и без создание на языке программирования клиентской части. Тем более перестройку и обновление может сделать практически любой пользователь.Рисунок 47 – разделение базы данныхТаким образом, мы создали базу данных склада.Контрольный пример реализации проектаДля этого проведем ручное функциональное тестирование: Проверим форму сделка и работоспособность встроенного в нее макроса. Рисунок 48 – разделение базы данныхПри изменении данных подчиненной таблицы и переходе на основную форму или нажатию встроенной кнопки происходит корректный пересчет итоговой суммы в основной форме.Проверим корректность работы запросов.Для этого будем запускать по очереди запросы смотреть какие данные они выдают и затем смотреть данные в таблицах соответствуют ли они результату запроса. Тестирование интерфейса показало, что он удобен в использовании и соответствует заданным требованиями и утвержденному прототипу.ЗАКЛЮЧЕНИЕВ курсовой работе были рассмотрены вопросы автоматизации процесса учета материальных ценностей на примере склада. В первой главе были рассмотрены теоретические аспекты, касающиеся информационной системы учета, её назначение, функции, пользователи и т.д.Во второй главе были исследованы процессы автоматизации, построены диаграммы потоков данных и информационных процессов работы склада.В третьей главе была разработана информационная система складского учета при помощи программного средства Access и решены несколько задач при помощи этой системы.По итогам работы можно сформулировать следующие выводы:Информационная система учёта напрямую работает с базой данных, поэтому для её разработки необходима система управления базами данных. Для этого подходят сразу несколько информационных систем, например одни из самых популярных это: FoxPro, Access, 1C-склад. 1С-склад является строго-специализируемой системой, изменять её структуру очень трудно и обычный пользователь, не имея навыков программирования, не сможет настроить её под себя. Но Access является более расширенной СУБД, при помощи него возможно сделать системы различных направлений, даже не опытной пользователь может быстро разобраться в этой системе, дополнять и обновлять её. Поэтому в курсовой работе был выбран Access в качестве СУБД для разработки электронного складского учета.С внедрением информационной системы появляется возможность значительно повысить производительность труда работников, а также значительно снизить трудоемкость учета, путем максимального использования ресурсов ПЭВМ. Это связано с тем, что эта система позволяет быстро обрабатывать данные, подводить итоги, структурировать и выводить необходимую информацию, мгновенно отправлять её в другие управленческие структуры организации и т.д. Но при автоматизации любого учета необходимо учитывать то, что не все сотрудники могут стать пользователями этой системы, чаще всего возникает необходимость в их обучении. При этом учете увеличивается риск утечки информации, если не предпринять специальных мер по её защите. Информация должна автоматически сохраняться, так как любая аппаратура не совершенна, и возможны различные сбои.СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫБазы данных: [учебное пособие по направлению 230700 «Прикладная информатика»]/О. Л. Голицына, Н. В. Максимов, И. И. Попов. - 4-е изд., перераб. и доп. - Москва: Форум: ИНФРА-М, 2014. - 399 с.: ил.Баранчиков А. И. Синтез информационных структур хранения данных на основе анализа предметных областей/А. И. Баранчиков. - Рязань: Рязанская обл. типография, 2014. - 229 с.Бекаревич Ю. Б. Microsoft Access 2013: самоучитель/Юрий Бекаревич, Нина Пушкина. - Санкт-Петербург: БХВ-Петербург, 2014. - 464 с.: ил.Гвоздева В. А. Базовые и прикладные информационные технологии: [учебник по техническим специальностям]/В. А. Гвоздева. - Москва: Форум: ИНФРА-М, 2014. - 382 с.: ил.Дмитриева И. С. Проектирование экономических информационных систем: учебное пособие/И. С. Дмитриева, Е. В. Музюкова, Н. Е. Шевелева. - 2-е изд., перераб. и доп. - Волгоград: Волгоградское научное издательство, 2014. - 96 с.: ил.Дрогобыцкая К. С. Архитектурные модели экономических систем/К. С. Дрогобыцкая, И. Н. Дрогобыцкий; Финансовый ун-т при Правительстве Рос. Федерации. - Москва: Вузовский учебник: ИНФРА-М, 2014. - 299, с.: ил.Информатика для юристов и экономистов: для бакалавров и магистров/под ред. С. В. Симоновича. - 2-е изд. - Санкт-Петербург [и др.]: Питер, 2014. - 540 с.: ил.Информационно-коммуникационные технологии: сферы использования в маркетинге/Романов А. А., Тультаев Т. А.; М-во образования и науки Рос. Федерации, Моск. гос. ун-т экономики, статистики и информатики (МЭСИ), Ин-т менеджмента. - Москва: МЭСИ, 2014. - 130 с.: ил.Информационные технологии в экономике и управлении: учебник для бакалавров/[В. В. Трофимов, О. П. Ильина, М. И. Барабанова и др.]; под ред. В. В. Трофимова; С.-Петерб. гос. экон. ун-т. - 2-е изд., перераб. и доп. - Москва: Юрайт, 2014. - 482 с.: ил.Кузин А. В. Разработка баз данных в системе Microsoft Access: [учебник по специальностям «Автоматизир. системы обработки информации и упр. (по отраслям)», «Программ. обеспечение вычисл. техники и автоматизир. систем»]/А. В. Кузин, В. М. Демин. - 4-е изд. - Москва: Форум: ИНФРА-М, 2014. - 223 с.: ил.Микляев И. А. Универсальные объектно-ориентированные базы данных на реляционной платформе/И. А. Микляев; М-во образования и науки Рос. Федерации, Сев. (Аркт.) федер. ун-т им. М. В. Ломоносова. - Архангельск: Издательский дом САФУ, 2014. - 223, с.: ил.Нестеров С. А. Корпоративные системы баз данных: [учеб. пособие по направлению подготовки магистров «Системный анализ и управление»]/С. А. Нестеров; С.-Петерб. гос. политехн. ун-т. - Санкт-Петербург: Издательство Политехнического университета, 2014. - 120 с.Провалов В. С. Информационные технологии управления: учебное пособие/В. С. Провалов; Рос. акад. образования, Моск. психол.-социал. ун-т. - 3-е изд. - Москва: Флинта: МПСУ, 2014. - 371 с.Современные информационно-коммуникационные технологии для успешного ведения бизнеса: учебное пособие: соответствует Федеральному государственному образовательному стандарту 3-го поколения/[Ю. Д. Романова и др.]. - Москва: ИНФРА-М, 2014. - 277, с.: ил.Экономическая информатика: учебник и практикум для бакалавриата и магистратуры: [для вузов по экономическим специальностям/Дьяконова Л. П., Герасимова В. Г., Милорадов К. А. и др.]; под ред. Ю. Д. Романовой; Рос. экон. ун-т им. Г. В. Плеханова. - Москва: Юрайт, 2014. - 494, с.: ил.