107
В ходе описания информационного обеспечения была построена
информационная модель, описаны нормативно-справочная информация, а
также результатная информация, схема диалога пользователя и системы.
Кроме того, были приняты решения по способу хранения и организации
данных.
В ходе описания программного обеспечения были спроектированы
дерево функций и сценарий диалога работы системы по учету затрат по местам
возникновения, построена инфологическая схема базы данных, описаны
каждая таблицы и поле в таблицах базы данных, указаны их тип и ограничения.
Здесь же разработана структурная схема пакета, дерево вызова
процедур и описаны программные модули системы.
Расчет показателей экономической эффективности разработки и
внедрения автоматизированной информационной системы доказывает не
только эффективность внедрения данной системы, но даже необходимость
этого.
Внедрение системы принесет не только заметный экономический
эффект, но весьма быстро окупит затраты на ее разработку, создание и
внедрение.
Разработанная система обеспечивает качественную регистрацию
поступающих товаров, учет поставщиков, учет продаж товаров, что
существенно упрощает работу и увеличивает производительность компании.
Цели дипломной работы, поставленные во введении, выполнены.
108
Список использованной литературы
1. Авдошин А.А., Песоцкая Е.В.: Информатизация бизнеса.
Управление рисками, - М., ДМК-Пресс, 2011 г., 176 с.
2. Алекс Эллайн: C++. От ламера до программера (включая C++11),
- М., Издательство: Питер, 2015 г., 480 стр.
3. Аникеев С. П., Маркин Н.В.: Разработка приложений баз данных
в Delphi. Самоучитель, - М.,Диалог-МИФИ, 2013 г., 160 с.
4. Арнольд Виллемер: Программирование на С++, - М., Эксмо, 2013
г., 528 с.
5. Брюс Тейт: Семь языков за семь недель. Практическое
руководство по изучению языков программирования, - М., Издательство:
ДМК-Пресс, 2014 г., 384 стр.
6. Васвани В.А.: MySQL: использование и администрирование, СПб,
Питер, 2011 г., 368 с.
7. Васильев А.В: Самоучитель C++ с примерами и задачами, - М.,
Наука и Техника, 2015 г., 480 с.
8. Вигерс, Битти: Разработка требований к программному
обеспечению, - М., Издательство: BHV, 2014 г., 736 стр.
9. Герберт Шилдт: С++ для начинающих, - М., Эком, 2011 г., 640 с.
10. ГолощаповА. Р.: MicrosoftVisualStudio 2011, - М., BHV, 2011 г.,
544 с.
11. ГурвицГ.Е.: Microsoft Access 2011. Разработка приложений на
реальном примере, - М., BHV, 2011 г., 424 с.
12. Дейтел, Дейтел: Как программировать на Visual C# 2012. Включая
работу на Windows 7 и Windows 8, - М., Питер, 2014 г., 864 с.
13. Джо Майо: Самоучитель MicrosoftVisualStudio 2011, - М., BHV,
2011 г., 464 с.
14. Исаев Г.А.: Информационные системы в экономике. Учебник, -
М., Омега-Л, 2013 г., 462 с.
109
15. Исаев Г.А.: Проектирование информационных систем. Учебное
пособие, - М., Омега-Л, 2015 г., 424 с.
16. ИэнГриффитс: Программирование на C# 5.0, - М., Эксмо, 2014 г.,
1135 с.
17. Курлов А.А, Петров Е.А.: Методология информационной
аналитики, - М.,Проспект, 2014 г., 384 с.
18. Мартынов Н.А: Программирование для Windows на С\С++. В 2-х
томах, - М., Бином, 2013 г., 480 с.
19. Ошероув Р.О: Искусство автономного тестирования с примерами
на С#, - М., ДМК-Пресс, 2014 г., 360 с.
20. Паттерсон, Хеннесси: Архитектура компьютера и проектирование
компьютерных систе- М. Классика ComputersScience, Спб Питер, , 2012 г., 784
с.
21. Пирогов В.А.: Информационные системы и базы данных:
организация и проектирование, - М., BHV, 2009 г., 528 с.
22. Полубенцева - М. П.: С/С++ Процедурное программирование, - М.,
BHV, 2014 г., 432 с.
23. Потопахин В.С.: Искусство алгоритмизации, - М., Издательство:
ДМК-Пресс, 2014 г., 320 стр.
24. Пугачев Е.К., Шериев Ш.К., Кичинский Е.А.: Разработка
приложений для Windows 8 на языке C#, - М., BHV, 2013 г., 416 с.
25. Роберт Дж. Мюллер, Проектирование баз данных и UML, - М.,
Лори, 2013 год, 432 с.
26. Роберт Лафоре: Объектно-ориентированное программирование в
С++, - М., Питер, 2013 г., 928 с.
27. СурядныйА.Е.: Microsoft Access 2011. Лучший самоучитель, - М.,
Астрель, 2012 г., 448 с.
28. Таненбаум А.А, Бос Е.В.: Современные операционные системы,
Спб, Питер, 2015 г., 1120 стр
110
29. Тахагхогхи, Вильямс: Руководство по MySQL, - М., BHV, 2011 г.,
544 с.
30. Тимофеев В. А: Самоучитель С++ как он есть, - М., Бином, 2009 г.,
336 с.
31. Тюгашев А. Е.: Языки программирования. Учебное пособие.
Стандарт третьего поколения, - М., Издательство: Питер, 2014 г. 336 стр.
32. Ховард, Лебланк, Виега: Как написать безопасный код на С++,
Java, Perl, PHP, ASP.NET, - М., ДМК-Пресс, 2014 г., 288 с.
33. Чистов Д.А: Экономическая информатика (для бакалавров).
Учебное пособие, - М., Кнорус, 2014 г., 512 с.
34. Эндрю Стиллмен: Изучаем C#, - М., Питер, 2014 г., 816 с.
35. Энтони Молинаро, SQL. Сборник рецептов, - М., Символ-
Плюс,2011 г., 672 с.
36. Энтони Уильямс: Параллельное программирование на С++ в
действии. Практика разработки многопоточных программ, - М., ДМК-Пресс,
2014 г., 672 с.
111
Приложение. Листинг программных модулей
Процедура ТоварыЦенаПриИзменении(Элемент)
ЭлементыФормы.Товары.текущиеДанные.Сумма =
ЭлементыФормы.Товары.текущиеДанные.Количество *
ЭлементыФормы.Товары.текущиеДанные.Цена;
КонецПроцедуры
Процедура ТоварыСуммаПриИзменении(Элемент)
ЭлементыФормы.Товары.текущиеДанные.Цена =
ЭлементыФормы.Товары.текущиеДанные.Сумма /
ЭлементыФормы.Товары.текущиеДанные.Количество;
КонецПроцедуры
Процедура ТоварыТоварПриИзменении(Элемент)
ЭлементыФормы.Товары.текущиеДанные.Цена =
ЭлементыФормы.Товары.текущиеДанные.Товар.Цена;
ЭлементыФормы.Товары.текущиеДанные.Сумма =
ЭлементыФормы.Товары.текущиеДанные.Количество *
ЭлементыФормы.Товары.текущиеДанные.Цена;
КонецПроцедуры
Процедура ТоварыКоличествоПриИзменении(Элемент)
ЭлементыФормы.Товары.текущиеДанные.Сумма =
ЭлементыФормы.Товары.текущиеДанные.Количество *
ЭлементыФормы.Товары.текущиеДанные.Цена;
КонецПроцедуры
Процедура ОсновныеДействияФормыСчетНаОплату(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("СчетНаОплату");
Шапка = Макет.ПолучитьОбласть("Шапка");
112
Шапка.Параметры.Накладная = "Счет № " + Номер + " от " +
Лев(Строка(Дата),10);
Шапка.Параметры.Получатель = Клиент.Наименование;
ТабДок.Вывести(Шапка);
Для Каждого ТекущаяСтрока Из Товары Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = ТекущаяСтрока.Товар.Код;
Строка.Параметры.Наименование =
ТекущаяСтрока.Товар.Наименование;
Строка.Параметры.ТипПродукта =
ТекущаяСтрока.Товар.ТипПродукта;
Строка.Параметры.ТипТовара =
ТекущаяСтрока.Товар.ТипТовара;
Строка.Параметры.КолВо = ТекущаяСтрока.Количество;
Строка.Параметры.Цена = ТекущаяСтрока.Цена;
Строка.Параметры.Сумма = ТекущаяСтрока.Сумма;
ТабДок.Вывести(Строка);
КонецЦикла;
Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.Итого = Товары.Итог("Сумма");
ТабДок.Вывести(Подвал);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
113
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Процедура ОсновныеДействияФормыНакладная(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("СчетНаОплату");
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Накладная = "Накладная № " + Номер + " от " +
Лев(Строка(Дата),10);
Шапка.Параметры.Получатель = Клиент.Наименование;
ТабДок.Вывести(Шапка);
Для Каждого ТекущаяСтрока Из Товары Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = ТекущаяСтрока.Товар.Код;
Строка.Параметры.Наименование =
ТекущаяСтрока.Товар.Наименование;
Строка.Параметры.ТипПродукта =
ТекущаяСтрока.Товар.ТипПродукта;
Строка.Параметры.ТипТовара =
ТекущаяСтрока.Товар.ТипТовара;
Строка.Параметры.КолВо = ТекущаяСтрока.Количество;
Строка.Параметры.Цена = ТекущаяСтрока.Цена;
Строка.Параметры.Сумма = ТекущаяСтрока.Сумма;
ТабДок.Вывести(Строка);
114
КонецЦикла;
Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.Итого = Товары.Итог("Сумма");
ТабДок.Вывести(Подвал);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(Шапка);
ном = 0;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Товары.Наименование,
| Товары.Код,
| Товары.ТипТовара,
| Товары.ТипУпаковки,
| Товары.ТипПродукта,
| Товары.Цена,
| СУММА(ПриходТовары.Количество) КАК КоличествоПриход,
| СУММА(ПродажаТовары.Количество) КАК КоличествоРасход
|ИЗ
115
| Справочник.Товар КАК Товары
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.Приход.Товары КАК
ПриходТовары
| ПО Товары.Ссылка = ПриходТовары.Товар
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.Продажа.Товары КАК
ПродажаТовары
| ПО Товары.Ссылка = ПродажаТовары.Товар
|ГДЕ
| Товары.ПометкаУдаления = ЛОЖЬ
|
|СГРУППИРОВАТЬ ПО
| Товары.ТипУпаковки,
| Товары.ТипТовара,
| Товары.Код,
| Товары.ТипПродукта,
| Товары.Наименование,
| Товары.Цена";
Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = Результат.Код;
Строка.Параметры.Наименование = Результат.Наименование;
Строка.Параметры.ТипПродукта = Результат.ТипПродукта;
Строка.Параметры.ТипТовара = Результат.ТипТовара;
Строка.Параметры.ТипУпаковки = Результат.ТипУпаковки;
КоличествоПриход = Результат.КоличествоПриход;
КоличествоРасход = Результат.КоличествоРасход;
Если КоличествоПриход = NULL Тогда
КоличествоПриход = 0;
КонецЕсли;
116
Если КоличествоРасход = NULL Тогда
КоличествоРасход = 0;
КонецЕсли;
Строка.Параметры.количество = КоличествоПриход -
КоличествоРасход;
Строка.Параметры.Артикул = Результат.Код;
Строка.Параметры.Стоимость = Результат.Цена;
ТабДок.Вывести(Строка);
КонецЦикла;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(Шапка);
ном = 0;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СУММА(ПродажаТовары.Количество) КАК
КоличествоРасход,
| СУММА(ПродажаТовары.Сумма) КАК Сумма,