Разработка программного средства автоматизации учета работы автотранспорта на предприятии

- характеристики трудового процесса и технической оснастки производства (рабочего места), определяющие уровень напряженности деятельности;

- социальная среда в совокупности с характером трудовой деятельности, создающие эмоциональный фон.

Таким образом, трудовая деятельность оператора персональных компьютеров, как правило, сопровождается значительными затратами нервно-эмоциональной и умственной энергии.

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

6.1.2 Выбор и обоснование технического оснащения и организации рабочего места оператора ПК в целях оптимизации нервно-психических нагрузок

Главное содержание трудовой деятельности оператора персональных компьютеров при разработке и эксплуатации программ составляют умственные, психические процессы - активное восприятие, запоминание, мышление. Поэтому в условиях современного производства возникла задача согласования конструкции технических систем и условий их функционирования с психофизиологическими возможностями работающего человека. Конструктивные свойства технических средств деятельности оператора должны быть согласованы с его возможностями выполнения операций. Поэтому при проектировании рабочего места оператора должны быть учтены антропометрические, биомеханические, психофизиологические и другие свойства человека, а также требования безопасности и технической эстетики. Значительную роль в результате деятельности оператора играет рациональная организация рабочего места.

Под рабочим местом понимается место в системе «человек - машина(персональных компьютеров)», оснащенное средствами отображения информации, органами управления и вспомогательным оборудованием, где осуществляется трудовая деятельность конкретного специалиста.

Организацией рабочего места называется проведение системы мероприятий по оснащению рабочего места средствами и предметами труда и их размещению в определенном порядке. Цель организации рабочего места - оптимизация условий трудовой деятельности, обеспечение безопасности, максимальной эффективности и надежности работы человека.[12]

При конструировании рабочих мест учитываются следующие общие эргономические требования:

- достаточное рабочее пространство, позволяющее работающему человеку осуществлять необходимые движения и перемещения при эксплуатации и техническом обслуживании оборудования;

- достаточные физические, зрительные и слуховые связи между работающим человеком и оборудованием, а также между людьми в процессе выполнения общей трудовой задачи;

- оптимальное размещение рабочих мест в производственных помещениях, а также безопасные и достаточные проходы для работающих людей;

- необходимое естественное и искусственное освещение;

- допустимый уровень шума и вибрации, создаваемых оборудованием рабочего места или другими источниками;

- наличие необходимых средств защиты работающих от действия опасных и вредных производственных факторов (физических, химических, биологических, психофизиологических). [12]

Рабочее место должно быть приспособлено для конкретного вида труда, для работников определенной квалификации с учетом их физических и психических возможностей и особенностей. При проектировании рабочего места необходимо исходить из анализа конкретного трудового процесса, выполняемого человеком на данном оборудовании, и учитывать антропометрические данные, физиологические и психологические характеристики трудового процесса, санитарно-гигиенические условия работы. Любой технологический процесс реализуется через систему рабочих мест.

Оконные проемы в помещениях за персональными компьютерами должны быть оборудованы регулируемыми светозащитными устройствами типа: жалюзи, занавеси, внешние козырьки и др. При выполнении работы, требующей значительного умственного напряжения или высокой концентрации внимания, рабочие места за персональных компьютеров следует изолировать друг от друга перегородками высотой 1,5-2,0 м.

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

Конструкция рабочего стола должна обеспечивать оптимальное размещение на рабочей поверхности используемого оборудования с учетом его количества и конструктивных особенностей (размер персональных компьютеров, клавиатуры, пюпитра и др.), характера выполняемой работы. При этом допускается использование рабочих столов различных конструкций, отвечающих современным требованиям эргономики. Положение тела и наиболее частные рабочие позы, необходимые для выполнения трудового процесса, являются одними из факторов, определяющих пространственную организацию рабочего места. Одним из компонентов деятельности на рабочем месте являются рабочие движения. Их рациональная организация создает условия для снижения утомления, резервы для повышения работоспособности оператора и увеличения производительности труда. Пространственные характеристики движения оператора определяются траекториями движений и размерами моторного поля, которое изображено на рисунке 6.1.



Рисунок 6.1 - Зоны для выполнения ручных операций и размещения органов управления

Список зон:

1- наиболее важных и очень часто используемых органов управления (оптимальная зона моторного поля);

2- часто используемых органов управления (зона легкой досягаемости моторного поля);

3- редко используемых органов управления (зона досягаемости моторного поля).

Конструкция рабочего стула должна обеспечивать поддержание рациональной рабочей позы, позволять изменять позу с целью снижения статического напряжения мышц шейно-плечевой области и спины для предупреждения развития утомления.

Тип рабочего стула должен выбираться в зависимости от характера и продолжительности работы с учетом роста пользователя.

В целом конструкция рабочего стула (кресла) должна обеспечивать:

- ширину и глубину поверхности сиденья не менее 400 мм,

- поверхность сиденья с закругленным передним фаем;

- регулировку высоты поверхности сиденья в пределах 400-550 мм;

- высоту опорной поверхности спинки 300 ± 20 мм, ширину - не менее 380 мм и радиус кривизны горизонтальной плоскости - 400 мм;

- угол наклона спинки в вертикальной плоскости в пределах от 0 до плюс 30°;

- регулировку расстояния спинки от переднего края сиденья в пределах: 260 - 400 мм;

- стационарные или съемные подлокотники длиной не менее 250 и шириной-50-70 мм;

- регулировку подлокотников по высоте над сиденьем в пределах 230 ± 30 мм и внутреннего расстояния между подлокотниками в пределах 350-500 мм.[14]

При работе сидя, оптимальная рабочая поза обеспечивается соблюдением правильного соотношения высоты рабочей поверхности и сидения.

Высота рабочей поверхности стола для взрослых пользователей должна регулироваться а пределах 680-600 мм; при отсутствии такой возможности высота рабочей поверхности стола должна составлять 725 мм.

Модульными размерами рабочей поверхности стола для персональных компьютеров, на основании которых должны рассчитываться конструктивные размеры, следует считать: ширину 800, 1000, 1200 и 1400 мм, глубину 800 и 1000 мм при нерегулируемой его высоте, равной 725 мм.

Рабочий стол должен иметь пространство для ног высотой не менее 600 мм, шириной - не менее 500 мм, глубиной на уровне колен - не менее 450 мм и на уровне вытянутых ног - не менее 650 мм.[14]

Клавиатуру следует располагать на поверхности стола на расстоянии не менее чем 300 мм от края, обращенного к пользователю или на специальной, регулируемой по высоте рабочей поверхности, отделенной от основной столешницы.

