Автоматизация учета реализации товара с использованием 1 С. магазин «ООО Мультитекс»

Это представление может использоваться для детального анализа, уточнения и распространения как части документации, необходимой в цикле разработки. Однако ERwin далеко не только инструмент для рисования. ERwin автоматически создает базу данных (таблицы, индексы, хранимые процедуры, триггеры для обеспечения ссылочной целостности и другие объекты, необходимые для управления данными).

В ERwin существуют два уровня представления и моделирования — логический и физический. Логический уровень означает прямое отображение фактов из реальной жизни. Например, люди, столы, отделы, собаки и компьютеры являются реальными объектами. Они именуются на естественном языке, с любыми разделителями слов (пробелы, запятые и т. д.). На логическом уровне не рассматривается использование конкретной СУБД, не определяются типы данных (например, целое или вещественное число) и не определяются индексы для таблиц.

Целевая система управления базами данных, имена объектов и типы данных, индексы составляют второй (физический) уровень модели ERwin.

ERwin предоставляет возможности создавать и управлять этими двумя различными уровнями представления одной диаграммы (модели), равно как и иметь много вариантов отображения на каждом уровне.

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

Физический уровень данных — это по существу отображение системного каталога, который зависит от конкретной реализации системы управления базами данных. ERwin позволяет проводить процессы прямого и обратного проектирования баз данных. Это означает, что по модели данных можно сгенерировать схему баз данных или автоматически создать модель данных на основе информации системного каталога. Кроме того, ERwin позволяет выравнивать модель и содержимое системного каталога после редактирования того либо другого.

Схема логической структуры БД ИС управления продажами компании «Мультитекс» представлена на рис. 2.

4.

Рис. 2.4 — Схема логической структуры БД

БД включает в свой состав 3 информационных таблицы:

Товар — таблица содержит список всех наименований товаров, количество товара на складе и требуемое количество по каждому наименованию;

Операции — содержит совокупность всех операций по отгрузкам и поступлениям товара на склад;

Клиенты — список клиентов компании;

Склад — список товаров количества на сладе, требуемого количества;

Заявки — содержит информацию о заявках на товар от клиентов.

Схема физической структуры БД представлена на рис. 2.

5.

Рис. 2.5 — Схема физической структуры БД

Описание сущностей БД ИС представлено в таблице 3.

3.

Таблица 3.3

Описание сущностей БД Сущность Идентиф. табл. Атрибут Идентиф. поля Тип поля Склад SKLAD Код товара Kod_tovar Varchar Наименование Naimen Varchar Количество Kolich Integer Цена Cena Varchar Треб. кол-во Treb Integer Категория Kategor Varchar Длина записи 74 байта Товарооборот OPERACII Код операции Kod_oper Varchar Код товара Kod_tovar Varchar Тип операции Type_oper Varchar Дата операции Data_oper Varchar Количество Kol Integer Длина записи 29 байт Заявки от клиентов ZAYVKI Код товара Kod_tovar Varchar код заявки Kod_zayv Varchar Дата подачи Data_podachi Varchar Дата поставки Data_post Varchar Контрагент Kontragent Varchar Количество Kol Integer Статус Status Varchar Длина записи 125 байт Контрагент klient ИД id Integer Счет Schet Integer Название Nazv Varchar ФИО руководителя Fio_ruk Varchar Адрес Adres Varchar Телефон Telefon Varchar Длина записи 115 байт

Структурная схема пакета (дерево вызова программных модулей)

Описание программных модулей ИС управления продажами компании «Мультитекс» представлено в таблице 2.5 [14]

Таблица 2.5

Описание программных модулей ИС управления продажами компании «Мультитекс»

№ п/п Наименование модуля Функции модуля 1. Модуль справочника

«Товары» Содержит процедуры добавления, удаления, изменения, поиска информации в таблице «Товары», «Состав». 2. Модуль справочника

