База данных автоматизации учета движения товара на складе

Программа, позволяющая осуществлять ввод данных о движении товара на складе. Таблицы, содержащие информацию о товаре данной категории. Пользовательская форма "Выдача товара со склада". Исходный текст программы. Разработка интерфейса и листинга программы.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык русский
Дата добавления 25.01.2014
Размер файла 981,4 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru

Введение

Использование программы MS Excel для работы с базой данных обусловлена возможностью хранения информации в различных таблицах, сортировки и фильтрации данных по различным признакам, а так же обработки данных с помощью процедур языка программирование VBA.

Проектирование

Предметная область

Таблицы базы данных

Запросы

Интерфейсный элемент

Обработка

1

2

3

4

5

6

1.

Склад стройматериалов

2.

Категории

Категории

Список товаров данной категории

Поиск товара

1.Форма1

2.Форма2

3.Форма3

1. Поиск товара по данной категории

2. Сортировка по категории товара и по идентификатору товара

3.

Товары

Товары

4.

Движение товара на складе

Приход/Расход

1.Добавление нового товара

2. Приход-выдача имеющегося на складе товара

1.Форма2

2.Форма3

1.Добавление нового товара

2. Приход-выдача имеющегося на складе товара

Разработка БД

На складе стройматериалов товар сгруппирован по категориям. Поэтому необходимо создать таблицу «Категория», в которой будем хранить наименование категории и идентификатор категории. Соответствующая таблица представлена на рисунке 1.

Информация о товаре данной категории содержится в таблице «Товары»: название товара; категория; код товара; производитель; цена и количество на складе. Соответствующая таблица представлена на рисунке 2.

Движение товара на складе отображается в таблице «Приход/расход» (рис. 3).

Рис. 1. Таблица «Категория товара»

Рис. 2. Таблица «Товары»

Рис. 3. Таблица «Приход/расход»

Разработка алгоритма

При работе с товаром на складе необходимо принимать товар, находить его в базе данных, а при отсутствии - добавлять новый товар в таблицу. По времени быстрее находить товар, сгруппированный по категории. Поэтому, на пользовательской форме расположим поле со списком по категориям (ComboBox1), ниже разместим поле со списком по товарам (ComboBox2).

При изменении пользователем категории в ComboBox1, ComboBox2 заполняется списком товара выбранной категории. При выборе товара вся информация о данном товаре выводится на форму. Для прихода и выдачи товара создадим отдельные формы, представленные на рисунках 4 и 5.

Рис. 4. Пользовательская форма «Приход товара»

Рис. 5. Пользовательская форма «Выдача товара со склада»

Если необходимо ввести новый товар, то пользователь выбирает категорию товара и в названии товара находит строчку «Новый товар». Тогда загружается пользовательская форма, изображенная на рисунке 6.

Рис. 6. Пользовательская форма «Добавить товар»

В Label5 заносится выбранная пользователем категория товара. Пользователь вводит название, количество, цену и производителя товара. После нажатия кнопки добавить соответствующий товар будет занесен в таблицу «Товары». Если пользователь ошибочно выбрал добавление товара, то он может закрыть форму, используя кнопку «Закрыть».

На отдельном листе разместим кнопки меню.

Исходный код программы приведен в приложении.

Руководства пользователя

Для работы программы необходимо открыть файл «База данных1» в приложении Excel. На главной странице располагается меню:

Заключение

При работе над проектом были решены следующие задачи:

рассмотрена структура движения товара на складе стройматериалов;

разработана база данных, содержащая три таблицы: «Категории», «Товары», «Приход/расход»;

разработаны пользовательские формы (интерфейс программы);

создана программа, позволяющая осуществлять ввод данных о движении товара на складе.

учет склад данные программа

Литература

С. Роман. Использование макросов в Excel, Спб: «Питер» _ 2004 - 507 с.

Глушаков, С.В.; Сурядный, А.С. Microsoft Excel 2007. Краткий курс; АСТ, АСТ Москва, Харвест, _ 2008. _ 352 c.