Экран видеомонитора должен находиться от глаз пользователя на оптимальном расстоянии 600-700 мм, но не ближе 500 мм с учетом размеров алфавитно-цифровых знаков и символов.[14].

При оценке светоцветовой среды на рабочем месте необходимо учитывать особенности построения цветовых схем.

Для обеспечения психофизиологической оптимальной композиции в поле зрения работающего используют цвета средневолновой части спектра средней насыщенности с коэффициентом отражения 30-50%.

Различимость объектов в рабочей зоне повышается благодаря применению фонов, контрастных цветам объекта различения.

Таким образом, рациональная организация рабочего места создает условия для снижения утомления, резервы для повышения работоспособности оператора ПК

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

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

6.1.3 Рекомендации по организации режима труда и отдыха оператора ПК

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

Для наиболее эффективной деятельности оператора в Санитарных правилах и нормах изложены общие требования к организации режима труда и отдыха при работе за персональным компьютером.[14].

При работе за персональным компьютеров режимы труда и отдыха оператора должны определяться видом и категорией трудовой деятельности.

Виды трудовой деятельности разделяются на 3 группы:

- группа А - работа по считыванию информации с экрана персонального компьютера с предварительным запросом;

- группа Б - работа по вводу информации;

- группа В - творческая работа в режиме диалога с электронной вычислительной машиной.[14]

В случаях, когда в течение рабочей смены выполняются работы, относящиеся к разным видам трудовой деятельности, за основную работу с персональным компьютером следует принимать такую, которая занимает не менее 50% времени в течение рабочей смены или рабочего дня.

Для видов трудовой деятельности устанавливаются 3 категории тяжести и напряженности работы за персональным компьютером, приведенные в таблице1,которые определяются:

- группа А - по суммарному числу считываемых знаков за рабочую смену, но не более 60 000 знаков за смену;

- группа Б - по суммарному числу считываемых или вводимых знаков за рабочую смену, но не более 40 000 знаков за смену;

- группа В - по суммарному времени непосредственной работы за персональным компьютером за смену, но не более 6 часов за смену. [14]

Таблица 6.1 - Время регламентированных перерывов в зависимостях от продолжительности рабочей смены, вида и категории трудовой деятельности за персональных компьютеров

Категория работы за ПК	Уровень нагрузки за рабочую смену при видах работ за ПК	Суммарное время регламентированных перерывов
	Группа А, количество знаков	Группа Б, количество знаков	Группа В, часов	при 8-ми часовой смене	при 12-ти часовой смене
1	до 20000	до 15000	До 2,0	30	70
2	до 40000	до 30000	До 4,0	50	90
3	до 60000	до 40000	До 6,0	70	120

При несоответствии фактических условий труда требованиям санитарных правил, время регламентированных перерывов следует увеличить на 30%.

Для преподавателей высших и средних специальных учебных заведений, учителей общеобразовательных школ устанавливается длительность работы в дисплейных классах и кабинетах информатики и вычислительной техники не более 4 часов в день.

Продолжительность обеденного перерыва определяется действующим законодательством о труде и правилами внутреннего трудового распорядка.

На протяжении рабочей смены должны устанавливаться регламентированные перерывы с целью обеспечения оптимальной работоспособности и сохранения здоровья профессиональных пользователей.

Их время в течение рабочей смены следует устанавливать в зависимости от ее продолжительности, вида и категории трудовой деятельности (таблица 1), а продолжительность непрерывной работы за персональным компьютером без регламентированного перерыва не должна превышать 2-х часов.

Суммарная продолжительность регламентированных перерывов, независимо от категории и вида трудовой деятельности, при работе за персональным компьютером в ночную смену (с 22 до 6 часов) должна увеличиваться на 60 минут.[14].

При 8-ми часовой рабочей смене и работе за персональным компьютером регламентированные перерывы следует устанавливать:

- для I категории работ через 2 часа от начала рабочей смены и через 2 часа после обеденного перерыва продолжительностью 15 минут каждый;

- для II категории работ через 2 часа от начала рабочей смены и через 1,5-2 часа после обеденного перерыва продолжительностью 15 минут каждый или продолжительностью 10 минут через каждый час работы;

- для III категории через 1,5-2 часа от начала рабочей смены и через 1,5-2 часа после обеденного перерыва продолжительностью 20 минут каждый или продолжительностью 15 минут через каждый час работы.[14]

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

При 12-ти часовой рабочей смене регламентированные перерывы должны устанавливаться в первые 8 часов работы аналогично перерывам при 8-ми часовой рабочей смене, а в течение последних 4 часов работы, независимо от категории и вида работ, каждый час продолжительностью 15 минут.

Работающим за персональным компьютером с высоким уровнем напряженности во время регламентированных перерывов и в конце рабочего дня показана психологическая разгрузка в специально оборудованных помещениях (комната психологической разгрузки).[14]

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

В ограничении времени работ за персональным компьютером, коррекцию длительности перерывов для отдыха или проводить смену деятельности на другую, не связанную с использованием персональных компьютеров.

Таким образом, режимы труда и отдыха при работе за персональным компьютером должны определяться видом и категорией трудовой деятельности, а с целью обеспечения оптимальной работоспособности и сохранения здоровья профессиональных пользователей Санитарными правилами и нормами приведены общие требования к организации режима труда и отдыха оператора персонального компьютера.

Соблюдение всех выше перечисленных требований приведет к тому, что оператор персональных компьютеров будет ощущать на рабочем месте комфорт, снизится утомляемость, что является одним из важнейших факторов предупреждения травматизма и профессиональных заболеваний. Кроме того, повысится работоспособность и производительность труда.

6.2 Энергосбережение

моделирование автоматизация учет автотранспорт

Все последние годы интенсивно обсуждается проблема энергосбережения. По статистике, при работе в типичных офисных приложениях процессор современного компьютера использует всего лишь 5% своей мощности. Остальные 95% требуются только для "тяжелых" задач - сложных математических вычислений, работы с видеоматериалами или современных трехмерных игр. И если потребление энергии процессором постоянно остается максимальным - это означает, что большая часть ее расходуется впустую, и впустую же выделяется большая часть тепла, образующегося при работе процессора.

Для персонального компьютера эти проблемы не слишком актуальны - даже максимальная мощность, потребляемая процессором, довольно невелика и, снижая ее, много киловатт-часов не сэкономишь.

Из этого следует, что технологически добиться снижения потребления энергии и выделения тепла можно, но цена процессоров при этом возрастает до неприемлемых для массового рынка величин, а производительность снижается (ведь тактовая частота и напряжение питания получаются невысокими). Именно поэтому современный компьютер трудно представить без технологии энергосбережения.

