Существует несколько подходов к проектированию ИС. Одним из наиболее приемлемых является структурный подход к проектированию ИС. Сущность структурного подхода к разработке ИС заключается в ее декомпозиции (разбиении) на автоматизируемые функции: система разбивается на функциональные подсистемы, которые в свою очередь делятся на подфункции, подразделяемые на задачи и так далее. Процесс разбиения продолжается вплоть до конкретных процедур. При этом автоматизируемая система сохраняет целостное представление, в котором все составляющие компоненты взаимосвязаны. При разработке системы "снизу - вверх" от отдельных задач ко всей системе целостность теряется, возникают проблемы при информационной стыковке отдельных компонентов.

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

SADT (Structured Analysis and Design Technique) модели и соответствующие функциональные диаграммы;

DFD (Data Flow Diagrams) диаграммы потоков данных;

ERD (Entity-Relationship Diagrams) диаграммы "сущность - связь".

На стадии проектирования ИС модели расширяются, уточняются и дополняются диаграммами, отражающими структуру программного обеспечения: архитектуру ПО, структурные схемы программ и диаграммы экранных форм.

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

Одним из основных методов моделирования данных является метод моделирования потоков данных (процессов). В основе данной методологии (методологии Gane/Sarson) лежит построение модели анализируемой ИС - проектируемой или реально существующей. В соответствии с методологией модель системы определяется как иерархия диаграмм потоков данных (ДПД или DFD), описывающих асинхронный процесс преобразования информации от ее ввода в систему до выдачи пользователю. Диаграммы верхних уровней иерархии (контекстные диаграммы) определяют основные процессы или подсистемы ИС с внешними входами и выходами. Они детализируются при помощи диаграмм нижнего уровня. Такая декомпозиция продолжается, создавая многоуровневую иерархию диаграмм, до тех пор, пока не будет достигнут такой уровень декомпозиции, на котором процесс становятся элементарными и детализировать их далее невозможно.

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

1. Внешние сущности.

2. Системы/подсистемы.

3. Процессы.

4. Накопители данных.

5. Потоки данных.

Для проектирования автоматизированной информационной системы управление продаж используется CASE - средство фирмы Rational Software Corporation Rational Rose, предназначенное для автоматизации этапов анализа и проектирования программного обеспечения, а также для генерации кодов на различных языках и выпуска проектной документации. Rational Rose использует метод объектно-ориентированного анализа и проектирования, основанный на языке UML.

Результатом разработки проекта с помощью CASE - средства Rational Rose будут являться: диаграммы UML, в совокупности представляющие собой модель разрабатываемой программной системы; спецификации классов, объектов, атрибутов и операций; заготовки текстов программ.

Проектирование начинается с построения диаграммы использования (Use Case Diagram). Диаграмма использования предназначена для отображения внешнего функционирования проектируемой системы и ее взаимодействия с внешним миром, пользователями. Основой подхода являются так называемые варианты использования, которые представляют собой некоторый набор функций системы, объединяемых в единое целое. Один блок использования не обязательно представляет собой одну часть системы или даже единую группу функций. Он представляет собой именно понимание поведения системы.

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

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

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

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

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

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

Диаграмма изображена на рис.7.

Рис.7. Диаграмма взаимодействия разработанной информационной системы с внешними сущностями

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

· анализ положения разработанной системы в общей системе взаимодействия;

· можно увидеть, как система вписывается в процессы, происходящие на предприятии;

· узнать, каким образом система взаимодействует с внешними сущностями.

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

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

Как видно из диаграммы, данная система была разработана для использования в отделе продаж. Отдел продаж может представлять менеджер. Сотрудник отдела имеет возможность загрузки разработанной системы обслуживания продаж.

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

Кооперативная диаграмма (Collaboration diagram) предназначена для описания методов взаимодействия между объектами. Также кооперативная диаграмма имеет другое название - диаграмма сотрудничества. Диаграмма сотрудничества включает в себя объекты и отношения между ними, заключающееся в вызове методов друг друга.

Кооперативная диаграмма имеет непосредственное отношение к процессу, происходящему на верхнем уровне диаграммы. Декомпозиция процесса загрузки системы представлена на рис.8.



Рис.8 Декомпозиция процесса загрузки системы

Также необходимо отметить, что исходная информация может быть загружена из ранее сохранённых данных в файлы базы данных (*.db) и файлы Excel (*.xls). После выбора загрузки исходной информации, система получает сигнал о продолжении работы и передаёт полученные данные для обработки в основной модуль системы, представленный на диаграмме в виде комплекса задач.

Комплекс задач представляет собой совокупность выполняемых системой функций по обработке входной информации и формированию выходных данных на основании заложенных в систему алгоритмов решения задач. Комплекс задач (рис.9) имеет 3 основные функции:

1) представление промежуточных массивов данных в экранной форме в виде таблиц;

2) формирование отчётов (выходной информации) на основании промежуточных данных;

3) сохранение обработанных данных в базу данных, принадлежащей системе.



Рис.9. Комплекс задач системы

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

Следующий процесс - формирование отчётов - представляет собой процесс обработки промежуточной информации и дальнейшее формирование выходных данных, которые система представляет в виде отчётов.

