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

Требование к техническим средствам

Процессор - Pentium MMX 233 MHz.

ОЗУ - не менее 32-х Мб SDRAM - памяти.

Не менее 15-ти Мб свободного дискового пространства (файловая система FAT 32).

SVGA-монитор с поддержкой режима 800Х600 точек

CD-ROM - для установки программы.

Клавиатура, мышь.

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

Описание функций

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

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

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

ГЛАВА 4. ТЕХНИКО-ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ РАЗРАБОТКИ

Таблица 6 Определение затрат времени по стадиям разработки проекта

Стадия разработки проекта	Затраты времени	Поправочный коэффициент	Затраты времени с учетом поправочного коэффициента
	Значение, чел.-дней	Основание	Значение	Основание
Разработка технического задания	30	Табл. 4.1 Норма 2г
Затраты времени разработчика постановки задачи			0,65		20
Затраты времени разработчика программного обеспечения			0,35		11
Разработка эскизного проекта.	35	Табл. 4.2 Норма 2г
Затраты времени разработчика постановки задачи			0,70		25
Затраты времени разработчика программного обеспечения			0,30		11
Разработка техно-рабочего проекта
Разработка технического проекта, затраты времени разработчика постановки задачи	105	Табл. 4.5 Норма 5е	К1=0,47 К2=1 К3=1,10 К4=0,85 Кобщ.=0,44		46
Затраты времени разработчика программного обеспечения	30	Табл. 4.6 Норма 5е	К1=0,47 К2=1 К3=1,10 К4=0,85 Кобщ.=0,44		13
Разработка рабочего проекта, затраты времени разработчика постановки задачи	69	Табл. Норма 5е	К1=0,40 К2=1,16 К3=1,15 К4=0,80 К5=0,50 Кобщ.=0,21		15
Затраты времени разработчика программного обеспечения.	208	Табл. Норма 5е	К1=0,40 К2=1,16 К3=1,15 К4=0,80 К5=0,50 Кобщ.=0,21		44
Внедрение.
Затраты времени разработчика постановки задачи	58	Табл. Норма 5е	К1=1,0 К2=1,16 К3=1,05 К4=0,5 Кобщ.=0,61		35
Затраты времени разработчика программного обеспечения	59	Табл. Норма 5е	К1=1,0 К2=1,16 К3=1,05 К4=0,5 Кобщ.=0,61		36

Всего на комплекс задач (только затраты времени разработчика программного продукта)

115 чел.-дн. = 920 чел.-час.

На основании данных Таблицы 6 получаем значение Тн = 920 чел/час

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

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

Ао = Тн *З/плср * (1 + КЕСН + Кнр) + Смч *Тмо (Ф2) ,

где

Тн - время на составление программного продукта (920 чел/час)

З/плср - средняя заработная плата программиста (часовая, дневная или месячная) (25,55 руб/час)

КЕСН - коэффициент единого социального налога (В соответствии с Налоговым кодексом - Часть II,глава 24, статья 241, ставка составляет 0,356)

Кнр - Коэффициент накладных расходов, используемый на предприятии. (По данным документации в организации коэффициент накладных расходов составляет 0,4)

Смч - стоимость одного часа машинного времени

Тмо - затраты машинного времени на отладку программы

Ао = 920 чел/час * 25,55руб/час*(1+0,356+0,4) + 1,97 * 32 чел/час = 920*25,55*1,756+63,04 = 41339,58 руб.

На полученную сумму начисляется НДС по ставке налога 18%.

41339,58 руб. * 18% = 7441,12 (руб.)

41339,58 руб. + 7441,12 руб. = 48780,70 (руб.)

Стоимость одного машинного часа может быть рассчитана следующим образом:

Стоимость одного машинного часа рассчитывается по формуле:

(Ф3),

где

Сбал. - балансовая стоимость ПК, руб; (20000 руб.)

Тсл - нормативный срок эксплуатации ПК (по паспортным данным) (10 лет)

Др - число рабочих дней в году (251 день)

Чд - число часов работы ПК в день (6 час.)

Сэл.эн. - стоимость электроэнергии, которая рассчитывается по формуле:

Сэл.эн = Рэл * Цквт (Ф4),

где

Рэл - расход электроэнергии в час (по паспортным данным ПК), квт (0,87квт)

Цквт - стоимость (цена) квт. Часа электроэнергии (1,86 руб.)

Сэл.эн = 0,87 квт * 1,86 руб. =1,62 руб.

Таким образом, стоимость одного машинного часа будет равна:

Смч = 20000 руб./(10 лет*251 день*6 час) + 1,62 руб. = 2,95 (руб.)

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

Э= З1 - З2 (Ф5),

где

З1 - элементы производственных затрат, связанные с использованием заменяемой информационной технологии (или традиционного способа решения задачи);

З2 - элементы производственных затрат, связанные с использованием новой информационной технологии;

Э - снижение себестоимости продукции (работ) после внедрения нового программного продукта (для каждого года его использования).

Затраты могут быть определены по формуле:

З(1,2) =З/пл *Тр*(1+КЕСН+КНР) (Ф6),

Где З/пл - средняя заработная плата работника (часовая, дневная, месячная), руб.