Подобные технологии имеют положительные аспекты:

- за счет уменьшения потребления электричества увеличивается время автономной работы от батарей;

- за счет уменьшения выделения тепла снижается шумность компьютера: вентилятор работает на меньших оборотах, во время простоев процессора может отключаться совсем;

- за счет снижения требований к системе охлаждения снижается и общий вес компьютера;

- процессор с поддержкой технологии энергосбережения дешевле и производительнее, чем процессор с постоянно низким тепловыделением.

Чтобы работа была комфортной и безопасной необходимо позаботиться об аппаратном оборудовании компьютера. Как правило, наибольший вред здоровью пользователя компьютера наносят устройства ввода-вывода: монитор, клавиатура, мышь.

Большинство производителей используют промышленный стандарт VESA DPMS (Display Power Management Signaling). Он определяет нормированные методы поддержки мониторами трех энергосберегающих режимов:

- Stand-by - экономит до 40% мощности и позволяет быстро восстановить работоспособность;

- Suspend - отключает цепи накала трубки монитора и имеет большее время восстановления работоспособности;

- Active-off - еще большее время восстановления работоспособности, но отключает все, кроме средств восстановления работоспособности и блока питания. В этом режиме мониторы обычно потребляют менее 5 Вт.

При выборе монитора используется ряд стандартов:

- MPR 1990:10 - монитор соответствует шведскому стандарту по излучениям, а также по переменным электрическому и магнитным полям;

- MPR II - Стандарты и рекомендации по низкочастотным электромагнитным полям и электрическому потенциалу. Такой знак далеко не полностью отражает все условия стандарта MPR 1990:10;

- ISO 9241-3 - обозначает международный стандарт, который удовлетворяет эргономическим требованиям к дисплеям и стоит на страже зрения;

- TCO (расшифровываются как соответствие требованиям Шведского союза профессиональных служащих по визуальным эргономическим параметрам и переменным электрическим полям).

В сравнении с MPRII в ТСО'92 (был разработан специально для мониторов и определяет величину максимально допустимых электромагнитных излучений при работе монитора, и функции энергосбережения) допустимые уровни электромагнитного излучения более жесткие, так как замер показателей производится не в 50 см от экрана, как в MPRII, а в 30. TCO 95 и TCO 99 представляют собой универсальные стандарты, регулирующие воздействие всех вредных факторов. В ТСО'95 и ТСО'99 представлены электромагнитные параметры, эргономические, энергосберегающие и экологические. TCO'99 предъявляет более жесткие требования, чем TCO'95 в области эргономики, энергия, излучений, экологии, пожарной, электрической безопасности;

- EN 55022 Европейский стандарт по методам измерений и допустимым значениям излучений для изделий информационных технологий;

- EN 50082-1 Европейский стандарт по электромагнитной совместимости;

- EN 60950 Европейский стандарт по безопасности для изделий информационных технологий (электро- и пожаробезопасность), является частью TЪV/GS-рекомендации;

- TЬV/GS Маркировка, подтверждающая прохождение испытаний по безопасности. Изделия с маркировкой GS соответствуют требованиям EN 60950, ZH1/618;

- СЕ Европейская маркировка, которая определяет соответствие изделия требованиям стандартов EN 50081-1 (европейский стандарт по электромагнитной совместимости), EN 55022, EN 50082-1 и EN 60950.

В настоящее время большое распространение получили ЖК-мониторы, которые отличаются высоким качеством и не большой стоимостью.

ЖК-мониторы имеют ряд достоинств:

- ЖК мониторы более экономичные;

- у них нет электромагнитного излучения в сравнении c ЭЛТ-мониторами, и они практически безвредны для человека;

- они не мерцают, как ЭЛТ-мониторы;

- они легкие и не такие объемные;

- у них большая видимая область экрана.

В отличие от мониторов для компьютерных устройств ввода (клавиатура и мышь) в настоящее время не имеется общепринятых и широко распространенных стандартов. В тоже время многие производители данного оборудования, рекламируя свою продукцию, описывают различные конструктивные решения, повышающие эргономичность ее использования: клавиатура с возможностью регулирования расположение клавиш, мышь с формой, уменьшающей усталость кисти при длительной работе. Хотя некоторые из них стоит рассматривать только как броскую рекламу, многие модели действительно являются своеобразным технологическим скачком вперед с точки зрения безопасности работы за компьютером. Применение принтеров так же приводит к потреблению электроэнергии. Существует 2 вида принтеров: струйные и лазерные.

Современные струйные принтеры выводят текст и графические изображения высокого качества и стоят более чем вдвое дешевле лазерных. Кроме того, они компактнее, не так шумят и потребляют меньше электроэнергии, чем их лазерные собратья. Исследования International Data Corporation показывают, что это одна из причин, по которым объемы продаж струйных принтеров растут быстрее, чем печатающих устройств всех других типов.

Выпуск новой линии профессиональных ПК ESPRIMO 5925 EPA компанией Fujitsu Siemens Computers продолжает тенденцию в области создания энергоэкономичных ПК. Новые профессиональные ПК, которые поставляются в форм-факторе Microtower для ESPRIMO P5925 EPA и в форм-факторе Small Form Factor для ESPRIMO E5925 EPA, - это сочетание проверенной эргономичности и энергосберегающих функций, которыми отличаются все решения Fujitsu Siemens Computers, новейшего набора микросхем Intel и экономии электроэнергии до 80%. Благодаря этим технологиям данные компьютеры потребляют на 45% меньше электроэнергии по сравнению с аналогичными системами двухлетней давности.

Новые профессиональные персональные компьютеры объединяют в себе экологичные материалы и технологии, технические инновации и максимальную производительность. Технология Intel Active Management 3.0 упрощает процесс централизованного управления устройствами даже в выключенном состоянии, что позволяет сократить общее энергопотребление. Кроме того, данные персонального компьютера работают необычайно тихо благодаря зарекомендовавшей себя системе охлаждения, используемой в корпусах ESPRIMO, спроектированных и разработанных Fujitsu Siemens Computers.

Таким образом, использование энергосберегающих технологий приводит к снижению влияния вредных факторов на человека и стоимости программных продуктов, что в свою очередь повышает их конкурентоспособность.

7. Экономический раздел

7.1 Характеристика проекта

Производится исследование задачи и возможность ее решения с использованием электронно-вычислительной машиной. После составления алгоритма, исследуется возможность его применения для решения задачи.