Данный процесс представлен на рис.10.

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



Рис.10. Процесс формирования отчётов

2.1.2 Используемые классификаторы и системы кодирования

В составе информационного обеспечения рассматриваемого комплекса задач важное место отводится классификаторам экономической информации:

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

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

При проектировании кодов предъявляется ряд требований:

- охват всех объектов, подлежащих кодированию, и их однозначное обозначение;

- возможность расширения объектов кодирования без изменения правил их обозначения;

- максимальная информативность кода при минимальной его значности.

Выбор системы кодирования в основном зависит от количества классификационных признаков и разработанной системы классификации. Система классификации - это совокупность правил распределения объектов множества на подмножества. Классифицирование - это процесс распределения объектов данного множества на подмножества. Классификация - это результат упорядоченного распределения объектов заданного множества.

Различают иерархическую и многоаспектную системы классификации.

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

В многоаспектных системах классификации применяется параллельно несколько независимых признаков в качестве классификационных, т. е. Исходное множество рассматривается одновременно в разных аспектах (например, фасетная система классификации).

Системы кодирования делятся на регистрационные и классификационные.

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

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

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

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

В составе информационного обеспечения рассматриваемого комплекса задач выделены следующие классификаторы:

- классификатор продаж;

- классификатор магазина;

- классификатор сотрудника;

- классификатор товара;

Сводные характеристики классификаторов представлены в табл.2.

Таблица 2. Сводные характеристики классификаторов

Наименование классификатора	Значность кода	Система кодирования	Система классификации	Вид классификатора
Продажа	7	разрядная	Иерархическая	Локальный
Магазин	3	разрядная	Иерархическая	Локальный
Сотрудник	4	порядковая	Иерархическая	Локальный
Товар	6	порядковая	Иерархическая	Общесистемный

1) Для классификатора продаж. Используется разрядная система кодирования. Классификатор является локальным и состоит из семи знаков. Структурная формула классификатора заказов:

Ф1 = [ХХХХХХХ];

2) Для классификатора магазинов используется разрядная система кодирования. Классификатор является локальным и состоит из трех знаков. Структурная формула классификатора магазинов:

Ф2 = [ХХХ];

3) Для классификатора сотрудников используется порядковая система кодирования. Классификатор является локальным и состоит из четырех знаков. Структурная формула классификатора менеджеров:

Ф 3 = [ХХХХ];

4) Для классификатора товаров используется порядковая система кодирования. Классификатор является общесистемным и состоит из шести знаков. Структурная формула классификатора товаров:

Ф4 = [ХХХХХХ];

Разработанные классификаторы позволяют упростить работу системы и повысить ее эффективность.

2.1.3 Характеристика входной информации

Первым шагом разработки таблицы является продумывание ее структуры. Пользователь решает, какую информацию будет таблица содержать и в каком порядке она должна располагаться. При разработке таблиц следует: - избегать повторения полей. Это обеспечивает более гибкое хранение данных и простой доступ к ним. В этом состоит отличие разработки таблиц базы данных от организации данных в системах электронных таблиц - быть исчерпывающим. В таблицу следует включать поля для всей необходимой информации, но не забивать таблицу ненужными данными. Дополнительное поле можно легко при необходимости ввести в таблицу - ---- использовать небольшие базы данных. Если нужно организовать базу данных под большой объем информации, то обычно, лучше разместить ее в несколько небольших взаимосвязанных таблиц, чем в одну всеобъемлющую - определять необходимый тип таблиц. К оперативной относится информация, которая меняется для каждого фиксированного случая ее использования. Для разработки информационной аналитической системы обслуживания Интернет - расчет продаж сумма продаж и суммы возврата с каждой продаж, формирования товарных накладных и счетов - фактур, а также формирования итоговых диаграмм по различным показателям, используются входные документы, а именно файл содержащий данные о товарах.

Таблица 3. Входная информация о деятельности отдела продаж

№	Вид информации	Источник поступления	Периодичность
1	Продажа	От покупателя	По факту
2	Складские остатки	Склад	два раза в неделю

Таблица 4. Товар (tovar)

Поле	Шифр	Тип	Размер	Ключ
Артикул	artikul	integer	4	*
Наименование	name	string	100
Производитель	proizvod	string	100
Тип товаров	tip	string	50
Количество	kolvo	integer	2
Цена	cena	real	6

Таблица 5. Продажа (prod)

Поле	Шифр	Тип	Размер	Ключ
Дата	data	date	8
Артикул	artikul	integer	4	*
Наименование	name	string	100
Производитель	proizvod	string	20
Тип	tip	string	50
Количество	kolvo	integer	2
Сумма	summa	real	6
Сотрудник	sotrud	string	30

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

2.1.4 Характеристика результатной (выходной) информации

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

В данной работе используются приложения Excel из офисного пакета MicrosoftOffice для хранения выходных документов (отчеты) и исходной информации. Это связано с тем, что MSOffice логично вписывается в интерфейс Windows.

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

2.2 Алгоритмы расчета и решения задач

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

Рис.11. Описывает функционирование данной системы

Рис.11.Описание функционирования системы