Якушева, Н.М. Visual Basic для студентов; М.: Радио и связь, _ 2001 - 232 c.

Приложение

Исходный текст программы

`UserForm1

Private Sub ComboBox1_Change()

ComboBox2.Clear

Nbegin = -1

TextEdit1.Caption = "0"

TextEdit2.Caption = ""

TextEdit3.Caption = "0"

TextBox1.Enabled = False

ID_cat = ComboBox1.ListIndex

i = 2

While Worksheets("Товар").Cells(i, 2) <> ID_cat And Worksheets("Товар").Cells(i, 2) <> ""

i = i + 1

Wend

If Worksheets("Товар").Cells(i, 2) = "" Then

ComboBox2.AddItem "Новый товар"

Exit Sub

End If

Nbegin = i

While Worksheets("Товар").Cells(i, 2) = ID_cat

s = Worksheets("Товар").Cells(i, 1)

If s <> "" Then

Nend = i - 1

ComboBox2.AddItem s

Else

ComboBox2.AddItem "Новый товар"

Exit Sub

End If

i = i + 1

Wend

Nend = i - 1

End Sub

Private Sub ComboBox2_Change()

If Nbegin = -1 And ComboBox2.Text <> "Новый товар" Then

TextEdit1.Caption = "0"

TextEdit2.Caption = ""

TextEdit3.Caption = "0"

TextBox1.Enabled = False

Exit Sub

End If

If ComboBox2.Text = "Новый товар" Then

kod_tovara = ComboBox1.ListIndex * 10000 + ComboBox2.ListIndex + 1

UserForm3.Show

UserForm1.Hide

Exit Sub

End If

ID_tovar = ComboBox2.ListIndex

Nstr = Nbegin + ID_tovar

TextEdit1.Caption = Worksheets("Товар").Cells(Nstr, 6) ' Кол-во на складе

TextEdit2.Caption = Worksheets("Товар").Cells(Nstr, 4) ' Производитель

TextEdit3.Caption = Worksheets("Товар").Cells(Nstr, 5) ' Цена

TextBox1.Enabled = True

End Sub

Private Sub CommandButton1_Click()

If Len(TextBox1.Text) > 0 Then

x = Worksheets("Товар").Cells(Nstr, 6) ' Кол-во на складе

Worksheets("Товар").Cells(Nstr, 6) = x + TextBox1.Value

TextEdit1.Caption = Worksheets("Товар").Cells(Nstr, 6)

End If

End Sub

Private Sub CommandButton2_Click()

UserForm1.Hide

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0

End Sub

Private Sub UserForm_Initialize()

'Worksheets("Категории").Activate

For i = 2 To 100

s = Worksheets("Категории").Cells(i, 1)

If s <> "" Then

ComboBox1.AddItem s

Else

Exit Sub

End If

Next i

End Sub

`UserForm2

Private Sub ComboBox1_Change()

ComboBox2.Clear

Nbegin = -1

TextEdit1.Caption = "0"

TextEdit2.Caption = ""

TextEdit3.Caption = "0"

TextBox1.Enabled = False

ID_cat = ComboBox1.ListIndex

i = 2

While Worksheets("Товар").Cells(i, 2) <> ID_cat And Worksheets("Товар").Cells(i, 2) <> ""

i = i + 1

Wend

If Worksheets("Товар").Cells(i, 2) = "" Then

Exit Sub

End If

Nbegin = i

While Worksheets("Товар").Cells(i, 2) = ID_cat

s = Worksheets("Товар").Cells(i, 1)

If s <> "" Then

Nend = i - 1

ComboBox2.AddItem s

Else

ComboBox2.AddItem "Новый товар"

Exit Sub

End If

i = i + 1

Wend

Nend = i - 1

End Sub

Private Sub ComboBox2_Change()

If Nbegin = -1 Then

TextEdit1.Caption = "0"

TextEdit2.Caption = ""

TextEdit3.Caption = "0"

TextBox1.Enabled = False

Exit Sub

End If

ID_tovar = ComboBox2.ListIndex