Данная разработка может использоваться как товар при ее реализации к конкретной задаче. Все расчеты выполнены на 20.05.2011.

7.2 Определение трудоемкости создания программного продукта

Для определения трудоемкости составим перечень всех видов и этапов работ, выполняемых при исследовании. Особое внимание будет уделено упорядочению выполнения работ, для каждой работы определяется ее продолжительность и квалификация исполнителя таблица 7.2.1.

Таблица 7.2.1 ? План проведения научно-исследовательской работы

Наименование этапов и видов работ	Исполнитель (должность, квалификация)	Количество исполнителей	Трудоемкость, человеко-дни,tо
Уточнения задания на дипломный проект. Согласование с консультантом по экономической части, руководителем проекта и председателем цикловой комиссии.	Техник-программист	1	3
Разработка постановки задачи, определения входной, выходной информации, выбор математической модели. Выбор операционной системы, выбор языка программирования и системы управления базы данных.	Техник-программист	1	7
Разработка и отладка программного продукта. Испытания программы.	Техник-программист	1	14
Оформление проектной документации.	Техник-программист	1	2
Оценка возможностей задачи	Техник-программист	1	2
Оценка некоторого количества задач и решение их.	Техник-программист	1	2
Исследование задач наблюдения и возможность их сведения к задачам.	Техник-программист	1	3
Решение ряда задач наблюдения.	Техник-программист	1	2
Обобщение результатов исследований.	Техник-программист	1	1
Оформление пояснительной записки.	Техник-программист	1	5
Всего	-	-	41

7.2.1 Оценка трудоемкости отдельных видов работ

Трудоемкость создания программного продукта определяется по сумме продолжительности выполнения каждого вида работ. Поскольку трудоемкость этапов носит вероятностный характер, то будем использовать метод экспертных оценок (PERT). Для каждой работы экспертным путем предварительно устанавливаются три оценки трудоемкости. ? минимально возможная (оптимистическая) оценка трудоемкости. ? наиболее вероятностная оценка. ? максимально возможная (пессимистическая) оценка трудоемкости.

Определим для каждой работы оптимальное время.

(1)

Также определим дисперсию предварительных оценок трудоемкостей, которая показывает, на сколько вероятно выполнения работы в срок.

(2)

Таблица 7.2.2 ? Оценка трудоемкости

Вид работы	Оценка трудоемкости	Расчетные величины
	tmin	tH.B	tmax	tож	D
1	2	3	4	3	0.1111111111
2	5	7	9	7	0.4444444444
3	12	14	16	14	0.4444444444
4	1	2	3	2	0.1111111111
5	1	2	3	2	0.1111111111
6	1	2	3	2	0.1111111111
7	2	3	4	3	0.1111111111
8	1	2	3	2	0.1111111111
9	1	1	1	1	0
10	4	5	6	5	0.1111111111
Итого:	-	-	-	41	1.6666666665

7.2.2 Построение ленточного графика создания программного продукта

Одной из основных целей планирования программного продукта является определение общей продолжительности их проведения.

При небольших по объему исследованиях наиболее удобным, простым и наглядным является ленточный график.

Он представляет собой таблицу, где перечислены наименование видов работ, должности исполнителей, трудоемкость, численность исполнителей и длительность выполнения каждого вида работ.

Продолжением таблицы является график, отражающий продолжительность отдельного вида работ в виде отрезков времени, которые располагаются в соответствии с последовательностью выполнения работ.

Продолжительность каждой работы определяется по формуле:

(3)

где - трудоемкость работ, человеко-дни;

- численность исполнителей, человек.

Таблица 7.2.3 ? Ленточный график создания программного продукта

Наименование этапов и видов работ	Исполнитель (должность, квалификация)	Трудоемкость, человеко-дни, tож	Количество исполнителей	Продолжительность работы (дни)
Уточнения задания на дипломный проект. Согласование с консультантом по экономической части, руководителем проекта и председателем цикловой комиссии.	Техник-программист	3	1	3
Разработка постановка задачи, организационно - экономическая сущность программы, определения входной, постоянной, выходной информации, выбор математической модели. Выбор операционной системы, выбор языка программирования и системы управления базы данных.	Техник-программист	7	1	7
Разработка и отладка программного продукта. Испытания программы.	Техник-программист	14	1	14
Оформление проектной документации.	Техник-программист	2	1	2
Оценка возможностей задачи.	Техник-программист	2	1	2
Оценка некоторого количества задач и решение их.	Техник-программист	2	1	2
Исследование задач наблюдения и возможность их сведения к задачам.	Техник-программист	3	1	3
Решение ряда задач наблюдения	Техник-программист	2	1	2
Обобщение результатов исследований	Техник-программист	1	1	1
Оформление пояснительной записки	Техник-программист	5	1	5

Таблица 7.2.4 - Ленточный график создания программного продукта

Наименование этапов и видов работ	Продолжительность работы в неделях, при пятидневной рабочей неделе
	1	2	3	4	5	6	7	8	9	10	11
Составление и согласование технического задания
Сбор и изучение научно-технической литературы
Поиск возможных вариантов решение поставленной задачи
Организация экономической сущности программного продукта
Организация обработки необходимых данных
Разработки и отладка программного продукта
Испытание программного продукта
Оформление проектной документации
Оформление документации по экологии и охране труда
Оформление экономической документации программного продукта
Оформление пояснительной записки
Оформление графического материала.
Обобщение результатов исследований
Составление и оформление отчета

7.3 Определение цены научно-технической продукции

Целью планирования себестоимости программного продукта является экономически обоснованное определение величины затрат на ее выполнение.

В плановую себестоимость программного продукта включаются все затраты, связанные с ее выполнением, независимо от источника их финансирования. Определение затрат на создание программного продукта производятся путем составления калькуляции плановой себестоимости.

Все расчеты выполнены на 20.05.2011 г. с учетом цен, ставки первого разряда, существующих налогов и ценовых отчислений.

Калькуляция плановой себестоимости программного продукта составляется по следующим статьям затрат:

- материалы и оборудование;

- основная заработная плата;

- дополнительная заработная плата.

Отчисления на соц. нужды:

- отчисления в ФСЗН(34%);

- отчисления в Белгосстрах(0,2%);

- косвенные расходы.

Форма калькуляции плановой себестоимости в целом по созданию программного продукта приведена в таблицах 7.3.1, 7.3.2

Таблица 7.3.1 - Форма калькуляции плановой себестоимости