Как показано на рис.11. пользователь начинает работу с загрузки системы, проходя авторизацию. Далее начинается решение основной задачи системы это обработки продаж, а именно сверка с остатками на складе, если некоторых позиций нет в наличии в достаточном количестве, данная позиция автоматически вычеркивается и заказа. Для этого необходимо выбрать вкладку "Загрузка данных заказа" на кнопку "Загрузить" из файла *.xls на форму добавляется заказ со всеми остальными реквизитами, на этой же вкладке есть кнопка "В базу" все данные заносятся в базу данных и сохраняются в ней.

На вкладке "Загрузка данных со склада" все данные так же помещаются на форму для просмотра пользователем системы и заносятся в базу данных. Вкладка "Остатки на складе" позволяет на одноименную кнопку сравнить заказ с остатками итоги этого сравнения, и послужат основой для дальнейшего анализа и проведения расчетов. Следующий шаг это непосредственно расчеты, связанные с возможными недопоставками, а также подсчет общей суммы заказа. Итоговые расчеты и результаты хорошо видны на вкладке "Акт сверки".

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

Графический анализ позволяет выдать информацию о работе отдельного пользователя, а так же позволяет наглядно определить тот товар, который наиболее популярен у того или иного покупателя. Следует отметить, что формирование отчётов происходит в самой программе в виде графика и графического представления. Если возникает необходимость предоставления отчёта в финансовый отдел или руководителю фирмы, то пользователь имеет возможность распечатать отчёт

2.3 Описание интерфейса и модулей системы

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

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

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

Рис. 12. Меню авторизации в системе

В меню авторизации нужно выбрать сотрудника ввести пароль. При нажатии на клавишу Вход происходит вход в систему. Если пользователь ошибся в комбинации сотрудникпароль, то авторизация не пройдет (рис.12).

Рис.13. Главное меню программы

Далее пользователю предлагается поработать с продажами, а именно добавить продажу в файл сразу перенести в базу данных, для этого на форме "продажи" расположены одноименные кнопки, так же на данной форме можно выйти в меню авторизации, и поменять сотрудника (рис.12).

Рис 14. Добавление продажи

На форме "Добавить продажу" (рис.14) можно произвести продажу выбрав все необходимые данные о товаре нужно нажать кнопку "Добавить". Что бы совершить продажу сотрудник должен ввести пароль авторизации системы



Рис. 15. Меню формы "товары"

После нажатия на вкладку товар открывается форма со списком товаров (рис.15), также здесь можно добавлять товары (рис.16).

Рис. 16. Форма "добавления товаров"

В форме добавить товар можно загрузить товар уже существующий в базе данных так же добавлять новые товары. (рис.16).

Рис. 17. Форма "отчеты"

Форма отчеты (рис.17). содержит кнопку "посчитать" нажав на которую мы получим отчет по продажам за определенный период. Так же нажав кнопку график мы получим статистику выполнения плана по месяцам.

Рис. 18. График "Отчет продаж" январь-июнь 2015 год

На рис. 18. Выполнен анализ учета продаж за 6 месяцев, на графике видно в какие месяца план выполнялся а в какие нет.

2.4 Структурная схема пакета

Схема пакета может быть представлена в виде рис.19.

Рис.19. Структурная схема пакета

