Таблица
4.2 - Показатели производственного травматизма
Проанализировав данные в таблице 4.2, можно сделать вывод о том, что
мероприятия по охране труда в РУПП «Брестхлебпром» филиал Барановичский
хлебозавод поставлены на должном уровне. По данным за период с 2009 по 2011
года в учреждении не произошло ни одного случая травматизма.
.2.3 Производственная санитария
Санитария производственная - система организационных,
санитарно-гигиенических мероприятий, технических средств и методов, предотвращающих
или уменьшающих воздействие на работающих вредных производственных факторов до
значений, не превышающих допустимые.
На предприятии организована работа и оснащено оборудованием швейное
производство по пошиву спецодежды. Имеется своя прачечная. Идет реконструкция
бывшего кондитерского цеха под физкультурно-оздоровительный комплекс, где будет
расположен тренажерный зал, сауна и кабинет врача.
Одним из мероприятий по оздоровлению воздушной среды является устройство
вентиляции и отопления. Задачей вентиляции является обеспечение чистоты воздуха
и заданных метеорологических условий на рабочих местах. Для поддержания
нормального микроклимата необходим достаточный объем вентиляции, для чего в
бухгалтерии предусматривается кондиционирование воздуха, осуществляющее
поддержание постоянных параметров микроклимата в помещении независимо от
наружных условий. В отделе установлены кондиционеры неполного кондиционирования
марки БК-2500.
Параметры микроклимата поддерживаются в указанных пределах в холодное
время за счет системы водяного отопления с нагревом воды 100°С, в теплый - за
счет кондиционирования, с параметрами отвечающими требованиям.
Опасность воздействия электромагнитных полей на человека зависит от
напряженностей электрического и магнитного полей, потока энергии, частоты
колебаний, размера облучаемой поверхности тела и индивидуальных особенностей
организма. Уровни напряженности электрического поля тока промышленной частоты
50 Гц, создаваемые монитором, системным блоком, клавиатурой, изделием в целом не
превышают допустимого 0,5 кВ/м согласно. Напряженность электростатического поля
на рабочем месте не превышает допустимого значения 15 кВ/м согласно [15].
.2.4 Пожарная безопасность
Пожарная безопасность предусматривает такое состояние объекта, при котором
исключалось бы возникновение пожара, а в случае его возникновения
предотвращалось бы воздействие на людей опасных факторов пожара и
обеспечивалась защита материальных ценностей.
Пожарная безопасность на РУПП «Брестхлебпром» филиал
Барановичский хлебозавод обеспечивается системами предотвращения пожара и
пожарной защиты, включающими комплекс организационных мероприятий и технических
средств. Современная пожарная защита имеет на вооружении системы быстрого
обнаружения пожара, совершенную технику и эффективные средства тушения,
своевременное и квалифицированное использование которых дает возможность
ликвидировать пожар в самом начале его возникновения.
Большое внимание в учреждении уделяется мероприятиям
по ограничению распространения огня, а также эвакуации людей из здания.
Эвакуационные выходы должны давать возможность людям безопасно и в короткий
срок покинуть помещение в случае пожара.
Здание построено из естественных и искусственных каменных материалов и
имеет защищенные стальные конструкции. Степень огнестойкости такого здания -
2-ая (огнестойкость несущих стен не менее 2ч, перегородок не менее 15 мин).
Мероприятия по пожарной профилактике делятся на организационные,
технические, режимные и эксплуатационные.
В качестве первичных средств пожаротушения используются огнетушители
ОХП-10. Кроме того, на некоторых участках предусмотрено место для
противопожарного инвентаря, где находится ящик с песком, ведра, топор, лопаты и
огнетушители.
В качестве мер по улучшению пожарной безопасности
предлагается уделить больше внимания пожарной профилактике, проведению агитации
среди работников. Она предусматривает мероприятия по предупреждению и
ликвидации пожаров, включая ограничение сферы распространения огня и
обеспечение успешной эвакуации людей и имущества из горящих помещений [15].
.3 Мероприятия по улучшению условий и
безопасности труда
Рассматривая механизмы воздействия метеорологических
факторов производственной среды (температуры, влажности, скорости движения
воздуха, действия лучистой энергии нагретых деталей и агрегатов) на человека,
необходимо отметить, что человеческий организм стремится поддержать
относительное динамическое постоянство своих функций при различных
метеорологических условиях. Это постоянство обеспечивает в первую очередь один
из наиболее важных физиологических механизмов - механизм терморегуляции. Она
осуществляется при определенном соотношении теплообразования (химическая
терморегуляция) и теплоотдачи (физическая терморегуляция).
Для обеспечения нормальных метеорологических условий в
производственных помещениях проводится большая исследовательская работа. Особой
группой мер, направленных на предупреждение перегревания в производственных
условиях, является рациональный питьевой режим (рабочие горячих цехов
обеспечиваются газированной подсоленной водой (от 0,2 до 0,5% хлористого
натрия). Питье такой воды уменьшает жажду, потоотделение, потерю веса,
способствует снижению температуры тела, улучшает самочувствие и
работоспособность), гидропроцедуры и рациональный режим труда и отдыха.
Для предупреждения перегревания большое значение имеют
регламентированные перерывы (по 3 - 5 мин.), во время которых работники
обтираются теплой или холодной водой до пояса и растирают тело полотенцем.
Полезно во время этих регламентируемых перерывов спокойно посидеть в комнате
отдыха, где созданы комфортные условия.
Помимо профилактики перегревания, не менее важное
значение в условиях производства имеет профилактика переохлаждения организма
работающего. Именно переохлаждение является одной из причин простудных
заболеваний. Основными средствами профилактики простудных заболеваний являются
улучшение санитарно-гигиенических условий в цехе, на участке и систематическое
закаливание организма. В холодный период года в закрытых производственных
помещениях необходимо устранить все, что способствует переохлаждению организма.
Особую опасность представляют резкие потоки холодного воздуха, врывающегося
через открытые ворота, двери, не застекленные окна и т.д. Поэтому необходимо
защищать рабочие места в производственных помещениях от резких потоков
холодного воздуха при частом открывании дверей и других проемов с помощью
шлюзов, тамбуров, воздушных завес и т.д.
Многочисленными исследованиями установлено, что в
период адаптации к звуковым раздражителям чувствительность органов слуха к ним
снижается, а после прекращения действия раздражителя чувствительность
восстанавливается. Если раздражитель действует чрезмерно сильно и длительное
время, то быстро наступает утомление.
Воздействие мощных шумовых волн на человека
обусловлено не столько механическим изменением органов слуха, сколько
перенапряжением нервных центров слухового анализатора.
Отрицательное действие шума приводит к замедлению
скорости нервных реакций, понижает внимание. Действуя на вегетативную нервную
систему, чрезмерный шум вызывает изменение ритма деятельности пульса,
отрицательные сдвиги кровяного давления, что может приводить к утомлению и даже
некоторым заболеваниям.
Одним из важных профилактических средств
предупреждения утомления при действии интенсивности шума являются чередование
периодов работы и отдыха при действии шума.
Отдых снижает отрицательное воздействие шума на
работоспособность лишь в том случае, если продолжительность и количество отдыха
соответствует условиям, при которых происходит наиболее эффективное восстановление
раздражаемых мер воздействия шума нервных центров.
На работоспособность большое влияние оказывает и такой
фактор производственной среды как вибрации. Для ограничения и устранения
вредного действия вибрации на производстве необходим: тщательный уход за
оборудованием, своевременная замена изнашивающихся движущихся и трущихся
частей, применение вибропоглощающих прокладок, использование различных типов
глушителей, устранение контактов фундамента агрегата с фундаментами зданий и,
главное, возможность изменения технологии - замена производственных операций,
связанных с шумами и вибрацией, бесшумными производственными процессами,
рациональное чередование периодов отдыха и работы при воздействии вибрации.
При создании оптимальных условий для деятельности зрительного
анализатора необходимо учитывать, что эффективность зависит не только от
освещенности, но и от таких важных функций глаза, как контрольная
чувствительность, острота зрения, быстрота различения деталей и устойчивость
ясного видения. Для обеспечения наилучших условий оптимальная освещенность
должна устанавливаться с учетом световых свойств (коэффициента отражения)
рабочей поверхности, размеров обрабатываемой детали, частоты и длительности
периодов отдыха на протяжении рабочего дня, характера трудового процесса в
частности, точности зрительной работы.
К пассивным средствам повышения работоспособности,
получающим все большее распространение на производстве, относятся методы
оздоровительного воздействия на организм человека - аэрация, водные процедуры
(душ, обтирание, умывание, гигиенические ванночки и т.д.), аэроионизация,
ультрафиолетовое облучение.
Аэрация - интенсивная вентиляция, при которой под
влиянием разности удельных весов наружного и внутреннего воздуха и воздействием
ветра на стены и кровлю удачно создается управляемый и регулируемый
воздухообмен через открывающие фрамуги и створки окон.
Физиологическими и клиническими исследованиями
установлено, что при ограничении или лишении человека естественного света
наступает так называемое световое голодание, в основе которого ультрафиолетовая
недостаточность она выражается в возникновении гипо- и авитаминоза (недостаток
витамина Д), нарушение фосфорно-кальциевого обмена (появляется кариес зубов,
рахит и др.), ослабление защитных сил организма, в частности,
предрасположенности ко многим заболеваниям. Эти изменения ухудшают самочувствие
и влекут за собой снижение работоспособности, быструю утомляемость и увеличение
сроков восстановления сил. Известно, что применение дополнительных доз
ультрафиолетовых лучей благоприятно влияет на организм человека, повышает его
работоспособность, улучшает самочувствие и способствует снижению
заболеваемости. Ультрафиолетовое облучение рекомендуется для лиц, занятых
физическим трудом в условиях пониженной температуры воздуха, работающих в
помещениях с малой естественной ультрафиолетовой радиацией и в условиях резких
перемен температур окружающей среды[16].
.4 Инструкция по охране труда для оператора ПЭВМ
.4.1 Общие требования по охране труда
. К самостоятельной работе на персональных электронно-вычислительных
машинах (далее - ПЭВМ) допускаются лица в возрасте не моложе 18 лет, имеющие
соответствующее образование и подготовку по специальности.
. Организация рабочего места с ПЭВМ должна учитывать требования
безопасности, удобство положения, движений и действий работника.
. Рабочий стол с учетом характера выполняемой работы должен иметь
достаточный размер для рационального размещения монитора (дисплея), клавиатуры,
другого используемого оборудования и документов, поверхность, обладающую низкой
отражающей способностью.
. Клавиатура располагается на поверхности стола таким образом, чтобы
пространство перед клавиатурой было достаточным для опоры рук работника (на
расстоянии не менее чем 300 мм от края, обращенного к работнику).
. Чтобы обеспечивалось удобство зрительного наблюдения, быстрое и точное
считывание информации, плоскость экрана монитора располагается ниже уровня глаз
работника, предпочтительно перпендикулярно к нормальной линии взгляда работника
(нормальная линия взгляда -15° вниз от горизонтали).
. Применяемые подвижные подставки для документов (пюпитры) размещаются в
одной плоскости и на одной высоте с экраном. Рабочий стул (кресло) должен быть
устойчивым, место сидения должно регулироваться по высоте, а спинка сиденья -
по высоте, углам наклона, а также расстоянию спинки от переднего края сиденья.
. Рабочее место размещается таким образом, чтобы естественный свет падал
сбоку (желательно слева).
. При размещении рабочих столов в ряд не допускается расположение экранов
видеомониторов навстречу друг другу из-за их взаимного отражения.
. Для обеспечения безопасности работников на соседних рабочих местах
расстояние между рабочими столами с мониторами (в направлении тыла поверхности
одного монитора и экрана другого монитора) должно быть не менее 2,0 м, а
расстояние между боковыми поверхностями мониторов - не менее 1,2 м.
. Для обеспечения оптимальных параметров микроклимата в течение рабочего
дня проводится регулярное проветривание и ежедневная влажная уборка помещений,
используются увлажнители воздуха.
. При работе с ПЭВМ обеспечивается доступ работников к первичным
средствам пожаротушения, аптечкам первой медицинской помощи.
. При проведении работ на ПЭВМ работник обязан соблюдать требования по
охране труда, а также правила поведения на территории учреждения, в
производственных, вспомогательных и бытовых помещениях.
. При обнаружении неисправностей оборудования, приспособлений,
инструмента, средств защиты, нарушениях технологического процесса работник
обязан уведомить об этом руководителя структурного подразделения, а в его
отсутствие главного врача или лицо, его замещающее.
. При несчастных случаях на производстве работник обязан уметь оказать
первую медицинскую помощь потерпевшим. Необходимо знать перечень медикаментов,
входящих в аптечку первой медицинской помощи, ее местонахождение. При
необходимости обеспечить доставку (сопровождение) пострадавшего в лечебное
учреждение.
.4.2 Требования по охране труда перед началом работы
. Работающий на ПЭВМ перед началом работы обязан:
проветрить рабочее помещение;
вымыть лицо и руки с мылом, надеть хлопчатобумажный халат, осмотреть и
привести в порядок рабочее место;
убедиться в достаточности освещенности, отсутствии отражений на экране,
встречного светового потока, при необходимости отрегулировать освещенность
рабочего места;
проверить правильность подключения оборудования, осветительных приборов
местного освещения в электросеть, наличие защитного заземления и подключение
экранного проводника к корпусу процессора;
протереть специальной салфеткой поверхность экрана ПЭВМ и защитного
фильтра (с обеих сторон);
убедиться в отсутствии дискет в дисководах процессора;
проверить исправность мебели, правильность установки стола, кресла,
подставки для ног, положении оборудования, клавиатуры, при необходимости
отрегулировать.
. При включении ПЭВМ работающий обязан соблюдать следующую
последовательность включения оборудования:
включить стабилизатор напряжения (если он используется);
включить блок питания;
включить периферийные устройства - принтер, монитор, сканер и др.;
включить системный блок (процессор).
. Запрещается приступать к работе при:
обнаружении неисправности оборудования;
повреждении кабеля электропитания, проводов, разъемов, штепсельных
соединений;
выраженном дрожании изображения на экране монитора;
отсутствии защитного заземления устройств ПЭВМ;
отсутствии защитного фильтра «полная защита» либо отключении заземляющего
проводника фильтра;
нарушении гигиенических норм размещения ПЭВМ;
отсутствии на рабочем месте углекислотного огнетушителя и аптечки первой
медицинской помощи.
. Обнаруженные перед началом работы нарушения требований охраны труда
устранить собственными силами, а при невозможности самостоятельно сделать это -
сообщить о неполадках непосредственному или вышестоящему руководителю,
представителям технических и (или) административно-хозяйственных служб для
принятия соответствующих мер. До устранения неполадок к работе не приступать.
. Не устранять самостоятельно нарушения требований охраны труда,
связанные с ремонтом и наладкой оборудования.
Ремонт оборудования проводится только специалистами или в
специализированных организациях.
.4.3 Требования по охране труда при выполнении работы
. Во время работы с ПЭВМ работник обязан:
соблюдать требования охраны труда, установленные настоящей Инструкцией;
содержать в чистоте и порядке свое рабочее место;
держать открытыми вентиляционные отверстия оборудования;
соблюдать оптимальное расстояние от экрана монитора до глаз.
. Работу за экраном монитора следует периодически прерывать на регламентированные
перерывы, которые устанавливаются для обеспечения работоспособности и
сохранения здоровья, или заменять другой работой с целью сокращения рабочей
нагрузки у экрана.
. Время регламентированных перерывов в течение рабочего дня (смены)
устанавливается в зависимости от его (ее) продолжительности, вида и категории
трудовой деятельности.
. Продолжительность непрерывной работы на ПЭВМ без регламентированного
перерыва не должна превышать 2 часов.
. С целью уменьшения отрицательного влияния монотонности работы
необходимо применять чередование операции
. Не оставлять оборудование включенным без наблюдения. При необходимости
прекращения на некоторое время работы корректно закрыть все активные задачи и
выключить оборудование.
. При работе с ПЭВМ запрещается:
при включенном питании прикасаться к панелям с разъемами оборудования,
разъемам питающих и соединительных кабелей, к экрану монитора;
загромождать верхние панели оборудования, рабочее место бумагами,
посторонними предметами;
прикасаться одновременно к экрану ВДТ и клавиатуре;
производить переключения, отключение питания во время выполнения активной
задачи;
допускать попадание влаги на поверхность системного блока, монитор,
рабочую поверхность клавиатуры, дисководов, принтеров и других устройств;
допускать резкие сгибы и защемления шнуров питания;
прикасаться к поврежденным или неисправным выключателям, штепсельным
розеткам, вилкам, к проводам с поврежденной изоляцией;
включать сильно охлажденное (принесенное с улицы в зимнее время)
оборудование;
самостоятельно производить вскрытие и ремонт оборудования;
вытирать пыль на включенном оборудовании;
допускать нахождение вблизи оборудования посторонних лиц.
4.4.4 Требования по охране труда по окончании работ
. По окончании работы работающий на ПЭВМ обязан:
произвести закрытие всех активных задач;
извлечь дискету из дисковода;
выключить питание системного блока (процессора);
выключить питание всех периферийных устройств;
отключить блок питания;
отключить стабилизатор напряжения (если он используется);
осмотреть и привести в порядок рабочее место;
снять и убрать в специально отведенное место средства индивидуальной
защиты, убедившись в их исправности и пригодности для дальнейшего
использования;
вымыть с мылом лицо и руки;
закрыть окна, выключить вентиляцию и освещение в рабочем помещении.
. Сообщить непосредственному или вышестоящему руководителю, а при
необходимости - представителям ремонтно-технических и
административно-хозяйственных служб о выявленных во время работы неполадках и
неисправностях оборудования и других факторах, влияющих на безопасность труда,
для принятия соответствующих мер.
.4.5 Требования по охране труда в аварийных ситуациях
. При возникновении в рабочей зоне опасных условий труда (появление
запаха гари и дыма, повышенное тепловыделение от оборудования, повышенный
уровень шума при его работе, неисправность заземления, возгорание материалов и
оборудования, прекращение подачи электроэнергии, появление запаха газа и т.п.)
немедленно прекратить работу, выключит!, оборудование, сообщить о происшедшем
непосредственному или вышестоящему руководству, при необходимости вызвать
представителей аварийной и (или) технической служб.
. При возникновении пожара:
прекратить работу;
вызвать пожарно-спасательную службу по телефону 101, скорую медицинскую
помощь по телефону 103 и проинформировать непосредственного или вышестоящего
руководителя;
немедленно организовать эвакуацию людей из помещения в соответствии с
утвержденным планом эвакуации;
при возгорании электросетей и электрооборудования необходимо их обесточить;
приступить к тушению пожара имеющимися первичными средствами
пожаротушения.
. При прочих аварийных ситуациях (поломка систем водоснабжения,
канализации, отопления, вентиляции и др.), препятствующих выполнению
технологических операций, прекратить работу и сообщить об этом руководителю
структурного подразделения, а при его отсутствии в администрацию поликлиники.
. При несчастном случае (травме):
оказать первую медицинскую помощь согласно Инструкции по оказанию первой
медицинской помощи. При необходимости вызвать скорую медицинскую помощь по
телефону 103;
сообщить о происшедшем руководителю структурного подразделения или
другому должностному лицу;
если несчастный случай произошел с самим работником, он должен по
возможности обратиться за помощью к медицинским работникам, одновременно
сообщить об этом непосредственному руководителю или попросить сделать это
кого-либо из окружающих. При авариях и несчастных случаях на производстве
необходимо обеспечить до начала расследования сохранность обстановки, если это не
представляет опасности для жизни и здоровья людей и не приведет к аварии.
. К работе с ПЭВМ можно приступить после ликвидации аварийной ситуации с
разрешения руководителя структурного подразделения[20].
ЗАКЛЮЧЕНИЕ
В современных условиях поиск оптимального решения проблемы организации
интерфейса взаимодействия приобретает характер комплексной задачи, решение
которой существенно осложняется необходимостью оптимизации функционального
взаимодействия операторов между собой и с техническими средствами в условиях
изменяющегося характера их профессиональной деятельности.
В рамках дипломного проекта была разработана информационная подсистема
складского учета. В результате выполненной разработки можно сделать следующие
выводы:
. При разработке информационной подсистемы был пройден полный цикл
проектирования программы от постановки задачи до сдачи информационной
подсистемы в эксплуатацию.
. Разработанный ПП позволяет достигнуть следующих эффектов:
уменьшение времени необходимого для ведения складского учета на предприятие;
автоматизация контроля расхода технических ресурсов;
возможность длительного хранения информации о поставках на предприятие
большого срока давности, для возможности более полного расчета эффективности
деятельности предприятия.
. Целесообразность разработки обуславливается тем, что в результате
внедрения был получен следующий экономический эффект:
годовой экономический эффект от внедрения программного продукта
составляет 6969174 бел.руб.;
прибыль от внедрения и использования программного продукта составит
8192115 бел.руб./год.
. На основании вышесказанного, можно сделать вывод о том, что разработка
информационной подсистемы складского учета, является целесообразной, и будет
приносить реальную пользу при использовании ее на предприятии.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. Википедия
[Электронный ресурс] / Свободная энциклопедия; 2012. - Режим доступа:
http://ru.wikipedia.org/wiki/Microsoft_Office
2. Википедия
[Электронный ресурс] / Свободная энциклопедия; 2012. - Режим доступа:
http://ru.wikipedia.org/wiki/OpenOffice.org
. Оформление
раздела «Охрана труда» в дипломных проектах: метод. указания по выполнению
дипломных работ и проектов для студентов специальности 1-27 01 01 Экономика и
организация производства; 1-40 01 02 Информационные системы и технологии /
сост. Ю. И. Шадид. - Барановичи: РИО БарГУ, 2009.
. Гарбер
Г.З. Основы программирования на Visual Basic и VBA в Excel 2007 - Салон -
Пресс, 2008 г.- 192 с.
. Симонович
С., Евсеев Г. Занимательное программирование. Visual Basic - АСТ-Пресс, 2001
г.- 320 с.
. Сафронов
А.К. Visual Basic в задачах и примерах-БХВ - Петербург, 2008 г.- 401 с.
. Зиборов
В.В. Visual Basic на примерах - БХВ - Петербург, 2010 г.- 336 с.
. Гвоздев
А.А., Дьяков Н.А. Операционная система Windows XP - Москва, АСТ, Астрель-СПб,
2007 г.- 224 с.
. Корнеев
В. В. Базы данных. Интеллектуальная обработка информации/ В.В. Корнеев - М.:
Ноллидж, 2000. - 352с.
10. Карпова
Т.С. Базы данных: модели, разработка, реализация. - С-Пб.: Питер, 2001. - 458
с.
. Инструкция
по охране труда при работе с персональными компьютерами (согласно постановлению
Министерства труда и социальной защиты Республики Беларусь от 30 ноября 2004 г.
№ 138).
12. Хоменко
А.Д. Базы данных. Учебник для ВУЗОВ. - М.: Технология, 2000. - 325 с.
. Назаров
С.В. Компьютерные технологии обработки информации. - М.: Финансы и статистика,
2005. - 248 с.
. Белова
С.Б. Безопасность жизнедеятельности: Учебник для высших учебных заведений /
С.Б. Белова. - М.: Высшая шк, 1999.
. Инструкция
по охране труда при работе с персональными компьютерами (согласно постановлению
Министерства труда и социальной защиты Республики Беларусь от 30 ноября 2004 г.
№ 138).
. Раздорожный
А.А. Охрана труда и производственная безопасность: Учебно-методическое пособие
/ А.А. Раздорожный - Москва: Экзамен, 2005. - 512 с.
. Энциклопедия
об информационных технологиях. [Электронный ресурс] Режим доступа: http://www.
itpedia.ru
. Грофф,
Д.А SQL: Полное руководство \ Д.А. Грофф, П.П. Вайнберг. - СПб.: БХВ-Петербург,
2001. - 816с.
. Диго,
С.М. Проектирование и использования баз данных / C.М. Диго. - М.: Финансы и
статистика, 2004. - 365с.
. Ермолович,
Л.Л. Анализ финансово - хозяйственной деятельности предприятия / Л.Л.
Ермолович. - Мн.: БГЭУ,2001. - 567 с.
. Каратыгин,
С.А. Базы данных / С.А. Каратыгин, А.П. Тихонов, В.Н. Долголаптев. - М.: ABF,
2005. - 352 c.
. Кляуззе,
В.П. Охрана труда: правовые и организационные вопросы \ В.П. Кляуззе. - Мн.:
Дикта, 2006. - 416с.
. Ляхевич,
А.Г. Обзор существующих СУБД: Oracle, Microsoft SQL Server, PostgreSQL, MySQL,
DB2, Informix, VisualFoxPro, MS Access/ А.Г. Ляхевич. - Минск: 2002. - 245 с.
. Маклаков,
С.В. BPwin ERwin CASE-средства разработки информационных систем \ С.В.
Маклаков.- М.: ДИАЛОГ-МИФИ, 1999. - 256с.
. Методические
указания по выполнению дипломного проекта для студентов специальностей 1-40 01
02 «Информационные системы и технологии» / сост.: О.И. Наранович. - Барановичи:
РИО БарГУ, 2009 - 40с.
. Сергеев,
И.В. Экономика предприятия: учеб.пособие / И.В. Сергеев. - 2-е изд., испр. -
М.: Финансы и статистика, 2001. - 304 с.
. Смирнов,
С.Н. Работаем с Oracle \ С.Н. Смирнов, И.С. Задворьев. - М.: Гелиос АРВ, 2002.
- 496с.
. Урман,
С.А. Oracle10g. Программирование на языке PL/SQL \ С.А. Урман. - М.:Лори, 2004.
- 528с.
ПРИЛОЖЕНИЕ А
Листинг основных модулей
Код модуля FmMenuSub Command1_Click().ShowSub
Sub Command10_Click().ShowSub
Sub Command11_Click().ShowSub
Sub Command12_Click().ShowSub
Sub Command13_Click().ShowSub
Sub Command2_Click().ShowSub
Sub Command3_Click().ShowSub
Sub Command4_Click().ShowSub
Sub Command5_Click().ShowSub
Sub Command6_Click().ShowSub
Sub Command7_Click()
'MsgBox CurDir("C") & "\Price.xlt"Sub
'FmZay.Show.ShowSub
Sub Command9_Click().ShowSub
Sub mnuCat_Click(Index As Integer).ShowSub
Sub mnuClient_Click().ShowSub
Sub mnuExit_Click().HideSub
Sub mnuInch_Click(Index As Integer).ShowSub
Sub mnuManuf_Click().ShowSub
Sub mnuOtkl1_Click().ShowSub
Sub mnuPack_Click().ShowSub
Sub mnuPrihod_Click().ShowSub
Sub mnuRas_Click().ShowSub
Sub mnuROtkl_Click()objExcel = CreateObject("Excel.Application").Workbooks.Open
FileName:=CurDir & "\Itog.xlt"
DE
rst As New ADODB.Recordset
'ComRTovar.Openrst =.rsComOtkl
'rst.Open.MoveFirst= 0= 4Until rst.EOF
'Добавление новой строки:i <> 0 Then.Rows.Item(PosInc +
i).Select.Selection.Insert.Rows.Item(PosInc).Select.Selection.Copy.Rows.Item(PosInc
+ i).Select.ActiveSheet.Paste.Application.CutCopyMode = FalseIf
.Cells(i + PosInc, 1) = i + 1.Cells(i + PosInc, 2) =
rst!Tovar_name.Cells(i + PosInc, 3) = rst!Tovar_price.Cells(i + PosInc, 4) =
rst!Tovar_quan.Cells(i + PosInc, 5) = rst!Sum_raschod_quan.Cells(i + PosInc, 6)
= rst!otkl
= i + 1.MoveNext
With.Visible = True
Sub:.QuitobjExcel = NothingSub
Sub mnuRTovar_Click()objExcel =
CreateObject("Excel.Application").Workbooks.Open FileName:=CurDir
& "\Price.xlt"
DE
'Шапка счета:
'objExcel.Cells(3, 2) = Format$(.rsComRTovar!NСчета, "0000")
'objExcel.Cells(4, 2) = FormatDateTime(.rsСчета!Дата, vbGeneralDate)
rst As New ADODB.Recordset
'ComRTovar.Openrst =.rsComRTovar
'.rsСчета("СоставСчета").Value
'Экспорт в таблицу состава счета:.Open.MoveFirst= 0= 4Until rst.EOF
'Добавление новой строки:i <> 0 Then.Rows.Item(PosInc +
i).Select.Selection.Insert.Rows.Item(PosInc).Select.Selection.Copy.Rows.Item(PosInc
+ i).Select.ActiveSheet.Paste.Application.CutCopyMode = FalseIf
.Cells(i + PosInc, 1) = i + 1.Cells(i + PosInc, 2) = rst!idTovar.Cells(i
+ PosInc, 3) = rst!Tovar_num.Cells(i + PosInc, 4) = rst!Tovar_name.Cells(i +
PosInc, 5) = rst!Tovar_price.Cells(i + PosInc, 6) = rst!Tovar_quan
= i + 1.MoveNext
With.Visible = True
Sub:.QuitobjExcel = NothingSub
Sub mnuRTovar1_Click().ShowSub
Sub mnuSnabj_Click().ShowSub
Sub mnuSpis_Click().ShowSub
Sub mnuSuppl_Click().ShowSub
Sub mnuTovar_Click(Index As Integer).ShowSub
Sub mnuVid_Click().ShowSub
Код модуля FmZ
cn As ADODB.Connectionrs As ADODB.RecordsetrsTovar As ADODB.RecordsetSub
Command1_Click().rsComPZ.Close.rsComPZ.OpenTextFlag.DataSource =
DEDataGrid1.DataSource = DEDataGrid2.DataSource = DE.Refresh.RefreshSub
Sub Command2_Click().rsComPZ.Filter = "idCl_Z = " &
DE.rsComPZ!idCl_Z.ShowSub
Sub Command3_Click().Col = 13DataGrid1.Text = "да"
Then"Данная заявка уже исполнена. Изменять ее нельзя"SubIf= 0.Col =
0DataGrid1.Text <> "" Then_Z = DataGrid1.Text_Z = 0If.ShowSub
Sub Command4_Click().Col = 13DataGrid1.Text = "да" Then"Данная
заявка уже исполнена. Изменять ее нельзя"SubIf
.Col = 0DataGrid1.Text <> "" Then_Z = DataGrid1.Text_Z =
0If
= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208;
Password=4208;Persist Security Info=False"cn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith.Col = 0
DataGrid2.ApproxCount = 0 Then= -1= DataGrid2.TextIf= num= "SELECT *
FROM Raschod WHERE idRaschod = " & numrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
WithidRaschod = -1 Then num = 0 Else num = rs("Raschod_Tovar")=
"SELECT * FROM Tovar WHERE idTovar = " & numrsTovar = New
ADODB.RecordsetrsTovar
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
Withnum <> 0 Then.CBTovar.BoundText =
rsTovar("idTovar").Col = 3.TextQuan.Text = DataGrid2.Text
.Col = 5.TextCost.Text = DataGrid2.TextIf.Close.Closers = NothingrsTovar
= Nothing.Closecn = NothingDataGrid2.ApproxCount <> 0 Then
FmZCont.ShowSub
Sub Command5_Click(Index As Integer)DataGrid1.Text = "да"
Then"Данная заявка проведена"SubIf
= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208;
Password=4208;Persist Security Info=False"
'MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith.Col = 0= DataGrid2.Text
'Запрос на вставку данных= "Delete From Raschod WHERE idRaschod =
" & ras
'MsgBox SQLrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
Withrs = Nothing
.Closecn = Nothing
.rsComPZ.Close.rsComPZ.OpenFmZ.DataGrid1.DataSource =
DEFmZ.DataGrid2.DataSource = DE.DataGrid2.Refresh
.rsComPZ.Close.rsComPZ.Open.rsComPZ.Fields(13).Value.CloseFmZ.DataGrid1.DataSource
= DEFmZ.DataGrid2.DataSource = DE.DataGrid2.RefreshSub
Sub Command6_Click() 'Отпуск товара по заявке.Col = 13DataGrid1.Text =
"да" Then"Данная заявка проведена"SubIf
'DataGrid2.Col = 1
'if DE.rsComPZ.Fields
'If DataGrid2.Text = "" Then
' Exit Sub
'End If.Col = 0DataGrid1.Text <> "" Then_Z =
DataGrid1.Text_Z = 0If
= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208;
Password=4208;Persist Security Info=False"cn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith
.Col = 13idCl_Z <> 0 And (DataGrid1.Text <> "да")
Then 'Если имеется необработанная заявка
= "SELECT * FROM Raschod WHERE idCl_Z = " & idCl_Zrs = New
ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
Withrs.BOF Or rs.EOF ThenSubIf.MoveFirstWhile Not rs.EOF 'В цикле
проверяем наличие товара на складе= rs("Raschod_Tovar") 'Получаем ID
Товара= "SELECT * FROM Tovar WHERE idTovar = " & numrsTovar = New
ADODB.RecordsetrsTovar
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
Withrs("Raschod_quan") > rsTovar("Tovar_quan")
Then"Невозможно выполнить заявку. на складе отсутствует требуемое
количество товара"SubIf
.ClosersTovar = Nothing.MoveNext
'Если цикл пройден, то значит товар есть.MoveFirstWhile Not rs.EOF 'В
цикле проверяем наличие товара на складе= rs("Raschod_Tovar")
'Получаем ID Товара= "UPDATE Tovar SET Tovar_quan = Tovar_quan - "
& rs("Raschod_quan") & " WHERE idTovar = " &
numrsTovar = New ADODB.RecordsetrsTovar
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
WithrsTovar = Nothing.MoveNext.Closers = Nothing
= "UPDATE cl_z set cl_Z_flag = 'да' WHERE idCl_Z = " &
idCl_Zrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
Withrs = Nothing.Closecn = Nothing
'DE.rsComPZ.Close
'DE.rsComPZ.Open.DataGrid2.Refresh"Расход произведен"IfSub
Sub Form_Activate()FmZ.DataGrid1.DataSource = DEFmZ.DataGrid2.DataSource
= DE.DataGrid2.RefreshSub
Sub Form_Load().Columns("Cl_Z_Men").Visible =
False.Columns("Cl_Z_Client").Visible =
False.Columns("Cl_Z_Tovar").Visible =
False.Columns("Cl_Z_Znum").Visible =
False.Columns("Tovar_name").Visible = FalseSub
Код модуля FmZCont
cn As ADODB.Connectionrs As ADODB.RecordsetrsTovar As ADODB.Recordset
Sub CBTovar_Click(Area As Integer)CBTovar.Text <> ""
Then= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208;
Password=4208;Persist Security Info=False"
'MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith= "SELECT * FROM Tovar WHERE idTovar = " &
CBTovar.BoundTextrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
With.Text = rs("Tovar_price")IfSub
Sub
RefreshData().rsComPZ.Close.rsComPZ.Open.rsComPZ.Fields(13).Value.CloseFmZ.DataGrid1.DataSource
= DEFmZ.DataGrid2.DataSource = DE.DataGrid2.RefreshSub
Sub Command1_Click()
'MsgBox idRaschodidRaschod = 0 Then ' Добавлние записи
TextCost.Text = "0" Then"Вы не выбрали товар или цена
товара равна нулю"SubIf
TextQuan.Text = "" Or TextQuan.Text = "0"
Then"Количетсво товара не может быть пустым или нулевым
значением"SubIf
= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208;
Password=4208;Persist Security Info=False"
'MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith
'DE.rsComRas.Close
' DE.rsComRas.Open
'Запрос на вставку данных
'MsgBox idCl_Zx As Integer= CInt(idCl_Z)
'MsgBox (x)= "Insert INTO Raschod (idCl_Z, Raschod_Tovar,
Raschod_Price, Raschod_quan) VALUES (" & x & ", " &
CBTovar.BoundText & "," & TextCost.Text & ","
& TextQuan.Text & ")"
'MsgBox SQLrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnlyWith
'rs.Closers = Nothing.Closecn = NothingIf
idRaschod <> 0 Then 'Редактирование записиTextCost.Text =
"0" Then"Вы не выбрали товар или цена товара равна
нулю"SubIf
TextQuan.Text = "" Or TextQuan.Text = "0"
Then"Количетсво товара не может быть пустым или нулевым
значением"SubIf
'MsgBox "!!"= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208;
Password=4208;Persist Security Info=False"
'MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith
'Запрос на обновление данных= "UPDATE Raschod SET idCl_Z = "
& idCl_Z & ", Raschod_Tovar = " & CBTovar.BoundText &
", Raschod_Price = " & TextCost.Text & ", Raschod_quan =
" & TextQuan.Text & " WHERE idRaschod = " &
idRaschod
'MsgBox SQL
'MsgBox SQLrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnlyWith
' rs.Closers = Nothing.Closecn = NothingIf
.rsComPZ.Close.rsComPZ.OpenFmZ.DataGrid1.DataSource =
DEFmZ.DataGrid2.DataSource = DE.DataGrid2.Refresh
.HideRefreshDataSub
Sub Command2_Click().HideSub
Код модуля FmPrihod
cn As ADODB.Connectionrs As ADODB.RecordsetrsTovar As ADODB.Recordset
Sub CBTovar_Click(Area As Integer)CBTovar.Text <> ""
Then= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208;
Password=4208;Persist Security Info=False"
'MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith= "SELECT * FROM Tovar WHERE idTovar = " &
CBTovar.BoundTextrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
With.Text = rs("Tovar_price")
IfSub
Sub
RefreshData().rsComPZ.Close.rsComPZ.Open.rsComPZ.Fields(13).Value.CloseFmZ.DataGrid1.DataSource
= DEFmZ.DataGrid2.DataSource = DE.DataGrid2.RefreshSub
Sub Command1_Click()
'MsgBox idRaschodidRaschod = 0 Then ' Добавлние записи
TextCost.Text = "0" Then"Вы не выбрали товар или цена
товара равна нулю"SubIf
TextQuan.Text = "" Or TextQuan.Text = "0"
Then"Количетсво товара не может быть пустым или нулевым
значением"SubIf
= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208;
Password=4208;Persist Security Info=False"
'MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith
'DE.rsComRas.Close
' DE.rsComRas.Open
'Запрос на вставку данных
'MsgBox idCl_Zx As Integer= CInt(idCl_Z)
'MsgBox (x)= "Insert INTO Raschod (idCl_Z, Raschod_Tovar,
Raschod_Price, Raschod_quan) VALUES (" & x & ", " &
CBTovar.BoundText & "," & TextCost.Text & ","
& TextQuan.Text & ")"
'MsgBox SQLrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnlyWith
'rs.Closers = Nothing.Closecn = NothingIf
idRaschod <> 0 Then 'Редактирование записи
TextCost.Text = "0" Then"Вы не выбрали товар или цена
товара равна нулю"SubIf
TextQuan.Text = "" Or TextQuan.Text = "0"
Then"Количетсво товара не может быть пустым или нулевым
значением"SubIf
'MsgBox "!!"= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208;
Password=4208;Persist Security Info=False"
'MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith
'Запрос на обновление данных= "UPDATE Raschod SET idCl_Z = "
& idCl_Z & ", Raschod_Tovar = " & CBTovar.BoundText &
", Raschod_Price = " & TextCost.Text & ", Raschod_quan =
" & TextQuan.Text & " WHERE idRaschod = " &
idRaschod
'MsgBox SQL
'MsgBox SQLrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnlyWith
' rs.Closers = Nothing.Closecn = NothingIf
.rsComPZ.Close.rsComPZ.OpenFmZ.DataGrid1.DataSource =
DEFmZ.DataGrid2.DataSource = DE.DataGrid2.Refresh
.HideRefreshDataSub
Sub Command2_Click().HideSub
Код модуля FmSpisanie
Sub UpdateData().rsComSpis.Close.rsComSpis.OpenSub
Sub UpdateElems()DataGrid1.DataSource = DEDataGrid2.DataSource = DETextDate.DataSource
= DETextQuan.DataSource = DETextReason.DataSource = DESub
Sub Command1_Click().Enabled = True.Enabled = True.Enabled = True
'TextDate.Enabled = True.rsComSpis.AddNew.Enabled = False.Enabled =
False.Enabled = TrueUpdateElemsSub
Sub Command2_Click()
'Проверка что в поле числоCommand1.Enabled = False
ThenIsNumeric(TextQuan.Text) ThenDE.rsComTov!Tovar_quan - TextQuan.Text < 0
Then"Требуемое для списания количество товара
отсутствует"SubIf"Введенное количество не является числом"SubIf
TextDate.Text = "" Or _.Text = "" Or _.Text =
"" Then"Не все данные введены"SubIf.rsComSpis!spis_tovar =
DE.rsComTov!idTovar.rsComSpis.Update.rsComTov!Tovar_quan =
DE.rsComTov!Tovar_quan - TextQuan.Text.Enabled = True.Enabled = True
If.Enabled = False.Enabled = False.Enabled = FalseSub
Sub Command3_Click().rsComTov!Tovar_quan = DE.rsComTov!Tovar_quan +
DE.rsComSpis!spis_quan.rsComSpis.DeleteSub
Sub Command4_Click().rsComSpis.CancelUpdate.Enabled = False.Enabled =
True.Enabled = TrueSub
Sub Command5_Click().rsComTov.Filter = "idTovar = " &
DE.rsComTov!idTovar.ShowSub
Sub Command6_Click()objExcel =
CreateObject("Excel.Application").Workbooks.Open FileName:=CurDir
& "\history.xlt"
DE
'Шапка счета:.Cells(3, 2) = Format$(.rsComTov!idTovar,
"0").Cells(3, 4) = Format$(.rsComTov!Tovar_num,
"0000").Cells(4, 2) =.rsComTov!Tovar_name.Cells(6, 2)
=.rsComTov!Tovar_note
rst As New ADODB.Recordset
'ComRTovar.Open
rst =.rsComSpis
'Экспорт в таблицу состава счета:
'rst.Open.MoveFirst= 0= 9Until rst.EOF
'Добавление новой строки:i <> 0 Then.Rows.Item(PosInc +
i).Select.Selection.Insert.Rows.Item(PosInc).Select.Selection.Copy.Rows.Item(PosInc
+ i).Select.ActiveSheet.Paste.Application.CutCopyMode = FalseIf
.Cells(i + PosInc, 1) = i + 1.Cells(i + PosInc, 2) =
rst!spis_date.Cells(i + PosInc, 3) = rst!spis_quan.Cells(i + PosInc, 4) =
rst!spis_reason= i + 1.MoveNext
With.Visible = True
Sub:.QuitobjExcel = NothingSub