Тр - трудоемкость решения задачи из расчета за год в чел./час., чел./дн., чел./мес.

Тр1 = 0,25(час) * 2510 док. = 628 час

Тр2 = 0,05(час) * 2510 док. = 126 час

З1=35,25 руб. * 628 час * (1+0,356+0,4)= 38872,57 (руб.)

З2=35,25 руб. * 126 час * (1+0,356+0,4)= 7799,27 (руб.)

Э=38872,57 руб. - 7799,27 руб. = 31073,30 (руб.)

Срок окупаемости программного продукта рассчитывается по формуле:

Ток=А0/Э (Ф7),

где

А - затраты, связанные с созданием программного продукта

Э - эффект от использования программного продукта.

Ток=48780,70 руб. / 31073,30 руб. 1,6

Для оценки эффективности проекта используются следующие показатели:

Чистый доход (ЧД);

Чистый дисконтированный доход (ЧДД);

Индекс доходности (ИД);

Внутренняя норма доходности (ВНД).

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

Выплаты организации делятся на капитальные (единовременные) затраты и текущие затраты.

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

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

Поступления - это результат деятельности предприятия в процессе осуществления проекта в виде выручки от реализации произведенной продукции.

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

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

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

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

При этом:

Заранее задается минимально допустимая ставка процента окупаемости (прибыльный процент - норма дисконта), при которой объект инвестирования считается прибыльным. Такой ставкой является ставка банковского процента. Она равна 20 % и условно считается неизменной для всего срока службы объекта инвестирования (Е =0,2)

Осуществляется дисконтирование (приведение к базисному моменту времени) на основе расчетной ставки процента с текущих поступлений, полученных после приобретения объекта инвестирования (иначе - дисконтированный эффект):

(Ф8),

где

n - срок службы объекта инвестирования (для программных продуктов обычно 3 года);

t - номер шага расчета (=1,2,3),

Э1 - текущие годовые поступления в году t т.е.

(Ф9)