Как видно из рис.19., программные модули Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, составляют целостный проект Euroset. Каждый unit (модуль) состоит из описания рабочих форм, процедур и функций, тела программы. В совокупности данные модули управляются и имеют зависимость от проекта системы. Проект позволяет сохранять целостность всего проекта, т.е. содержит в себе информацию о включённых в него модулей, управляет работой данных модулей, обеспечивает их взаимодействие. Для того, чтобы пользователь имел возможность использовать программу в операционной среде Windows, проект необходимо скомпилировать (т.е. создать запускной файл (Euroset.exe). При создании exe-файла проект будет представлять собой слияние всех модулей и проекта программы. Это обеспечивает удобную работу пользователя (т.е. запуск одного файла вместо нескольких), при этом нет необходимости в повторном компилировании проекта, что занимает много времени и, при отсутствии соответствующего программного обеспечения, приводит к появлению ошибок использования проекта.

Далее рассмотрим дерево вызова процедур и программ, необходимых для работы системы (рис.20).

Рис.20. Дерево вызова процедур и программ

2.5 Экономическое обоснование проекта

2.5.1 Расчет единовременных затрат на разработку и внедрение АИС

Единовременные затраты на разработку и внедрение ИС можно рассчитать, по следующей формуле:

(1)

где ЗПр - заработная плата разработчику по трудовому соглашению, руб.;

Осн - отчисления на социальные нужды от заработной платы разработчику, руб,:

Зэвм - затраты, связанные с эксплуатацией ЭВМ, руб.;

Зрм - затраты на расходные материалы, руб.;

Зис - затраты на приобретение инструментальных средств (Delphi 7.0), руб.

Слагаемое в формуле (1) представляют собой статьи сметы затрат на проектирование АИС.

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

(2)

где МО - месячный оклад, который согласна выплачивать организация-заказчик разработчику АРМ, руб.;

Дм - количество рабочих дней в месяц, здесь Дм = 22 дня;

t_разр - длительность разработки, дни.

Длительность разработки включает все этапы создания системы и составляет 100 рабочих дней.

Положим месячный оклад разработчику системы равным 10000 рублей.

Тогда общая сумма выплат по трудовому соглашению между заказчиком и исполнителем составит:

Сумма отчислений в фонд социального страхования рассчитывается по формуле:

(3)

где k_сн - коэффициент отчислений на социальные нужды. В настоящее время производятся отчисления:

· в пенсионный фонд 28% от фонда заработной платы;

· в фонд социального страхования 4% от фонда заработной платы;

· в федеральный фонд обязательного медицинского страхования 0,2% от фонда заработной платы;

· в территориальный фонд обязательного медицинского страхования 3,4% от фонда заработной платы;

Таким образом, коэффициент отчислений на социальные нужды будет равен 0,356.

Определим величину отчислений на социальные нужды:

Осн = 45455*0,356 = 16182 (руб.)

Расчет затрат, связанных с эксплуатацией ЭВМ производиться по формуле:

(4)

где t_эвм - время работы на ЭВМ, затраченное на создание системы, ч. Оно включает как время на разработку и отладку программного обеспечения, так и время на подготовку документации, поскольку создание системы ведется с использованием вычислительной техники заказчика. Таким образом t_эвм = 100дн*8ч = 800 ч.

С_м-ч - себестоимость машино-часа работы ЭВМ;

Себестоимость машино-часа определяется по формуле:

(5)

где Зоп - затраты на заработную плату обслуживающего персонала с учетом всех отчислений, руб.;

А - годовая сумма амортизации, руб.:

Зэ - затраты на силовую электроэнергию, руб.;

Зр - затраты на ремонт и обслуживание оборудования в год.руб.;

Зн - накладные расходы, руб.;

Ф_д - действительный годовой фонд времени работы КСА, ч.

Расчет затрат на заработную плату обслуживающего персонала производиться по формуле:

(6)

где МООП - месячный оклад работника, обслуживающего парк ЭВМ, руб.;

n_м - количество машин, обслуживаемых одним работником.

В ООО "Евросеть-Ретейл" обслуживанием парка ПК (45 шт.) занимаются 5 человек, ежемесячный оклад составляет 5700 рублей.

Таким образом, затраты на заработную плату обслуживающего персонала в год составят:

Годовая сумма амортизации рассчитывается по формуле:

(7)

где С_кса - стоимость ЭВМ и прочего оборудования, входящего в комплекс средств автоматизации, используемого при создании АИС, руб.;

Н_а - норма амортизации комплекса средств автоматизации.

Стоимость ЭВМ, включая стоимость принтера, примем равной 25 000 руб. Норма амортизации для электронных машин с программным управлением общего назначения равна 12,5%.

Таким образом, сумма годовой амортизации составит:

Затраты на электроэнергию в год З_э определяются следующим образом:

(8)

где W_у - установленная мощность, кВт;

С_э - стоимость силовой электроэнергии, руб./кВт;

Т_в - время, в течение года, когда комплекс средств автоматизации потребляет электроэнергию, ч.

Суммарная потребляемая мощность комплекса средств автоматизации, рассчитанная по данным, указанным в технической документации составляет 2,4 кВт/ч. Стоимость 1 кВт/ч для предприятий составляет 1,3 руб. Тогда затраты на электроэнергию в год составят:

Затраты на текущие ремонты и затраты на накладные расходы рассчитаем оценочно, считая, что их величины составляют 4 процента от первоначальной стоимости комплекса средств автоматизации. Таким образом,

Зр = 25 000*0,04=1000 руб.

Зн = 25 000*0,04=1000 руб.

Годовой фонд времени Ф_д устанавливается, исходя из номинального фонда времени и времени профилактики оборудования и ремонтов:

(9)

где S - продолжительность рабочего дня, ч.;

D - число рабочих дней в году, дн.;

Т_пр - время ремонтов и профилактики оборудования в год, ч.

Вычислим себестоимость машино-часа:

Определим теперь величину затрат, связанных с эксплуатацией ЭВМ.

Затраты на расходные материалы: 1) бумага (120 руб), 2) картридж для принтера 1200 рублей. Следовательно, затраты на материалы составят 1320 рублей.

Стоимость пакета Borland Delphi 7.0 составляет 4 500 рублей.

Таким образом, затраты на разработку и внедрение ИС составят:

К = 45455+ 16182 + 11680 + 1320 + 4 500 = 79137 рублей.

2.5.2 Расчет текущих затрат на функционирование ИС

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

(10)

где t_аис - время использования комплекса технических средств в течение года для решении задачи АИС;

С_{м-ч -} себестоимость машино-часа.

Время использования комплекса технических средств включает время затрачиваемое на выполнение непосредственных функций АИС. На выполнение всех операций в ИС потребуется 2 часа в сутки.

Тогда

2.5.3 Расчет годового экономического эффекта от внедрения АИС

Определим годовой экономический эффект от внедрения системы.