«Клиенты» Содержит процедуры добавления, удаления, изменения, поиска информации в таблице «Клиенты». 3. Модуль «Учет заявок» Содержит процедуры добавления, удаления, изменения, поиска информации в таблице «Заявки». 5. Модуль «Операции» Содержит процедуры добавления, удаления, изменения, поиска информации в таблице «Операции».

Описание программных модулей Принцип работы программных модулей приведен на блок-схеме, изображенной на рис. 2.5 [18].

Рис. 2.5 — Блок-схема алгоритма работы программы

Контрольный пример реализации проекта и его описание Установка программы Копируем файл vetosh. db в корень диска C:

Устанавливаем Sybase SQL Anywhere 5.0

Создаем источник данных Нажимаем кнопку «Добавить…»

Выбираем драйвер Sybase SQL Anywhere 5.0

Заполняем следующие пункты:

Data Source Name: vetosh

User ID: DBA

Password: 1

Database File: C: vetosh. db (Browse…- выбираем файл vetosh. db на диске С:)

Работа с программой

После запуска tovar. exe появится главное окно программы

Для начала необходимо ввести наименования товаров на вкладке «Склад» (при этом код товара не должен повторяться)

В нижней таблице представлен список наименований и размер нехватки по количеству.

На вкладке «Товарооборот» содержится список заявок и поступлений на склад

При вводе информации в таблицу товарооборот в зависимости от типа операции (поступление, отгрузка) происходят также изменения в таблице «склад» (соответственно уменьшение или увеличение количества товара). При вводе код операции не должен повторяться!

При вводе заявки также происходят изменения в таблице «склад» (увеличение — если у заявки статус «ожидает» или уменьшение — если у заявки статус «выполнена» требуемого количества товара по наименованию).

При необходимости к обеим таблицам можно применять фильтр по дате или по наименованию. При этом дата и наименование должны быть выбраны в соответствующих полях.

или

III Обоснование экономической эффективности проекта

3.1 Выбор и обоснование методики расчёта экономической эффективности Выводы об экономической эффективности делаются на основе вычисленных экономических показателей [13].

По выбору возможны следующие направления расчета экономической эффективности:

Сравнение вариантов организации ЭИС по комплексу задач (например, сравнение ЭИС, предлагаемой в проекте) с существующей;

Сравнение вариантов организации информационной базы комплекса задач (файловая организация и база данных);

Сравнение вариантов технологии проектирования ЭИС (например индивидуального проектирования с методами, использующими пакеты программ или модельного проектирования);

Сравнение вариантов технологии внутримашинной обработки данных.

В нашем случае выберем направление — сравнение вариантов организации ИС по комплексу задач с существующей. Сравнение по комплексу задач представлено в таблице 3.2

Таблица 3.1

Сравнение систем Комплекс задач Существующая система Разработанная система Учет движения товаров Запись информации в Excel Заполнение электронной формы с механизмом автозаполнения Учет заявок клиентов Запись информации в Excel Заполнение электронной формы с механизмом автозаполнения Учет клиентов Запись информации в Excel Заполнение электронной формы с механизмом автозаполнения Учет товаров Запись информации в Excel Заполнение электронной формы с механизмом автозаполнения Контроль оплаты продукции и исполнения заявки Просмотр информации в Excel Вывод списка неоплаченных заказов Проверка достаточности количества продукции на складе Расчет осуществляется вручную Расчет осуществляется автоматически Формирование отчетов Формирование отчета в Word Автоматическое формирование отчета Экономия трудозатрат по выполнению комплекса задач Комплекс задач Количество событий в месяц Временные затраты, мин. Временные затраты, мин. Экономия трудозатрат Учет движения товаров 600 20 5 9000

Учет заявок клиентов 300 20 5 4500

Учет клиентов 40 20 5 600 Учет товаров 30 20 5 450 Контроль оплаты продукции и исполнения заявки 60 20 5 900 Проверка достаточности количества продукции на складе 30 30 0 900 Формирование отчетов 30 30 5 750 Итого в месяц 22 400 5300 17 100

