Разработка ЭИС по расчету рентабельности продаж нефтепродуктов на примере ОАО «Сургутнефтегаз»

Если излучения и поля не превышают установленный медициной предельно допустимый уровень (ПДУ), они не приносят значительного ущерба здоровью человека.Из всех устройств, входящих в комплект ПК, для здоровья значительный потенциальныйвред может нанести монитор, так как он является источником относительно высокого уровня излучения и находится на достаточно малом расстоянии до работника. Клавиатура, которая имеет непосредственный контакт с пальцами человека, также служит источником излучения, но это излучение практически не превышает естественный фон и значительно меньше излучения монитора.Электромагнитное излучение человек не может увидеть, услышать, понюхать, попробовать на вкус, потрогать, но тем не менее оно имеется всюду. Несмотря на то, что вредное влияние обычных уровней электромагнитного излучения на здоровье научно пока не доказано, но эта проблема волнует значительное число людей.Каждый, кто знаком с принципом действия монитора компьютера на базе электронно-лучевой трубки (ЭЛТ), называемого также видеотерминалом или дисплеем, согласится с тем, что нет смысла говорить о рентгеновском излучении: незначительное количество ионизирующего излучения, создаваемого катодно-лучевой трубкой внутри монитора, эффективно экранируется стеклом трубки.Излучение монитора на базе ЭЛТ непосредственно в сторону пользователя резко падает пропорционально удаленности от экрана, а вот электромагнитное поле распространяется во все стороны. Причем непосредственно перед экраном оно несколько ослаблено теневой маской и арматурой кинескопа, а от боковых и задних стенок монитора оно распространяется беспрепятственно.Стандарты безопасности определяют максимально допустимые значения электромагнитных полей, создаваемых монитором при работе. В каждой экономически развитой стране действуют и собственные стандарты, но особую популярность завоевали те, что были разработаны в Швеции. Все современные модели мониторов, как правило, соответствуют и самым современным стандартам.В настоящее время в России действуют согласованные с международными нормативами законодательные акты, гарантирующие потребителю соответствие прошедших сертификацию мониторов общепринятым нормам безопасности. Такими законодательными актами являются Государственный стандарт Российской Федерации ГОСТ Р 50948–96 «Дисплеи. Средства отображения информации индивидуального пользования. Общие эргономические требования и требования безопасности» и санитарные нормы СанГТиН 2.2.2.542–96 «Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы».Принятые в настоящее время санитарные нормы рекомендуют минимальное расстояние от экрана до пользователя в диапазоне от 50 до 70 см, примерно на длину вытянутой руки, расстояние от боковой и задней стенки до рабочего места должно быть не меньше 1,5 м. Для каждого оснащенного компьютером рабочего места установлена минимальная площадь – не менее 6 квадратных метров. Клавиатура и руки пользователя должны во время работы быть на максимально возможном расстоянии от компьютера.Плоскопанельный жидкокристаллический монитор имеет преимущества, причем два из них весьма значимы: малыйразмер и отсутствие вредного излучения.Использование жидкокристаллических мониторов, практически не имеющих вредных излучений, в портативных компьютерах – ноутбуках создало распространенное мнение об их безвредности по сравнению со стационарными компьютерами. Однако не следует забывать, что переменные электромагнитные поля, создаваемые импульсными преобразователями системы питания, у некоторых типов ноутбуков ничуть не меньше полей устаревших типов мониторов с ЭЛТ. Кроме того, вследствие размещения клавиатуры в едином блоке с процессором портативный компьютер находится намного ближе к пользователю, чем стационарный, а уровень электромагнитного поля усиливается по мере приближения к компьютеру.В помещениях, где работают ПК, всегда имеется шум механического происхождения, который возникает вследствие вибрации поверхностей машин и оборудования, а также одиночных или периодических ударов в сборках деталей, или сборочных единиц, или конструкций в целом.По отношению к защищаемому объекту средства защиты от шума можно разделить на две категории:средства и методы коллективной защиты; средства индивидуальной защиты.В зависимости от характера воздействия средства, которые уменьшают шум в источнике его возникновения, можно разделить также на две категории:средства, снижающие возбуждение шума;средства, снижающие звукоизлучающую способность источника шума.Средства, которые уменьшают уровень шума в источнике его возникновения, взависимости от характера образования шума можно разделить насредства, снижающие шум:вибрационного (механического) происхождения;аэродинамического происхождения; электромагнитного происхождения; гидродинамического происхождения.В зависимости от среды средства, которые снижают шум на пути его распространения, можно разделить на две категории:средства, которые снижают передачу воздушного шума; средства, которые снижают передачу структурного шума.В зависимости от способа реализации средства и методы коллективной защиты от шума можно разделить на:акустические;архитектурно-планировочные;организационно-технические.Организационно-технические методы защиты от шума включают в себя:применение малошумных технологических процессов (изменение технологии производства, способа обработки и транспортирования материала и др.);оснащение шумных машин средствами дистанционного управления и автоматического контроля;применение малошумных машин, изменение конструктивных элементов машин, их сборочных единиц;совершенствование технологии ремонта и обслуживания машин;использование рациональных режимов труда и отдыха работни-ков на шумных предприятиях .Чтобы обеспечения комфортной и эффективной работы, нужно позаботиться о внешних условиях. Основным из них является освещение. Оно должно быть достаточно ярким в диапазоне от 300 до 500 люкс и одновременно рассеянным. Стол надо установить боком к окну, на окне должныбыть жалюзи или плотные шторы для исключения попадания прямых солнечныхлучей.При работе в темное время суток нужно включать верхний свет. Монитор необходимо расположить так, чтобы исключить появление бликов от искусственного или естественного освещения.Исследователи считают, что в помещении оптимальной является температура в интервале от 22 до 24 °С зимой и от 23 до 25 °С летом. Желательно не допускать сквозняков, которых не должно бытьна рабочем месте. Также недопустимо наличие вентиляторов. Влажность воздуха в помещении нужно поддерживать в диапазонеот 40 до 60%.Разработка мер безопасностиПри правильной организации рабочего места увеличивается и скорость, и качество работы.Высота стола является одним из основных параметром, который влияет на удобство работы. Исследования говорят о том, что оптимальное значение этого показателя– 72,5 см. Но предпочтительнее иметь стол с регулируемой высотой. В этом случае можно более точно установить нужную высоту для конкретного человека. Под столом должно быть достаточно пространства для ног. Выбирая стол, нужно учесть, что под ним должно быть место как для вытянутых ног (глубина – не меньше 65 см), так и для закинутых одна на другую (высота пространства под столом – не меньше 60 см).Стол должен быть достаточнобольшим для расположения монитора, клавиатуры и документов.При физиологически рациональной рабочей позе, которую должно обеспечивать кресло (стул), не будет нарушаться циркуляция крови и не будет происходить других вредных воздействий. Кроме того, кресло должно быть удобным. Физиологи считают, что «идеальное» кресло, которое способствует комфортной продолжительной и безопасной работе, обязательно должно иметь подлокотники и возможность поворота, регулирования высоты и угла наклона спинки и сидения. Хорошо, если будет иметься возможность изменения высоты и расстояния между подлокотниками, расстояния от спинки до переднего края сиденья. Все регулировки должны не зависеть друг от друга, должны легко осуществляться и должны иметь надежную фиксацию.Кресло или стул должно иметь размер сидения не менее 40 смна 40 см. Угол его наклона должен варьироваться в пределах от 15° вперед до 5° назад. Оптимальной считается высота сиденья 40–55 см. Особые требования предъявляются к спинке кресла: высота опорной поверхности должна быть 30 ± 2 см, ширина должна быть не менее 38 см, радиус кривизны в горизонтальной плоскости порядка 40 см, угол наклона спинки от 0 до 30°.Требования к подлокотникам таковы: не менее 25 см в длину, от 5 до 7 см в ширину, они должны находиться над сиденьем на высоте около 25 см ( ± 3 см) и расстояние между ними должно быть от 35 до 50 см.Клавиатура должна находиться на расстоянии от 10 до 30 см от края стола, может также располагаться на регулируемой по высоте подставке. При наборе текста запястья рук не должны висеть в воздухе.Монитор нужно расположить на столе таким образом, чтобы изображение на нем было четко видно без поднятия или опускания головы. Монитор должен быть обязательно находиться ниже уровня глаз, так как шея быстро устанет при взгляде вверх. Как можно ниже должна быть подставка монитора. Угол наблюдения должен быть в интервале от 0 до 60°. Предпочтительнее установить монитор так, чтобы расстояние до него было не менее 40 см.Для работающих на ПК разработана типовая инструкция по охране труда ТОН Р-45-084-01 и утверждена приказом Министерства Российской Федерации по связи и информатизации от 2 июля 2001 г. № 162. Соблюдение ее является обязательным для сотрудников организации. Далее приведены некоторые наиболее важные ее пункты. 1.1. К работе на персональном компьютере допускаются лица, прошедшие обучение безопасным методам труда, вводный инструктаж, первичный инструктаж на рабочем месте.1.2. При эксплуатации персонального компьютера на работникамогут оказывать действие следующие опасные и вредные производственные факторы:повышенный уровень электромагнитных излучений;повышенный уровень статического электричества;пониженная ионизация воздуха;статические физические перегрузки;перенапряжение зрительных анализаторов.1.3. Работник обязан:1.3.1.Выполнять только ту работу, которая определена его должностной инструкцией.1.3.2. Содержать в чистоте рабочее место.1.3.3. Соблюдать режим труда и отдыха в зависимости от продолжительности, вида и категории трудовой деятельности.1.3.4. Соблюдать меры пожарной безопасности.1.4. Рабочие места с компьютерами должны размещаться таким образом, чтобы расстояние от экрана одного видеомонитора до тыла другого было не менее 2,0 м, а расстояние между боковыми поверхностями видеомониторов – не менее 1,2 м.1.5. Рабочие места с персональными компьютерами по отношению к световым проемам должны располагаться так, чтобы естественный свет падал сбоку, преимущественно слева.1.6. Оконные проемы в помещениях, где используются персональные компьютеры, должны быть оборудованы регулируемыми устройствами типа жалюзи, занавесей, внешних козырьков и др.1.7. Рабочая мебель для пользователей компьютерной техникой должна отвечать следующим требованиям:высота рабочей поверхности стола должна регулироваться в пределах 680–800 мм; при отсутствии такой возможности высота рабочей поверхности стола должна составлять 725 мм;рабочий стол должен иметь пространство для ног высотой не менее 600 мм, глубиной на уровне колен не менее 450 мм и на уровне вытянутых ног не менее 650 мм;рабочий стул (кресло) должен быть подъемно-поворотным и регулируемым по высоте и углам наклона сиденья и спинки, а также расстоянию спинки от переднего края сиденья;рабочее место должно быть оборудовано подставкой для ног, имеющей ширину не менее 300 мм, глубину не менее 400 мм, регулировку по высоте в пределах до 150 мм и по углу наклона опорной поверхности подставки до 20 градусов; поверхность подставки должна быть рифленой и иметь по переднему краю бортик высотой 10 мм;рабочее место с персональным компьютером должно быть оснащено легко перемещаемым пюпитром для документов.1.8. Для нормализации аэроионного фактора помещений с компьютерами необходимо использовать устройства автоматического регулирования ионного режима воздушной среды (например, аэроионизатор стабилизирующий «Москва-СА1»).1.9. Женщины со времени установления беременности и в период кормления грудью к выполнению всех видов работ, связанных с использованием компьютеров, не допускаются.1.10. За невыполнение данной Инструкции виновные привлекаются к ответственности согласно правилам внутреннего трудового распорядка или взысканиям, определенным Кодексом законов о трудеРоссийской Федерации.2.. Требования безопасности перед началом работы2.1. Подготовить рабочее место.2.2. Отрегулировать освещение на рабочем месте, убедиться вотсутствии бликов на экране.2.3. Проверить правильность подключения оборудования к электросети.2.4. Проверить исправность проводов питания и отсутствие оголенных участков проводов.2.5. Убедиться в наличии заземления системного блока, монитора и защитного экрана.2.6. Протереть антистатической салфеткой поверхность экрана монитора и защитного экрана.2.7. Проверить правильность установки стола, стула, подставки для ног, пюпитра, угла наклона экрана, положение клавиатуры, положение «мыши» на специальном коврике, при необходимости произвести регулировку рабочего стола и кресла, а также расположение элементов компьютера в соответствии с требованиями эргономики и в целях исключения неудобных поз и длительных напряжений тела.3. Требования безопасности во время работы3.1.Работнику при работе на ПК запрещается:прикасаться к задней панели системного блока (процессора) при включенном питании;переключать разъемы интерфейсных кабелей периферийных устройств при включенном питании;допускать попадание влаги на поверхность системного блока (процессора), монитора, рабочую поверхность клавиатуры, дисководов, принтеров и других устройств;производить самостоятельное вскрытие и ремонт оборудования;работать на компьютере при снятых кожухах;отключать оборудование от электросети и выдергивать электровилку, держась за шнур.3.2. Продолжительность непрерывной работы с компьютером без регламентированного перерыва не должна превышать 2 часов.3.3. Во время регламентированных перерывов с целью снижения нервно-эмоционального напряжения, утомления зрительного анализатора, устранения влияния гиподинамии и гипокинезии, предотвращения развития познотонического утомления выполнять комплексы упражнений.4.3 Оценка воздействия ПЭВМ на окружающую средуОсновным видом оборудования при организации офисной деятельности является вычислительная техника, при работе которой выделяется незначительное количество загрязняющих веществ, не производится загрязнение окружающего воздуха и водного пространства. Одним из источников, загрязняющих окружающую среду, является лазерный принтер, а загрязняющим веществом – порошок принтера. Мерами по предупреждению и устранению загрязнения является соблюдение эксплуатационных мер и правил.К твердым отходам, накапливаемым в помещении, относятся использованная бумага, упаковочная тара компьютерной и бытовой техники. Способом утилизации данного вида отходов являются периодические сбор и сдача бумаги в макулатуру.ЗаключениеВ ВКР рассмотрено ОАО «Сургутнефтегаз», основными направлениями бизнеса которого являютсяразведка и добыча углеводородного сырья,переработка газа и производство электроэнергии,производство и маркетинг нефтепродуктов, товарного газа, продуктов газопереработки,Использование информации тесто связано с проблемами ее защиты. Основными целями защиты информации являются обеспечение целостности данных и охрана информации от несанкционированного доступа.Защита документированной информации в документопотоках обеспечивается комплексом разнообразных мер режимного, технологического, аналитического и контрольного характера. Целью работы является создание ЭИС по расчету рентабельности продаж на примере исследуемого предприятия. В настоящее время значение рентабельности рассчитывается на основании информации из формы № 2 бухгалтерского баланса ежемесячно, но далее никакого анализа изменения данного показателя не проводится. В работе проанализированы имеющиеся на рынке программные продукты, которые позволяют автоматизировать процесс расчета рентабельности продаж. Это «БухСофт: Торговля и Услуги» и ФинЭкАнализ (включая версию Финансовый анализ Онлайн). Для закупки данных систем необходимые финансовые средства, имеющиеся в них функциональные возможности избыточны для решаемой задачи, формат выходных документов не соответствует пожеланиям пользователей, поэтому приобретение данных систем не представляется интереса для решаемой задачи. В работе приведен расчет эффективности от внедрения разрабатываемой системы, который составляет 43,48 %, и срока окупаемости системы, который будет не более 2 лет 4 месяцев.В ходе работы был выбран язык программирования и приведено обоснование выбора. Для создания приложения была использована среда разработки Borland Delphi 7. В качестве СУБД выбрана MYSQLверсии не ниже 5.0, так как она является одной из самых быстрых и надежных систем, не требующих финансов для покупки лицензии. В работе определены функции разрабатываемой системы, которыми являются ввод, корректировка и удаление информации по предприятиям отрасли, по прибыли и выручке каждого из предприятий за месяц, ввод значения средней рентабельности продаж на основании источников средств массовой информации. В разработанной системе предусмотрено табличное и графическое отображение показателей рентабельности, прибыли и выручки от продаж за указанный временной интервал. Имеется возможность проведения сравнения нескольких отмеченных пользователем предприятий по указанным показателям за нужный временной интервал. Полученная информация позволит пользователям системы сделать вывод о тенденции изменения данных показателей с целью внесения корректив в управленческие решения для повышения эффективности работы предприятия. Разработанное приложение представляет собой исполняемый файл с именем rentab.exe. Установки и наличия дополнительных библиотек не требуется. Для работы ЭИС необходим запущенный сервер БД MYSQLверсии не ниже 5.0 с заранее созданными на нем таблицами.Выходным документом созданной системы служит файл MicrosoftExcel. Основой для принятия данного решения послужил тот факт, что данный программный продукт обладает большими возможностями, установлен практически у всех пользователей, работа с ним не будет вызывать затруднений.В работе приведено описание работы с созданной ЭИС по расчету рентабельности продаж и показаны примеры выходных документов в формате MicrosoftExcel. Реализованные в дипломном проекте контрольные примеры показали корректную работу на введенных данных. Цель дипломного проектирования достигнута, так как разработанная система соответствует предъявленным требованиям, выполняет все необходимые функции. В ВКР приведены некоторые наиболее значимые пункты типовой инструкции по охране труда ТОН Р-45-084-01, соблюдение которой обязательным для сотрудников, работающих на ПК. Библиографический списокАндрейчиков, А.В., Андрейчикова, О.Н. Анализ, синтез, планирование решений в экономике / А.В. Андрейчиков, О.Н. Адрейчикова – М.: Финансы и статистика, 2000. – 368 с.: ил. – ISBN 5-279-02188-1.Архангельский, А.Я. Программирование в Delphi 7 / А.Я. Архангельский – Бином-Пресс, 2003. – 1152 с. – ISBN   5-9518-0042-0.Архангельский, А.Я. Delphi 2006. Справочное пособие. Язык Delphi, классы, функции Win32 и .NET / А.Я. Архангельский – Бином-Пресс, 2003. – 1152 с. – ISBN   5-9518-0138-9.Ахинов, Г.А., Жильцов, Е.Н. Экономика общественного сектора: Учебное пособие для вузов / Г.А. Ахинов, Е.Н. Жильцов. – М.: ИНФРА-М, 2008. – 345 с. – ISBN 978-5-16-003104-0.Бакнелл, Д. Фундаментальные алгоритмы и структуры данных в Delphi / Д. Бакнелл – СПб.: Питер, 2006. – 560 с. – ISBN 5-469-01495-9, 5-93772-087-3.Бобровский, С.И. Delphi 7. Учебный курс / С.И. Бобровский – СПб.: Питер, 2008. – 736 с.: ил. – ISBN 978-5-8046-0086-1.Бугорский, В.Н. Сетевая экономика: учеб. пособие / В.Н. Бугорский. – М.: Финансы и статистика, 2008. - 256 с.: ил. – ISBN 978-5-279-03179-5.Бухгалтерский учет: Учебник для вузов / Под ред. проф. Ю. А. Бабаева – М.: ЮНИТИ-ДАНА, 2001. – 476 с. – ISBN 5-238-00226-2.Васильев, Г. А., Забегалин, Д. А. Электронный бизнес и рекламе в Интернете. / Г.А. Васильев, Д.А. Забегалин. – М.:ЮНИТИ, 2008. – 183 с. –ISBN 978-5-238-01346-6.Дарахвелидзе, П.Г., Марков, Е. П. Программирование в Delphi 7 / П.Г. Дарахвелидзе, Е. П. Марков. – СПб.: БХВ-Петербург, 2003. – 784 с. – ISBN 5-94157-116-Х.Гарнаев, А. Ю. Использование MS Excel и VBA в экономике и финансах / А.Ю. Гарнаев – СПб.: БХВ-Санкт-Петербург, 2000. – 336 с: ил. ISBN 5-8206-0024-Х.Грабауров, В. А. Информационные технологии для менеджеров / В.А. Грабауров – М.: Финансы и статистика, 2001.– 368 с.: ил. – ISBN 5-279-02299-3.Занько, Н.Г., Малаян, К.Р., Русак, О.Н. Безопасность жизнедеятельности. Учебник. 13-е изд., испр. / Н. Г. Занько, К.Р. Малаян, О.Н. Русак: Под ред. О. Н. Русака. – СПб.: Лань, 2010. – 672 с.: ил. – ISBN 978-5-8114-0284-7.Информатика: Учебник / Б.В. Соболь и др. – Изд. 3-е, дополн. и перераб. – Ростов н/Д: Феникс, 2007. – 446 с. – ISBN 978-5-222-12081-1.Информатика: Учебник / Под общ. ред. А.Н. Данчула. – М.: Изд-во РАГС, 2004. – 528 с. – ISBN 5-7729-0147-8.Кадлец, В. Delphi. Книга рецептов. Практические примеры, трюки и секреты / В. Кадлец – СПб.: Наука и техника, 2006. – 384 с. – ISBN 5-94387-269-8, 80-251-0017-0.Карлберг К. Бизнес-анализ с помощью Excel / К.Карлберг – Пep. с англ. – М.: «Вильямс», 2000. – 480с. – ISBN 5-8459-00700.Карпов, Б. Delphi: специальный справочник / Б. Карпов – СПб.: Питер, 2002. – 688 с.: ил. – ISBN 5-272-00353-5.Кобелев, Н.Б. Практика применения экономико-математических методов и моделей. Учеб.-практ. пособие. / Н.Б. Кобелев – М.: ЗАО «Финстатин- форм», 2000. – 246 с. – ISBN 5-7866-0117-Х.Комолова, Н., Яковлева, Е. HTML: Самоучитель. 2-е изд. / Н. Комолова, Е. Яковлева. – СПб.: Питер, 2011. – 288 с.: ил. – ISBN 978-5-4237-0144-4.Корнеев, И.К., Степанова, И.А. Защита информации в офисе. / И.К. Корнеев, И.А. Степанова. – М.: ТК ВЕЛБИ, Проспект, 2008 г. – 336 с. – ISBN 978-5-482-01976-4. Криптографическая защита информации: учебное пособие / А.В. Яковлев, А.А. Безбогов, В.В. Родин, В.Н. Шамкин. – Тамбов: Изд-во ТАМБ. ГОС. ТЕХН. УН-ТА, 2006. – 140 с. – ISBN 5-8265-0503-6. Кэнту, М. Delphi 7 для профессионалов / Марко Кэнту – СПб.: Питер, 2004. – 1076 с.: ил. - ISBN 5-94723-593-5.Ландэ, Д.В. Поиск знаний в Internet. Профессиональная работа.: Пер. с англ. – М.: Издательский дом «Вильямс», 2005. – 272 с.: ил. – ISBN 5-8459-0764-0 (рус.)Лавренов, С. М. Excel: Сборник примеров и задач. - М.: Финансы и статистика, 2003. - 336 с.: ил. - ISBN 5-279-02130-Х.Малюк, А. А. Информационная безопасность: концептуальные и методологические основы защиты информации. Учеб. пособие для вузов. – М: Горячая линия-Телеком, 2004. – 280 с. ил. – ISBN 5-93517-197-Х.Мельников В. П. Информационная безопасность и защита информации: учеб. пособие для студ. высш. учеб. заведений / В. П. Мельников, С.Л. Клейменов, Л. М. Петраков; под. ред. С.Л. Клейменова. – М.: Издательский центр «Академия», 2005. – 336 с. – ISBN 978-5-7695-4884-0.Михеева, Е.В. Информационные технологии в профессиональной деятельности: учеб. пособие. – М.: ТК Велби, Изд-во Проспект, 2007. – 448 с. – ISBN 978-5-482-01569-8. Основы защиты информации. / А.И. Куприянов, А.В. Сахаров, В.А. Шевцов. – М.: Академия, 2006. – 256 с. – ISBN 5-7695-2438-3.Основы информационной безопасности. / Е.Б. Белов, В.П. Лось, Р.В. Мещеряков, А.А. Шелупанов. – М.: Горячая линя-Телеком, 2006. – 544 с. – ISBN 5-93517-292-5. Румянцева З. П. Общее управление организацией. Теория и практика: Учебник. — М.: ИНФРА-М, 2007. — 304 с. — ISBN 978-5-16-002276-5.Симонович, С.В. Информатика. Базовый курс. 2-е издание / Под ред. С.В.Симоновича. – СПб.: Питер, 2004. – 640 с.: ил. – ISBN 5-94723-752-0.Скляров, Д. В. Искусство защиты и взлома информации. / Д.В. Скляров. – СПб.: БХВ-Петербург, 2004. – 288 с.: ил. – ISBN 5-94157-331-6.Степанов, А.Н. Информатика. Учебник для вузов. 4-е издание / А.Н.Степанов. – СПб.: Питер, 2005. – 684 с.: ил. – ISBN 5-94723-898-5.Стивенс, Р. Delphi. Готовые алгоритмы / Р. Стивенс – М.: ДМК Пресс; СПб.: Питер, 2004. - 384 с.: ил. – ISBN 5-94074-202-5.Уокенбах, Джон. Профессиональное программирование на VBA в Excel 2002 / Джон Уокенбах: пер. с англ. – М.: Издательский дом «Вильямс», 2003. – 784 с.: ил. – ISBN 5-8459-0541-9 (рус.)Финансы, денежное обращение и кредит: Учебник / Под ред. М.В. Романовского, О.В. Врублевской. – М.: Юрайт, 2006. – 543 с. – ISBN 5-94879-463-6.Фленов, М.Е. Библия Delphi. / М.Е. Фленов – СПб.: БХВ-Петербург, 2005. – 880 с. – ISBN 5-94157-456-8.Фленов, М.Е. Программирование в Delphi глазами хакера. / М.Е. Фленов – СПб.: БХВ-Петербург, 2005. – 368 с.: ил. – ISBN 5-94157-351-0.Хармон, Э. Разработка COM-приложений в среде Delphi / Э. Хармон – Вильямс, 2000. – 464 с.: ил. – ISBN 5-8459-0074-3, 1-57870-221-6.Цирлов, В. Л. Основы информационной безопасности автоматизированных систем / В. Л. Цирлов. – М.: Феникс, 2008. – 172 с. – ISBN 978-5-222-13164-0.Чекмарев, Ю. В. Локальные вычислительные сети. Издание второе, испр. и доп. / Ю. В. Чекмарев. – М.: ДМК Пресс, 2009. – 200 с.: ил. – ISBN 978-5-94074-460-3.Черняков, М.В. Петрушин, А.С. Основы информационных технологий. Учебник для вузов. / М.В. Черняков, А.С. Петрушин. – М.: ИКЦ «Академкнига», 2007. – 406 с. – ISBN: 978-5-94628-273-4.Шумаков, П.В. Delphi 3 и разработка приложений баз данных / П.В. Шумаков. – М.: Нолидж, 1999. – 704 с.: ил. – ISBN 5-89251-022-0.Шпак, Ю. А. Delphi 7 на примерах / Ю. А. Шпак. – М.: Юниор, 2003. – 344 с. – ISBN 966-7323-28-5.Ярочкин, В. И. Информационная безопасность: Учебник для студентов вузов. / В. И. Ярочкин. – М.: Академический Проект; Гаудеамус, 2-е изд., 2004. – 544 с. – ISBN 5-8291-0408-3, 5-98426-008-5.Как расшифровать бухгалтерский баланс? / Российский бухгалтер, 2012, N 4. [Электронный ресурс]. – Режим доступа: http://alt-x.narod.ru/DOC/2Raznoe/0612rbb.htmФинансовый анализ – профессиональная система финансового анализа. [Электронный ресурс]. – Режим доступа:http://www.1-fin.ru/Программы для САПР. [Электронный ресурс]. – Режим доступа:http://avesoft.ru/nanocad-avtomatizirovaniya-sapr/9-programmy.htmlПриложенияПриложение А. Форма бухгалтерского балансаПриложениеБ. Скрипт для создания таблиц БД-- Скрипт сгенерирован Devart dbForge Studio for MySQL, Версия 6.0.151.1-- Домашняя страница продукта: http://www.devart.com/ru/dbforge/mysql/studio-- Дата скрипта: 02.06.2013 12:27:08-- Версия сервера: 5.5.30-- Версия клиента: 4.1-- Отключение внешних ключей/*!40014 SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0 */;-- Установка кодировки, с использованием которой клиент будет посылать запросы на серверSETNAMES 'utf8';-- Установка базы данных по умолчаниюUSErentab;-- Описание для таблицы companyDROP TABLE IF EXISTS company;CREATE TABLE company ( company_id BIGINT(20) NOT NULL AUTO_INCREMENT, company_name VARCHAR(255) NOT NULL, company_address VARCHAR(255) DEFAULT NULL, PRIMARY KEY (company_id))ENGINE = INNODBAUTO_INCREMENT = 8AVG_ROW_LENGTH = 2340CHARACTER SET cp1251COLLATE cp1251_general_ci;-- Описание для таблицы rentabDROP TABLE IF EXISTS rentab;CREATE TABLE rentab ( rentab_year SMALLINT(6) NOT NULL, rentab_value FLOAT NOT NULL, PRIMARY KEY (rentab_year))ENGINE = INNODBAVG_ROW_LENGTH = 16384CHARACTER SET cp1251COLLATE cp1251_general_ci;-- Описаниедлятаблицыcompany_balansDROP TABLE IF EXISTS company_balans;CREATE TABLE company_balans ( company_id BIGINT(20) NOT NULL, ym_balans DATE NOT NULL, profit FLOAT DEFAULT 0, revenue FLOAT DEFAULT 0.01, PRIMARY KEY (company_id, ym_balans), CONSTRAINT FK_company_balans FOREIGN KEY (company_id) REFERENCES company(company_id) ON DELETE CASCADE ON UPDATE CASCADE)ENGINE = INNODBAVG_ROW_LENGTH = 3276CHARACTER SET cp1251COLLATE cp1251_general_ci;-- Включение внешних ключей/*!40014 SETFOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS */;ПриложениеВ. Исходный текст программыunit rnt;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, ADODB, DBCtrls, Grids, DBGrids, ExtCtrls, IniFiles, StdCtrls, Spin, ToolWin, ComObj, CheckLst, Buttons;type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; DataSource1: TDataSource; Panel1: TPanel; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; ADOConnection1: TADOConnection; ADOTable1: TADOTable; Panel2: TPanel; Splitter1: TSplitter; Panel3: TPanel; SpinEdit1: TSpinEdit; Label1: TLabel; Panel4: TPanel; DataSource2: TDataSource; ADOTable2: TADOTable; DBGrid2: TDBGrid; DBNavigator2: TDBNavigator; DBGrid3: TDBGrid; DBNavigator3: TDBNavigator; DataSource3: TDataSource; ADOTable3: TADOTable; Panel5: TPanel; RadioGroup1: TRadioGroup; ADOQuery1: TADOQuery; CheckListBox1: TCheckListBox; Panel6: TPanel; Label3: TLabel; ComboBox1: TComboBox; Panel7: TPanel; Label2: TLabel; SpinEdit2: TSpinEdit; SpinEdit3: TSpinEdit; SpinEdit4: TSpinEdit; SpinEdit5: TSpinEdit; BitBtn1: TBitBtn; function Col_name(i_col:Integer):String; procedure FormCreate(Sender: TObject); procedure DataSource1DataChange(Sender: TObject; Field: TField); procedure ADOTable2BeforePost(DataSet: TDataSet); procedure PageControl1Change(Sender: TObject); procedure SpinEdit1Change(Sender: TObject); procedure ADOTable3BeforePost(DataSet: TDataSet); procedure BitBtn1Click(Sender: TObject); procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}function TForm1.Col_name(i_col:Integer):String;beginif i_col>255 then result:=''else begin if i_col<26 then result:=chr(65+i_col) else result:=chr((i_col div 26)+64)+chr((i_col mod 26)+65); end;end;procedure TForm1.FormCreate(Sender: TObject);var Ini : TIniFile; user,password,base,ip : String;beginIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'rentab.ini');ip:=Ini.ReadString('BD','ip','localhost');user:=Ini.ReadString('BD','user','root');password:=Ini.ReadString('BD','password','');base:=Ini.ReadString('BD','base','rentab');if (password='') then ADOConnection1.ConnectionString:='Extended Properties="DATABASE='+base+';Driver=MySql ODBC 3.51 driver;STMT=set names cp1251; OPTION=0;PORT=0;SERVER='+ip+';UID='+user+'"'else ADOConnection1.ConnectionString:='Extended Properties="DATABASE='+base+';Driver=MySql ODBC 3.51 driver;STMT=set names cp1251; OPTION=0;PWD='+password+';PORT=0;SERVER='+ip+';UID='+user+'"';tryADOConnection1.Connected:=True;except try ADOConnection1.LoginPrompt:=True; ADOConnection1.Connected:=True; except Application.MessageBox('Нетдоступакданным!','Сообщение',mb_Ok+mb_ICONINFORMATION); halt; end; end;ADOConnection1.LoginPrompt:=False;LoadKeyboardLayout('00000419', KLF_ACTIVATE);Form1.Width:=800;Form1.Height:=600;PageControl1.Align:=AlClient;PageControl1.ActivePageIndex:=0;DBGrid1.Align:=AlClient;DBGrid2.Align:=AlClient;ADOTable3.Open;ADOTable2.Open;ADOTable1.Open;end;procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);var d1,d2 : TDateTime;begin//if not ADOTable1.Active then exit;if not ADOTable2.Active then exit;if ADOTable1.State in [dsEdit,dsInsert] then exit;ADOTable2.Filtered:=False;ShortDateFormat:='dd.mm.yyyy';d1:=StrToDate('01.01.'+IntToStr(SpinEdit1.Value));d2:=StrToDate('31.12.'+IntToStr(SpinEdit1.Value));tryADOTable2.Filter:='company_id='+ADOTable1.FieldByName('company_id').AsString+' and ym_balans>='+ QuotedStr(FormatDateTime('yyyy-mm-dd',d1))+ ' and ym_balans<='+QuotedStr(FormatDateTime('yyyy-mm-dd',d2));//ShowMessage(ADOTable2.Filter);ADOTable2.Filtered:=True;ADOTable2.Refresh;exceptend;end;procedure TForm1.ADOTable2BeforePost(DataSet: TDataSet);begin if (ADOTable2.FieldByName('company_id').IsNull) then ADOTable2.FieldByName('company_id').AsInteger:= ADOTable1.FieldByName('company_id').AsInteger;end;procedure TForm1.PageControl1Change(Sender: TObject);begin//при смене страницы заполнение списка предприятийif (PageControl1.ActivePageIndex=1) thenbegin ComboBox1.Items.Clear; CheckListBox1.Items.Clear; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from company '); ADOQuery1.SQL.Add('order by company_name '); ADOQuery1.Open; while not ADOQuery1.eof do begin ComboBox1.Items.Add(ADOQuery1.FieldByName('company_name').AsString);CheckListBox1.Items.Add(ADOQuery1.FieldByName('company_name').AsString); ADOQuery1.Next; end;ADOQuery1.Close;ComboBox1.ItemIndex:=-1;end;end;procedure TForm1.SpinEdit1Change(Sender: TObject);var d1,d2 : TDateTime;begin//ADOTable2.Filtered:=False;ShortDateFormat:='dd.mm.yyyy';d1:=StrToDate('01.01.'+IntToStr(SpinEdit1.Value));d2:=StrToDate('31.12.'+IntToStr(SpinEdit1.Value));ADOTable3.Filtered:=False;ADOTable2.Filter:='company_id='+ADOTable1.FieldByName('company_id').AsString+' and ym_balans>='+ QuotedStr(FormatDateTime('yyyy-mm-dd',d1))+ ' and ym_balans<='+QuotedStr(FormatDateTime('yyyy-mm-dd',d2));ADOTable2.Filtered:=True; ADOTable3.Filtered:=False;ADOTable3.Filter:='rentab_year='+IntToStr(SpinEdit1.Value);ADOTable3.Filtered:=True;end;procedure TForm1.ADOTable3BeforePost(DataSet: TDataSet);begin if (ADOTable3.FieldByName('rentab_year').IsNull) then ADOTable3.FieldByName('rentab_year').AsInteger:= SpinEdit1.Value;end;procedure TForm1.BitBtn1Click(Sender: TObject);var i, company_id, j, k, n :integer; XL,WorkBook:Variant; d1,d2 : TDateTime;varr : String; XVal : TStringList; // для подписей по оси Xbeginif ((ComboBox1.ItemIndex=-1) and ((RadioGroup1.ItemIndex=0) or (RadioGroup1.ItemIndex=1) or (RadioGroup1.ItemIndex=2))) thenbeginShowMessage('Невыбранопредприятие!');exit;end;ShortDateFormat:='dd.mm.yyyy';tryif (SpinEdit3.Value<10) then varr:='0'+IntToStr(SpinEdit3.Value)else varr:=IntToStr(SpinEdit3.Value);d1:=StrToDate('01.'+varr+'.'+IntToStr(SpinEdit2.Value));if (SpinEdit5.Value<10) then varr:='0'+IntToStr(SpinEdit5.Value)else varr:=IntToStr(SpinEdit5.Value);d2:=StrToDate('01.'+varr+'.'+IntToStr(SpinEdit4.Value));except ShowMessage('Неверно задан период!');exit;end; XL:=CreateOleObject('Excel.Application'); WorkBook:=XL.WorkBooks.Add; WorkBook:=XL.WorkBooks[1]; XL.Application.WindowState:=1; try XL.ActiveSheet.PageSetup.Orientation:=1; except end;Screen.Cursor:=crHourGlass;if ((RadioGroup1.ItemIndex=0) or (RadioGroup1.ItemIndex=1) or (RadioGroup1.ItemIndex=2)) thenbeginXL.Range['A1'].Select;XL.ActiveCell.FormulaR1C1:=RadioGroup1.Items[RadioGroup1.ItemIndex];XL.Range['A2'].Select;XL.ActiveCell.FormulaR1C1:='Год - месяц';XL.Range['B2'].Select;XL.ActiveCell.FormulaR1C1:='Значение';if (RadioGroup1.ItemIndex=0) thenbegin XL.Range['C2'].Select; XL.ActiveCell.FormulaR1C1:='Рентабельностьсредняя';end; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select company_id from company '); ADOQuery1.SQL.Add('where company_name='+QuotedStr(ComboBox1.Items[ComboBox1.ItemIndex])); ADOQuery1.Open; company_id:=ADOQuery1.FieldByName('company_id').AsInteger; ADOQuery1.Close; i:=3; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from company_balans a ');if (RadioGroup1.ItemIndex=0) then ADOQuery1.SQL.Add('left join rentab b on year(ym_balans)=b.rentab_year'); ADOQuery1.SQL.Add('where a.company_id='+IntToStr(company_id)); ADOQuery1.SQL.Add('and a.ym_balans between '+QuotedStr(FormatDateTime('yyyy-mm-dd',d1))); ADOQuery1.SQL.Add('and '+QuotedStr(FormatDateTime('yyyy-mm-dd',d2))); ADOQuery1.SQL.Add('order by a.ym_balans '); //ShowMessage(ADOQuery1.SQL.Text); ADOQuery1.Open; while not ADOQuery1.eof do begin XL.Range['A'+IntToStr(i)].Select; XL.ActiveCell.FormulaR1C1:=FormatDateTime('yyyy mm',StrToDate(ADOQuery1.FieldByName('ym_balans').AsString)); XL.Range['B'+IntToStr(i)].Select; if (RadioGroup1.ItemIndex=0) then begin XL.ActiveCell.FormulaR1C1:=ADOQuery1.FieldByName('profit').AsFloat/ADOQuery1.FieldByName('revenue').AsFloat; XL.Range['C'+IntToStr(i)].Select; XL.ActiveCell.FormulaR1C1:=ADOQuery1.FieldByName('rentab_value').AsFloat; end; if (RadioGroup1.ItemIndex=1) then XL.ActiveCell.FormulaR1C1:=ADOQuery1.FieldByName('profit').AsFloat; if (RadioGroup1.ItemIndex=2) then XL.ActiveCell.FormulaR1C1:=ADOQuery1.FieldByName('revenue').AsFloat; ADOQuery1.Next; i:=i+1;end;i:=i-1;if (RadioGroup1.ItemIndex=0) then XL.Range['A2:C'+IntToStr(i)].Selectelse XL.Range['A2:B'+IntToStr(i)].Select;XL.Selection.Columns.AutoFit;XL.Selection.Borders[7].LineStyle:=1;XL.Selection.Borders[8].LineStyle:=1;XL.Selection.Borders[9].LineStyle:=1;XL.Selection.Borders[10].LineStyle:=1;XL.Selection.Borders[11].LineStyle:=1;XL.ActiveSheet.Shapes.AddChart.Select;XL.ActiveChart.ChartType:=65;XL.ActiveChart.SeriesCollection[1].Name:='='+WorkBook.Name+'!$A$1';XL.ActiveChart.SeriesCollection[1].Values:='='+WorkBook.Name+'!$B$3:$B$'+IntToStr(i);XL.ActiveChart.SeriesCollection[1].XValues:='='+WorkBook.Name+'!$A$3:$A$'+IntToStr(i);if (RadioGroup1.ItemIndex=0) thenbegin XL.ActiveChart.PlotArea.Select; XL.ActiveChart.SeriesCollection.NewSeries; XL.ActiveChart.SeriesCollection[2].Name:='='+WorkBook.Name+'!$C$1'; XL.ActiveChart.SeriesCollection[2].Values:='='+WorkBook.Name+'!$C$3:$C$'+IntToStr(i);end;XL.ActiveChart.Legend.Select;XL.Selection.Delete;{XL.ActiveWindow.ScrollRow:=3;XL.ActiveWindow.ScrollRow:=2;XL.ActiveWindow.ScrollRow:=1;}end;if ((RadioGroup1.ItemIndex=3) or (RadioGroup1.ItemIndex=4) or (RadioGroup1.ItemIndex=5)) thenbeginXVal:=TstringList.Create;k:=0;XL.Range['A1'].Select;XL.ActiveCell.FormulaR1C1:=RadioGroup1.Items[RadioGroup1.ItemIndex];i:=SpinEdit2.Value;j:=SpinEdit3.Value;while True dobeginif (i>SpinEdit4.Value) or (j>SpinEdit5.Value) then break;if (j<10) then varr:='0'+IntToStr(j)else varr:=IntToStr(j); XVal.Add(IntToStr(i)+' '+varr); j:=j+1; if (j=13) then begin i:=i+1; j:=1; end;end;for j:=0 to CheckListBox1.Items.Count-1 dobeginif (CheckListBox1.Checked[j]) thenbeginXL.Range[col_name(k)+'2'].Select;XL.ActiveCell.FormulaR1C1:='Год - месяц';XL.Range[col_name(k+1)+'2'].Select;XL.ActiveCell.FormulaR1C1:=CheckListBox1.Items[j];//сначала заполнение первого столбца for i:=0 to XVal.Count-1 dobegin XL.Range[col_name(k)+IntToStr(i+3)].Select; XL.ActiveCell.FormulaR1C1:=XVal[i]; end; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select company_id from company '); ADOQuery1.SQL.Add('where company_name='+QuotedStr(CheckListBox1.Items[j])); ADOQuery1.Open; company_id:=ADOQuery1.FieldByName('company_id').AsInteger; ADOQuery1.Close;ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from company_balans a '); ADOQuery1.SQL.Add('where a.company_id='+IntToStr(company_id)); ADOQuery1.SQL.Add('and a.ym_balans between '+QuotedStr(FormatDateTime('yyyy-mm-dd',d1))); ADOQuery1.SQL.Add('and '+QuotedStr(FormatDateTime('yyyy-mm-dd',d2))); ADOQuery1.SQL.Add('order by a.ym_balans ');ADOQuery1.Open; while not ADOQuery1.eof do begin varr:=FormatDateTime('yyyy mm',StrToDate(ADOQuery1.FieldByName('ym_balans').AsString)); i:=XVal.IndexOf(varr)+3; XL.Range[col_name(k)+IntToStr(i)].Select; XL.ActiveCell.FormulaR1C1:=FormatDateTime('yyyy mm',StrToDate(ADOQuery1.FieldByName('ym_balans').AsString)); if (XVal.IndexOf(FormatDateTime('yyyy mm',StrToDate(ADOQuery1.FieldByName('ym_balans').AsString)))=-1) then XVal.Add(FormatDateTime('yyyy mm',StrToDate(ADOQuery1.FieldByName('ym_balans').AsString))); XL.Range[col_name(k+1)+IntToStr(i)].Select; if (RadioGroup1.ItemIndex=3) then XL.ActiveCell.FormulaR1C1:=ADOQuery1.FieldByName('profit').AsFloat/ADOQuery1.FieldByName('revenue').AsFloat; if (RadioGroup1.ItemIndex=4) then XL.ActiveCell.FormulaR1C1:=ADOQuery1.FieldByName('profit').AsFloat; if (RadioGroup1.ItemIndex=5) then XL.ActiveCell.FormulaR1C1:=ADOQuery1.FieldByName('revenue').AsFloat; ADOQuery1.Next;end;XL.Range[col_name(k)+'2:'+col_name(k+1)+IntToStr(XVal.Count+2)].Select;XL.Selection.Columns.AutoFit;XL.Selection.Borders[7].LineStyle:=1;XL.Selection.Borders[8].LineStyle:=1;XL.Selection.Borders[9].LineStyle:=1;XL.Selection.Borders[10].LineStyle:=1;XL.Selection.Borders[11].LineStyle:=1;if (k=0) thenbegin XL.ActiveSheet.Shapes.AddChart.Select; XL.ActiveChart.ChartType:=51; //гистограмма XL.ActiveChart.SeriesCollection[1].Name:='='+WorkBook.Name+'!$'+col_name(k+1)+'$2'; XL.ActiveChart.SeriesCollection[1].Values:='='+WorkBook.Name+'!$'+col_name(k+1)+'$3:$'+col_name(k+1)+'$'+IntToStr(i);endelsebeginn:=(k div 2)+1; XL.ActiveSheet.ChartObjects('Диаграмма 1').Activate; XL.ActiveChart.PlotArea.Select; XL.ActiveChart.SeriesCollection.NewSeries; XL.ActiveChart.SeriesCollection[n].Name:='='+WorkBook.Name+'!$'+col_name(k+1)+'$2';XL.ActiveChart.SeriesCollection[n].Values:='='+WorkBook.Name+'!$'+col_name(k+1)+'$3:$'+col_name(k+1)+'$'+IntToStr(i);end; XL.ActiveChart.SeriesCollection[1].XValues:='='+WorkBook.Name+'!$'+col_name(k)+'$3:$'+col_name(k)+'$'+IntToStr(i);k:=k+2;end; //ifend; //for//заполнение подписей по оси X из массиваend; //ifXL.Range['A1'].Select;Screen.Cursor:=crDefault;XL.Visible := True;end;procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if (ADOtable1.RecNo mod 2=0) then DBGrid1.Canvas.Brush.Color:= $00E1E6FF else DBGrid1.Canvas.Brush.Color:=$00D7E4F2;DBGrid1.Canvas.Font.Color:=clBlack; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);end;end.