Основной эффект достигается за счёт автоматизации работы менеджеров компании. ИС обеспечивает обработку информации, представляет её на экранной форме в удобном виде для проведения анализа. До внедрения системы менеджер затрачивал в среднем 2 на продажу нескольких телефонов, а это практически половина рабочего дня, а после внедрения системы 1 час. В год отдел продаж в среднем получает 1000 продаж. Следовательно, временной годовой эффект от применения АРМ составит 1000*(2-1)=1000ч.

Затраты на заработную плату менеджера с учетом премиальных выплат в настоящее время составляет 12000 рублей.

Сумму годовой экономии от применения АРМ за счет снижения трудоемкости переработки информации, рассчитаем по следующей формуле:

(11)

где ЗП_сло - месячная заработная плата сотруднику отдела продаж с учетом премиальных выплат, руб.;

k_сн - коэффициент отчислений на социальные нужды;

Ф_м - месячный фонд времени работы сотрудника отдела продаж, ч;

t_осг - годовой временной эффект от применения АРМ.

Годовая экономия за счет снижения трудоемкости переработки информации составит:

2.5.4 Оценка экономической эффективности капитальных вложений

Годовая экономия от внедрения программы представляет собой разницу текущих затрат на обработку информации до внедрения программы (базовый вариант) и после внедрения (новый вариант), рассчитанных на годовой объем выходной статистической информации по новому варианту (формула 1).

Э = З_б - З _н,(1)

где З_б - годовые затраты по базовому варианту;

З_н - годовые затраты по новому варианту.

Годовые затраты на обработку экономической информации в базовом варианте определяется по формуле 2:

З_б = (V * P_p)/ Н _а, (2)

где V - объем выходной экономической информации в новом варианте (в знаках);

Н _а - норма выработки на одного человека (зн/ч);

P_p- себестоимость одного человека-часа работника, эксплуатирующего персональный компьютер (ПК).

Годовой объем выходной информации (V) в новом варианте определяется по формуле 3:

V = V_o* M * a, (3)

где V_o- общий объем экономической информации, обрабатываемой на ПК;

М - число работников, обрабатывающих V_oв ручном исполнении;

а - доля времени (0<a<1) занятости в работе с V объемом информации.

Общий объем экономической информации, обрабатываемой на ПК (V _o), определяется по формуле 4:

V_o= N *Z * 12, (4)

где N - число выходных форм за месяц;

Z - средняя значимость одной выходной формы.

Долю времени а можно представить как отношение, представленное в формуле 5:

а = t_баз / Ф _м, (5)

где t_баз - время, затрачиваемое на данную задачу, в часах;

Ф _м - фонд времени за месяц, в часах.

Норма выработки на одного работника (Н _а) определяется эмпирически для каждого предприятия в отдельности.

Себестоимость одного человека-часа работника, эксплуатирующего ПК (P_p) определяется по формуле 6:

P_p= С _м / Ф _м, (6)

где С_м - заработная плата за месяц, руб;

Ф _м- фонд времени за месяц, ч.

Годовые затраты на обработку информации по новому варианту (З_н) определяются по формуле 7:

З _н = З _т * b + К_абд, (7)

где З_т - годовые текущие затраты на обработку экономической информации по новому варианту, равные сумме заработной платы работника;

b - доля времени (0<b<1) занятости по новому варианту;

К _абд- капитальные вложения на программу. Здесь их можно считать равными единовременными затратами заработной платы, выраженной в доле времени разработки (формула 8). Эти затраты не стоит называть капитальными, а затратами на разработку.

К _абд = З ' * c ', (8)

где З ' - заработная плата разработчика, руб;

с '- доля времени (0<c<1) разработки, ч.

Заработную плату разработчика можно представить в следующем виде (формула 9):

З ' = С _м+ С_доб, (9)

где С_м - заработная плата пользователя за месяц, руб;

С_доб - разница между заработной платой пользователя и разработчика, руб.

Долю времени разработки можно представить в следующем виде (формула 10):

с ' = t ' / Ф _м, (10)

где t ' - время, затраченное на разработку, ч;

Ф _м - фонд времени за месяц, ч.

Долю времени занятости по новому варианту можно представить в следующем виде (формула 11):

b = t_нов / Ф _м, (11)

Где t_нов - время, затраченное на выполнение задачи пользователем по новому варианту, ч;

Ф _м - фонд времени за месяц, ч.

Коэффициент эффективности капитальных вложений при внедрении программы контроля и учёта работы пользователей вычисляется по формуле 12:

Е _р= Э / К _абд, (12).

Собрав все формулы в одну, получим следующее уравнение (формула 13)

(13)

Преобразуем это выражение. Заработная плата приведена к относительным величинам.

Сначала умножим числитель и знаменатель на Ф _м и разделим на С_м (формула 14):

(14).

Отношение С_доб /С_м равно 0,81. Тогда выражение будет иметь вид (формула 15):

(15)

Исходные параметры для рассматриваемой задачи, имеют следующие значения:

N - Количество выходных форм за месяц в среднем составляет 200 (рассчитано по документам рабочей базы за 3 месяца);

Z - Средняя значимость одной формы 1000 знаков;

М - Количество человек, которые занимаются выполнением этой работы, составляет 2;

t_баз - Время выполнения работы до автоматизации составляло 30 часов в месяц;

t_нов - время выполнения работ с помощью ПК составляет 1 час;