Статьи затрат	Условное обозначение	Сумма затрат, руб.
Материалы и оборудование		0
Основная заработная плата разработчиков продукта		968511,84
Дополнительная заработная плата разработчиков продукта
Отчисления на соц. нужды:	?	?
В ФСЗН
В Белгосстрах
Прочие прямые расходы		0
Косвенные накладные расходы
Полная себестоимость
Плановая прибыль (накопления плановые)		0
Налог на добавленную стоимость	НДС	-
Отпускная цена программного продукта

Таблица 7.3.2 - Определение суммы основной заработной платы

Вид работ	Трудоемкость, чел/дни	Дневная ставка, бел. руб.	Сумма основной заработной платы, бел. руб.
Уточнения задания на дипломный проект. Согласование с консультантом по экономической части, руководителем проекта и председателем цикловой комиссии.	3		70866,72
Разработка и отладка программного продукта. Испытания программы.	14		330711,36
Разработка постановка задачи, организационно - экономическая сущность программы, определения входной, постоянной, выходной информации, выбор математической модели. Выбор операционной системы, выбор языка программирования и системы управления базы данных.	7		165355,68
Оформление проектной документации.	2		47244,48
Оценка возможностей задачи	2		47244,48
Оценка некоторого количества задач и решение их.	2		47244,48
Исследование задач наблюдения и возможность их сведения к задачам	3		70866,72
Решение ряда задач наблюдения	2		47244,48
Обобщение результатов исследований	1		23622,24
Оформление пояснительной записки	5		118111,2
Итого:	41	-	968511,84

Часовая тарифная ставка определятся путем деления месячного оклада на установленный при восьмичасовом рабочем дне фонд рабочего времени -169,8 час.

Часовая тарифная ставка техника-программиста:

(4)

Дневная ставка техника-программиста:

(5)

Дополнительная заработная плата персонала определяется по формуле:

(6)

где - норматив дополнительной заработной платы (20%)

Отчисления в фонд социальной защиты населения и в фонд занятости рассчитывается по формуле:

(7)

где - норматив отчислений в фонд социальной защиты - 34%.

Отчисления в Белгосстрах

= (8)

Косвенные накладные расходы (Н_кос=120%):

(9)

Полная себестоимость программного продукта:

(10)

Отпускная цена программного продукта, финансируемого из госбюджета:

(11)

7.4 Определение экономического эффекта от внедрения программного продукта

Таблица 7.4.1 ? Определение экономии времени

Перечень услуг программного продукта	Время до автоматизации, часов	Время после автоматизации, часов	Экономия времени, часов
Ввод физических лиц в базу данных	0.03	0.02	0.01
Перечень услуг программного продукта	Время до автоматизации, часов	Время после автоматизации, часов	Экономия времени, часов
Ввод юридических лиц в базу	0.07	0.05	0.02
Ввод дополнительных данных	0.11	0.09	0.02
Оформление информационно- справочной системы	0.14	0.12	0.02
Оформление платных объявления	0.06	0.04	0.02
Осуществить поиск	0.12	0.06	0.06
Просмотр выходных данных	0.09	0.03	0.06
Итого:	0.62	0.41	0.21

• Таблица 7.4.2 ? Определение годового фонда времени

Перечень услуг программного продукта	Количество операций в год	Экономия времени, часов	Годовой фонд времени,
Ввод физических лиц в базу данных	36000	0.01	360
Ввод юридических лиц в базу	1080	0.02	21
Ввод дополнительных данных	1080	0.02	21
Оформление информационно-справочной системы	540	0.02	10
Оформление платных объявления	314	0.02	6
Осуществить поиск в базе данных	155	0.06	9
Просмотр выходных данных	240	0.06	14
Итого:	39409	0.21	441

• Внедрение программного продукта «Учёт отработанных занятий на условиях оплаты» позволило сэкономить 441 час, что составляет примерно 0,22 (К=0,22) годового фонда времени.
• Это значит что с внедрением данного программного продукта «Учёт отработанных занятий на условиях оплаты» можно условно экономить 0,22 годовой ставки. Годовой фонд заработной платы сотрудника составляет:
• Зо - 740000 рублей.
• Зд - 148000 рублей, рассчитано по формуле 12.
• (12)
• где - норматив дополнительной заработной платы (20%)
• Отчисления в фонд социальной защиты населения и в фонд занятости рассчитывается по формуле:
• (13)
• = (14)
• Тогда годовой фонд заработной платы равен:

• ) (15)
• Условная экономия по заработной плате составит:
• (16)
• Вывод: экономический эффект от внедрения программного продукта «Учёт отработанных занятий на условиях оплаты» составит:
• (17)

Заключение

В данном дипломном проекте разработано программное средство, автоматизация организации ремонтных работ компьютерной техники сервисным центром

Для выполнения данной задачи был проведен анализ существующих программ, определена их функциональность, выявлены недостатки, которые не позволяют использовать их для решения задачи в нашей республике.

Выполнена постановка задач на проектирование программного средства, обоснование его архитектурных построений.

Разработка компонентов велась с использованием CASE-средств BPWin (для определения спецификации требований на программное средство) и ErWin (для получения схемы данных).

Произведена реализация реляционной базы данных с нормализацией таблиц.

Для реализации приложения была выбрана среда разработки Borland Delphi 7. Данный выбор значительно упростил создание приложения с графическим многооконным интерфейсом и организацию доступа к данным.

Программа является законченным программным продуктом, хотя возможна её доработка.

Программа имеет удобный пользовательский интерфейс, она написана для использования в операционной системах семейства Windows. Пользование программой не составит труда для тех, кто знаком с данной оболочкой.

Для дальнейшей доработки этой программы необходимо сначала в течение некоторого времени применять её для оценки эффективности, а потом добавлять или исправлять все недочеты, которые пропустил или не посчитал нужным реализовывать разработчик. В результате выполнения дипломного проекта усовершенствованы знания в области объектно-ориентированного программирования, разработке баз данных для локальных сетей, приобретены навыки использования научно - технической и экономической информации.

Данное программное средство может быть доведено до программного продукта после более детального тестирования у заказчика и разработки программной документации.

В случае разработки последующих версий программы можно добавить новые отчеты и усовершенствовать существующую базу данных.

Список используемых источников

1. Сорокин, А.В. «Delphi. Разработка баз данных». / А.В. Сорокин - СПб.: Питер, 2005. - 447 с.

2. Фаронов, В.В. Delphi5. Руководство разработчика баз данных. / В.В. Фаронов, П.В. Шумаков - М.: «Нолидж», 2000. - 640 с.

3. Джен, Л.К. Проектирование реляционных баз данных. Просто и доступно. / Л.К. Джен, Г.О. Харингтон - М.: издательство «Лори», 2000. - 230 с.