Итого в год 268 800 63 600 205 200

Прямой эффект заключается в том, что внедрение ИС позволит снизить нагрузку на сотрудников компании, а следовательно, что позволит сократить штат сотрудников выполняющих рутинные функции.

1) абсолютное снижение трудовых затрат ((Т) в часах за год:

(Т = Т0 — Т1 =205 200 часов где Т0 — трудовые затраты в часах за год на выполнение комплекса задач без использования АИС; Т1 — трудовые затраты в часах за год на выполнение комплекса задач с использованием ИС.

2) коэффициент относительного снижения трудовых затрат (КТ):

КТ =(Т / T0 * 100%=205 200/268800*100%=76%

3) индекс снижения трудовых затрат или повышение производительности труда (YT):

YT = T0 / T1=268 800/63600=4,23

Абсолютное снижение стоимостных затрат: (C=(Т*СМЧ

СМЧ=ЗП/Т, где СМЧ — стоимость машинного часа.

При заработной плате сотрудника 20 000 руб./мес., СМЧ =160 руб./час, тогда Тогда (C=17 100*160=2 736 000 руб./год Период окупаемости Ток = КП /(C,

где КП — затраты на создание проекта.

Смета на разработку ПО представлена в таблице 3.2

Таблица 3.2

Смета на разработку ПО

№ Статья затрат Сумма 1 Материалы 4000 2 Основная ЗП 234 000 3 Дополнительная ЗП 58 500 4 Отчисления 76 635

Итог 373 135

По смете затраты на разработку ПО составил 373 135 рублей.

Тогда Ток=373 135/2736000=0,13 года, то есть внедряемая ИС окупится через 1 месяц.

3.2 Расчёт показателей экономической эффективности проекта На рис. 3.1−3.3 изображены сравнительные диаграммы по основным расчетным показателям [21].

Рис. 3.1 — Сравнение трудовых затрат существующей и созданной системы Рис. 3.2 — Сравнение стоимостных затрат существующей и созданной системы Рис. 3.3 — Сравнение стоимостных затрат на ПП и абсолютного снижения стоимостных затрат

Заключение

Итак, целью данной работы является — повышение эффективности управления продажами на предприятии ООО «Мультитекс» путем разработки ИС управления продажами.

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

Описание деятельности предприятия ООО «Мультитекс»;

Описание структуры управления предприятием;

Описание недостатков существующего на предприятии процесса управления продажами;

Описание требований к разрабатываемой ИС;

Описание перечня информационных потребностей.

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

Также даны проектные решения по программному обеспечению: описано дерево функций ИС, дано описание базы данных, описана структура пакета, описаны программные модули ИС.

Третья глава была посвящена финансово-экономическому обоснованию разработки и внедрения ИС управления продажами на предприятии ООО «Мультитекс», в данной главе были даны:

Расчет разработки и внедрения ИС на предприятии ООО «Мультитекс»;

Расчет показателей экономической эффективности от внедрения ИС на предприятии;

Выводы о целесообразности внедрения ИС на предприятии ООО «Мультитекс».

Период окупаемости программного обеспечения составляет 1 месяц.

Список литературы

Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. — М.: Издательский дом «Вильямс», 2004. [1]

Интернет — маркетинг: Учебник. Успенский И. В. — СПб.: Изд-во СПГУЭиФ, 2003. [2]

Экономическая информатика: Введение в экономический анализ информационных систем: Учебник. — М.: ИНФРА-М, 2005. [3]

Шафер Д.Ф., Фартрел Т., Шафер Л. И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. — М.: Вильямс, 2004. [4]

Марка Д. А., Мак

Гоуэн К. Методология структурного анализа и проектирования SADT. [5]

Проектирование экономических информационных систем: учеб. / под ред. Ю. Ф. Тельнова. М., 2005 [6]

Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г. А. Титоренко. — М.: Компьютер, ЮИНИТИ, 2006 [7]

Маклаков С. В. Моделирование бизнес-процессов с AllFusion Process Modeler (BPwin 4.1). М., 2003 [8]

Маклаков С. В. Создание информационных систем с AllFusion Modeling Suite. — М.: ДИАЛОГ-МИФИ, 2005 [9]

Маклаков С.В. BPwin и Erwin. CASE-средства разработки информационных систем. — М.: ДИАЛОГ-МИФИ, 2000 [10]

Фаулер М. UML в кратком изложении: применение стандартного языка объектного моделирования: пер. с англ. / М. Фаулер, К. Скотт. М., 2001 [11]

Фаулер М. UML — основы. Руководство по стандартному языку объектного моделирования.: Пер. с англ. — СПб.: Символ, 2006 [12]

Калянов Г. Н. Консалтинг при автоматизации предприятий (подходы, методы, средства) // М.: СИНТЕГ, 1997 [13]

Петров Ю.А., Шлимович Е. Л., Ирюпин Ю. В. Комплексная автоматизация управления предприятием: Информационные технологии — теория и практика. — М.: Финансы и статистика, 2001 [14]

15. Хомоненко А. Д. и др. Базы данных: Учебник для вузов / Под ред. проф. А. Д. Хомоненко. — СПб.: КОРОНА принт, 2004 — 736 с. [15]

16. Смирнова Г. Н. и др. Проектирование экономических информационных систем: Учебник / Под ред. Ю. Ф. Тельнова. — М.: Финансы и статистика, 2002 — 512 с. [16]

17. Смирнов И. Н. и др. Основные СУБД. — М.: Наука, 1999 — 320 с. [17]

18. ГОСТ 34.602−89 «Информационная технология. Комплекс стандартов на автоматизированные системы. Техническое задание на создание автоматизированной системы» [18]

19. ГОСТ 34.601−90 «Информационная технология. Комплекс стандартов на автоматизированные системы. Автоматизированные системы. Стадии создания» [19]

20.Гультяев А. К., «Microsoft Office Project 2007

Управление проектами: практическое пособие. «- СПб.: КОРОНА-Век, 2008 — 480с, ил. [20]

21.Атре Ш. Структурный подход к организации баз данных. — М.: Финансы и статистика, 1998 [21]

Приложение 1. Программный код

//—————-процедура добавления наименования товара

procedure TForm1. suiButton7Click (Sender: TObject);

begin

try

tsklad.Append;

tsklad.FieldByName ('kod_tovar').AsString:=suiMaskEdit3.text;

tsklad.FieldByName ('cost').AsString:=suiNumberEdit4.text;

tsklad.FieldByName ('treb').AsInteger:=strtoint (suiNumberEdit3.text);

tsklad.FieldByName ('kol').AsInteger:=strtoint (suiNumberEdit5.text);

tsklad.FieldByName ('nazv').AsString:=suiedit1.text;

tsklad.FieldByName ('nehvat').AsInteger:=StrToInt (suiNumberEdit5.text)-strtoint (suiNumberEdit3.text);

tsklad.Post;

Except

MessageDlg ('Ошибка ввода данных!', mtInformation,[mbYes], 0);

end;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

suiComboBox3.Items.Add (tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);

suiComboBox4.Items.Add (tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);

end;

//—————-процедура добавления складской операции

procedure TForm1. suiButton1Click (Sender: TObject);

var i: integer;

begin

try

toperacii.Append;

toperacii.FieldByName ('kod_tovar').AsString:=copy (suiComboBox3.text, 0,4);

toperacii.FieldByName ('kod_oper').AsString:=suiMaskEdit1.text;

toperacii.FieldByName ('type_oper').AsString:=suiComboBox1.text;

toperacii.FieldByName ('kol').AsInteger:=strtoint (suiNumberEdit1.text);

toperacii.FieldByName ('data_oper').AsString:=suiMaskEdit5.text;

toperacii.Post;

Except

MessageDlg ('Ошибка ввода данных!', mtInformation,[mbYes], 0);

end;

//—————-процедура изменения количества товара на складе в зависимости от типа операции

if suiComboBox1. text='поступление' then

begin

tsklad.Filter:='kod_tovar='+copy (suiComboBox3.text, 0,4);

tsklad.Filtered:=true;

tsklad.Edit;

tsklad.FieldValues['kol']: =tsklad.FieldValues['kol']+strtoint (suiNumberEdit1.text);

tsklad.post;

tsklad.Edit;

tsklad.FieldByName ('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];

tsklad.Post;

tsklad.Filtered:=false;

end;

if suiComboBox1. text='отгрузка' then

begin

tsklad.Filter:='kod_tovar='+copy (suiComboBox3.text, 0,4);

tsklad.Filtered:=true;

tsklad.Edit;

tsklad.FieldValues['kol']: =tsklad.FieldValues['kol']-strtoint (suiNumberEdit1.text);

tsklad.post;

tsklad.Edit;

tsklad.FieldByName ('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];

tsklad.post;

tsklad.Filtered:=false;

end;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

end;

//—————-процедура добавления заявки от клиента

procedure TForm1. suiButton4Click (Sender: TObject);

begin

try

tzayv.Append;

tzayv.FieldByName ('kod_tovar').AsString:=copy (suiComboBox4.text, 0,4);

tzayv.FieldByName ('kod_zayv').AsString:=suiMaskEdit2.text;

tzayv.FieldByName ('status').AsString:=suiComboBox2.text;

tzayv.FieldByName ('kol').AsInteger:=strtoint (suiNumberEdit2.text);

tzayv.FieldByName ('data_podachi').AsString:=suiMaskEdit7.text;

tzayv.FieldByName ('data_post').AsString:=suiMaskEdit8.text;

tzayv.FieldByName ('kontragent').AsString:=suiEdit2.text;

tzayv.Post;

Except

MessageDlg ('Ошибка ввода данных!', mtInformation,[mbYes], 0);

end;

//—————-изменение требуемого количества товара

tsklad.Filtered:=false;

tsklad.Filter:='kod_tovar='+copy (suiComboBox4.text, 0,4);

tsklad.Filtered:=true;

tsklad.Edit;

tsklad.FieldValues['treb']: =tsklad.FieldValues['treb']+strtoint (suiNumberEdit2.text);

tsklad.post;

//—————-расчет нехватки товара по данному наименованию

tsklad.Edit;

tsklad.FieldByName ('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];

tsklad.Post;

tsklad.Filtered:=false;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

end;

//—————-процедура изменения требуемого количества товара после выполнения заявки

procedure TForm1. suiButton10Click (Sender: TObject);

begin

tzayv.edit;

tzayv.FieldByName ('status').AsString:='выполнена';

tzayv.Post;

tsklad.Filter:='kod_tovar='+tzayv.FieldValues['kod_tovar'];

tsklad.Filtered:=true;

tsklad.Edit;

tsklad.FieldValues['treb']: =tsklad.FieldValues['treb']-tzayv.FieldValues['kol'];

tsklad.post;

tsklad.Filtered:=false;

// ADOTable1. Refresh;

end;

//—————-процедура вывода списка наименований с нехваткой количества на складе

procedure TForm1. suiPageControl1Click (Sender: TObject);

var i: integer;

begin

{if suiPageControl1. ActivePageIndex=1 then

begin

ADOTable1.Close;

ADOTable1.Open;

ADOTable1.Filtered:=false;

ADOTable1.First;

for i:=0 to ADOTable1. RecordCount-1 do

begin

ADOTable1.Edit;

ADOTable1.FieldValues['treb']: =ADOTable1.FieldValues['treb']-ADOTable1.FieldValues['kol'];

ADOTable1.Post;

ADOTable1.Next;

end;

ADOTable1.Filter:='nehvat<0';

ADOTable1.Filtered:=true;

end; }

end;

end.