Условно можно считать, что Э1, Э2, Э3 равны между собой (они рассчитываются по формуле Э= З1-З2 эти величины могут корректироваться с учетом инфляции.

Э= 31073,30/(1+0,18)1 + 31073,30/(1+0,18)2 +31073,30/(1+0,18)3 = 67635,33 (руб.)

Рассчитывается дисконтированная (чистая) стоимость расходов на приобретение (создание) приложения из величины выручки от инвестиций:

К = Э-А0

К = 67635,33 руб. - 48780,70руб. = 18854,63 (руб.)

Положительная величина дисконтированной стоимости капитала означает, что проект эффективен (при данной норме дисконта). Чем больше эта величина, тем эффективнее проект.

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

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

ИД = 67635,33 руб. / 48780,70руб. = 1,39

Если ИД > 1, то проект эффективен, в противном случае - неэффективен.

На основании проделанных расчетов можно сделать следующие выводы.

Чистые затраты на разработку программы «D-Art Aurora v.1.0» составили - 48780,70руб. Полученный показатель К=18854,63руб. положительный. Положительная величина означает, что проект эффективен, чем больше эта величина, тем эффективнее проект. Отрицательная величина означает убыточность инвестиций. Следовательно разработанный проект является эффективным при данной норме дисконта. Срок окупаемости разработанного программного продукта составил 1,6 года. Определенный индекс доходности равен 1,39. Он больше 1. Что также доказывает рациональность и эффективность разработки. Следовательно, внедрение разработанной программы не нанесет убытков организации и является более эффективным решением вложения средств.

ГЛАВА 5. ОХРАНА ТРУДА И ТЕХНИКА БЕЗОПАСНОСТИ

Основные положения

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

На рабочем месте инженера-программиста должны быть созданы условия для высокопроизводительного труда. В настоящее время всё большее применение находят автоматизированные рабочие места, которые оснащаются персональными ЭВМ с графическими дисплеями, клавиатурами и принтерами.

На рабочем месте любой оператор подвергается воздействию следующих неблагоприятных факторов:

ѕ недостаточное освещение;

ѕ электромагнитное излучение;

ѕ выделение избытков теплоты.

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

Развитию утомляемости на производстве способствуют следующие факторы:

ѕ неправильная эргономическая организация рабочего места, нерациональные зоны размещения оборудования по высоте от пола, по фронту от оси симметрии и т.д.;

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

ГЛАВА 6. ЭРГОНОМИКА

Основные положения

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

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

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

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

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

Анализ опасных и вредных производственных факторов

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

ѕ неблагоприятные климатические условия

ѕ недостаточная освещенность помещения

ѕ повышенный уровень электромагнитных и электростатических полей

ѕ переутомление работающих

ѕ опасность поражения электрическим током

ѕ опасность возникновения пожара

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

Санитарные нормы

Требования к освещению помещений и рабочих мест с ПЭВМ

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

Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300 - 500 лк. Допускается установка светильников местного освещения для подсветки документов. Местное освещение не должно создавать бликов на поверхности экрана и увеличивать освещенность экрана более 300 лк.

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

Следует ограничивать отраженную блесткость на рабочих поверхностях (экран, стол, клавиатура и др.) за счет правильного выбора типов светильников и расположения рабочих мест по отношению к источникам естественного и искусственного освещения. При этом яркость бликов на экране ПЭВМ не должна превышать 40 кд/кв. м и яркость потолка при применении системы отраженного освещения не должна превышать 200 кд/кв. м.

Показатель ослепленности для источников общего искусственного освещения в производственных помещениях должен быть не более 20, показатель дискомфорта в административно общественных помещениях - не более 40, в дошкольных и учебных помещениях - не более 25. Следует ограничивать неравномерность распределения яркости в поле зрения пользователя ПЭВМ, при этом соотношение яркости между рабочими поверхностями не должно превышать 3 : 1 - 5 : 1, а между рабочими поверхностями и поверхностями стен и оборудования - 10 : 1.

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

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

Для освещения помещений с ПЭВМ следует применять светильники серии ЛПО36 с зеркализованными решетками, укомплектованные высокочастотными пускорегулирующими аппаратами (ВЧ ПРА). Допускается применять светильники серии ЛПО36 без ВЧ ПРА только в модификации "Кососвет", а также светильники прямого света - П, преимущественно прямого света - Н, преимущественно отраженного света - В. Применение светильников без рассеивателей и экранирующих решеток не допускается.

Яркость светильников общего освещения в зоне углов излучения от 50 до 90 градусов с вертикалью в продольной и поперечной плоскостях должна составлять не более 200 кд/кв. м, защитный угол светильников должен быть не менее 40 градусов. Светильники местного освещения должны иметь непросвечивающий отражатель с защитным углом не менее 40 градусов.

Коэффициент запаса (Кз) для осветительных установок общего освещения должен приниматься равным 1,4. Коэффициент пульсации не должен превышать 5%, что должно обеспечиваться применением газоразрядных ламп в светильниках общего и местного освещения с высокочастотными пускорегулирующими аппаратами (ВЧ ПРА) для любых типов светильников. При отсутствии светильников с ВЧ ПРА лампы многоламповых светильников или рядом расположенные светильники общего освещения следует включать на разные фазы трехфазной сети.

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

Общие требования к организации рабочих мест

Рабочие места с ПЭВМ по отношению к световым проемам должны располагаться так, чтобы естественный свет падал сбоку, преимущественно слева.

Схемы размещения рабочих мест с ПЭВМ должны учитывать расстояния между рабочими столами с видеомониторами (в направлении тыла поверхности одного видеомонитора и экрана другого видеомонитора), которое должно быть не менее 2,0 м, а расстояние между боковыми поверхностями видеомониторов - не менее 1,2 м.

Рабочие места с ПЭВМ в залах электронно-вычислительных машин или в помещениях с источниками вредных производственных факторов должны размещаться в изолированных кабинах с организованным воздухообменом.

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

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

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

При отсутствии подсобных помещений или лаборантских допускается размещение шкафов, сейфов и стеллажей в помещениях непосредственного использования ПЭВМ при соблюдении требований к площади помещений и требований, изложенных в настоящем разделе. В подсобных помещениях или в лаборантских должны размещаться рабочий стол и радиомонтажный стол, оборудованный местным отсосом на телескопическом воздуховоде с шарнирным соединением, позволяющим устанавливать воздухоприемник в нужном положении, с исходной скоростью 5 - 6 м/с во всасывающей плоскости.

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

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

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

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

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

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

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

В помещениях с ПЭВМ ежедневно должна проводиться влажная уборка.

Помещения с ПЭВМ должны быть оснащены аптечкой первой помощи и углекислотными огнетушителями.

Требования к организации режима труда и отдыха при работе с ПЭВМ

Режимы труда и отдыха при работе с ПЭВМ должны организовываться в зависимости от вида и категории трудовой деятельности. Виды трудовой деятельности разделяются на 3 группы: группа А - работа по считыванию информации с экрана ПЭВМ с предварительным запросом; группа Б - работа по вводу информации; группа В - творческая работа в режиме диалога с ЭВМ. При выполнении в течение рабочей смены работ, относящихся к разным видам трудовой деятельности, за основную работу с ПЭВМ следует принимать такую, которая занимает не менее 50% времени в течение рабочей смены или рабочего дня. Для видов трудовой деятельности устанавливается 3 категории тяжести и напряженности работы с ПЭВМ, которые определяются: для группы А - по суммарному числу считываемых знаков за рабочую смену, но не более 60000 знаков за смену; для группы Б - по суммарному числу считываемых или вводимых знаков за рабочую смену, но не более 40000 знаков за смену; для группы В - по суммарному времени непосредственной работы с ПЭВМ за рабочую смену, но не более 6 часов за смену.

Для преподавателей высших и средних специальных учебных заведений, учителей общеобразовательных школ устанавливается длительность работы в дисплейных классах и кабинетах информатики и вычислительной техники не более 4 часов в день. Для инженеров, обслуживающих учебный процесс в кабинетах (аудиториях) ПЭВМ, продолжительность работы не должна превышать 6 часов в день.

Для обеспечения оптимальной работоспособности и сохранения здоровья профессиональных пользователей на протяжении рабочей смены должны устанавливаться регламентированные перерывы. Время регламентированных перерывов в течение рабочей смены следует устанавливать в зависимости от ее продолжительности, вида и категории трудовой деятельности. Продолжительность непрерывной работы с ПЭВМ без регламентированного перерыва не должна превышать 2 часов. При работе с ПЭВМ в ночную смену (с 22 до 6 часов), независимо от категории и вида трудовой деятельности, продолжительность регламентированных перерывов должна увеличиваться на 60 минут.

При 8-часовой рабочей смене и работе на ПЭВМ регламентированные перерывы следует устанавливать: для I категории работ - через 2 часа от начала рабочей смены и через 2 часа после обеденного перерыва продолжительностью 15 минут каждый; для II категории работ - через 2 часа от начала рабочей смены и через 1.5 - 2 часа после обеденного перерыва продолжительностью 15 минут каждый или продолжительностью 10 минут через каждый час работы; для III категории работ - через 1.5 - 2 часа от начала рабочей смены и через 1.5 - 2 часа после обеденного перерыва продолжительностью 20 минут каждый или продолжительностью 15 минут через каждый час работы.

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

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

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

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

Требования к помещениям для эксплуатации ПЭВМ

Помещения с ПЭВМ должны иметь естественное и искусственное освещение.

Естественное освещение должно осуществляться через светопроемы, ориентированные преимущественно на север и северо-восток и обеспечивать коэффициент естественной освещенности (КЕО) не ниже 1,2% в зонах с устойчивым снежным покровом и не ниже 1,5% на остальной территории. Указанные значения КЕО нормируются для зданий, расположенных в III световом климатическом поясе. Расчет КЕО для других поясов светового климата проводится по общепринятой методике согласно СНиП "Естественное и искусственное освещение".

Расположение рабочих мест с ПЭВМ для взрослых пользователей в подвальных помещениях не допускается. Размещение рабочих мест с ПЭВМ во всех учебных заведениях и дошкольных учреждениях не допускается в цокольных и подвальных помещениях.

В случаях производственной необходимости эксплуатация ПЭВМ в помещениях без естественного освещения может проводиться только по согласованию с органами и учреждениями Государственного санитарно - эпидемиологического надзора. Площадь на одно рабочее место с ПЭВМ для взрослых пользователей должна составлять не менее 6,0 кв. м, а объем - не менее 20,0 куб. метров. Площадь на одно рабочее место с ПЭВМ во всех учебных и дошкольных учреждениях должна быть не менее 6,0 кв. м, а объем - не менее 24,0 куб. м.

При строительстве новых и реконструкции действующих средних, средних специальных и высших учебных заведений помещения для ПЭВМ следует проектировать высотой (от пола до потолка) не менее 4,0 метров. При входе в учебное помещение с ПЭВМ в средних и высших учебных заведениях следует предусмотреть встроенные или пристенные шкафы (полки) для хранения портфелей, сумок учащихся и студентов.

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

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

Учебные кабинеты вычислительной техники или дисплейные аудитории (классы) должны иметь смежное помещение - лаборантскую площадью не менее 18,0 кв. м с двумя входами: в учебное помещение и на лестничную площадку или в рекреацию.

Для внутренней отделки интерьера помещений с ПЭВМ должны использоваться диффузно - отражающие материалы с коэффициентом отражения для потолка - 0,7 - 0,8; для стен - 0,5 0,6; для пола - 0,3 - 0,5. Полимерные материалы, используемые для внутренней отделки интерьера помещений с ПЭВМ, должны быть разрешены для применения органами и учреждениями Государственного санитарно - эпидемиологического надзора.

Правила пожарной безопасности

Помещения, в которых проводятся работы с использованием персональных компьютеров, а также сами компьютеры содержат большое количество горючих и легковоспламеняющихся материалов. Поэтому, для устранения опасности возникновения пожара при оборудовании и эксплуатации помещений, предназначенных для работы с ПЭВМ, следует соблюдать “Правила пожарной безопасности Российской Федерации”[2]. В соответствии с этими правилами на 100 м2 площади таких помещений должен располагаться минимум 1 огнетушитель углекислого типа.

Защита рабочих от поражения электрическим током

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

Во время работы нельзя открывать системный блок компьютеров, а также любые работающие периферийные устройства. Не рекомендуется также подключать и/или отключать периферийные устройства от работающих ПЭВМ. Кроме того, рекомендуется использовать устройства, контролирующие изменения напряжения на входе в компьютер и другие устройства.

ЗАКЛЮЧЕНИЕ

В процессе работы над данным дипломным проектом мне пришлось столунуться с рядом достаточно сложных проблем, для решения которых пришлось пополнить некоторые теоретические знания и практические знания, как по общей теории баз данных, так и реализации приложений баз данных в среде визуального программирования Delphi. Именно на данную систему программирования и пал мой выбор после получения технического задания, содержащего все требования к функциональным характеристикам программы. Данный выбор не случаен. Borland Delphi 7.0 является, по-моему грлубочайшему убеждению одной из самых лучших (если не самой лучшей) системой по написанию приложений баз данных. Эта система имеет широкие возможности по реализации СУБД самой различной конфигурации и архитектуры, что в сочетании с гибгим и достаточно структурированным язком программирования Object Pascal дает Delphi огромное преимущество в сравнении с другими подобными системами.

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

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

Программа занимает на диске до 15-ти мегабайт. В оперативной памяти программа вместе со всеми загруженными библиотеками DLL занимает 11 килобайт. Так как программа использует технологии баз данных, то это увиличивает требования к свободной оперативной памяти компьютера и минимальным объемом, при котором программа работает с приемлимым быстродействием, составляет 32 мегабайта.

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

В завершении хочется отметить, что данный проект (программа «D-Art Aurora v.1.0») не будет заброшен и разработка новых версий не заставит себя ждать, возможности программы будут расширены, но основной принцип всех моих программ, «Максимум пользы, при минимуме сложности», останется неизменным.

СПИСОК ЛИТЕРАТУРЫ

1. Робинсон С. - Microsoft Access 2000: учебный курс - СПб.: Питер, 2002.

2. Валерий Фаронов - Delphi 6: учебный курс - СПб.: Питер, 2002.

3. Валерий Фаронов - Программирование баз данных в Delphi 6: учебный курс - СПб.: Питер, 2002.

4. Валерий Фаронов - Профессиональная работа в Delphi 6. Библиотека программиста. - СПб.: Питер, 2002

5. Елманова Н. - Delphi 6 и технология COM. - СПб.: Питер, 2002

6. Базы данных: Учебник для высших учебных заведений /Под ред. проф. А.Д. Хомоненко. - СПб.: КОРОНА принт, 2000

ПРИЛОЖЕНИЕ 1

«Листинг программы D-Art Aurora v.1.0»

(ПРОЕКТ AURORA.DPR)

{D-Art® Aurora® v.1.0. © D-Art Software Corporation - 2003-2004.

All Copyrights are protected. Only personal use.

Not legal sale - is forbidden! }

Program Aurora;

uses

Forms,

SysUtils,

Controls,

Av_General in 'Av_General.pas' {General},

Av_Data in 'Av_Data.pas' {P_Data: TDataModule},

Sub_Program in 'Sub_Program.pas',

Load in 'Load.pas' {LoadF},

Av_Nuclls in 'Av_Nuclls.pas' {Nucll},

Av_DBData in 'Av_DBData.pas' {DB_Data: TDataModule},

Calend in 'Calend.pas' {Calen},

Av_ListRed in 'Av_ListRed.pas' {ListRed},

Av_ManyW in 'Av_ManyW.pas' {Many_List},

Av_Querys in 'Av_Querys.pas' {FQuery},

Av_Find in 'Av_Find.pas' {FFind},

Av_QLibrary in 'Av_QLibrary.pas' {QLib},

Av_ActionNow in 'Av_ActionNow.pas' {AN},

Av_FSort in 'Av_FSort.pas' {FSort},

Av_Print in 'Av_Print.pas' {FPrint},

Registry,

Av_Reports in 'Av_Reports.pas' {FReport},

Av_Pwrd in 'Av_Pwrd.pas' {FPwrd},

Av_ClearT in 'Av_ClearT.pas' {Form1},

Av_Exp in 'Av_Exp.pas' {FExp},

Av_Help in 'Av_Help.pas' {FHelp};

var

Aurora_Reg: TRegistry;

{$R *.res}

begin

{-----------------Начальные значения переменных------------}

First_load := True; //Устанавливает запуск программы (=>Av_General)

Can_RS := False; //Запрещает менять размеры рабочего окна (=>Av_Nuclls)

//Set_Top := True; //Разрешаем мнять местоположение рабочего окна (=>Av_Nuclls)

TAMode := am_None; //Устанавливаем состаяние НД(N_Gen) - НД не менялся (=>Av_Nuclls)

//i := 1; //Счетчик массива номеров записей для удаления (=>Av_Nucll)

SV_Click := False;

CH_F := False;

CH_F2 := False;

Del_Q := 0;

//NumNewF := 0;

//ShowMEssage(Prog_Dir);

{-----------------Начальные значения (конец)---------------}

Application.Title := 'D-Art: Aurora v.1.0';

Application.CreateForm(TGeneral, General);

Application.CreateForm(TLoadF, LoadF);

Application.CreateForm(TP_Data, P_Data);

Application.CreateForm(TDB_Data, DB_Data);

Application.CreateForm(TCalen, Calen);

Application.CreateForm(TListRed, ListRed);

Application.CreateForm(TMany_List, Many_List);

Application.CreateForm(TFFind, FFind);

Application.CreateForm(TQLib, QLib);

Application.CreateForm(TAN, AN);

Application.CreateForm(TFSort, FSort);

Application.CreateForm(TFPrint, FPrint);

Application.CreateForm(TFPwrd, FPwrd);

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TFExp, FExp);

