Разработка программного обеспечения для расчета полной себестоимости продукции ООО «Завод «Маарс»

Введение 4
1 Аналитический раздел 6
1.1 Описание компании ООО «Завод «Маарс» 6
1.2 Организационная структура компании ООО «Завод «Маарс» 7
1.3 Описание процесса расчета затрат на выпуск продукции 9
1.4 Программное и аппаратное обеспечение компании 11
2 Проектный раздел 14
2.1 Анализ существующих систем 14
2.2 Информационное обеспечение задачи 20
2.2.1 Информационная модель и ее описание 20
2.2.2 Используемые классификаторы и системы кодирования 22
2.2.3 Характеристика нормативно-справочной, входной и оперативной информации 23
2.3 Математическое обеспечение 26
2.4 Описание информационной базы 27
2.4.1 Выбор СУБД 27
2.4.2 Описание БД 29
2.5 Обоснование выбора средств разработки программной реализации ИС 32
2.6 Описание программной реализации ИС 34
2.6.1 Дерево функций 34
2.6.2 Структурная схема пакета 35
2.7 Описание работы программы 36
3 Оценка экономической эффективности внедрения проекта 43
3.1 Планирование и контроль выполнения работ 43
3.2 Расчет показателей экономической эффективности 52
4 Охрана труда и окружающей среды 54
4.1 Общие требования безопасности 54
4.2 Требования к помещениям для работы с ЭВМ 56
4.3 Требования к микроклимату 58
4.4 Требования к уровням шума и вибрации на рабочих местах 59
4.5 Требования к освещению на рабочих местах, оборудованных ЭВМ 60
4.6 Требования безопасности перед началом работы 61
4.7 Требования безопасности во время работы 63
Заключение 64
Список литература 65
Приложение 67