4. Бахтизин, В.В. Структурный анализ и моделирование в среде Case-средства BPWin. / В.В. Бахтизин, Л.А. Глухова - Мн.: БГУИР, 2002. - 44с .

5. Бахтизин, В.В. Учебное пособие по курсу «Технология проектирования программ»: Информационное моделирование с помощью Case-средства ERWin 3.0. / В.В. Бахтизин, Л.А. Глухова - Мн.: БГУИР, 1999. - 35 с.

6. Грицай, А.В. Дипломное проектирование: Методические рекомендации по разделу «Охрана труда». А.В. Грицай; Мн.: МГВРК,1998. - 214 с.

Приложение

Листинг программы

unit Unit1;

procedure TOsnova.N17Click(Sender: TObject);

begin

Close;

end;

procedure TOsnova.N12Click(Sender: TObject);

begin

Osnova.Hide;

Spr_ych.Show;

end;

procedure TOsnova.N14Click(Sender: TObject);

begin

Osnova.Hide;

Spr_gr.Show;

end;

procedure TOsnova.N13Click(Sender: TObject);

begin

Osnova.Hide;

Spr_prep_disc.Show;

end;

procedure TOsnova.N2Click(Sender: TObject);

begin

Osnova.Hide;

Raport.Show;

end;

procedure TOsnova.N18Click(Sender: TObject);

begin

Spr_spec.Show;

Osnova.Hide;

end;

procedure TOsnova.N4Click(Sender: TObject);

begin

Reestr.Show;

Osnova.Hide;

end;

procedure TOsnova.N3Click(Sender: TObject);

begin

Prikaz.Show;

Osnova.Hide;

end;

procedure TOsnova.N16Click(Sender: TObject);

begin

Osnova.Hide;

Vid_napr.Show;

end;

procedure TOsnova.N19Click(Sender: TObject);

begin

Polozenie.Show;

Osnova.Hide;

end;

procedure TOsnova.N15Click(Sender: TObject);

begin

Osnova.Hide;

Vid_rap.Show;

end;

procedure TOsnova.N22Click(Sender: TObject);

begin

Osnova.Hide;

Spr_Naprav.Show;

end;

procedure TOsnova.N8Click(Sender: TObject);

begin

Vid_napr_s.Show;

Osnova.Hide;

end;

procedure TOsnova.N24Click(Sender: TObject);

begin

Vib_sprav.Show;

Osnova.Hide;

Vib_sprav.BitBtn1.Visible:=true;

Vib_sprav.BitBtn3.Visible:=false;

end;

procedure TOsnova.N25Click(Sender: TObject);

begin

Osnova.Hide;

Vib_sprav.Show;

Vib_sprav.BitBtn1.Visible:=false;

Vib_sprav.BitBtn3.Visible:=true;

end;

procedure TOsnova.N5Click(Sender: TObject);

begin

Vid_prikaz.BitBtn1.Visible:=true;

Vid_prikaz.BitBtn3.Visible:=false;

Vid_prikaz.Show;

Osnova.Hide;

end;

procedure TOsnova.N6Click(Sender: TObject);

begin

Vid_prikaz.BitBtn1.Visible:=false;

Vid_prikaz.BitBtn3.Visible:=true;

Vid_prikaz.Show;

Osnova.Hide;

end;

end.

unit Unit2;

procedure TSpr_ych.ComboBox1Change(Sender: TObject);

begin

if length(ComboBox1.Text) > 0 then

begin

if combobox1.ItemIndex=0 then ADOTable1.Sort:='Фамилия_учащегося';

if combobox1.ItemIndex=1 then ADOTable1.Sort:='Имя_учащегося';

if combobox1.ItemIndex=2 then ADOTable1.Sort:='Отчество_учащегося';

if combobox1.ItemIndex=3 then ADOTable1.Sort:='№_группы';

if combobox1.ItemIndex=4 then

begin

ADOTable1.Active:=false;

ADOTable1.Active:=true;

end;

end;

end;

procedure TSpr_ych.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Dob_ych.Show;

end;

procedure TSpr_ych.BitBtn2Click(Sender: TObject);

begin

Spr_ych.ADOTable1.Edit;

Dob_ych.Show;

end;

procedure TSpr_ych.BitBtn3Click(Sender: TObject);

begin

