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

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

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.