Дипломная (вкр): Разработка программного обеспечения для терминалов приема платежей за услуги связи
внешние запросы;
внутренние логические файлы - группа данных, которая создается или поддерживается функцией, считается за единицу. В качестве внутреннего логического файла для нашей функции примем текстовый файл;
внешние логические файлы - пользовательские данные, находящиеся во внешних по отношению к данной функции файлах. Каждая группа данных принимается за единицу. Внешним по отношению к нашей функции является файл с результатом обработки.
Далее полученные значения умножаются на коэффициенты сложности для
каждого фактора (по данным IFPUG) и суммируются для получения полного размера
программного продукта. Значения этих коэффициентов приведены в таблице 1.
Таблица 1 - Значения коэффициентов сложности
Параметр
Просто
Средне
Сложно
Внешние входы
3
4
6
Внешние выходы
4
5
7
Внешние запросы
3
4
6
Внутренние логические файлы
7
11
15
Внешние логические файлы
5
7
11
Для рассматриваемого нами примера возьмем значения, приведенные в таблице
2.
Размер нашей функции составит:
Это число является предварительной оценкой и нуждается в уточнении.
Таблица 2 - Пример коэффициентов сложности
Параметр
Просто
Средне
Сложно
Количество
Коэффициент
Количество
Коэффициент
Количество
Коэффициент
Внешние входы
1
3
0
4
0
6
Внешние выходы
2
4
1
5
0
7
Внешние запросы
0
3
0
4
0
6
Внутренние логические файлы
1
7
1
11
0
15
Внешние логические файлы
0
5
1
7
0
11
Следующим шагом в определении размера программного кода методом
функциональных точек является присвоение веса (от 0 до 5) каждой характеристике
проекта. Перечислим эти характеристики:
.Требуется ли резервное копирование данных?
.Требуется обмен данными?
.Используются распределенные вычисления?
.Важна ли производительность?
.Программа выполняется на сильно загруженном оборудовании?
.Требуется ли оперативный ввод данных?
.Используется много форм для ввода данных?
.Поля базы данных обновляются оперативно?
.Ввод, вывод, запросы являются сложными?
.Внутренние вычисления сложны?
.Код предназначен для повторного использования?
.Требуется преобразование данных и установка программы?
.Требуется много установок в различных организациях?
.Требуется поддерживать возможность настройки и простоту использования?
Значения для данных характеристик определяются следующим образом: 0 -
никогда; 1 - иногда; 2 - редко; 3 - средне, 4 - часто; 5 - всегда. Эти
характеристики для примера функции сведены в таблице 3.
Таблица 3 - Пример характеристик проектов
Характеристика
Значение в примере
Характеристика
Значение в примере
1
4
8
4
2
1
9
3
3
0
10
1
4
2
11
5
5
2
12
1
6
1
13
0
7
3
14
4
Определяется S - сумма всех весов.
И наконец, уточненный функциональный размер вычисляют по формуле
[Уточненный функциональный размер] =[Приближенный функциональный размер]
* [0,65+0,01 * (Сумма общих характеристик)]. Суть этой формулы состоит в том,
что неуточненный функциональный размер нужно уменьшить на 35 %. И если к
приложению предъявляется специальные требования (не все общие характеристики -
нули), то каждая единица этих общих характеристик увеличивает результат на 1
%. Уточненный функциональный размер функции выбор метода будет следующим:
Далее проведем преобразование функционального размера в количество строк
кода.
Количество строк кода по функциональному размеру можно вычислить с
помощью стандартных таблиц. В свою очередь, количество строк кода позволяет
определить общую трудоемкость в человеко-месяцах и сроки проекта. Например, в
известна следующая величина: 23 строки исходного кода на Delphi на одну единицу функционального
размера. Используя этот коэффициент, имеем 39 х 53 = 0,9 тыс. строк на Delphi.
Переведем теперь эти цифры в человеко-месяцы согласно формуле COCOMO
(Конструктивная модель стоимости - Constructive Cost Model)
y = 0,9x1.05 , (4)
где x - тысячи строк кода. Получим оценку 0,9*2,71.05 = 2,5
человеко-месяцев.
Далее человеко-месяцы умножаются на оклад сотрудника разработчика в
соответствии с формулой (1). При окладе 15000 рублей стоимость разработки будет
приблизительно равна 37500 рублей. Учитывая тот факт, что осуществляется
переход ООО "Теплостройсервис" от дилерской схемы работы к самостоятельному
обслуживанию терминалов оплаты за услуги связи, данная стоимость проекта
является оправданной.
Получившийся результат показывает, что программный продукт не требует
больших трудозатрат.
Для использования разработанного программ необходимо обязательное
использование ЭВМ, при этом на человека воздействует ряд негативных факторов.
Рассмотрим в данной главе основные факторы, а также способы защиты от них. При
этом необходимо обратить особое внимание на поражение человека электрическим
током и пожароопасную ситуацию, так как ЭВМ питается от сети 220 В.
Работа с компьютером входит в состав вредных для здоровья человека работ.
Так оператор подвержен таким заболеваниям, как воспаление кожи и дерматиты, так
как пыль, накапливающаяся на экране из-за электростатического поля, летит на
оператора. Человек, сидящий за дисплеем, может подвергаться воздействию
низкоэнергетического рентгеновского и ультрафиолетового излучения,
электромагнитного излучения (экраны наиболее интенсивно излучают на частотах
10.4 - 15 КГц - частоте строчной развертки), статического электричества;
возникающего в результате облучения экрана потоком заряженных частиц
электронной трубки, а также воздействию шума, неудовлетворительного освещения и
микроклимата. Помимо всего сказанного, работа за компьютером относится к
психическим формам труда, так как необходимо воспринимать изображение на
экране, постоянно следить за его динамикой, различать тексты рукописных или
печатных материалов и т. П. Также сидячая поза во время работы может приводить
к таким симптомам, как боли в спине и области шеи, ухудшение зрения, боли в
кистевых и плечевых суставах, нарушение сна, вызванного перенапряжением, хронические
головные боли, тошнота, слабость.
В деле сохранения здоровья оператора важную роль играют эргономические
параметры ЭВМ. Их неправильный выбор приводит к ухудшению здоровья
пользователей.
Конструкция видеомониторов, должна обеспечивать надежное и комфортное
считывание отображаемой информации в условиях эксплуатации.
Конструкция монитора должна обеспечивать возможность фронтального
наблюдения экрана путем поворота корпуса в горизонтальной плоскости вокруг
вертикальной оси в пределах ±30° и в вертикальной плоскости вокруг
горизонтальной оси в пределах ±30° с фиксацией в заданном положении. Дизайн
монитора должен предусматривать окраску корпуса в спокойные мягкие тона с
диффузным рассеиванием света.
Для обеспечения надежного считывания информации, при соответствующей
степени комфортности ее восприятия, должны быть определены оптимальные и
допустимые диапазоны визуальных эргономических параметров.
Измерения рентгеновского излучения перед экраном цветного дисплея
показали, что на расстоянии 5 см от экрана мощность дозы составляет 100 мкГр/ч,
а на расстоянии 250 см от экрана - 0.0025 мкГр/ч. Конструкция видеомониторов
должна обеспечивать величину эквивалентной дозы рентгеновского излучения в
любой точке на расстоянии 0.05 м от экрана и корпуса монитора не более 0.1
мбэр/час (100 мкР/час ).
Измерения в рабочей зоне дисплея электромагнитных полей показали, что их
уровни перед экраном ниже установленных допустимых норм. Однако сбоку от экрана
напряженность электромагнитного поля может превышать норму в 3.3 раза у
отечественных и в 1.4 раза у импортных дисплеев. В таких случаях защита
осуществляется расстоянием. Поэтому необходимо строго соблюдать нормы
объемно-планировочного решения помещений с дисплеями и выдерживать расстояния
между расположенными по соседству компьютерами равными не менее 1.2 м.
Особое внимание следует обратить на статическое электричество. Измерения
показывают, что напряженность электростатического поля в рабочей зоне, как
отечественных, так и импортных дисплеев достигает 85-62 кВ/м, при норме 20 кВ/м
в течение часа (ГОСТ 12.1.045.84).
Воздействие электростатических полей в сочетании с пониженной влажностью
воздуха, которая создается при работе с видеомонитором, может вызвать
заболевания кожи лица и кистей рук в виде сыпи, покраснения, зуда и шелушения.
Поэтому для предотвращения образования и защиты от статического электричества в
помещениях необходимо использовать нейтрализаторы и увлажнители, а полы должны
иметь антистатическое покрытие.
Важное значение имеет освещенность рабочего места, оснащенного ЭВМ.
Пониженная освещенность на рабочих местах или чрезмерная яркость в плоскости
экрана, наличие ярких пятен отражения в экране источников света и светильников
приводят к быстрой утомляемости оператора, а также ухудшению остроты зрения и
близорукости.
Искусственное освещение в помещении, в котором эксплуатируются ПЭВМ
должно осуществляться системой общего равномерного освещения. Также желательно
использовать защитный экран с заземлением.
Чтобы уменьшить вероятность несчастных случаев при работе с
электрооборудованием, можно использовать несколько различных методов. Одни из
них универсальны, другие применяются только в тех зонах, которые
рассматриваются как особо опасные с точки зрения поражения электричеством. Приведем
некоторые из них.
Заземление. Наиболее часто используемым методом защиты является
заземление оборудования. При этом металлический корпус прибора присоединяется к
земле специальным проводом. В электрическом приборе, подключаемом к сети с
помощью шнура, это заземление осуществляется с помощью третьего, круглого или
U-образного, контакта вилки. Если произойдет замыкание на корпус прибора,
который заземлен таким образом, то электрический ток будет протекать от места
замыкания к корпусу и возвращаться по проводу заземления. В идеальном случае
ток замыкания будет настолько велик, что это приведет к немедленному
срабатыванию размыкателя цепи (предохранителя). При этом неисправный прибор
отключается от сети, и опасность устраняется.
Защита с помощью заземления имеет несколько недостатков. Очевидно, что
этот метод эффективен только при хорошем заземлении. Однако эксперименты
показывают, что многие электрические вилки, розетки и соединительные провода в
процессе интенсивной эксплуатации изнашиваются и иногда выходят из строя. Кроме
того, чтобы вызвать немедленное срабатывание предохранителей, сопротивление
системы заземления должно быть очень малым. Если сопротивление больше
требуемого, как это часто бывает при использовании вместо провода заземления
стального кабеля, то от момента замыкания до срабатывания предохранителей могут
пройти секунды или даже минуты, в течение которых неисправное оборудование
становится опасным.
Защита низким напряжением. Чем выше напряжение, тем больше ток,
протекающий через человека при неисправности электрооборудования. При
использовании аппаратуры, которая работает на значительно более низком уровне,
чем в электросети, напряжении, можно значительно уменьшить вероятность и
тяжесть несчастных случаев. Один из путей - питание приборов от батарей. У
таких приборов есть еще одно преимущество - их не надо заземлять. Батареи
применяются лишь в небольших приборах, но иногда этот способ защиты
используется и таких приборах, как портативные рентгеновские аппараты. Другой
путь получения более низких напряжений - применение небольших трансформаторов,
встраиваемых непосредственно в вилку прибора. Этот трансформатор обычно
используется и для изоляции части схемы с низким напряжением от земли.
Двойная изоляция. В аппаратуре с двойной изоляцией корпус изготовляется
из непроводящего материала, обычно из пластика. Если в приборе есть выступающие
металлические части, то они крепятся к главному проводящему корпусу прибора с
помощью отдельного защитного слоя изоляции в дополнение к основной изоляции,
которая отделяет корпус от электрических частей. Аппаратура с двойной изоляцией
не нуждается в заземлении, поэтому она комплектуется вилками без штырька
заземления. Приборы такого типа должны иметь метку "Двойная
изоляция".
Надежная работа отдельных элементов и электронных схем в целом
обеспечивается только в определенных интервалах температуры, влажности и при
заданных электрических параметрах. При отклонении реальных условий эксплуатации
от расчетных могут возникнуть пожароопасные ситуации.
Серьезную опасность представляют различные электроизоляционные материалы,
используемые для защиты от механических и других воздействий отдельных
радиодеталей.
Для разработки и использования программы необходимо ЭВМ. Особенностью
современных ЭВМ является высокая плотность расположения элементов электронных
схем. При прохождении электрического тока по проводникам и деталям выделяется
тепло, что в условиях их высокой плотности может привести к перегреву.
В качестве изоляции проводов и кабелей применяют полиэтилен, являющийся
горючим материалом. Если монтажные провода с такой изоляцией соприкоснуться с
сильно нагретой деталью, то изоляция расплавится, провод оголится и произойдет
короткое замыкание. Под действием электрических искр изоляция может загореться.
Кабельные линии, по которым подается питание к ПЭВМ, являются наиболее
пожароопасным местом. Наличие горючего изоляционного материала, вероятных
источников зажигания в виде электрических искр и дуг, разветвленность и
недоступность делают кабельные линии местом наиболее вероятного возникновения
пожара.
В соответствии с требованиями ГОСТ 12.1.004-91 пожарная безопасность
объекта обеспечивается: системой предотвращения пожара; системой
противопожарной защиты; организационно-техническими мероприятиями. Для этого
применяется огнезащита материалов и конструкций, используются противопожарные
преграды (внутренние и наружные противопожарные стены, перегородки, перекрытия,
противопожарные зоны), применяются противопожарную защиту зданий. В
производственных помещениях необходимо также иметь первичные средства
пожаротушения, которыми можно производить тушение пожаров на начальной стадии
(огнетушители). Для тушения пожара в помещении с ПЭВМ необходимо применять
газовые составы - хладоны, инертные разбавители, порошки.
Для успешного тушения пожаров решающее значение имеет быстрое обнаружение
пожара и своевременное оповещение с вызовом пожарной команды к месту пожара,
для этого необходимо обеспечить здание установками пожарной сигнализации.
Для успешной эвакуации персонала необходимо предусмотреть следующие
требования к зданиям, где располагается помещения с ПЭВМ: количество
эвакуационных выходов из помещений и зданий в целом определяется с учетом
безопасности (не менее двух); минимальная ширина дверей на путях эвакуации -
0,8 м, а проходов - не менее 1 м; коридоры и проходы, предназначенные для
эвакуации, имеют возможно меньшую длину и минимальное количество поворотов;
двери на путях эвакуации открываются по направлению выхода из здания; лестницы
имеют удобную для эвакуации связь с этажами и в то же время надежную изоляцию
от них, исключающую воздействие на них факторов пожара.
При использовании в процессе работы ПЭВМ необходимо учитывать его влияние
на окружающую среду и на человека на всех этапах жизненного цикла прибора:
производства, эксплуатации и утилизации. Так как производство ПЭВМ состоит из
многочисленных технологических операций, рассмотрим влияние основных из них на
изменение экологической ситуации.
При изготовлении печатных плат в атмосферу выбрасываются пары горючих и
ядовитых веществ, также ядовитые вещества попадают в водоемы. Для уменьшения их
вредного влияния на окружающую среду используют новейшие технологии,
позволяющие вместо жидкостей, которые попадают в водоемы, использовать твердые
вещества, менее вредные, которые не загрязняют окружающую среду.
При пайке вредными факторами являются выделение паров флюса. Для защиты
окружающей среды и рабочего на индивидуальном рабочем месте устанавливается
местная вентиляция и фильтры для отчистки воздуха.
В последние годы основным направлением по защите окружающей среды стала
разработка малоотходных технологий и технологий по переработке и утилизации
отходов. ПЭВМ с использованием новейших технологий подвергается полной утилизации.
В результате работы над выпускной квалификационной работой решена задача,
создания прикладного программного продукта для реализации пользовательского
интерфейса терминалов по приему платежей от населения. Данная задача ставилась
ООО Фирмой "Теплостройсервис" при переходе с дилерского обслуживания
терминалами оплаты населения к созданию собственной сети на основе своего
программного обеспечения. Данное пользовательское приложение интегрируется с
единую систему проведения платежей от населения в банки и операторам сотовой
связи. Приложение реализовано в среде Delpfi 2007, которое является клиентской частью архитектуры клиент-сервер. В
работе представлена модель классов системы перевода платежей с с клиентской и
серверной частью в виде базы данных. Реализация клиент серверной технологии
через Интернет осуществляется по технологии CORBA, встроенной в систему
разработки Delpfi 2007.
Разработанное приложение на основе технологии объектно-ориентированного
программирования обеспечивает удобный пользовательский интерфейс, реализующий
заданный функционал ввода данных о платежах: выбор услуги (оплата сотовой связи
или погашение кредитов), выбор получателя платежа в рамках услуги, ввод номера
счета или телефона сотового оператора, возможность проверки веденных данных,
передачу данных на сервер и запись в таблицу базы данных, вывод чека, печать
чека. Данное приложение является легко расширяемым и при необходимости может
быть дополнено банками - получателями платежа или операторами связи , например
, с которыми будет заключен договор у ООО Фирмы "Теплостройсервис".
1. Голицина, О.Л. Программирование на языках высокого
уровня [Текст] / О.Л. Голицина, И.И. Попов.- М.: ФОРУМ, 2011.- 496 с.
2. Джексон, Г. Проектирование реляционных баз данных
[Текст] / Г. Джексон. - М.: Мир, 2011. - 298 с.
3. Долгоруков, А. Метод case как современная технология
профессионально-ориентированного проектирования [Электронный ресурс] / А.
Долгоруков. - // КОРНИ. - Режим доступа: http://www.evolkov.net/case/case.develop.html.
4. Емельянова, Н.З. Основы
построения автоматизированных информационных систем: Учеб. Пособие [Текст] / Н.
З. Емельянова, Т. Л. Партыка, И. И. Попов - М.: Форум: Инфра-М, 2011. - 412с.
5. Зиндер, Е.З. Бизнес-реинжиниринг и технологии
системного проектирования. Учебное пособие [Текст]/ Е.З. Зиндер - М.: Центр
Информационных Технологий. - 2010. - 135 с.
6. Интернет-Университет Информационных Технологий.
Элементы графической нотации диаграммы классов [Электронный ресурс].- Режим
доступа: http://www.intuit.ru/department/pl/umlbasics/5/
7. Интернет-Университет Информационных Технологий.
Введение в Delphi 2007 [Электронный ресурс].- Режим
доступа: http://www.intuit.ru/department/pl/ Delphi /1/
8. Информационные системы: Диаграмма вариантов
использования [Электронный ресурс].- Режим доступа: http://www.business-process.ru/designing/methodology/uml/theory/use_case_diagram_theory.html
9. Карпова, Т.А. Базы данных. Модели, разработка,
реализация [Текст]/Т.А. Карпова. - СПб: Питер. - 2012. - 304 с.
10. Карпова, Т.С. Базы данных. Модели, разработка,
реализация [Текст] / Т.С. Карпова. - СПб.: Питер, 2012. - 236 с.
11. Крёнке, Д.А., Теория и практика построения баз
данных. З-е изд. [Текст] / Д.А. Крёнке - СПб.: Питер, 2010 - 859 с.: ил.
12. Макаровских, Т.А.
Документирование программного обеспечения. В помощь техническому писателю
[Текст] / Т.А. Макаровских. - СПб.: Ленанд. - 2015. - 356 с.
13. Маклаков, С. В. UML 2.0. Руководство по применению [Текст]/ Маклаков С.
В. - М.: ДИАЛОГ-МИФИ. - 2011. - 256 с.
14. Маленко, Д.Ю., Новые возможности для разработчиков SQL
Server [Текст] / Д.Ю. Маленко - М.: СОЛОН-Пресс, 2011. - 208с.: ил.
15. Саммерфилд, М. Программирование на Delphi. Подробное руководство. - Пер. с
англ. [Текст] / М. Саммерфилд. - СПб.: Символ-Плюс, 2012. - 608с.
16. Синтес, А. Объектно-ориентированное программирование
[Текст] / А. Синтес -М.: Вильямс, 2012. - 672 с.
17. Сухомлин, В.А.
Объектно-ориентированные CASE-технологии. Учебное пособие [Текст]/ проф. В.А.
Сухомлин. - М.: МГУ. - 2011. - 134 с.
18. Фаронов, В. В. Delphi. Программирование на языке высокого уровня: Учебник
для вузов[Текст]/ В.В. Фаронов. - Спб.: Питер, 2012. - 348с.
19. Черемных, С.В. Моделирование
и анализ систем.UML 2.0: практикум
[Текст] / С.В. Черемных, И.О.Семенов, B.C. Ручкин - М.: Финансы и
статистика, 2010.- 192 с.
20. Эванс, Э. Предметно-ориентированное
проектирование (DDD). Структуризация сложных программных систем [Текст] /
Э.Эванс - М.: Вильямс - 2012. - 562с.
21. Эренковский, В.А. Безопасность работы за компьютером:
Учебное пособие [Текст] /В.А. Эренковский.- Спб.: Питер, 2012. - 348с.
Приложение А
Листинг программы главной формы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, StdCtrls, ExtCtrls, Buttons, GIFImg;:array[1..7] of string=('Воскресенье','Понедельник','Вторник','Среда','Четверг','Пятница','Суббота');=4; m=11; z=6;= class(TForm):
TLabel;: TLabel;: TTimer;: TLabel;: TEdit;: TImage;: TLabel;:
TPanel;FormCreate(Sender:
TObject);StartTime;reg1(show:boolean);reg2(show:boolean);reg3(show:boolean);chek;labnastr(lab:tlabel;
t,l:integer;
cap:string);ButtonsAndKeybrdCreate;ButtonsNastr(reg:boolean);Timer1Timer(Sender:
TObject);
{ Private declarations }
{ Public declarations };=class(Tpanel)click;
override;:integer;;=class(Tpanel)click;override;:string;;=class(Tpanel)click;override;:integer;:timage;;:
TForm1;:array[1..n] of TMybutton;:array[1..m] of tkeyboard;:array[1..4] of
tnavigator;:tcolor;:integer;:string;:integer;,komis:integer;:array[1..z] of
tlabel;,number:string;
{$R *.dfm}tform1.ButtonsNastr(reg:
Boolean);:string;:integer;reg then:='.bmp';[1].Caption:='МТС';[2].Caption:='Билайн';[3].Caption:='Мегафон';[4].Caption:='TELE2';[1].icon.top:=20;.Caption:='Выберите оператора';:='_1.bmp';[1].Caption:='Сбербанк России';[2].Caption:='УралСиб';[3].Caption:='Альфа-банк';[4].Caption:='Россельхозбанк';[1].icon.top:=5;.Caption:='Выберите банк';;i:=1 to n doreg then
buttons[i].Index:=ibuttons[i].Index:=i+4;.Picture.LoadFromFile(inttostr(buttons[i].Index)+'.gif');[i].icon.Picture.Assign(image1.Picture);('Файл
'+inttostr(buttons[i].Index)+'.gif'+' не найден в папке с программой.');;;;tform1.labnastr(lab: TLabel;
t: Integer; l: Integer; cap: string);.Top:=t; lab.Left:=l;
lab.Caption:=cap;;tform1.chek;:integer;:string;:integer;:integer;:='';number[1]='+'
then a:=5a:=1;i:=a to 23 do:=strtoint(number[i]);((p>=0)and(p<=9)) then
number1:=number1+number[i];;;;(labels[1],30,5,'Получатель: '+nam);(labels[2],55,5,'Принято: '+inttostr(money)+' руб.');(labels[3],80,5,'Зачислено: '+inttostr(money-komis)+' руб.');(labels[4],105,5,'Комиссия: '+inttostr(komis)+' руб.');(labels[5],130,5,'Номер телефона/счета: '+number1);(labels[6],155,5,'Дата: '+datetostr(now)+' '+timetostr(now));.Width:=250;
panel1.Height:=200;.left:=550;
panel1.Top:=200;.Visible:=true;.Caption:='';[1].Visible:=false;[2].Visible:=false;;tform1.reg1(show:boolean);:integer;i:=1
to 3 do(show and (i=1)) then continue;[i].Visible:=show;;i:=1 to m do
keybrd[i].Visible:=show;i:=1 to n do buttons[i].Visible:=not
show;.Visible:=show;.Visible:=show;;tform1.reg2(show:Boolean);:integer;i:=1 to
m do keybrd[i].Visible:=not show;
label4.Caption:='Проверьте правильность введенныхо Вами
данных.';.Caption:=label4.Caption+#13+'Если Вы допустили ошибку - вернитесь
назад,';
label4.Caption:=label4.Caption+' иначе - '+#13+'нажмите Далее';.Visible:=show;.Font.Size:=16;[1].Caption:='Далее';;tform1.reg3(show:
Boolean);:integer;:=edit1.Text;.Visible:=not show;.Visible:=not
show;.Font.Size:=26;.Caption:='Внесено
'+inttostr(money)+' руб.'+#13;:=money-(money div
10);.Caption:=label4.Caption+#13+'К зачислению '+inttostr(money-komis)+' руб.'+#13;.Caption:=label4.Caption+#13+'Комиссия '+inttostr(komis)+' руб.';[1].Caption:='Оплатить';;tform1.ButtonsAndKeybrdCreate;,t,l:integer;:=150;i:=1
to n do[i]:=tmybutton.Create(self);buttons[i] do:=form1;:=600; height:=110;:=t;
left:=400;.Size:=26;
font.Color:=clWhite;:=false;:=c;:=bssingle;:=i;:=timage.Create(self);icon
do:=buttons[i];:=200; height:=98;i=1 then
top:=20top:=5;:=10;:=true;:=true;;;:=t+buttons[i].Height+15;;(true);:=215;
l:=525;i:=1 to m do[i]:=tkeyboard.Create(self);keybrd[i] do:=form1;:=100;
height:=100;:=t; left:=l;:=false;:=c;.Size:=26;
font.Color:=clwhite;:=inttostr(i);:=inttostr(i);:=false;:=bssingle;;:=l+keybrd[i].width+15;i
mod 3=0 then begin t:=t+keybrd[i].Height+5; l:=525;
end;;[10].Width:=(keybrd[10].Width*3)+30;[10].Caption:='0';[10].number:='0';[11].Top:=edit1.Top-45;[11].Left:=1015;[11].Height:=edit1.Height+40;[11].Width:=175;[11].Caption:='Удалить';i:=1 to 4
do[i]:=tnavigator.Create(self);navigat[i] do:=form1; visible:=false;:=250;
height:=100;:=i;.Size:=30; font.Color:=clwhite;:=bssingle;:=false;:=c;i of
: begin:='Далее';
top:=650; left:=1100;;
: begin:='Назад';
top:=650; left:=16;;
: begin:='На Главную'; top:=650;
left:=565;:=rgb(236,159,45);;
: begin.Size:=22;:='Погашение кредитов';:=300;:=250;
left:=10;:=true;;;;;;tnavigator.Click;:tnavigator;:integer;:=tnavigator(self);a.index
of
: beginstat of
: begin:=2; form1.reg2(true);.Label3.Caption:='Проверка введенных данных';;
: begin:=3; form1.reg3(true);.Label3.Caption:='Внесите наличные';;
: begin.Label4.Visible:=false;.Label3.Caption:='Возьмите чек';.chek;;;;
: beginstat of
: begin:=0; form1.reg1(false);.Label3.Caption:='Выберите оператора';.ButtonsNastr(true);[4].Visible:=true;;
: begin:=1; form1.reg2(false);.Label3.Caption:='Введите номер';;
: begin:=2; form1.reg3(false);.reg2(true);1.Label3.Caption:='Проверка
введенных данных';
end;;;
: begin:=0; form1.reg1(false);.Label3.Caption:='Выберите оператора';.label4.Visible:=false;[1].Caption:='Далее';.Panel1.Visible:=false;[4].Visible:=true;.buttonsnastr(true);;
:
begin.ButtonsNastr(false);[4].Visible:=false;[3].Visible:=true;;;;tkeyboard.Click;:tkeyboard;:string;:=tkeyboard(self);form1.Label3.Caption='Введите номер телефона' thena.number='11' thencurs=0 then
curs:=24;curs of
: curs:=19;
: curs:=14;
:curs:=7;
:
;curs:=curs-1;;:=form1.Edit1.Text;.Edit1.Text:=copy(p,1,(curs-1))+'
'+copy(p,curs+1,(25-curs+1));[1].Visible:=false;curs<>0 then:=form1.Edit1.Text;.Edit1.Text:=copy(p,1,(curs-1))+a.number+copy(p,curs+1,(25-curs+1));curs
of
: curs:=12;
: curs:=18;
: curs:=22;
: begin curs:=0; navigat[1].Visible:=true;
end;inc(curs);;;;form1.Label3.Caption='Введите
номер счета' thena.number='11' then:=curs-1;:=form1.Edit1.Text;.Edit1.Text:=copy(p,1,(curs-1))+copy(p,(curs+1),(25-(curs+1)));[1].Visible:=false;;a.number<>'11'
thencurs<13 then.Edit1.Text:=form1.Edit1.Text+a.number;:=curs+1;curs=13 then
navigat[1].Visible:=true;;;;;tmybutton.Click;:tmybutton;:integer;:=tmybutton(self);:=a.Caption;.Image1.Picture.LoadFromFile(inttostr(a.Index)+'.gif');a.Index<=4
then.Label3.Caption:='Введите номер телефона';.Edit1.Text:=phone;:=5;.Label3.Caption:='Введите номер счета';.Edit1.Text:='';:=1;;:=1;.reg1(true);[4].Visible:=false;;tform1.StartTime;.Caption:=day[dayofweek(now)]+',
'+datetostr(now);.Caption:=timetostr(now);;TForm1.Timer1Timer(Sender:
TObject);.Caption:=timetostr(now);;TForm1.FormCreate(Sender:
TObject);:integer;:=rgb(81,182,207); stat:=0; money:=0;.BorderStyle:=bsnone;.WindowState:=wsmaximized;;;:='+7
( ) - - - ';.Font.Size:=40;.Width:=600; edit1.Height:=100;.Top:=120;
edit1.Left:=400;.Text:=phone;.Font.Color:=clblue;.Visible:=false;.Visible:=false;.Top:=250;i:=1
to z do[i]:=tlabel.Create(self);labels[i] do:=1;:=panel1;:=true;.Size:=8;.Style:=[fsbold];;;
end;.
(3)
9.
Мероприятия по охране труда, безопасности жизнедеятельности
9.1 Вредные
воздействия производственных факторов
9.2 Методы
повышения безопасности
9.3 Пожарная
безопасность
9.4 Защита
окружающей природной среды
Заключение
Список
использованных источников и литературы