Н_а - норма выработки в час составляет 2500 знаков/ч;

Ф_м - фонд рабочего времени за месяц 180 часов;

t' - время разработки 60 часов.

Подставляя эти значения в формулу 15, получаем:

Можно сделать вывод, что внедрение системы будет целесообразным и окажет положительный эффект на экономию времени.

Экономическая эффективность от внедрения программы оуправления продаж превышает нормативную. Это позволит снизить затраты в целом и как следствие повысить прибыль предприятия.

Заключение

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

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

Построена информационная структура управления продажами, а также модель БД.

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

Автоматизированная информационная система управления продажами в ООО "Евросеть-Ретейл" построена с учетом использования современных приложений. Такие приложения способны быстро реорганизовываться и трансформироваться, что очень важно при постоянном совершенствовании информационных технологий.

Для разработки данной автоматизированной системы были выбраны те инструментальные средства, которые обеспечивают решение задач с помощью определённых алгоритмов, выполняемых на основе языка программирования Object Pascal. Средством создания программной оболочки системы была выбрана среда визуального программирования Delphi которая позволяет эффективно хранить, искать, сортировать и получать - обладает высокой производительностью, имеет множество интерфейсов к различным системам БД, прост в использовании. Все эти продукты имеют открытый исходный код, благодаря чему дешевы. К тому же они способны тесно интегрировать между собой и сетью Интернет, что необходимо для выполнения поставленных задач. Осуществлены расчеты продаж показателей, на основе, которых можно: определить эффективность проведенных результатов, а также облегчить работу сотрудников компании.

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

Список использованных источников

1. Delphi. Профессиональное программирование/ Дмитрий Осипов.: Из-во Символ-Плюс, 2011.

2. Delphi в задачах и примерах/ Никита Культин.: Из-во БХВ-Петербург, 2013.

3. Агафонова В.В. Проектирование интерфейсов информационных систем: Учебно-методический комплекс. - Самара. Изд-во Самарского государственного экономического университета, 2009.

4. Чаплыгин С.И. Проектирование корпоративных экономических информационных систем: Учебно-методический комплекс. - Самара. Изд-во Самарского государственного экономического университета, 2009.

5. Excel 2010. Библия пользователя / Джон Уокенбах.: Изд-во Диалектика, 2012.

6. Абросимов, А.Г. Информационные системы в экономике: учеб. Пособие / А.Г. Абросимов, М.А. Бородинова. - Самара: Изд-во Самар. Гос. Экон. Ун-та, 2007.

7. Абросимов, А.Г. Корпоративные экономические информационные системы: учеб. Пособие / А.Г. Абросимов, Н.В. Абрамов, Н.В. Мотовилов. - Самара: Изд-во Самар. Гос. Экон. Ун-та, 2007.

8. Абросимов А.Г., Бородинова М.А. Дипломное проектирование: Учебное пособие. - Самара. Изд-во Самарского государственного экономического университета, 2010.

9. Симионов Ю.Ф., Боромотов В.В. Информационный менеджмент. - Ростов н. Д: Феникс, 2013, 250с., ил.

10. Бухгалтерский учет в торговле: Учеб.пособие для вузов / Под общ. ред. В.В. Кожарского. Л.И. Кравченко. - Мн.: Высш. Шк., 1996.- 407с.

11. Торговое дело: Экономика и организация: Учебник для вузов / Под общ.ред. Л.А. Брагина, Т.П. Данько. - М.: ИНФРА - М, 1997. - 256с.

12. Котлер Ф. Маркетинг-менеджмент/Пер. с англ. Под ред. Л.А. Волковой, Ю.Н. Каптуревского, СПб.: КОРОНА принт, 2000.

13. Котлер Ф. Фрагмент из книги ИД Питер "Маркетинг менеджмент. Экспресс-курс". http://marketing.spb.ru/lib-mm/ecom_manage.htm

14. Дж. Мартин "Организация баз данных в вычислительных системах", Мир, Москва, 1999 г.

15. ГОСТ ИСО/МЭК 9136-1. Информационная технология. Характеристики и метрики качества программного обеспечения. - М.: Первое издание, 1998. - 25с. (ГОСТ.)

16. ГОСТ ISO/IEC 12207. Международный стандарт. Информационная технология. Процессы жизненного цикла программного обеспечения. - М.: Первое издание, 1995. - 62с. (ГОСТ.)

17. ГОСТ 34.201-89. Международный стандарт. Комплекс стандартов на автоматизированные системы. - М.: Издательство стандартов, 1991. - 29с.: ил. (ГОСТ.)

18. Официальный сайт ООО "Евросеть-Ретейл" http://euroset.ru/samara/corp/

Приложение. Листинг программного кода Delphi

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Mask, StdCtrls, ComObj, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

users: TCombobox;

Password: TEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Memo1: TMemo;

Memo2: TMemo;

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses unit2, unit5, unit3, unit4, unit6;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i:byte;

begin

if (users.Text = memo2.lines[0]) and (password.text = memo1.lines[0]) or (users.Text = memo2.lines[1]) and (password.text = memo1.lines[1]) or (users.Text = memo2.lines[2]) and (password.text = memo1.lines[2])then

begin

form4.show;