Application.CreateForm(TFHelp, FHelp);

Application.Initialize;

{-----------------Реестр Windows---------------------------}

Aurora_Reg := TRegistry.Create;

//Считываем значения из системного реестра

With Aurora_Reg Do

begin

OpenKey('\Software\D-Art Soft\Aurora',True);

If not ValueExists('Work_dir') Then

WriteString('Work_dir',ExtractFileDir(ExpandFileName('Aurora.exe')) + '\D_bc\');

If not ValueExists('Prog_dir') Then

WriteString('Prog_dir',ExtractFileDir(ExpandFileName('Aurora.exe')) + '\');

If not ValueExists('NDS') Then

WriteFloat('NDS',0.18);

If not ValueExists('NSP') Then

WriteFloat('NSP',0.05);

If not ValueExists('Ent_name') Then

WriteString('Ent_name','(Нет данных)');

If not ValueExists('Sort_nuclls') Then

WriteString('Sort_nuclls','Num ASC');

Nds_v := ReadFloat('NDS');

Nsp_v := ReadFloat('NSP');

Work_dir := ReadString('Work_dir');

Prog_dir := ReadString('Prog_dir');

Name_E := ReadString('Ent_name');

//Определяем установлен ли пароль

If not ValueExists('PassWord') Then WriteString('PassWord','')

Else

begin

rpw := ReadString('PassWord');

If rpw <> '' Then

If FPwrd.ShowModal = mrCancel Then Application.Terminate;

end;

end;

{-----------------Реестр Windows (конец)-------------------}

Application.Run;

end.

(МОДУЛЬ AV_NUCLLS.PAS)

unit Av_Nuclls;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Mask, DBCtrls,

Grids, DBGrids, Buttons, ADODB, DB, Registry;

type

TNucll = class(TForm)

Redactor: TGroupBox;

E_Num: TDBEdit;

E_Sum: TDBEdit;

Tools: TControlBar;

Navig: TToolBar;

Grid: TDBGrid;

E_Date: TDBEdit;

DBEdit6: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Date_B: TButton;

Label8: TLabel;

Work_B: TButton;

Client_B: TButton;

FioO_B: TButton;

StatO_B: TButton;

Label9: TLabel;

StatP_B: TButton;

B_NSP: TDBCheckBox;

B_Sile: TDBCheckBox;

B_Many: TDBCheckBox;

Label10: TLabel;

Bevel2: TBevel;

DBEdit3: TDBEdit;

Label11: TLabel;

DBEdit4: TDBEdit;

Label12: TLabel;

E_FioP: TDBEdit;

Save: TToolButton;

Add: TToolButton;

Del: TToolButton;

Edit: TToolButton;

Next: TToolButton;

Prior: TToolButton;

ToolButton7: TToolButton;

View: TToolButton;

Help: TToolButton;

ToolButton10: TToolButton;

L_Work: TDBComboBox;

L_Client: TDBComboBox;

L_FioO: TDBComboBox;

L_StatO: TDBComboBox;

L_StatP: TDBComboBox;

Work_A: TBitBtn;

Client_A: TBitBtn;

FioO_A: TBitBtn;

StatO_A: TBitBtn;

StatP_A: TBitBtn;

Lst_Many: TButton;

Ap_Button: TToolBar;

Red_LST: TToolButton;

ToolButton2: TToolButton;

MB_LST: TToolButton;

MoveBy_P: TToolButton;

ToolButton9: TToolButton;

ToolButton11: TToolButton;

ToolButton12: TToolButton;

ToolButton13: TToolButton;

ToolButton14: TToolButton;

ToolButton4: TToolButton;

MoveBy_N: TToolButton;

ToolButton3: TToolButton;

Bevel1: TBevel;

procedure FormResize(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

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

procedure Date_BClick(Sender: TObject);

procedure Work_BClick(Sender: TObject);

procedure EditClick(Sender: TObject);

procedure SaveClick(Sender: TObject);

procedure AddClick(Sender: TObject);

procedure DelClick(Sender: TObject);

procedure PriorClick(Sender: TObject);

procedure NextClick(Sender: TObject);

procedure B_ManyClick(Sender: TObject);

procedure Lst_ManyClick(Sender: TObject);

procedure Work_AClick(Sender: TObject);

procedure Client_BClick(Sender: TObject);

procedure Client_AClick(Sender: TObject);

procedure FioO_BClick(Sender: TObject);

procedure FioO_AClick(Sender: TObject);

procedure StatO_AClick(Sender: TObject);

procedure StatO_BClick(Sender: TObject);

procedure StatP_BClick(Sender: TObject);

procedure StatP_AClick(Sender: TObject);

procedure Red_LSTClick(Sender: TObject);

procedure MoveBy_PClick(Sender: TObject);

procedure MoveBy_NClick(Sender: TObject);

procedure E_NumEnter(Sender: TObject);

procedure E_NumExit(Sender: TObject);

procedure GridExit(Sender: TObject);

procedure GridEnter(Sender: TObject);

procedure MB_LSTMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure GridDblClick(Sender: TObject);

procedure HelpClick(Sender: TObject);

procedure E_SumEnter(Sender: TObject);

procedure E_DateEnter(Sender: TObject);

procedure E_DateExit(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Nucll: TNucll;

Can_RS: boolean;{Определяет нужно менять размеры рабочего окна}

TAMode{Определяет различные состояния набора данных N_Gen (=>Av_DBData)}: byte;

CH_F, CH_F2, NoATL, SV_Click, No_Adding, InGRD, Exec, CL_Click, SMM: boolean;

Active_Tab : TADOTable;

FS_Tab, MP_Tab: TCustomADODataSet;

Del_Q : byte;

Field_val, Right_num: Variant;

Tab_Name: String;

Active_Form: TForm;

Const

//Константы состаяний НД N_Gen

am_None = 0;

am_Add = 1;

am_Del = 2;

am_Edit = 3;

am_Scroll = 4;

implementation

uses Av_Data, Av_General, Load, Sub_Program, Av_DBData, Calend, Av_ListRed,

Av_ManyW, Av_Querys;

{$R *.dfm}

procedure TNucll.FormResize(Sender: TObject);

begin

//Проверяем размеры окна для изменения отображения

B_Sile.Left := B_NSP.Left;

end;

procedure TNucll.FormCreate(Sender: TObject);

begin

//Устанавливаем размеры окна в соответствии с разрешением экрана

Height := General.ClientHeight - General.BTools.Height - General.Gen_Stat.Height - 5;;

Width := Round(Screen.Width * 0.90);

Top := 0;

Nucll.Work_A.Visible := RVB;

Nucll.Work_B.Visible := RVB;

Nucll.Client_A.Visible := RVB;

Nucll.Client_B.Visible := RVB;

Nucll.FioO_A.Visible := RVB;

Nucll.FioO_B.Visible := RVB;

Nucll.StatO_A.Visible := RVB;

Nucll.StatO_B.Visible := RVB;

Nucll.StatP_A.Visible := RVB;

Nucll.StatP_B.Visible := RVB;

end;

procedure TNucll.FormActivate(Sender: TObject);

begin

Top := 0;

//Меняем заголовок программы и окна

Application.Title := 'D-Art: Aurora v.1.0 [Накладная]';

Active_Tab := DB_Data.N_Gen;

FS_Tab := DB_Data.N_Gen;

MP_Tab := DB_Data.N_MIO;

Active_Form := Self;

Tab_Name := '"Накладные"';

DB_Data.Max_Num.SQL.Clear;

DB_Data.Max_Num.SQL.Add('Select Max(Num) From ' + Active_Tab.TableName);

Write_Stat(DB_Data.N_Gen,DB_Data.Primtabs,General.Gen_Stat);

Nucll.FocusControl(Navig);

end;

Procedure OnCls;

var i: byte;

Reg_nuc: TRegistry;

begin

//По закрытию сохраняем все изменения

DB_Data.N_Gen.UpdateBatch;

DB_Data.N_MIO.UpdateBatch;

P_Data.Control1.Enabled := False;

Nucll.Destroy;//WindowHandle;

If Av_General.SC_Win[W_Querys] = False Then Active_Tab := nil;

//Фиксируем закрытие окна в массиве (=>Av_General)

Av_General.SC_Win[W_Nuclls] := False;

//Меняем заголовок программы и окна

Application.Title := 'D-Art: Aurora v.1.0';

For i := 0 To 3 Do

General.Gen_Stat.Panels[i].Text := '';

//Записываем данные в реестр

Reg_nuc := TRegistry.Create;

Reg_nuc.OpenKey('\Software\D-Art Soft\Aurora',True);

Reg_nuc.WriteString('Sort_nuclls',DB_Data.N_Gen.Sort);

Reg_nuc.Destroy;

end;

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

var NS_Mes: integer;

begin

SV_Click := True;

//Проверяем сохранность данных

If TAMode <> am_None Then

begin

NS_Mes := Application.MessageBox(PChar('Не были сохранены изменения в накладной №'+ DB_Data.Num.AsString + '. Сохранить изменения?' ),

'D-Art: Aurora',mb_OkCancel+mb_IconExclamation);

Case NS_Mes of

idOk : begin

{DB_Data.N_Gen.Post;

DB_Data.N_Gen.UpdateBatch;}

Try_SV;

Sub_Program.Op_Change;

Oncls;

Cancel_Cls := False; //Можно закрыть программу

end;

idCancel : begin

Action := caNone;

Cancel_Cls := True; //Нельзя закрывать программу

SV_Click := False;

end;

end; //Case

end

Else OnCls;

end;

procedure TNucll.Date_BClick(Sender: TObject);

begin

//Проверяем результат диалога с пользователем

With Calen,DB_Data do

If ShowModal = mrOk Then

Try

//Пытаемся установить выбранную дату в базу

FDate.Value := MC.Date;

Except

Application.MessageBox('Не удается изменить дату выписки!','D-Art: Aurora',mb_Ok+mb_IconHand);

End;

end;

procedure TNucll.Work_BClick(Sender: TObject);

begin

Sub_Program.Show_ListRed(4,True); //Показываем окно редактора списков с нужным списком

end;

procedure TNucll.EditClick(Sender: TObject);

begin

DB_Data.N_Gen.UpdateBatch;

DB_Data.N_MIO.UpdateBatch;

Try

SV_Click := False;

DB_Data.N_Gen.Edit; //Устанавливаем режим редактирования

Right_num := DB_Data.Num.Value;

//Выбираем объект для передачи фокуса ввода, согласно режиму отображения (=> Av_Data)

Case View_Mode of

vm_TO : Nucll.FocusControl(Grid); //Передаем таблице

vm_TR,vm_RO : Nucll.FocusControl(E_Num) //Передаем первому полю редактора

End; //Case

SV_Click := False;

Except

Application.MessageBox('Не удается превести запись в режим редактирования.',

'D-Art: Aurora',mb_Ok + mb_IconHand);

Abort;

End;

end;

procedure TNucll.SaveClick(Sender: TObject);

begin

SV_Click := True;

CL_Click := False;

Try_SV; //Процедура

end;

procedure TNucll.AddClick(Sender: TObject);

begin

Nucll.FocusControl(Navig);

DB_Data.N_Gen.UpdateBatch;

DB_Data.N_MIO.UpdateBatch;

//Пытаемся вставить новую запись

Try

SV_Click := False;

//Активизируем запрос для выяснения максимального номера накладной

DB_Data.Max_Num.Active := True;

DB_Data.N_Gen.Insert;

DB_Data.Max_Num.Active := False; //Деактивируем запрос

Right_num := DB_Data.Num.Value;

//Выбираем объект для передачи фокуса

Case View_Mode of

vm_TO : Nucll.FocusControl(Nucll.Grid); //Передаем таблице

vm_TR,vm_RO : Nucll.FocusControl(Nucll.E_Num); //Передаем первому полю редактора

End; //Case

SV_Click := False;

Except

Application.MessageBox('Не удается добавить новую запись в таблицу.',

'D-Art: Aurora',mb_Ok + mb_IconHand);

Abort;

End;

end;

procedure TNucll.DelClick(Sender: TObject);

begin

//Сохраняем изменения перед следующим удалением

DB_Data.N_Gen.UpdateBatch;

DB_Data.N_MIO.UpdateBatch;

If Application.MessageBox(PChar('Вы действительно хотите удалить накладную №' + DB_Data.Num.AsString + '?'),

'D-Art: Aurora',mb_YesNo+mb_IconExclamation+mb_DefButton2) = idYes Then

Try

DB_Data.N_Gen.Delete; //Пытаемся удалить запись

Except

Application.MessageBox('Не удается удалить запись из таблицы.',

'D-Art: Aurora',mb_Ok + mb_IconHand);

Abort;

End;

end;

procedure TNucll.PriorClick(Sender: TObject);

begin

//Если не начало таблицы перемещаемся на предыдущую запись

If not DB_Data.N_Gen.Bof Then DB_Data.N_Gen.Prior

end;

procedure TNucll.NextClick(Sender: TObject);

begin

//Если не конец таблицы, то перемещаемся на следующую запись

If not DB_Data.N_Gen.Eof Then DB_Data.N_Gen.Next

end;

procedure Cancel_Input;

begin

If Del_Q = idYes Then

begin

CH_F := True;

DB_Data.Many.Value := 'Нет';

While not DB_Data.N_MIO.Eof do DB_Data.N_MIO.Delete;

end

end; //procedure

procedure TNucll.B_ManyClick(Sender: TObject);

var SM_Res: byte;

begin

If Exec = False Then

begin

Exec := True;

Del_Q := mrYes;

If CL_Click = False Then

begin

If (B_Many.Checked = True) And (TAMode <> am_None) And (CH_F2 = False) Then

If Application.MessageBox('Перед вводом/редактированием списка товаров и услуг на накладную, необходимо сохранить ее. Продолжить?',

'D-Art: Aurora',mb_IconQuestion + mb_YesNo) = mrYes Then

Repeat

CH_F := False; //Можно убрать флажок

If Del_Q = mrYes Then No_Adding := True; //Пока не добавляли записи

SV_Click := True;

DB_Data.Many.Value := 'Да';

Try

DB_Data.N_Gen.Post;

DB_Data.N_Gen.UpdateBatch;

With DB_Data Do Sub_Program.Write_Stat(N_Gen,Primtabs,GEneral.Gen_Stat);

Except

Screen.Cursor := crDefault;

Application.MessageBox('Не удается сохранить изменения в таблице. Возможно введен неуникальный номер накладной, исправьте его и попробуйте ещё раз.',

'D-Art: Aurora',mb_Ok + mb_IconHand);

DB_Data.N_Gen.Edit;

DB_Data.Many.Value := 'Нет';

Exec := False;

CH_F := True;

DB_Data.Num.Value := Right_Num;

SV_Click := False;

//Выбираем оъект для предачи фокуса ввода

Case View_Mode of

vm_TR,vm_RO : Nucll.FocusControl(Nucll.E_Num); //Предаем фокус ввода первому полю редактора

vm_TO : Nucll.FocusControl(Nucll.Grid); //Предаем фокус ввода сетке

End; //Case

Abort;

End;

SV_Click := False;

DB_Data.N_Gen.Edit;

SM_Res := Many_List.ShowModal; //Показвываем окно

If SM_Res = mrCancel Then

begin

//Закрыли нажатием кнопки Cancel

if No_Adding = False Then

Del_Q := Application.MessageBox(PChar('Прекратить ввод списка товаров и услуг для накладной №'+ DB_Data.Num.AsString +' и удалить все записи?'),

'D-Art: Aurora',mb_YesNo+mb_IconExclamation+mb_DefButton2)

Else Del_Q := idYes;

Cancel_Input;

end;

If (No_Adding = True) And (SM_Res = mrOk) Then

begin

//Не добавили ни одной записи

Del_Q := Application.MessageBox(PChar('Не было добавлено ни одной записи. Прекратить редактирование списка товаров и услуг для накладной №'+DB_Data.Num.Asstring+'?'),