Не допускается размещение мест пользователей ЭВМ в цокольных и подвальных помещениях.Помещения, где размещаются рабочие места с ЭВМ, должны быть оборудованы защитным заземлением в соответствии с техническими требованиями по эксплуатации.Не следует размещать рабочие места с ПЭВМ вблизи силовых кабелей и вводов, высоковольтных трансформаторов, технологического оборудования, создающего помехи в работе ЭВМ.4.3 Требования к микроклиматуВ помещениях всех типов, где расположены ЭВМ, должны обеспечиваться оптимальные параметры микроклимата.В помещениях, оборудованных ЭВМ, проводится ежедневная влажная уборка и систематическое проветривание после каждого часа работы на ЭВМ.4.4 Требования к уровням шума и вибрации на рабочих местахВ производственных помещениях при выполнении основных или вспомогательных работ с использованием ЭВМ уровни шума на рабочих местах не должны превышать предельно допустимых значений, установленных для данных видов работ в соответствии с действующими санитарно-эпидемиологическими нормативами.В помещениях всех типов, где расположены ЭВМ, уровни шума не должны превышать допустимых значений, установленных для жилых и общественных зданий.Шумящее оборудование, уровни шума которого превышают нормативные, должно размещаться вне помещений с ЭВМ.4.5 Требования к освещению на рабочих местах, оборудованных ЭВМРабочие столы следует размещать таким образом, чтобы видеодис-плейные терминалы были ориентированы боковой стороной к световым проемам, чтобы естественный свет падал преимущественно слева.Искусственное освещение в помещениях для эксплуатации ПЭВМ должно осуществляться системой общего равномерного освещения.Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300 - 500 лк. Освещение не должно создавать бликов на поверхности экрана.4.6 Требования безопасности перед началом работыПеред началом работы необходимо произвести внешний осмотр рабочего места.При отключенном электропитании нужно убедиться:в целостности и исправности шнуров электропитания, соединительных шнуров между устройствами, электророзеток, разъемов и т.п.;вналичии и исправности заземления комплекта и защитного экрана;в наличии на местах назначения защитных крышек и кожухов.При обнаружении каких-либо неисправностей сообщить администрации и приступить к работе только после их устранения.Убрать со стола лишние и мешающие предметы.Удалить пыль с экрана дисплея, клавиатуры и других устройств ПЭВМ чистой салфеткой из мягкой ткани.Убедиться в надежности установки всех устройств ЭВМ.Проверить эргономические параметры рабочего места: уровни стола, сидения стула, подставки для ног, положение клавиатуры и монитора.При их несоответствии отрегулируйте рабочее место так, чтобы:уровень верхней кромки экрана приходился на высоту лба;углы между частями вашего тела – туловищем, бедрами, руками – были близки к 90 градусам, а положение тела соответствовало направлению взгляда, обеспечивая фронтальное наблюдение экрана;спинка кресла поддерживала вашу спину;подлокотники кресла были чуть выше стола, обеспечивая горизонтальное положение рук;клавиатура была установлена от края поверхности стола на расстоянии 100 - 300 мм;клавиатура располагалась по высоте и удобным углом наклона так, чтобы кисть располагалась прямо, а локти на подлокотниках;при высоте кресла, не позволяющей доставать ногами пола, использовать подставки для ног.Проверьте и установите в исходное положение органы управления.4.7 Требования безопасности во время работыПравила работы:Выполняйте только порученную вам работу.Не загромождайте рабочее место.Не допускайте к работе на ЭВМ посторонних лиц.При внезапном отключении напряжения выключите ПК из сети.При обнаружении неисправности в ПК отключите ее от электросети, доложите руководителю и вызовите техперсонал.При эксплуатации ПК запрещается:переносить и передвигать с установленных мест блоки ЭВМ, включенные в сеть, т.е. находящиеся под напряжением;подключать или отключать блоки комплекта при работающей ПЭВМ;оставлять включенный в сеть компьютер без наблюдения;вскрывать корпуса ЭВМ и периферийных устройств;самостоятельно производить не ПК какие-либо ремонтные работы;дотрагиваться до движущихся механизмов внешних устройств;чистить ПЭВМ и внешние устройства на ходу.ЗаключениеЦель работы повышение эффективности расчета себестоимости производства предприятия «Маарс» путем разработки и внедрения информационной системы.В результате был разработан прототип информационной системы расчета себестоимости производства продукции для предприятия «Маарс».Система позволяет в значительной степени снизить трудоемкость выполнения комплекса задач по вычислению себестоимости производства продукции.Также внедрение системы позволит в значительной степени снизить вероятность ошибок оператора и ошибок в расчетах.Система имеет приемлемый срок окупаемости. Прямой эффект системы получается за счет снижения трудоемкости выполнения рутинных функций и соответственно сокращения штатных единиц, либо их задействования на других участках работ.Таким образом, цель работы можно считать достигнутой, а задачи решенными.Список литератураБрусов П.Н. Применение математических методов в финансовом менеджменте: учебное пособие. – в 4 ч. Ч.3: Портфельный анализ. Инвестиции. М.: Финансовый менеджмент, 2011. – 136 с.Экономический анализ хозяйственной деятельности: электронный учебник / Э. А. Маркарьян, Г. П. Герасименко, С. Э. Маркарьян. – Электрон. дан. – М.: КНОРУС, 2009. – 214 с.Загородников С.В. Краткий курс по финансовому менеджменту: учеб. пособие / С.В. Загородников. – 3-е изд., стер. – М.: Издательство «Окей-книга», 2010. – 174 с.Иваненко А. Ф. Анализ хозяйственной деятельности на железнодорожном транспорте: учеб. для вузов ж.-д. трансп. – 2-е изд., перераб. и доп. – М.: ГОУ «Учебно-методический центр по образованию на железнодорожном транспорте» 2011. – 692 с.Калашникова Т.В. Финансовый менеджмент: учеб. пособие / Т.В. Калашникова; Томский политехнический университет. – Томск: Изд-во Томского политехнического университета, 2010. – 138 с.Ковалев В. В. Финансовый менеджмент. Конспект лекций с задачами и тестами: учебное пособие / В.В. Ковалев, В.В. Ковалев. – Москва: Проспект, 2011. – 504 с.Комплексный экономический анализ хозяйственной деятельности: учебник для вузов / Лысенко Д. В. – М.: ИНФРА-М, 2009. – 320 с.Хмельницкого С.В. Концепция развития информационных ресурсов/ С.В. Хмельницкого, В.В. Шарыхин, Н.В. Каплунова. – СПб.: Европейский университет в Санкт-Петербурге, 2009. – 321с.Хомоненко А.Д. и др. Базы данных: Учебник для вузов / Под ред. проф. А.Д. Хомоненко. — СПб.: КОРОНА принт, 2010 — 736 с. Шафер Д.Ф., Фартрел Т., Шафер Л.И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. – М.: Вильямс, 2010. – 362 с.Приложениеunit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SUIImagePanel, SUIPageControl, SUITabControl, ExtCtrls, SUIForm,SUIButton, StdCtrls, SUIEdit, Grids, DBGrids, SUIDBCtrls, SUIComboBox,SUIMemo, DB, ADODB, Mask;type TForm1 = class(TForm) suiForm1: TsuiForm; suiPageControl1: TsuiPageControl; suiTabSheet1: TsuiTabSheet; suiTabSheet2: TsuiTabSheet; suiTabSheet3: TsuiTabSheet; suiPanel1: TsuiPanel; suiPanel2: TsuiPanel; suiPanel4: TsuiPanel; suiDBGrid1: TsuiDBGrid; suiPanel3: TsuiPanel; suiDBGrid2: TsuiDBGrid; suiDBGrid3: TsuiDBGrid; Label2: TLabel; suiButton1: TsuiButton; Label3: TLabel; suiEdit3: TsuiEdit; Label4: TLabel; suiEdit4: TsuiEdit; suiButton2: TsuiButton; suiButton3: TsuiButton; suiPanel5: TsuiPanel; suiDBGrid4: TsuiDBGrid; suiPanel6: TsuiPanel; suiDBGrid5: TsuiDBGrid; suiPanel7: TsuiPanel; suiDBGrid6: TsuiDBGrid; suiPanel8: TsuiPanel; Label6: TLabel; Label8: TLabel; suiEdit6: TsuiEdit; suiButton4: TsuiButton; suiEdit8: TsuiEdit; suiButton5: TsuiButton; suiButton6: TsuiButton; Label9: TLabel; suiEdit9: TsuiEdit; suiMemo1: TsuiMemo; Label10: TLabel; Label11: TLabel; suiEdit10: TsuiEdit; Label12: TLabel; suiComboBox1: TsuiComboBox; suiButton7: TsuiButton; suiButton8: TsuiButton; suiPanel9: TsuiPanel; suiDBGrid7: TsuiDBGrid; suiPanel10: TsuiPanel; Label14: TLabel; Label16: TLabel; suiEdit12: TsuiEdit; suiButton9: TsuiButton; suiEdit14: TsuiEdit; suiButton10: TsuiButton; suiButton11: TsuiButton; suiButton12: TsuiButton; suiPanel11: TsuiPanel; suiDBGrid8: TsuiDBGrid; Label17: TLabel; suiEdit15: TsuiEdit; Label18: TLabel; suiComboBox2: TsuiComboBox; Label19: TLabel; suiComboBox3: TsuiComboBox; Label20: TLabel; ADOConnection1: TADOConnection;tzakaz: TADOTable;tsklad: TADOTable;tsost: TADOTable;tingrid: TADOTable;tmenu: TADOTable; toper: TADOTable;zakaz: TDataSource;sost: TDataSource; menu: TDataSource;ingrid: TDataSource;sklad: TDataSource;oper: TDataSource; Label21: TLabel; suiEdit17: TsuiEdit; suiMaskEdit3: TsuiMaskEdit; suiMaskEdit4: TsuiMaskEdit; suiTabSheet7: TsuiTabSheet; suiPanel19: TsuiPanel; suiDBGrid13: TsuiDBGrid; suiPanel20: TsuiPanel; Label1: TLabel; suiEdit1: TsuiEdit; suiButton14: TsuiButton;tost: TADOTable;ost: TDataSource; procedure FormCreate(Sender: TObject); procedure suiButton3Click(Sender: TObject); procedure suiButton8Click(Sender: TObject); procedure suiButton4Click(Sender: TObject); procedure suiButton7Click(Sender: TObject); procedure suiButton11Click(Sender: TObject); procedure suiButton12Click(Sender: TObject); procedure suiButton1Click(Sender: TObject); procedure suiButton2Click(Sender: TObject); procedure suiDBGrid3CellClick(Column: TColumn); procedure suiButton6Click(Sender: TObject); procedure suiDBGrid6CellClick(Column: TColumn); procedure suiButton5Click(Sender: TObject); procedure suiButton9Click(Sender: TObject); procedure suiPageControl1Change(Sender: TObject); procedure suiDBGrid4CellClick(Column: TColumn); procedure suiButton10Click(Sender: TObject); procedure suiDBGrid1CellClick(Column: TColumn); procedure suiTabSheet7Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);beginsuiPageControl1.ActivePageIndex:=0;{tsost.Filtered:=false;tsost.Filter:='kod_zak='+tzakaz.FieldValues['kod_zak'];tsost.Filtered:=true;'tingrid.Filtered:=false;'tingrid.Filter:='kod_bl='+tmenu.FieldValues['kod_bl'];'tingrid.Filtered:=true;}end;procedure TForm1.suiButton3Click(Sender: TObject);begintzakaz.Delete;end;procedure TForm1.suiButton8Click(Sender: TObject);begintsost.Delete;end;procedure TForm1.suiButton4Click(Sender: TObject);begintmenu.Delete;end;procedure TForm1.suiButton7Click(Sender: TObject);begintingrid.Delete;end;procedure TForm1.suiButton11Click(Sender: TObject);begintsklad.Delete;end;procedure TForm1.suiButton12Click(Sender: TObject);begintoper.Delete;end;procedure TForm1.suiButton1Click(Sender: TObject);begintrytzakaz.Append;tzakaz.FieldByName('data').AsString:=suiMaskEdit3.text;tzakaz.FieldByName('cena').AsInteger:=0;tzakaz.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiButton2Click(Sender: TObject);begintrytsost.Append;tsost.FieldByName('kod_zak').AsString:=tzakaz.FieldValues['kod_zak'];tsost.FieldByName('kod_bl').AsString:=suiEdit3.text;tsost.FieldByName('kolich').AsInteger:=strtoint(suiEdit4.text);tsost.Post;tzakaz.edit;tzakaz.FieldByName('cena').AsInteger:=tzakaz.FieldValues['cena']+strtoint(suiEdit4.Text)*strtoint(suiEdit17.Text);tzakaz.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiDBGrid3CellClick(Column: TColumn);beginsuiEdit3.text:=tmenu.FieldValues['kod_bl'];suiEdit17.text:=tmenu.FieldValues['stoim'];end;procedure TForm1.suiButton6Click(Sender: TObject);begintrytmenu.Append;tmenu.FieldByName('nazv').AsString:=suiEdit6.text;tmenu.FieldByName('opis').AsString:=suiMemo1.text;tmenu.FieldByName('stoim').AsInteger:=strtoint(suiEdit9.text);tmenu.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiDBGrid6CellClick(Column: TColumn);begin//suiEdit8.text:=tsklad.FieldValues['kolich'];suiEdit10.text:=tsklad.FieldValues['nazv'];end;procedure TForm1.suiButton5Click(Sender: TObject);begintrytingrid.Append;tingrid.FieldByName('kod_bl').AsString:=tmenu.FieldValues['kod_bl'];tingrid.FieldByName('nazv').AsString:=suiEdit10.text;tingrid.FieldByName('edin').AsString:=suiComboBox1.text;tingrid.FieldByName('kolich').AsInteger:=strtoint(suiEdit8.text);tingrid.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiButton9Click(Sender: TObject);begintrytsklad.Append;tsklad.FieldByName('type').AsString:=suiComboBox3.text;tsklad.FieldByName('nazv').AsString:=suiEdit12.text;tsklad.FieldByName('kolich').AsInteger:=strtoint(suiEdit15.text);tsklad.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiPageControl1Change(Sender: TObject);beginif suiPageControl1.ActivePageIndex=1 then begintsklad.Filtered:=false;tsklad.Filter:='type=''ингредиенты''';tsklad.Filtered:=true; end else tsklad.Filtered:=false;end;procedure TForm1.suiDBGrid4CellClick(Column: TColumn);begin{tingrid.Filtered:=false;tingrid.Filter:='kod_bl='+tmenu.FieldValues['kod_bl'];tingrid.Filtered:=true; }end;procedure TForm1.suiButton10Click(Sender: TObject);begintrytoper.Append;toper.FieldByName('kod_pr').AsString:=tsklad.FieldValues['kod_pr'];toper.FieldByName('type_oper').AsString:=suiComboBox2.text;toper.FieldByName('data_oper').AsString:=suiMaskEdit4.text;toper.FieldByName('kolich').AsInteger:=strtoint(suiEdit14.text);toper.Post;if suiComboBox2.text='выдача' then begintsklad.Edit; tsklad.FieldValues['kolich']:=tsklad.FieldValues['kolich']-strtoint(suiEdit14.text); tsklad.post; end;if suiComboBox2.text='поступление' then begintsklad.Edit; tsklad.FieldValues['kolich']:=tsklad.FieldValues['kolich']+strtoint(suiEdit14.text);tsklad.post;end;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;tost.Refresh;end;procedure TForm1.suiDBGrid1CellClick(Column: TColumn);begintsost.Filtered:=false;tsost.Filter:='kod_zak='+tzakaz.FieldValues['kod_zak'];tsost.Filtered:=true;end;procedure TForm1.suiTabSheet7Click(Sender: TObject);begintost.Refresh;end;end.