Nstr = Nbegin + ID_tovar

TextEdit1.Caption = Worksheets("Товар").Cells(Nstr, 6) ' Кол-во на складе

TextEdit2.Caption = Worksheets("Товар").Cells(Nstr, 4) ' Производитель

TextEdit3.Caption = Worksheets("Товар").Cells(Nstr, 5) ' Цена

TextBox1.Enabled = True

End Sub

Private Sub CommandButton1_Click()

If Len(TextBox1.Text) > 0 Then

x = Worksheets("Товар").Cells(Nstr, 6) ' Кол-во на складе

If x < CInt(TextBox1.Value) Then

MsgBox "Кол-во на складе меньше чем вы хотите выдать"

Exit Sub

End If

Worksheets("Товар").Cells(Nstr, 6) = x - TextBox1.Value

TextEdit1.Caption = Worksheets("Товар").Cells(Nstr, 6)

End If

End Sub

Private Sub CommandButton2_Click()

UserForm2.Hide

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0

End Sub

Private Sub UserForm_Initialize()

'Worksheets("Категории").Activate

For i = 2 To 100

s = Worksheets("Категории").Cells(i, 1)

If s <> "" Then

ComboBox1.AddItem s

Else

Exit Sub

End If

Next i

End Sub

`UserForm3

Private Sub CommandButton1_Click()

If Len(TextBox1) > 0 Then

Countstr = Countstr + 1

Worksheets("Товар").Cells(Countstr, 1) = TextBox1.Text

Worksheets("Товар").Cells(Countstr, 6) = TextBox2.Text

Worksheets("Товар").Cells(Countstr, 5) = TextBox3.Text

Worksheets("Товар").Cells(Countstr, 4) = TextBox4.Text

Worksheets("Товар").Cells(Countstr, 2) = UserForm1.ComboBox1.ListIndex

Worksheets("Товар").Cells(Countstr, 3) = kod_tovara

sort_tovara

End If

UserForm3.Hide

End Sub

Private Sub CommandButton2_Click()

UserForm3.Hide

End Sub

Private Sub UserForm_Activate()

countstring

Label5.Caption = UserForm1.ComboBox1.Text

End Sub

Размещено на Allbest.ru

...

Подобные документы

  • Разработка базы данных для автоматизированного учета материальных средств на складе. Порядок хранения информации, запрет на удаление любого атрибута таблицы. Запрос для выдачи отчетов о наличии и расположении товара на складе. Создание меню программы.

    курсовая работа [1,6 M], добавлен 15.01.2015

  • Разработка базы данных "Учет движения товара в магазине", ее основные функции. Разработка инфологической, концептуальной и физической моделей, предметная область. Определение объектов и связей между объектами. Структура программного обеспечения.

    курсовая работа [1023,7 K], добавлен 05.12.2012

  • Изучение процесса автоматизации системы управления складом и отчетами. Проектирование схемы отпуска товара со склада с помощью методологий структурного анализа. Выбор инструментальных средств. Разработка алгоритмов, базы данных и руководства пользователя.

    дипломная работа [1,8 M], добавлен 09.11.2016

  • Написание программы на языке Pascal для учета работы магазина DVD-дисков, в которой содержится база наименований товара, цен, производителей и количества дисков на складе. Разработка функций добавления элемента в базу, сортировка, поиск по названию.

    лабораторная работа [498,2 K], добавлен 09.12.2012

  • Разработка корпоративной информационной системы, использующей несколько баз данных, содержащих информацию о наличии товара на складе, ходе ремонта компьютерной техники и данных о персонале. Разработка инфологической и даталогической моделей базы данных.

    дипломная работа [1009,2 K], добавлен 01.05.2015

  • Проектирование приложения для базы данных "Оптовый склад" средней сложности с типовым пользовательским интерфейсом. Изучение особенностей ведения учета поставщиков, покупателей, продаж, движения товара на складе. Выборка, удаление таблиц из базы данных.

    курсовая работа [424,1 K], добавлен 03.11.2014

  • Принципы учета движения готовой продукции на складе. Проектирование логической и физической модели данных. Выбор среды разработки, операционной системы, требования к аппаратному и программному обеспечению. Разработка программы учета готовой продукции.

    дипломная работа [926,6 K], добавлен 09.07.2012

  • Автоматизация учета материалов на складе с применением баз данных (MS Access). Разработка логической структуры реляционной базы данных (входная информация - формы, выходные документы - отчеты). Применение программы, расчет экономической эффективности.

    курсовая работа [4,3 M], добавлен 27.02.2011

  • Роль оптовой торговли в рыночной экономике. Сортовой и партионный способы учета товаров. Организация бухгалтерского учета и документооборота на предприятии. Разработка базы данных для автоматизации учета переоценки стоимости товаров на оптовом складе.

    дипломная работа [2,8 M], добавлен 15.01.2012

  • Принципы проектирования локального автоматизированного рабочего места высокоуровневыми методами информатики и программирования управленческого персонала. Автоматизация задач, связанных с учетом товара на складе, этапы разработки базы данных и интерфейса.

    курсовая работа [37,3 K], добавлен 12.11.2013

  • Анализ деятельности складского учета, внедрение информационных технологий в процесс работы склада. Создание информационной системы учета движения материалов на складе. Моделирование бизнес-процессов. Проектирование физической структуры базы данных.

    курсовая работа [4,1 M], добавлен 22.06.2014

  • Создание программного продукта, позволяющего осуществлять контроль за поставками продукции, движением товара, остатками его на складе. Построение структуры таблиц для хранения информации и описание алгоритмов обработки. Тестирование и отладка программы.

    курсовая работа [593,4 K], добавлен 30.06.2014

  • Создание баз данных с использованием Database Desktop. Проведение автоматизации рабочего места кассира. Описание входной и выходной информации. Выбор среды реализации, состава и параметров технических средств. Проектирование интерфейса программы.

    курсовая работа [1021,5 K], добавлен 22.01.2015

  • Необходимая документация при учете готовой продукции на складе ООО "Перекрёсток". Проектирование базы данных на основе нормализации. Схема данных и связи между таблицами в проектируемой базе данных. Обеспечение безопасности и целостности базы данных.

    дипломная работа [2,9 M], добавлен 15.01.2012

  • Характеристика программы базы данных для хранения и учета материальных ценностей на складе, ее возможности и практическое применение. Процесс создания базы данных на основе реляционной СУБД MS Access. Связь сведений по товарам, поставщикам и покупателям.

    курсовая работа [13,8 K], добавлен 29.08.2009

  • Понятие "новый товар" и его основные виды. Жизненный цикл товара. Создание программы, позволяющей автоматизировать маркетинговую деятельность и создание нового товара в среде Delphi. База данных MS Access, модуль статистики в виде документа MS Excel.

    курсовая работа [1,1 M], добавлен 09.05.2012

  • Создание БД для автоматизации поступления товара на склады предприятия. Заполнение справочников и ввод оперативной информации. Формирование отчётов о поступлении товаров. Организация резервного копирования базы данных. Возможности расширения системы.

    курсовая работа [5,2 M], добавлен 08.04.2014

  • Проектирование структуры базы данных. Технология обработки данных. Порядок установки и запуска программы. Описание объектов приложения и структура данных. Ввод и изменение исходных данных. Получение выходных документов и тестирование программы.

    отчет по практике [2,3 M], добавлен 22.07.2012

  • Особенности проектирования программы на языке С++ для обработки данных из таблиц базы данных. Основные функции программы, создание концептуальной модели базы данных и диаграммы классов, разработка интерфейса пользователя и запросов к базе данных.

    курсовая работа [2,1 M], добавлен 08.06.2012

  • Методика создания базы данных (БД) "Учет готовой продукции на складе". Порядок разработки пользовательского приложения (информационной системы) на основе БД. Перечень и общая характеристика документов, необходимых для учета готовой продукции на складе.

    курсовая работа [2,4 M], добавлен 06.09.2010

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.