Разработка элемента ИС для автоматизации бизнес-процесса

Содержание Введение 3 1 Аналитическая часть 5 1.1 Технико-экономическая характеристика предметной области 5 1.1.1 Страховая компания 5 1.1.2 Средства обеспечения информационной безопасности 6 1.2 Характеристика комплекса задач, задачи и обоснование необходимости автоматизации 18 1.3 Анализ существующих разработок и выбор стратегии автоматизации 20 1.4 Обоснование проектных решений 24 1.4.1 Обоснование проектных решений по информационному обеспечению 24 1.4.2 Обоснование проектных решений по программному обеспечению 24 1.4.3 Обоснование проектных решений по техническому обеспечению 32 2 Проектная часть 33 2.1 Разработка проекта автоматизации 33 2.1.1 Состав и содержание технического задания 33 2.1.2 Этапы жизненного цикла проекта автоматизации 36 2.1.3 Ожидаемые риски на этапах жизненного цикла и их описание 39 2.2 Информационное обеспечение задачи 40 2.2.1 Информационная модель и её описание 40 2.2.2 Характеристика нормативно-справочной, входной и оперативной информации 41 2.2.3 Характеристика результатной информации 42 2.3 Программное обеспечение задачи 42 2.4 Контрольный пример реализации проекта и его описание 48 3 Обоснование экономической эффективности проекта 53 3.1 Выбор и обоснование методики расчёта экономической эффективности 53 3.2 Расчёт показателей экономической эффективности проекта 62 4 Безопасность жизнедеятельности 71 4.1 Анализ опасных и вредных производственных факторов, возникающих при работе на ПК 71 4.2 Эргономические показатели и эстетические характеристики рабочего места 75 4.3 Организация рабочего места 77 Заключение 79 Библиографический список 82 Приложение 1 86 Содержание