form1.Hide;

end

else

begin

showmessage('Неверный пароль');

password.Clear;

end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

excel1.Workbooks.Close;

excel2.Workbooks.Close;

excel3.Workbooks.Close;

excel1.Application.Quit;

excel2.Application.Quit;

excel3.Application.Quit;

excel1 := Unassigned;

excel2 := Unassigned;

excel3 := Unassigned;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

t1:textfile;

user, pass:string;

begin

memo1.Clear;

memo2.Clear;

assignfile(t1,GetCurrentDir() + '\Документы\Пользователи.txt');

reset(t1);

while not eof(t1) do begin

readln(t1, user);

readln(t1, pass);

users.Items.Add(user);

memo2.Lines.Add(user);

memo1.Lines.Add(pass);

end;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, unit1, Menus, Grids, ComObj, StdCtrls, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

MainMenu1: TMainMenu;

tovar: TMenuItem;

sg1: TStringGrid;

Button1: TButton;

Button3: TButton;

sell: TMenuItem;

stat: TMenuItem;

Label1: TLabel;

Label2: TLabel;

N1: TMenuItem;

Image1: TImage;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure sellClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure statClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

excel1: Variant;

implementation

uses

unit3, unit4, unit5, unit6;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm2.Button3Click(Sender: TObject);

var

i:byte;

begin

for i := 1 to sg1.RowCount-1 do begin

excel1.ActiveSheet.cells[i+1,1]:=sg1.Cells[0,i];

excel1.ActiveSheet.cells[i+1,2]:=sg1.Cells[1,i];

excel1.ActiveSheet.cells[i+1,3]:=sg1.Cells[2,i];

excel1.ActiveSheet.cells[i+1,4]:=sg1.Cells[3,i];

excel1.ActiveSheet.cells[i+1,5]:=sg1.Cells[4,i];

excel1.ActiveSheet.cells[i+1,6]:=sg1.Cells[5,i];

end;

excel1.DisplayAlerts := False;

excel1.ActiveWorkBook.Saveas(GetCurrentDir() + '\Документы\товары.xls');

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.close;

end;

procedure TForm2.FormCreate(Sender: TObject);

var

rows,i, k, k1, j, kmax:byte;

begin

sg1.Cells[0,0]:='Артикул';

sg1.Cells[1,0]:='Наименование';

sg1.Cells[2,0]:='Производитель';

sg1.Cells[3,0]:='Типтовара';

sg1.Cells[4,0]:='Количество';

sg1.Cells[5,0]:='Стоимость';

excel1 := CreateOleObject('excel.Application');

excel1.Workbooks.Open[GetCurrentDir() + '\Документы\товары.xls'];

rows:=excel1.ActiveSheet.UsedRange.Rows.Count-1;

for i := 1 to rows do

begin

sg1.Cells[0,i]:=excel1.ActiveSheet.cells[i+1,1];

sg1.Cells[1,i]:=excel1.ActiveSheet.cells[i+1,2];

sg1.Cells[2,i]:=excel1.ActiveSheet.cells[i+1,3];

sg1.Cells[3,i]:=excel1.ActiveSheet.cells[i+1,4];

sg1.Cells[4,i]:=excel1.ActiveSheet.cells[i+1,5];

sg1.Cells[5,i]:=excel1.ActiveSheet.cells[i+1,6];

sg1.RowCount:=sg1.RowCount +1;

end;

sg1.RowCount:=sg1.RowCount -1;

end;

procedure TForm2.FormShow(Sender: TObject);

begin

label2.caption:=form1.users.Text;

end;

procedure TForm2.N1Click(Sender: TObject);

begin

form1.Show;

form2.Hide;

end;

procedure TForm2.sellClick(Sender: TObject);

begin

form4.show;

form2.Hide;

end;

procedure TForm2.statClick(Sender: TObject);

begin

form6.show;

form2.Hide;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit1: TEdit;

Button1: TButton;

ComboBox5: TComboBox;

Label7: TLabel;

Edit3: TEdit;

Label8: TLabel;

Button2: TButton;

Edit5: TEdit;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

ComboBox4: TComboBox;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses unit2, unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

var

i:byte;

begin

for i := 1 to form2.sg1.RowCount-1 do begin

if combobox5.Text = form2.sg1.Cells[0,i] then

form2.sg1.Cells[4,i]:=inttostr(strtoint(form2.sg1.Cells[4,i])+strtoint(edit3.text));

end;

end;

procedure TForm3.Button2Click(Sender: TObject);

var

i:byte;

begin

form2.sg1.RowCount:=form2.sg1.RowCount+1;

form2.sg1.Cells[0,form2.sg1.RowCount-1]:=combobox1.Text;

form2.sg1.Cells[1,form2.sg1.RowCount-1]:=combobox2.Text;

form2.sg1.Cells[2,form2.sg1.RowCount-1]:=combobox3.Text;

form2.sg1.Cells[3,form2.sg1.RowCount-1]:=combobox4.Text;

form2.sg1.Cells[4,form2.sg1.RowCount-1]:=edit1.Text;

form2.sg1.Cells[5,form2.sg1.RowCount-1]:=edit5.Text;

end;