if messagedlg('Удалить данные?',mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable1.Delete else exit;

end;

procedure TSpr_ych.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Spr_ych.Hide;

Osnova.Show;

end;

procedure TSpr_ych.BitBtn4Click(Sender: TObject);

begin

If (length(combobox2.Text)>0) and (length(Edit1.Text)>0) then

begin

If (ComboBox2.ItemIndex=0) then begin

ADOTable1.Filter:='(№_группы='''+Edit1.Text+''')';

ADOTable1.Filtered:=true;

end;

If (ComboBox2.ItemIndex=1) then begin

ADOTable1.Filter:='(Фамилия_учащегося='''+Edit1.Text+''')';

ADOTable1.Filtered:=true; end;

If (ComboBox2.ItemIndex=2) then begin

ADOTable1.Filter:='(Имя_учащегося='''+Edit1.Text+''')';

ADOTable1.Filtered:=true; end;

If (ComboBox2.ItemIndex=3) then begin

ADOTable1.Filter:='(Отчество_учащегося='''+Edit1.Text+''')';

ADOTable1.Filtered:=true; end;

BitBtn5.Visible:=true;

BitBtn4.Visible:=false;

end

else messagedlg('Выберите поле и введите значение для поиска',mtInformation,[mbOK],0);

end;

procedure TSpr_ych.BitBtn5Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.Active:=false;

ADOTable1.Active:=true;

ADOTable1.Refresh;

BitBtn5.Visible:=false;

BitBtn4.Visible:=true;

end;

procedure TSpr_ych.BitBtn6Click(Sender: TObject);

begin

Spr_ych.Hide;

Osnova.Show;

end;

end.

unit Unit3;

procedure TSpr_gr.BitBtn3Click(Sender: TObject);

var n:integer;

begin

if messagedlg('Удалить данные?',mtinformation,[mbOK,mbCancel],0)=idOK

then begin

n:=ADOQuery1.FieldByName('№_группы').AsInteger;

ADOTable1.Filtered:=false;

ADOTable1.Filter:='№_группы='''+ IntToStr(n) +'''';

ADOTable1.Filtered:=true;

ADOTable1.Delete;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

end

else exit;

end;

procedure TSpr_gr.ComboBox1Change(Sender: TObject);

begin

if length(ComboBox1.Text) > 0 then

begin

if combobox1.ItemIndex=0 then ADOQuery1.Sort:='№_группы';

if combobox1.ItemIndex=1 then ADOQuery1.Sort:='Специальность';

if combobox1.ItemIndex=2 then

begin

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

end;

end;

end;

procedure TSpr_gr.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Dob_gr.Show;

end;

procedure TSpr_gr.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

procedure TSpr_gr.BitBtn6Click(Sender: TObject);

begin

Spr_gr.Hide;

Osnova.Show;

end;

end.

unit Unit4;

procedure TSpr_prep_disc.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

Osnova.Show;

end;

procedure TSpr_prep_disc.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Dob_prep.Show;

end;

procedure TSpr_prep_disc.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Edit;

Spr_prep_disc.Hide;

Dob_prep.Show;

end;

procedure TSpr_prep_disc.ComboBox1Change(Sender: TObject);

begin

if length(ComboBox1.Text) > 0 then

begin

if combobox1.ItemIndex=0 then ADOTable1.Sort:='Фамилия_преподавателя';

if combobox1.ItemIndex=1 then ADOTable1.Sort:='Имя_преподавателя';

if combobox1.ItemIndex=2 then ADOTable1.Sort:='Отчество_преподавателя';

if combobox1.ItemIndex=3 then

begin

ADOTable1.Active:=false;

ADOTable1.Active:=true;

end;

end;

end;

procedure TSpr_prep_disc.BitBtn6Click(Sender: TObject);

begin

if messagedlg('Удалить данные?',mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable2.Delete else exit;

end;

procedure TSpr_prep_disc.BitBtn4Click(Sender: TObject);

begin

ADOTable2.Insert;

Dob_disc.Show;

end;

procedure TSpr_prep_disc.BitBtn3Click(Sender: TObject);

begin

if messagedlg('Имеются связанные данные. Продолжить?',mtinformation,[mbOK,mbCancel],0)=idOK

then begin

with Spr_prep_disc.ADOTable2 do

begin

Spr_prep_disc.ADOTable2.DisableControls;

Spr_prep_disc.ADOTable2.First;

while not Eof do

Delete;

Spr_prep_disc.ADOTable2.EnableControls;

Spr_prep_disc.ADOTable1.Delete;

end; end

else exit;

end;

end.

unit Unit5;

procedure TDob_ych.BitBtn1Click(Sender: TObject);

begin

if (length(DBEdit1.Text)=0) or (length(DBEdit2.Text)=0) or (length(DBEdit3.Text)=0) or(length(DBLookUpComboBox1.Text)=0) then

messagedlg('Должны быть заполнены все поля',mtinformation,[mbOK],0)

else begin

Spr_ych.ADOTable1.Post;

Dob_ych.Hide;

Spr_ych.Show;

end;

end;

procedure TDob_ych.BitBtn2Click(Sender: TObject);

begin

Spr_ych.ADOTable1.Cancel;

Dob_ych.Hide;

Spr_ych.Show;

end;

procedure TDob_ych.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Spr_ych.Show;

end;

end.

unit Unit6;

procedure TDob_gr.BitBtn1Click(Sender: TObject);

begin

if (length(DBEdit1.Text)=0) or (length(DBLookUpComboBox1.Text)=0) then

messagedlg('Должны быть заполнены все поля',mtinformation,[mbOK],0)

else begin

Spr_gr.ADOTable1.Post;

Spr_gr.ADOQuery1.Active:=false;

Spr_gr.ADOQuery1.Active:=true;

Dob_gr.Hide;

Spr_gr.Show;

end;

end;

procedure TDob_gr.BitBtn2Click(Sender: TObject);

begin

Spr_gr.ADOTable1.Cancel;

Dob_gr.Hide;

Spr_gr.Show;

end;

procedure TDob_gr.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Spr_gr.Show;

end;

end.

unit Unit7;

procedure TRaport.BitBtn4Click(Sender: TObject);

begin

Dob_rap_shap.Show;

Raport.ADOTable1.Insert;

end;

procedure TRaport.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

procedure TRaport.BitBtn3Click(Sender: TObject);

begin

if messagedlg('Имеются связанные данные. Продолжить?',mtinformation,[mbOK,mbCancel],0)=idOK

then begin

with Raport.ADOTable2 do

begin

Raport.ADOTable2.DisableControls;

Raport.ADOTable2.First;

while not Eof do

Delete;

Raport.ADOTable2.EnableControls;

Raport.ADOTable1.Delete;

end; end

else exit;

end;

procedure TRaport.BitBtn1Click(Sender: TObject);

begin

Dob_rap.Show;

Raport.Hide;

Raport.ADOTable2.Edit;

Dob_rap.DBGrid1.Enabled:=true;

Dob_rap.DBLookUpComboBox3.Enabled:=false;

Dob_rap.DBEdit1.Enabled:=false;

Dob_rap.DBLookUpComboBox4.Enabled:=false;

Dob_rap.DBLookUpComboBox5.Enabled:=false;

end;

procedure TRaport.ComboBox1Change(Sender: TObject);

begin

if length(ComboBox1.Text) > 0 then

begin

if combobox1.ItemIndex=0 then ADOTable1.Sort:='№_группы';

if combobox1.ItemIndex=1 then ADOTable1.Sort:='дата';

if combobox1.ItemIndex=2 then

begin

ADOTable1.Active:=false;

ADOTable1.Active:=true;

end;

end;

end;

procedure TRaport.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

If (length(Edit1.Text)>0) then

ADOTable1.Filter:='(№_группы='''+Edit1.Text+''')';

If (length(MaskEdit1.Text)>0) then

ADOTable1.Filter:='(дата='''+MaskEdit1.Text+''')';

If (length(Edit1.Text)=0) and (length(MaskEdit1.Text)=0) then

messagedlg('Введите хотя бы одно значение для поиска',mtInformation,[mbOK],0);

If (length(Edit1.Text)>0) and (length(MaskEdit1.Text)>0) then

ADOTable1.Filter:='(№_группы='''+Edit1.Text+''') and (дата='''+MaskEdit1.Text+''')';

ADOTable1.Filtered:=true;

BitBtn2.Visible:=false;

BitBtn6.Visible:=true;

end;

procedure TRaport.BitBtn5Click(Sender: TObject);

begin

Raport.Hide;

Osnova.Hide;

end;

procedure TRaport.BitBtn6Click(Sender: TObject);

begin

ADOTable1.Active:=false;

ADOTable1.Active:=true;

BitBtn6.Visible:=false;

BitBtn2.Visible:=true;

end;

end.

unit Unit8;

procedure TDob_rap.BitBtn1Click(Sender: TObject);

begin

Raport.ADOTable2.Cancel;

BitBtn2.Enabled:=true;

BitBtn1.Enabled:=false;

BitBtn3.Enabled:=true;

BitBtn4.Enabled:=false;

end;

procedure TDob_rap.BitBtn2Click(Sender: TObject);

begin

Raport.ADOTable2.Insert;

BitBtn2.Enabled:=false;

BitBtn1.Enabled:=true;

BitBtn3.Enabled:=false;

BitBtn4.Enabled:=true;

DBLookUpComboBox3.Enabled:=true;

DBEdit1.Enabled:=true;

DBLookUpComboBox4.Enabled:=true;

DBLookUpComboBox5.Enabled:=true;

end;

procedure TDob_rap.BitBtn3Click(Sender: TObject);

begin

BitBtn2.Enabled:=true;

BitBtn1.Enabled:=false;

BitBtn3.Enabled:=true;

BitBtn4.Enabled:=false;

Raport.ADOTable2.Delete;

Raport.ADOTable2.Refresh;

end;

procedure TDob_rap.BitBtn4Click(Sender: TObject);

begin

if (length(DBLookUpComboBox3.Text)=0) or (length(DBLookUpComboBox4.Text)=0) or (length(DBLookUpComboBox5.Text)=0) or (length(DBEdit1.Text)=0)

then messagedlg('Необходимозаполнить все поля',mtInformation,[mbOK],0)

else begin

Raport.ADOTable2.Edit;

Raport.ADOTable2.FieldByName('код_рап').AsInteger:=Raport.ADOTable1.FieldByName('код_рап').AsInteger;

Raport.ADOTable2.FieldByName('№_группы').AsInteger:=Raport.ADOTable1.FieldByName('№_группы').AsInteger;

Raport.ADOTable2.FieldByName('отметка_об_отработке').Value:=false;

Raport.ADOTable2.Post;

BitBtn2.Enabled:=true;

BitBtn1.Enabled:=false;

BitBtn3.Enabled:=true;

BitBtn4.Enabled:=false;

end;

end;

procedure TDob_rap.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Dob_rap.DBGrid1.Enabled:=false;

Dob_rap.Hide;

Raport.Show;

end;

procedure TDob_rap.FormActivate(Sender: TObject);

begin

Raport.ADOTable2.Filtered:=false;

Raport.ADOTable2.Filter:='код_рап='''+ IntToStr(Raport.ADOTable1.FieldByName('код_рап').Value) +'''';

Raport.ADOTable2.Filtered:=true;

Raport.ADOTable2.Active:=false;

Raport.ADOTable2.Active:=true;

end;

end.

unit Unit9;

procedure TPrikaz.BitBtn1Click(Sender: TObject);

begin

Dob_prik_shap.Show;

Prikaz.ADOTable1.Insert;

end;

procedure TPrikaz.BitBtn8Click(Sender: TObject);

begin

Dob_prikaz.Show;

Dob_prikaz.DBGrid1.Enabled:=true;

Prikaz.Hide;

Prikaz.ADOTable2.Edit;

Dob_rap.DBGrid1.Enabled:=true;

Dob_rap.DBLookUpComboBox3.Enabled:=false;

Dob_rap.DBEdit1.Enabled:=false;

Dob_rap.DBLookUpComboBox4.Enabled:=false;

Dob_rap.DBLookUpComboBox5.Enabled:=false;

end;

procedure TPrikaz.BitBtn7Click(Sender: TObject);

begin

if messagedlg('Имеются связанные данные. Продолжить?',mtinformation,[mbOK,mbCancel],0)=idOK

then begin

with Prikaz.ADOTable2 do

begin

Prikaz.ADOTable2.DisableControls;

Prikaz.ADOTable2.First;

while not Eof do

Delete;

Prikaz.ADOTable2.EnableControls;

Prikaz.ADOTable1.Delete;

end; end

else exit;

end;

procedure TPrikaz.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

procedure TPrikaz.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

If (length(Edit1.Text)>0) then

ADOTable1.Filter:='(№_приказа='''+Edit1.Text+''')';

If (length(MaskEdit1.Text)>0) then

ADOTable1.Filter:='(дата='''+MaskEdit1.Text+''')';

If (length(Edit1.Text)=0) and (length(MaskEdit1.Text)=0) then

messagedlg('Введите хотя бы одно значение для поиска',mtInformation,[mbOK],0);

If (length(Edit1.Text)>0) and (length(MaskEdit1.Text)>0) then

ADOTable1.Filter:='(№_приказа='''+Edit1.Text+''') and (дата='''+MaskEdit1.Text+''')';

ADOTable1.Filtered:=true;

BitBtn2.Visible:=false;

BitBtn6.Visible:=true;

end;

procedure TPrikaz.ComboBox1Change(Sender: TObject);

begin

if length(ComboBox1.Text) > 0 then

begin

if combobox1.ItemIndex=0 then ADOTable1.Sort:='№_приказа';

if combobox1.ItemIndex=1 then ADOTable1.Sort:='дата';

if combobox1.ItemIndex=2 then

begin

ADOTable1.Active:=false;

ADOTable1.Active:=true;

end;

end;

end;

procedure TPrikaz.BitBtn6Click(Sender: TObject);

begin

ADOTable1.Active:=false;

ADOTable1.Active:=true;

BitBtn6.Visible:=false;

BitBtn2.Visible:=true;

end;

procedure TPrikaz.BitBtn3Click(Sender: TObject);

begin

Prikaz.Hide;

Osnova.Show;

end;

end.

unit Unit10;

procedure TSpr_spec.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

procedure TSpr_spec.BitBtn1Click(Sender: TObject);

begin

Spr_spec.Hide;

Osnova.Show;

end;

end.

unit Unit11;

procedure TDob_prikaz.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Dob_prikaz.DBGrid1.Enabled:=false;

Dob_prikaz.Hide;

Prikaz.Show;

end;

procedure TDob_prikaz.DateTimePicker1Change(Sender: TObject);

begin

DBEdit1.Text:=DateToStr(DateTimePicker1.Date);

end;

procedure TDob_prikaz.FormActivate(Sender: TObject);

begin

Prikaz.ADOTable2.Filtered:=false;

Prikaz.ADOTable2.Filter:='№_приказа='''+ IntToStr(Prikaz.ADOTable1.FieldByName('№_приказа').Value) +'''';

Prikaz.ADOTable2.Filtered:=true;

Prikaz.ADOTable2.Active:=false;

Prikaz.ADOTable2.Active:=true;