день Общая продолжительность разработки приложения составит 10+8+49+4+4+1=76 календарных дней. Таблица 3.3 Трудоемкость работ на различных стадиях № п/п Наименование Стадии Трудоемкость, чел. час. Занятые исполнители Доля выполняемых работ, % Трудоемкость по исполнителям, чел. час. 1. Подготовительная стадия 48 Инженер-программист 100 48 2. Теоретическая разработка 37 Инженер-программист 100 37 3. Алгоритмизация и программирование 240 Инженер-программист 100 240 4. Обобщение и выводы 18 Инженер-программист 100 18 5. Техническая отчетность 18 Инженер-программист 100 18 6. Заключительная стадия 7 Инженер-программист 100 7 Среднемесячный должностной оклад инженера-программиста – 24000 рублей. Среднедневные показатели по формуле 11 составят: инженера-программиста 24000 : 20,8=1153,85 руб. По данным таблицы 3.3 определим время занятости специалиста на разработку программного продукта. Т дней инженера-программиста =(48+37+240+18+18+7):8 час = 368:8=46 рабочих дня. Т календарных дней работы инженера-программиста =368 1,2/(0,73×8) = 76 календарных дней. Затраты на заработную плату состоят из зарплаты инженера-программиста, основная зарплата 1153,85 руб.76 дней = 87692,6 руб. Отчисления на социальные нужды 26,2% от 87692,6 рублей или 87692,626,2/100 = 22975,46 руб. Величина накладных расходов при создании приложении составляет 120% от основной заработной платы, следовательно: 120% от 87692,6 руб.=105231,15 руб. Для проектирования и отладки программ используется ПК, для обслуживания которого нужен специалист, заработная плата которого составляет 15000 руб. в месяц. Один наладчик обслуживает 6 ПК с периферией. Таким образом, финансовые затраты на зарплату при эксплуатации одного ПК в месяц составляют – 15000:6= 2500 руб. В год – 2500 × 12= 30000 руб. Отчисления на социальные нужды 30000 × 0,262=7860 руб. Первоначальная стоимость ПЭВМ с периферией – 25000 рублей. Срок полезного использования (службы) ПЭВМ – 5 лет. Норма амортизационных отчислений по формуле (3.13) составит: НА = 100% : 5 лет = 20% в год. Амортизационные расходы составляют: А= 25000 × 20% : 100% = 5000 руб. в год. Необходимо определить сумму амортизационных отчислений, относимых на программный продукт. Эту сумму амортизационных отчислений можно определить после расчета продолжительности затрат машинного времени на разработку программного продукта (таблица 3.4). Для разработки программного продукта необходимо затратить определенное количество часов машинного времени, расчет которого произведен в таблице 3.4. Таблица 3.4 Использование машинного времени на различных стадиях создания приложения Наименование стадии Трудоемкость, чел. часов Доля работ, вып. на комп., % Необходимое машинное время, час. Стадия подготовки 48 20 10 Изучение теоретических основ 37 10 4 Составление алгоритмов и разработка программного кода –изучение и описание задачи 10 10 1 –разработка алгоритмов 20 – – – разработка блок-схем 20 10 2 –создание программного кода 100 50 50 –отладка 40 100 40 –расчеты 20 100 20 –оформление документации 30 20 6 Обобщение и выводы 18 10 2 Техническая отчетность 18 20 4 Заключительная стадия 7 40 3 Всего: 142 Годовой фонд машинного времени составляет Фд = 12 мес. × 250 раб. дней × 8 час=24000 час. Затраты машинного времени на разработку программного продукта составляют 142 час. Таким образом, сумма амортизационных отчислений, относимых на программный продукт, составляет 5000 руб. : 24000 час × 142 час.= 30 руб. Необходимо определить себестоимость одного часа машинного времени. Затраты на заработную плату наладчика 30000 руб./год : (250×8) ×142=2130 руб. Отчисления на социальные нужды 26,2 % от 2130 руб. = 558,06 руб. Затраты на электроэнергию определяются принимаем 3 эл. эн = 400 руб. Затраты на использование машинного времени: 3атраты маш. вр = 2130 + 558,06 + 400 = 3088,06 руб. При разработке программного продукта предполагается использовать: 500 листов бумаги для принтера формата А4 (1 пачка) стоимостью 200 рублей за пачку; стоимость бумаги 200×1 = 200 руб.; один картридж для принтера марки HP1100 (черно-белый) стоимостью 2000 рублей. Общая сумма затрат на разработку программного продукта составит: Заработная плата инженера-программиста – 87692,6 руб. Отчисления на социальные нужды – 22975,46 руб. Накладные расходы – 105231,15 руб. Амортизационные отчисления – 30 руб. Затраты на машинное время –3088,06 руб. Расходы на материалы – 2200 руб. Всего затрат – 221217,27 руб. Для расчета эффективности примем, что без использования АС сотрудник может обработать 10 документов, при ее использовании – 50. Заработная плата специалиста по обработке документов составляет 20000 руб. в месяц. Тогда по формуле (3.17) считая, что N0 равняется 10 документам, найдем С1= 20000 : (10 × 20,8) = 96,15 руб. за 1 документ Тогда по формуле (3.18) считая, что N1 равняется 50 документам, найдем С2= 20000 : (50 × 20,8) = 19,23 руб. за 1 документ К капитальным затратам отнесены текущие годовые затраты на электроэнергию ~ 4800 руб. К уд. 1 = 4800 : (10×20,8×12) = 1,92 руб. Удельные капитальные вложения при использовании программного продукта: К уд. 2= 221217,27: (50×20,8×12) = 17,73 руб. Приведенные затраты составят: З1= 96,15 +0,32×1,92=96,76 руб. З2= 19,23 +0,32×17,73 =24,90 руб. Планируемый годовой объем документооборота: Qгод =40 20,8×12 = 9984 документа. Годовой экономический эффект от внедрения программного продукта: Эгод. = (96,76 -24,90) ×9984 = 717450,24 руб. Срок окупаемости капиталовложений составит: Ток = 221217,27: 717450,24 = 0,31 года или 12мес. × 0,31 ( 4 месяца. Найдем Еэф по формуле (3.20) Еэф = = 3,22 Таким образом, Еэф при внедрении программного продукта равно 3,22 > Еэф норм = 0,32; Срок окупаемости при внедрении программного продукта не более 4 месяцев < Ток норм = 3 года, следовательно, внедрение программного продукта экономически эффективно и целесообразно. 4 Безопасность жизнедеятельности 4.1 Анализ опасных и вредных производственных факторов, возникающих при работе на ПК Компьютерная техника является источником излучений и электромагнитных полей, а также местом накопления статического электричества, потенциально опасных для человека. Пока эти излучения и поля не превосходят установленный медициной предельно допустимый уровень (ПДУ), они не наносят ощутимого урона здоровью человека. Из всех устройств, связанных с компьютером, для здоровья наибольшую потенциальную опасность представляет монитор. Именно он сочетает относительно высокий уровень излучения и достаточно малое расстояние до человека. Строго говоря, клавиатура, находящаяся в непосредственном контакте с пальцами пользователя, тоже является источником излучения, но оно практически неотличимо от естественного фона и не идет ни в какое сравнение с излучением монитора. Электромагнитное излучение нельзя увидеть, услышать, понюхать, попробовать на вкус или потрогать, но тем не менее оно присутствует повсюду. Хотя вредное влияние обычных уровней электромагнитного излучения на здоровье никем пока не доказано, но многих эта проблема волнует. Каждый, кто знаком с принципом действия монитора компьютера на базе электронно-лучевой трубки (ЭЛТ), называемого также видеотерминалом или дисплеем, согласится с тем, что нет смысла говорить о рентгеновском излучении: незначительное количество ионизирующего излучения, создаваемого катодно-лучевой трубкой внутри монитора, эффективно экранируется стеклом трубки. Излучение монитора на базе электронно-лучевой трубки непосредственно в сторону пользователя резко падает пропорционально удаленности от экрана, а вот электромагнитное поле распространяется во все стороны. Причем непосредственно перед экраном оно несколько ослаблено теневой маской и арматурой кинескопа, а от боковых и задних стенок монитора оно распространяется беспрепятственно. Стандарты безопасности определяют максимально допустимые значения электромагнитных полей, создаваемых монитором при работе. В каждой экономически развитой стране действуют и собственные стандарты, но особую популярность завоевали те, что были разработаны в Швеции. Все современные модели мониторов, как правило, соответствуют и самым современным стандартам. В настоящее время в России действуют согласованные с международными нормативами законодательные акты, гарантирующие потребителю соответствие прошедших сертификацию мониторов общепринятым нормам безопасности. Такими законодательными актами являются Государственный стандарт Российской Федерации ГОСТ Р 50948–96 «Дисплеи. Средства отображения информации индивидуального пользования. Общие эргономические требования и требования безопасности» и санитарные нормы СанГТиН 2.2.2.542–96 «Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы». Принятые на сегодня санитарные нормы устанавливают минимальное расстояние от экрана до пользователя 50–70 см, примерно на длину вытянутой руки, в то время как это расстояние от боковой и задней стенки до рабочих мест должно быть не менее 1,5 м. Для каждого оснащенного компьютером рабочего места определена минимальная площадь – не менее 6 квадратных метров. Клавиатура и руки пользователя должны находиться на максимально возможном удалении от компьютера. Плоскопанельный жидкокристаллический монитор обладает несколькими неоспоримыми преимуществами, причем два из них весьма существенны: малые габариты и полное отсутствие вредных излучений. Использование жидкокристаллических мониторов, практически не имеющих вредных излучений, в портативных компьютерах – ноутбуках создало распространенное мнение об их безвредности по сравнению со стационарными компьютерами. Однако не следует забывать, что переменные электромагнитные поля, создаваемые импульсными преобразователями системы питания, у некоторых типов ноутбуков ничуть не меньше полей устаревших типов мониторов с ЭЛТ. Кроме того, вследствие размещения клавиатуры в едином блоке с процессором портативный компьютер находится намного ближе к пользователю, чем стационарный, а уровень электромагнитного поля, как мы уже говорили, усиливается по мере приближения к компьютеру. В помещениях, где находятся ПК, имеет место быть шум механического происхождения – это шум, возникающий вследствие вибрации поверхностей машин и оборудования, а также одиночных или периодических ударов в сочленениях деталей, сборочных единиц или конструкций в целом. Средства и методы защиты от шума по отношению к защищаемому объекту подразделяются на: средства и методы коллективной защиты; средства индивидуальной защиты. Средства, снижающие шум в источнике его возникновения, в зависимости от характера воздействия подразделяются на: средства, снижающие возбуждение шума; средства, снижающие звукоизлучающую способность источника шума. Средства, снижающие шум в источнике его возникновения, взависимости от характера шумообразования подразделяются на: средства, снижающие шум вибрационного (механического) происхождения; средства, снижающие шум аэродинамического происхождения; средства, снижающие шум электромагнитного происхождения; средства, снижающие шум гидродинамического происхождения. Средства, снижающие шум на пути его распространения, взависимости от среды подразделяются на: средства, снижающие передачу воздушного шума; средства, снижающие передачу структурного шума. Средства и методы коллективной защиты от шума в зависимости от способа реализации подразделяются на: акустические; архитектурно-планировочные; организационно-технические. Организационно-технические методы защиты от шума включают в себя: применение малошумных технологических процессов (изменение технологии производства, способа обработки и транспортирования материала и др.); оснащение шумных машин средствами дистанционного управления и автоматического контроля; применение малошумных машин, изменение конструктивных элементов машин, их сборочных единиц; совершенствование технологии ремонта и обслуживания машин; использование рациональных режимов труда и отдыха работников на шумных предприятиях. 4.2 Эргономические показатели и эстетические характеристики рабочего места Рациональную организацию рабочего места обычно связывают с понятием эргономики. При правильной работе возрастет не только скорость, но и качество работы. Основной параметр, влияющий на удобство работы, – высота стола. Наука говорит о том, что оптимальное значение этой цифры – 72,5 см. Но лучше, конечно, покупать стол с регулируемой высотой. Тогда вы сможете более точно установить удобную для конкретного человека высоту. Но это еще не все. Под столом должно быть достаточно места для ног. Выбирая стол, обратите внимание, что под ним должны помещаться как вытянутые ноги (глубина – не менее 65 см), так и закинутые одна на другую (высота пространства под столом – не менее 60 см). Стол должен быть достаточным для размещения монитора, клавиатуры и документов. Кресло (стул) должно быть удобным и должно обеспечивать физиологически рациональную рабочую позу, при которой не нарушается циркуляция крови и не происходит других вредных воздействий. Физиологи нарисовали портрет «идеального» кресла, обеспечивающего комфортную продолжительную и безопасную работу. Итак, кресло обязательно должно быть с подлокотниками и иметь возможность поворота, изменения высоты и угла наклона сиденья и спинки. Желательно иметь возможность регулировки высоты и расстояния между подлокотниками, расстояния от спинки до переднего края сиденья. Важно, чтобы все регулировки были независимыми, легко осуществимыми и имели надежную фиксацию. Теперь о размерах. Размер сиденья – не менее 40 х 40 см. Угол его наклона варьируется от 15° вперед до 5° назад. Оптимальная высота сиденья – 40–55 см. Особые требования к спинке кресла: высота опорной поверхности – 30 ± 2 см, ширина – не менее 38 см, радиус кривизны в горизонтальной плоскости – 40 см, угол наклона – 0–30°, расстояние до переднего края сиденья – 26–40 см. Подлокотники должны быть не менее 25 см в длину, 5–7 см в ширину, находиться над сиденьем на высоте 25 ± 3 см и на расстоянии 35–50 см друг от друга. Требования к эргономичности клавиатуры заключаются исключительно в том, что располагаться она должна на расстоянии 10–30 см от края стола или на специальной регулируемой по высоте подставке. В любом случае, если вы набираете много текстов, стоит позаботиться о том, чтобы запястья не висели в воздухе. Монитор должен стоять на столе так, чтобы изображение было четко видно без необходимости поднимать или опускать голову. Монитор обязательно должен быть расположен ниже уровня глаз. При взгляде вверх быстро устает шея. Подставка монитора должна быть как можно ниже. Угол наблюдения должен лежать в пределах 0–60°. Расстояние до монитора – не менее 40 см. Чтобы работа была комфортной и эффективной, необходимо позаботиться о внешних условиях. Основное – это освещение. Оно должно быть достаточно ярким (300–500 люкс), но рассеянным. Стол надо располагать боком к окну, окно должно иметь жалюзи или плотные шторы (в случае попадания прямого солнечного света). При работе в темное время суток необходимо включить верхний свет. Монитор нужно расположить так, чтобы исключить появление бликов от искусственного или естественного освещения. Исследователи считают, что в помещении оптимальной является температура 22–24 °С зимой и 23–25 °С летом. Нужно остерегаться сквозняков. Их на рабочем месте не должно быть, как и разного рода вентиляторов. Влажность воздуха в помещении должна быть в пределах 40–60%. 4.3 Организация рабочего места Для работающих на ПК разработана типовая инструкция по охране труда ТОН Р-45-084-01 и утверждена приказом Министерства Российской Федерации по связи и информатизации от 2 июля 2001 г. № 162. Ниже приведены некоторые пункты данного документа. Рабочие места с компьютерами должны размещаться таким образом, чтобы расстояние от экрана одного видеомонитора до тыла другого было не менее 2,0 м, а расстояние между боковыми поверхностями видеомониторов – не менее 1,2 м. Рабочие места с персональными компьютерами по отношению к световым проемам должны располагаться так, чтобы естественный свет падал сбоку, преимущественно слева. Оконные проемы в помещениях, где используются персональные компьютеры, должны быть оборудованы регулируемыми устройствами типа жалюзи, занавесей, внешних козырьков и др. Рабочая мебель для пользователей компьютерной техникой должна отвечать следующим требованиям: высота рабочей поверхности стола должна регулироваться в пределах 680–800 мм; при отсутствии такой возможности высота рабочей поверхности стола должна составлять 725 мм; рабочий стол должен иметь пространство для ног высотой не менее 600 мм, глубиной на уровне колен не менее 450 мм и на уровне вытянутых ног не менее 650 мм; рабочий стул (кресло) должен быть подъемно-поворотным и регулируемым по высоте и углам наклона сиденья и спинки, а также расстоянию спинки от переднего края сиденья; рабочее место должно быть оборудовано подставкой для ног, имеющей ширину не менее 300 мм, глубину не менее 400 мм, регулировку по высоте в пределах до 150 мм и по углу наклона опорной поверхности подставки до 20 градусов; поверхность подставки должна быть рифленой и иметь по переднему краю бортик высотой 10 мм; рабочее место с персональным компьютером должно быть оснащено легко перемещаемым пюпитром для документов. Для нормализации аэроионного фактора помещений с компьютерами необходимо использовать устройства автоматического регулирования ионного режима воздушной среды (например, аэроионизатор стабилизирующий «Москва-СА1»). Заключение Объектом исследования в ВКР является страховая компания РЕСО-Гарантия, созданная в 1991 году и предоставляющая услуги в сфере страхования юридическим и физическим лицам. Основным законом, регулирующим отношения, связанные с обработкой персональных данных, является ФЗ РФ от 27 июля 2006 г. N 152-ФЗ. Персональные данные – любая информация, относящаяся к определенному или определяемому на основании такой информации физическому лицу, в том числе его фамилия, имя, отчество, год, месяц, дата и место рождения, адрес, семейное, социальное, имущественное положение, образование, профессия, доходы, другая информация. Никакие из персональных данных не используются для функционирования разрабатываемой системы. Необходим только уникальный числовой идентификатор застрахованного лица в социальной сети ВКонтакте, который не относится к персональным данным клиента и сообщается при оформлении договора страхования при изъявлении пожелания клиента получать напоминания при истечении срока страхования. При рассмотрении предметной области был выявлен бизнес-процесс, подлежащий автоматизации. Он связан с отправкой сообщений клиентам через социальную сеть «ВКонтакте». На рынке программных продуктов не было найдено готовых решений для оповещения пользователей с их согласия через социальную сеть. В работе приведено обоснование проектных решений по информационному, программному и техническому обеспечению. При определении языка программирования для разработки приложения было приведено сравнение двух самых популярных языков программирования: Delphi и C++. В виду явных преимуществ для данного программного продукта была выбрана среда разработки Borland Delphi 7. Процесс создания автоматизированной информационной системы представляет собой совокупность упорядоченных во времени, взаимосвязанных, объединённых в стадии и этапы работ, выполнение которых необходимо и достаточно для создания программного продукта, соответствующего заданным требованиям. Стадии и этапы создания выделяются как части процесса создания по соображениям рационального планирования и организации работ, заканчивающихся заданным результатом. Разработчиками сети ВКонтакте дано описание необходимых команд для создания собственных приложений для взаимодействия с пользователями сети. В ходе дипломного проектирования было создано прикладное приложение, позволяющее отправлять личные сообщения через социальную сеть. Разработанная программа представляет собой загрузочный файл с именем vkap.exe. Установки приложения не требуется. Для правильной работы созданного приложения необходимо в каталоге с исполняемым модулем иметь конфигурационный файл config.ini и файл БД с именем nr.mdb. Файл nr.mdb может быть создан и открыт для редактирования в среде Microsoft Access 2003 или выше. В выпускной квалификационной работе сделан технико-экономический расчет эффективности разработки системы, рассчитаны затраты труда на разработку, определена общая продолжительности ее разработки, а также общая сумма затрат на разработку, которая составляет около двухсот двадцати тысяч рублей. Срок окупаемости при внедрении приложения составит не более 4 месяцев. В работе перечислены вредные и опасные производственные факторы, возникающие при работе на ПК, приведены эргономические показатели эстетические характеристики рабочего места. Реализованные в дипломном проекте контрольные примеры показали корректную работу приложения. Цель дипломного проектирования достигнута, так как разработанная система соответствует предъявленным требованиям, выполняет функции отправки личных сообщений. Библиографический список Арустамов, Э.А. Охрана труда: Справочник / Э. А. Арустамов. – М.: Издательско-торговая корпорация «Дашков и К», 2008. – 588 с. – ISBN 978-5-91131-551-1. Архангельский, А.Я. Программирование в Delphi 7 / А.Я. Архангельский – Бином-Пресс, 2003. – 1152 с. – ISBN   5-9518-0042-0. Архангельский, А.Я. Delphi 2006. Справочное пособие. Язык Delphi, классы, функции Win32 и .NET / А.Я. Архангельский – Бином-Пресс, 2003. – 1152 с. – ISBN   5-9518-0138-9. Бакнелл, Д. Фундаментальные алгоритмы и структуры данных в Delphi / Д. Бакнелл – СПб.: Питер, 2006. – 560 с. – ISBN 5-469-01495-9, 5-93772-087-3. Бобровский, С.И. Delphi 7. Учебный курс / С.И. Бобровский – СПб.: Питер, 2008. – 736 с.: ил. – ISBN 978-5-8046-0086-1. Васильев, Г. А., Забегалин, Д. А. Электронный бизнес и рекламе в Интернете. / Г.А. Васильев, Д.А. Забегалин. – М.:ЮНИТИ, 2008. – 183 с. –ISBN 978-5-238-01346-6. Грабер, М. Введение в SQL: Самое простое введение в SQL с полезными примерами и пробными объяснениями и др. / Пер. с англ. В. Ястребов – Издательство «Лори», 2008. – 375 с. – ISBN 5-85582-010-6. Дарахвелидзе, П.Г., Марков, Е. П. Программирование в Delphi 7 / П.Г. Дарахвелидзе, Е. П. Марков. – СПб.: БХВ-Петербург, 2003. – 784 с. – ISBN 5-94157-116-Х. Кадлец, В. Delphi. Книга рецептов. Практические примеры, трюки и секреты / В. Кадлец – СПб.: Наука и техника, 2006. – 384 с. – ISBN 5-94387-269-8, 80-251-0017-0. Карпов, Б. Delphi: специальный справочник / Б. Карпов – СПб.: Питер, 2002. – 688 с.: ил. – ISBN 5-272-00353-5. Квинт, И. XHTML и CSS на 100%. / И. Квинт. – СПб: Питер, 2010. – – 384 с.: ил. – ISBN 978-5-49807-594-5. Комолова, Н., Яковлева, Е. HTML: Самоучитель. 2-е изд. / Н. Комолова, Е. Яковлева. – СПб.: Питер, 2011. – 288 с.: ил. – ISBN 978-5-4237-0144-4. Комолова, Н. HTML. Язык разметки web-страниц. / Н. Комолова. – СПб: Питер, 2009. – 272 с.: ил. – ISBN 978-5-388-00215-0. Коннолли, Т., Бегг, К., Страчан, А. Базы данных: Проектирование, Реализация и сопровождение. Теория и практика / Т. Коннолли, К. Бегг, А. Страчан – М.: Вильямс, 2003. – 1436 с. – ISBN 5-8459-0527-3, 0-201-70857-4. Корнеев, И.К., Степанова, И.А. Защита информации в офисе. / И.К. Корнеев, И.А. Степанова. – М.: ТК ВЕЛБИ, Проспект, 2008 г. – 336 с. – ISBN 978-5-482-01976-4. Круг, Стив. Веб-дизайн. / Стив Круг. – Пер. с англ. – СПб: Символ-Плюс, 2008. – 224 с.: цв. ил. – ISBN 978-5-93286-099-1. Кузин, А. В. Базы данных: учеб. пособие для студ. высш. учеб. заведений / А.В. Кузин, С.В. Левонисова. – 2-е изд., стер. – М.: Издательский центр «Академия», 2008. – 320 с. ISВN 978-5-7695-4833-8. Марков А.С., Лисовский К.Ю. Базы данных. Введение в теорию и методологию: Учебник / А.С. Марков, К.Ю. Лисовский – М.: Финансы и статистика, 2006. – 512 с: ил. – ISBN 5-279-02298-5. Мержевич, В. Приемы верстки веб-страниц. / В. Мержевич. – М.: Htmldoors, 2008. – 210 с. – ISBN 5-478-00804-5. Михеева, Е.В. Информационные технологии в профессиональной деятельности: учеб. пособие. – М.: ТК Велби, Изд-во Проспект, 2007. – 448 с. – ISBN 978-5-482-01569-8. Немцова Т. И., Назарова Ю. В. Компьютерная графика и web-дизайн. Практикум: учебное пособие. / Под ред. Л. Г. Гагариной. – М.: ИД «ФОРУМ», ИНФРА-М, 2010. – 288 с.: ил. – ISBN 978-5-8199-0343-8, 978-5-16-003217-7. Стивенс, Р. Delphi. Готовые алгоритмы / Р. Стивенс – М.: ДМК Пресс; СПб.: Питер, 2004. - 384 с.: ил. – ISBN 5-94074-202-5. Фрейн, Бен. HTML5 и CSS3. Разработка сайтов для любых браузеров и устройств. – СПб.: Питер, 2014. – 304 с.: ил. – ISBN 978-5-496-00185-4. Фленов, М.Е. Библия 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. Чиртик, А. Популярный самоучитель HTML. / А. Чиртик. – СПб: Питер, 2008. – 219 с.: ил. – ISBN 5-469-01512-2. Шумаков, П.В. 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. Технико-экономическое обоснование разработки автоматизированных систем и программных изделий. Электронный ресурс. Режим доступа: http://www.pandia.ru/text/77/212/93013.php Приложение 1 Листинг программы unit vkp; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, CheckLst, MSHTML, IniFiles, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ActiveX, ExtCtrls, ComCtrls, DB, ADODB, Grids, DBGrids, ToolWin; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; WebBrowser2: TWebBrowser; Panel1: TPanel; ADOQuery1: TADOQuery; ADOConnection1: TADOConnection; DataSource1: TDataSource; DBGrid1: TDBGrid; Splitter1: TSplitter; IdHTTP1: TIdHTTP; Label2: TLabel; Memo1: TMemo; Panel2: TPanel; Label1: TLabel; Edit_mess: TEdit; RadioGroup1: TRadioGroup; DateTimePicker1: TDateTimePicker; Edit_token: TEdit; Edit1: TEdit; Edit2: TEdit; Edit_times: TEdit; Edit_iduser: TEdit; Edit_Code: TEdit; Image1: TImage; Image2: TImage; Image3: TImage; Image4: TImage; Label3: TLabel; function DelText(txt1,txt2,TXT:string):string; procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); procedure FormCreate(Sender: TObject); procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure Image1Click(Sender: TObject); procedure Image2Click(Sender: TObject); procedure Image3Click(Sender: TObject); procedure Image4Click(Sender: TObject); private access_token, times, iduser : String; //переменные для токена, времени жизни и номера пользователя { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function Pars(TextIn, Text, TextOut: string): string; var TempStr: string; begin Result:=''; TempStr:=Text; TempStr:=Copy(TempStr, Pos(TextIn, TempStr) +Length(TextIn), Length(TempStr)); Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr)); Result:=TempStr; end; procedure TForm1.FormCreate(Sender: TObject); var Layout: array[0.. KL_NAMELENGTH] of char; IniFile:TiniFile; begin //процедура при создании формы // Открывает config.ini и вставляем в поля Логин и Пароль данные, если они есть IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini'); Edit1.Text:=IniFile.ReadString('User', 'Login',''); Edit2.Text:=IniFile.ReadString('User', 'Pass',''); ADOConnection1.LoginPrompt:=False; ADOConnection1.Close; //БД формата ACCESS с именем nr.mdb ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=nr.mdb;Persist Security Info=False'; ShortDateFormat:='dd.mm.yyyy'; //русская раскладка клавиатуры LoadKeyBoardLayout(StrCopy(Layout,'00000419'),KLF_ACTIVATE); //установка даты равной текущей дате DateTimePicker1.Date:=date; Label3.Caption:=''; Form1.Height:=Panel1.Height+15; end; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var urls : String; begin if pos('access_token=',URL)>0 then begin Urls:=url; access_token:=Copy(urls,pos('access_token=',urls)+13,pos('&expires',urls)-pos('access_token=',urls)-13); times:=Copy(urls,pos('expires_in=',urls)+11,pos('&user_id',urls)-pos('expires_in=',urls)-11); iduser:=Copy(urls,pos('user_id=',urls)+8,Length(urls)-pos('user_id=',urls)-7); Edit_token.Text:= access_token; Edit_iduser.Text:= iduser; Edit_times.Text:= times; //если вход успешный, то видны следующие компоненты Image2.Visible:=False; WebBrowser1.Visible:=False; Label1.Visible:=True; Edit_mess.Visible:=True; DateTimePicker1.Visible:=True; RadioGroup1.Visible:=True; Image4.Visible:=True; //показ клиентов из базы данных Access DBGrid1.Align:=AlClient; DBGrid1.Visible:=True; ADOQuery1.Close; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT Список.ID, Список.Name, Список.DateN FROM Список ORDER BY Список.Name;'); ADOQuery1.Open; end; end; procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin //раскраска четных и нечетных строк if (ADOQuery1.RecNo mod 2=0) then DBGrid1.Canvas.Brush.Color:=$00FEE3C7 else DBGrid1.Canvas.Brush.Color:= clWhite; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); end; function TForm1.DelText(txt1,txt2,TXT:string):string; //функция чистки текста begin if txt1<>'' then Delete(TXT,1,Pos(txt1,TXT)+Length(txt1)-1); if txt2<>'' then Delete(TXT,Pos(txt2,TXT),Length(TXT)); Result:=TXT; end; procedure TForm1.Image1Click(Sender: TObject); var s,post,email,pass:string; begin //авторизация пользователя IdHTTP1.HandleRedirects:=True; s:=Utf8ToAnsi(IdHTTP1.Get('http://m.vk.com')); if Pos('login.vk.com/?act=login',s)>0 then begin s:=DelText('action="','</form>',s); post:=StringReplace(DelText('','"',s),'https://','http://',[rfReplaceAll, rfIgnoreCase]); email:=DelText('name="','"',s); s:=DelText('name="','',s); pass:=DelText('name="','"',s); s:=Utf8ToAnsi(IdHTTP1.Get(post+'&'+email+'='+Edit1.Text+'&'+pass+'='+Edit2.Text)); Label3.Caption:=''; if Pos('login.vk.com/?act=login',s)>0 then ShowMessage('Авторизация не удалась!'+#13+'Проверьте Логин либо Пароль!') else begin Label2.Caption:='Авторизация прошла успешно!'; Image1.Visible:=False; Image2.Visible:=True; end; end else begin Label2.Caption:='Вы уже авторизированы!'; Image1.Visible:=False; Image2.Visible:=True; end; end; procedure TForm1.Image2Click(Sender: TObject); var s,scope, temp : String; begin Label2.Caption:=''; Label3.Caption:=''; scope:='messages'; //доступ только к личным сообщениям s:='http://oauth.vk.com/authorize?client_id='+Edit_Code.Text+ '&scope='+scope+ '&redirect_uri=http://oauth.vk.com/blank.html'+ '&display=page'+ '&response_type=token'; Form1.BorderStyle:=bsSizeToolWin; Form1.Constraints.MaxHeight:=640; Form1.Constraints.MaxWidth:=640; Form1.Constraints.MinHeight:=640; Form1.Constraints.MinWidth:=640; WebBrowser1.Navigate(s); end; procedure TForm1.Image3Click(Sender: TObject); var post,s:string; begin IdHTTP1.HandleRedirects:=True; s:=Utf8ToAnsi(IdHTTP1.Get('http://m.vk.com')); if Pos('login.vk.com/?act=login',s)=0 then begin post:='login.vk.com/?act=logout'; post:='http://'+post+DelText(post,'"',s); s:=Utf8ToAnsi(IdHTTP1.Get(post)); Memo1.Text:=s; Label2.Caption:=''; if Pos('login.vk.com/?act=login',s)=0 then Label3.Caption:='Выйти не удалось!' else begin Label3.Visible:=True; Label3.Caption:='Вы успешно вышли!'; Panel2.Visible:=False; Image3.Visible:=False; DBGrid1.Visible:=False; Form1.AutoScroll:=False; end; end else Label3.Caption:='Вы уже вышли!'; end; procedure TForm1.Image4Click(Sender: TObject); var Doc: IHTMLDocument2; idu,idselect : String; f : system.text; i : Integer; varr : String; begin DeleteFile(ExtractFilePath(Application.ExeName)+'\resultat.csv'); AssignFile(f,ExtractFilePath(Application.ExeName)+'\resultat.csv'); Rewrite(f); varr:='Отчет '+trim(RadioGroup1.Items[RadioGroup1.ItemIndex])+ ' ' +DateTimeToStr(now); writeln(f,varr); varr:=''; for i:=0 to DBGrid1.Columns.Count-1 do varr:=varr+DBGrid1.Columns[i].Title.Caption+';'; varr:=varr+' Результат'; writeln(f,varr); idselect:=ADOQuery1.FieldByName('ID').AsString; ADOQuery1.DisableControls; ADOQuery1.First; while not ADOQuery1.Eof do begin idu:=ADOQuery1.FieldByName('ID').AsString; if (((RadioGroup1.ItemIndex=0) and (ADOQuery1.FieldByName('DateN').AsString=DateToStr(DateTimePicker1.Date))) or ((RadioGroup1.ItemIndex=1) and (idu=idselect)) or (RadioGroup1.ItemIndex=2)) then begin WebBrowser2.Navigate('https://api.vk.com/method/messages.send.xml?user_ids='+idu +'&message='+AnsiToUTF8(Edit_mess.Text)+'&access_token='+access_token); while WebBrowser2.ReadyState<READYSTATE_COMPLETE do Application.ProcessMessages; Doc:= WebBrowser2.Document as IHTMLDocument2; Memo1.Text:=doc.body.innerHTML; varr:=''; for i := 0 to DBGrid1.DataSource.DataSet.FieldCount-1 do varr:=varr+DBGrid1.DataSource.DataSet.Fields[i].AsString+';'; if (pos('error',Memo1.Text)>0) then varr:=varr+'Ошибка;' else varr:=varr+'Отправлено;'; writeln(f,varr); end; //if ADOQuery1.Next; end; ADOQuery1.First; ADOQuery1.EnableControls; CloseFile(f); Application.MessageBox('Отчет в файле resultat.csv. Его можно открыть с помощью Excel!','Сообщение',mb_Ok+mb_ICONINFORMATION); end; end. Ярочкин, В. И. Информационная безопасность: Учебник для студентов вузов. / В. И. Ярочкин. – М.: Академический Проект; Гаудеамус, 2-е изд., 2004. – с.31-98. Корнеев, И.К., Степанова, И.А. Защита информации в офисе. / И.К. Корнеев, И.А. Степанова. – М.: ТК ВЕЛБИ, Проспект, 2008 г. – с. 224. Дарахвелидзе, П.Г., Марков, Е. П. Программирование в Delphi 7 / П.Г. Дарахвелидзе, Е. П. Марков. – СПб.: БХВ-Петербург, 2003. – с. 83. Фленов, М.Е. Библия Delphi. / М.Е. Фленов – СПб.: БХВ-Петербург, 2005. – с.48 Шумаков, П.В. Delphi 3 и разработка приложений баз данных / П.В. Шумаков. – М.: Нолидж, 1999. – с.22-23 Дженнингс, Р. Использование Microsoft Office Access 2003 / Пер. с англ. Р.Дженнингс: пер. с англ. И. Тараброва – «Вильямс». 2005, С.46 Технико-экономическое обоснование разработки автоматизированных систем и программных изделий. Электронный ресурс. Режим доступа: http://www.pandia.ru/text/77/212/93013.php Арустамов, Э.А. Охрана труда: Справочник / Э. А. Арустамов. – М.: Издательско-торговая корпорация «Дашков и К», 2008. – с. 295-304. Михеева, Е.В. Информационные технологии в профессиональной деятельности: учеб. пособие. – М.: ТК Велби, Изд-во Проспект, 2007. – с. 427-433.. 57 1