procedure TForm3.FormCreate(Sender: TObject);

var

i:byte;

sl: TStringList;

begin

for i := 1 to form2.sg1.rowcount - 1 do begin

combobox5.Items.Add(form2.sg1.cells[0,i])

end;

sl := TStringList.Create;

sl.Duplicates := dupIgnore;

sl.sorted := true;

sl.AddStrings(combobox5.Items);

Combobox5.Items := sl;

sl.Free;

for i := 1 to form2.sg1.rowcount - 1 do begin

combobox1.Items.Add(form2.sg1.cells[0,i])

end;

sl := TStringList.Create;

sl.Duplicates := dupIgnore;

sl.sorted := true;

sl.AddStrings(combobox1.Items);

Combobox1.Items := sl;

sl.Free;

for i := 1 to form2.sg1.rowcount - 1 do begin

combobox2.Items.Add(form2.sg1.cells[1,i])

end;

sl := TStringList.Create;

sl.Duplicates := dupIgnore;

sl.sorted := true;

sl.AddStrings(combobox2.Items);

Combobox2.Items := sl;

sl.Free;

for i := 1 to form2.sg1.rowcount - 1 do begin

combobox3.Items.Add(form2.sg1.cells[2,i])

end;

sl := TStringList.Create;

sl.Duplicates := dupIgnore;

sl.sorted := true;

sl.AddStrings(combobox3.Items);

Combobox3.Items := sl;

sl.Free;

for i := 1 to form2.sg1.rowcount - 1 do begin

combobox4.Items.Add(form2.sg1.cells[3,i])

end;

sl := TStringList.Create;

sl.Duplicates := dupIgnore;

sl.sorted := true;

sl.AddStrings(combobox4.Items);

Combobox4.Items := sl;

sl.Free;

end;

procedure TForm3.FormShow(Sender: TObject);

begin

label12.caption:=form1.users.Text;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, TeEngine, ExtCtrls, TeeProcs, Chart, Series, Grids, ComObj, DateUtils,

jpeg;

type

TForm6 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

Tovar: TMenuItem;

sell: TMenuItem;

stat: TMenuItem;

sg1: TStringGrid;

Button1: TButton;

Image1: TImage;

Button2: TButton;

Button3: TButton;

procedure TovarClick(Sender: TObject);

procedure sellClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

excel3: variant;

implementation

uses unit2, unit4, unit1;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

var

i, j:byte;

begin

for j := 1 to 12 do begin

for i := 1 to form4.sg1.RowCount-1 do begin

if monthof(strtodate(form4.sg1.Cells[0,i])) = strtoint(sg1.Cells[0,j]) then begin

sg1.Cells[2,j]:=inttostr((strtoint(sg1.Cells[2,j]))+strtoint(form4.sg1.Cells[6,i]));

end;

end;

if sg1.Cells[2,j]<>'0' then

sg1.Cells[3,j]:=inttostr(strtoint(sg1.Cells[2,j])-strtoint(sg1.Cells[1,j]));

end;

end;

procedure TForm6.Button2Click(Sender: TObject);

var

i:byte;

begin

for i := 1 to sg1.RowCount-1 do begin

excel3.ActiveSheet.cells[i+1,1]:=sg1.Cells[0,i];

excel3.ActiveSheet.cells[i+1,2]:=sg1.Cells[1,i];

excel3.ActiveSheet.cells[i+1,3]:=sg1.Cells[2,i];

excel3.ActiveSheet.cells[i+1,4]:=sg1.Cells[3,i];

end;

excel3.DisplayAlerts := False;

excel3.ActiveWorkBook.Saveas(GetCurrentDir() + \Документы\План.xls');

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

Excel3.ActiveWorkBook.Sheets.Item[2].Activate;

Excel3.visible:=true;

end;

procedure Tform6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.close;

end;

procedure TForm6.FormCreate(Sender: TObject);

var

rows, rows2, i:byte;

begin

sg1.Cells[0,0]:='Месяц';

sg1.Cells[1,0]:='Запланировано';

sg1.Cells[2,0]:='Выполнено';

sg1.Cells[3,0]:='Разница';

excel3 := CreateOleObject('excel.Application');

excel3.Workbooks.Open[GetCurrentDir() + '\Документы\План.xls'];

rows:=excel3.ActiveSheet.UsedRange.Rows.Count-1;

for i := 1 to rows do

begin

sg1.Cells[0,i]:=excel3.ActiveSheet.cells[i+1,1];

sg1.Cells[1,i]:=excel3.ActiveSheet.cells[i+1,2];

sg1.Cells[2,i]:=excel3.ActiveSheet.cells[i+1,3];

sg1.Cells[3,i]:=excel3.ActiveSheet.cells[i+1,4];

sg1.RowCount:=sg1.RowCount +1;

end;

sg1.RowCount:=sg1.RowCount -1;

end;

procedure TForm6.N1Click(Sender: TObject);

begin

form1.Show;

form6.Hide;

end;

procedure TForm6.sellClick(Sender: TObject);

begin

form4.show;

form6.Hide;

end;

procedure TForm6.TovarClick(Sender: TObject);

begin

form2.show;

form6.Hide;

end;

end.

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