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

Содержание
Введение
Перечень сокращений
1.Аналитическая часть
1.1.Технико-экономическая характеристика предметной области
1.2.Обоснование необходимости и цели использования вычислительных и телекоммуникационных средств для решения задачи
1.3.Постановка задачи
1.4. Анализ существующих разработок и обоснование выбора технологии проектирования модулей
1.5.Обоснование проектных решений по видам обеспечения
2.Разработка АРМ оператора метрологического
отделения вычислительного центра
2.1. Техническое обеспечение АРМ
2.2. Программное обеспечение АРМ
2.3. Описание программных модулей
2.4. Визуализация проекта АРМ оператора метрологического отделения вычислительного центра
3. Экспериментальная часть
3.1. Назначение эксперимента
3.2. Выбор и обоснование методики проведения эксперимента
3.3. Схема выполнения эксперимента
3.3. Результаты проведения эксперимента
4. Обоснование экономической эффективности проекта
5.Экология и безопасность жизнедеятельности
Заключение
Список используемой литературы
Приложение 1.
Приложение 2
Приложение 3.

сокращение персонала занятого вводом и обработкой данных.снижение трудозатрат. А главное процесс обработки становится эффективным. То есть операторы чётко знают как и что делать. Не выполняют монотонные, бестолковые манипуляции с данными, не выискивают вручную ошибки, не переписывают вручную данные, не дописывают ничег от себя, система становится более прозрачной для понимания и обработки. Устраняется возможность потери или ввода данных в неработающую базу данных.Это может показаться странным, но большую часть времени по обработки данных получаемых с объектов затрачивалось в пустую именно по выше описанным причинам. Иногда было проще переписать всё донесение, чем «втискивать» его в нашу систему.Этот проект очень актуальна, может поэтому он уже проходит внедрение на объектах и ВЦ. Но возможно вам интересно зачем всё это занудство? Зачем вообще отягощать творческий процесс сотрудников службы сухими и бесчеловечными правилами?Ответ может быть таким:Донесения 1/инж в в/ч XXXX - Ц подвергаются контролю. Вот некоторые цифры по неполному контролю донесений 1/инж за 2011 год (полный контроль предполагает: - автономный контроль донесения 1/инж; - автономный контроль таблицы движения СИВ; - совместная проверка донесения 1/инж и таблицы движения СИВ; - сверка донесения 1/инж с прошлогодним; при неполном контроле проверяются только балансные соотношения донесения 1/инж):- Объект1 – 3 ошибки по разделу I (количество записей - 336);- Объект2 – 42 ошибки по разделам I, III, IV (количество записей - 831);- Объект3 - 5 ошибок по разделам I, III, IV (количество записей - 676);- Объект4– 590 ошибок по разделам I, III, IV (количество записей - 773);- Объект5 – 85 ошибок по разделам I, III, IV (количество записей - 861);- Объект6- 265 ошибок по разделам I, III, IV (количество записей - 663);- Объект7 – ошибок нет; (количество записей - 296);- Объект8 – 2 ошибки по разделам I, III, IIIk, IV(количество записей - 344);- Объект9– 26 ошибок по разделам I, III, IV (количество записей - 458).Наличие такого количества ошибок свидетельствует о том, что, как нам кажется, время зачехлять боевое оружие и переходить из игроков в тренеры еще не наступило, и поэтому высший класс для профессионала состоит в том, чтобы, овладев техникой работы с системой и сведя выполнение правил на полуавтоматический уровень, освободить силы для содержательной работы по профилю.Б) Прямой эффект:Несомненно, это сокращение труда затрат и времени на обработку данных,тоесть своевременное формирование отчётов и своевременные оформление накладных для формирования заказов на производствах. А так же сокращение денежных затрат, в которые входят : зарплата гражданского персонала, оплата электроэнергии, амортизация оборудования (ПК, принтеров, сканнеров, факсов).И конечно это более прозрачная отчётность, где имеется возможность проследить недокомплект, нехватку или неучтённые средства. Своевременное обеспечение подразделений недостающими средствами.Подсчёт трудовых показателей:1) абсолютное снижение трудовых затрат (Т):Т=Т0-Т1,где Т0 - трудовые затраты на обработку информации по базовому варианту,Т1 - трудовые затраты на обработку информации по предлагаемому варианту.Т=Т0-Т1=2152-520= 1632(часа)Таблица 4.1.Подсчёт трудовых показателейВвод данных по базовому вариантуОбработка полученных данных по базовому вариантуВвод данных по предлагаемому вариантуОбработка полученных данных по предлагаемому вариантудни6820122 43 часы5441608 176 344 Рис. 4.1. Подсчёт трудовых показателей2) коэффициент относительного снижения трудовых затрат (КТ):КТ=Т/T0*100%.КТ=Т/T0*100%.= 1632/2152*100%= 75,8%3) индекс снижения трудовых затрат или повышение производительности труда (YT):YT=T0/T1.YT=T0/T1= 2152/502= 4,28К стоимостным показателям относятся:Абсолютное снижение стоимостных затрат (C), коэффициент относительного снижения стоимостных затрат (КC) индекс снижения стоимостных затрат (YC).Таблица 4.2.Стоимостные показателиВвод данных по базовому варианту (рублей в месяц)Ввод данных по предлагаемому варианту (рублей в месяц)Обработка полученных данных по базовому варианту (рублей в месяц)Обработка полученных данных по предлагаемому варианту (рублей в месяц)Вводом занимаются солдатики Вводом занимаются солдатикиЗарплата 8 операторов + 2 программиста+ затраты на амортизацию техники электроэнергиюЗарплата 3 оператора +2 программиста+ затраты на амортизацию техники электроэнергию--7900048000абсолютное снижение стоимостных затрат (С):Снижение стоимостных затрат будет из-за сокращения 5 операторов, а так же экономии электроэнергии и затрат на обслуживание ПК этих операторов.Сокращение персонала не отразится на загруженности оставшихся, так как процессы автоматизируются.С=Т0-Т1=78000-48000= 31000(рубля)индекс снижения стоимостных затрат (YC).Yc=С/С0*100%.= 48000/78000*100%= 61.5%Срок окупаемости затрат на внедрение проекта машинной обработки информации (Ток):Ток=КП/C,Ток=КП/C= 20000/31000= 0,64где КП - затраты на создание проекта машинной обработки информации (проектирование и внедрение).Затраты на создание проекта и его внедрение составляют 20000рублей. Так как именно эта сумма нужна для закупки CD- носителей рассылки по объектам, распечатывание инструкций, премии сотрудникам.Таблица 4.3. Показатели эффективности от внедрения проекта автоматизации.ЗатратыАбсолютное изменение затратКоэффициент изменения затратИндекс изменения затратбазовый вариантпроектный вариантТрудоемкостьT0(час)T1(час)Т=Т0-Т1(час)КТ=Т/T0*100%YT=T0/T12152502163275,8%1,62СтоимостьC0(руб.)C1(руб.)C=C0-C1(руб.)КC=C/C0*100%YC=C0/C1101000500005100050%61,5Актуальность внедрения проекта, подтверждается следующим:Наличие большого количества ошибок свидетельствует о том, что данные сильно искажены. Отчёты сформированные из таких данных некорректны, неполны, неактуальны.Кроме того, обработка данных занимала недопустимо большое количество часов. Отчёты должны быть сформированы через месяц после получения донесений. А на деле обработка данных занимало практически больше полгода. Что делало полученные данные устаревшими и ненужными.А следовательно, заказ на закупку техники на производстве поступал с опозданием и не в полном объеме. Кроме того, сложно было вести корректный учёт списанной и имеющейся техники, а следовательно иметь представление об обеспеченности на военное и мирное время объектов. Внедрив новую систему сокращаются:Время на обработку данных в 11 раз.Трудозатраты операторов в 8раз.Количество ошибок во всех видах документации до 90%.Численность занятого персонала в 2 раза.Данные полученные без внедрения новой системы:Не могут быть получены своевременно.Требуют много трудозатрат, финансовых затрат и человеческих ресурсов. Не могут быть корректны и в полном объёме. Так как в отчётах не учитываются ошибочные данные. А набор ошибок при вводе очень разнообразен и объёмен.Затрачивается много часов и электроэнергии, бумаги, амортизируется техника. И всё это, ради сомнительных отчётов, полученных практически через год после получения донесений.На разработку этого проекта ушло много сил, но не столько, сколько обычно занимает обработка данных по старой схеме. Кроме того, операторы не должны заниматься переписыванием по несколько раз в несколько таблиц уже имеющегося электронного документа. И задача хорошего инженера программиста автоматизировать процесс на столько, что бы электронный документ созданный один раз уже не правился, а сразу обрабатывался в программе. Вот тогда задача инженера программиста выполнена. Разумеется при работе с базами данных всегда будут данные для ввода (новые наименования), но и эти данные должны автоматически обрабатываться, делая работу операторов автоматизированной.5. Экология и безопасность жизнедеятельностиЭлектромагнитное излучение сказывается на здоровье человека проработавшего весь день за ПК. «эргономических» заболеваний составляет более 60% всех профессиональных заболеваний. Такие недомогания недооцениваются и накапливаются за продолжительный период времени, и могут привести к полной или частичной инвалидности.Эта проблема стала активно финансироваться и исследоваться вначале 90-х годов в европейских странах и Америки, после того как многие страховые компании очень пострадали от вспышки «эргономических» заболеваний. Причины заболеваний и последствия всё ещё исследуются, так как рост воздействия электроники на человека увеличивается ежесекундно. Если в начале 90 годов в доме на одну семью приходилось около 1 сотового телефона, 1 компьютера, 1 телевизора, 1 магнитофона и видеомагнитофона. То сегодня эти цифры выглядят просто смешными. С ростом развития электроники увеличивается рост воздействия на человека. Возросли нагрузки на человека за ПК, а также требования к работникам занятых обработкой данных.Виды электромагнитных излучений ПК и их воздействие.Некоторые люди полагают, что работа за ПК достаточно безвредна, но это не так. Если человек просто проверяет почту в течении дня и проводит за ПК 1-2 часа, то ему можно не волноваться по поводу вредного воздействия на его организм компьютера. Но теперь многие специалисты вынуждены проводить за компьютером более 8 часов в сутки и вот этим людям действительно грозит вредное воздействие на организм.Компьютер излучает электромагнитное излучение широкого спектора: ультрафиолетовое, рентгеновское, высокочастотное (10-300МГц). Но следует сказать, что:рентгеновское излучение монитора ничтожно мало;ультрафиолетовое излучение монитора, измеряется для ряда видов образцов ПК длинной волн 0,32мкм не превышающее 200мкВт/см2, это достаточно незначительные цифры. Но следует учесть, что если излучение с длинной волны 0,3 мкм, то для него уже нормативы становятся в 1000 раз меньше. Такое излучение становится уже ощутимым для пользователя ПК. Поэтому производители ПК делают для мониторов стекло или компьютерные фильтры, которые не пропускают излучение с длинными волнами 0,36-0,4мкм.Генерируемые монитором электрические поля обычно не превышают 0,01 В/м, при нормативе не более 10-80В/м.Но напряженность создаваемое высоковольтным источником питания кинескопа может достичь значения 20-30 кВ/м, что превышает норматив 20кВ/м. Магнитные низкочастотные поля самого монитора не превышают 5В/м при нормативе 50-500В/м Опасность для оператора ПК представляют статически электрический заряд и электромагнитное излучение монитора в диапазоне частот 20Гц-300МГц . Уровни этих полей обычно распространяется во всех направлениях до 5м от монитора и системного блока и превышает биологически опасный порог. Разумеется и в быту есть множество источников электромагнитных полей, но лишь за ПК человек находиться в непосредственной близости и очень длительное время. Многие помнят, что дистанция от телевизора до человека должна превышать шести диагоналей кинескопа, но почему-то про монитор ПК никто не вспоминает [12]. Обычные симптомы, на которые жалуется человек, работающий за ПК:Резь в глазах, боль в глазном дне глаза, отёчность глаз, снижение зрения.Головная боль.Сильное утомление. Нарушение сна.Иногда даже повышение температуры.Повышенная возбудимость, нервозность, неврастения.Выпадение волос, сухость и покраснение кожи.Немеют руки или ноги. Появляется варикозное заболевание.Боли в шее, пояснице, руках, правом плече, запястьях, пальцахНеобходимо правильно подбирать мебель, в офисах регулируемую по высоте под каждого работника. А так же делать 5 минутные перерывы после каждых 30 минут работы за ПК.Головная боль обычно возникает из-за общей утомляемости глаз. Но и может возникать из-за аэроионного состава воздуха . Из-за работы ПК в воздухе увеличиваются тяжёлые аэроионы и уменьшаются количество лёгких на 95%. Поэтому в офисах нужно много свежего влажного воздуха.При работе за ПК идёт большая нагрузка на глаза. Особенно это чувствуют операторы вводящие данные в формы различных программ, таких как Access , 1Сбухгалтерия, форм для заполнения в регистратурах и отделах по персоналу. Так как их работа заключается в непрерывном вводе информации в ПК. Причём, если оператор, вводящий в Word, Excel, а также в любые текстовые редакторы может не смотреть на монитор, автоматизировать процессы, разнообразить ввод. То операторы, работающие с формами этого сделать не могут в силу специфики ввода в форму. Поэтому ввод данных в Excel более предпочтителен, чем ввод данных в форму Access или бухгалтерию 1С. А так же операторы работающие с чертежами и рисунками, где необходимо всматриваться в создаваемый объект и нет возможности работать в слепую. Необходимо что бы глаза человека работающего за ПК перефокусировались не менее 15-20 тыс раз за день. А так же желательно устранить блики экрана, блеск стекла глянцевого монитора, настроить правильно контрастность и яркость изображения. Так как все эти факторы могут привести не только к рези в глазах и прочим недомоганиям, но и ухудшить зрение на 60-85%.Неподвижная однообразная поза человека работающего за ПК влечёт за собой боли в позвоночнике, искривлению его, остеохондрозу, боли в шее и плечевых суставах, пальцах. Интенсивная работа за клавиатурой вызывает боли в пальцах, запястьях, локтевых суставах. Возникает туннельный синдром. Туннельный синдром возникает в следствии давления на срединный нерв из-за припухлости или в следствии воздействия на него, что уменьшает канал запястья. Обычно это происходит при повторяющихся одинаковых движениях, где запястье согнуто вниз. Это стало профессиональным заболеванием программистов и операторов ПК.Воздействие шумов на человека.При работе компьютера создаётся акустический шум, включая ультра звук. Этот шум негативно действует на психику человека, его усидчивость и обучаемость, память. Поэтому необходимо тщательно выбрать технику, вовремя её обслуживать и ремонтировать. А так же необходимы перерывы в работе и возможность провести его в тихом месте [13].Вредное влияние интернета и компьютерных игрВредное влияние интернета и компьютерных игр у всех на слуху, так как имеет массовый характер, особенно среди детей. С появлением интернета и компьютерных игр психофизиологических заболеваний стали массовыми такие как:Интернет зависимость, игромания.Психические истощения и неврастения.Упрощение сферы интересов, одиночество в большом городе.Субкультурная раздробленность и искажение ценностных ориентаций.Синдром дефицита внимания у детей.ДепрессииПо обобщённым данным, выявлен такой факт, что у людей проводящих от 2 часов в сутки функциональные нарушения центральной нервной системы происходят в среднем в 4,7 раз чаще в других группах.Болезни сердечно-сосудистой системы в 3 раза чаще. Болезни двигательного аппарата увеличивается в зависимости от проведённого время за ПК.Воздействие на человека при работе Notbook и Netbook.Портативные ПК так же создают опасные уровни ЭМП, не смотра на использование жидко кристаллических экранов. Измерения выявили, что электромагнитное излучение (схемы управления и формирования информации, преобразовательнапряжения питания и др) во много раз превышают нормативы шведского стандарта MPRII . Из пяти изученных типов Notbook на расстоянии от экрана 30см при использовании питания от сети составляющая ЭМП в 11 раз превышает экологический стандарт. А при питании Notbook от аккумулятора превышение составило до 1,7раз[14]. Кроме того многие Notbook имеют глянцевый монитор за которым очень сложно работать. В этом случае необходимо использовать антибликовый фильтр.Необходимые рекомендации по организации работы за ПК.Высота стола должна регулироваться под конкретного человека и его высота должна быть 725ммНеобходима подставка для ногКресло должно быть подъёмным и поворотным, регулируемым по высоте и наклону спинки. Спинка кресла должна поддерживать спину.Желательно на столе расположить пюпитр для документов вблизи от экрана. Оригинальный документ и экран должны быть на одном уровне.Расстояние от глаз до монитора должно быть не менее 50 см. Расстояние до задней стенки соседнего монитора не менее 2 метров, а между боковыми стенками 1,2.Площадь, занимаемая одним взрослым пользователе в офисе должна быть не менее 6м2.Желательно для освещения использовать люминесцентные лампы. Общая освещённость должна составлять 300-500люкс. Дополнительные источники освещения должны освещать только документацию, не должны создавать бликов на мониторе. Если в офисе есть естественный свет он должен быть слева.Нижний уровень экрана должен располагаться на 20см ниже уровня глаз.Верхний уровень экрана должен быть на уровне лба.Клавиатуру следует расположить, так чтобы кисти располагались горизонтально.Следует организовать хорошую вентиляцию и влажность воздуха. Для этого можно использовать растения, аквариум.Каждые 10-15 минут отводить взгляд в сторону на 10 секунд. В конце каждого часа необходимо делать 5 минутный перерыв, а через каждые 2 часа на 15 минут выключать ПК и покидать рабочее место. Можно проводить после каждого часа работы физкультурные паузы для рук ног и глаз.Обязательно заниматься физкультурой в конце рабочего дня. ЗаключениеВ дипломном проекте была произведенаавтоматизация рабочего места оператора метрологического отделения вычислительного центра воинской части, разработка системы автоматизации ввода и обработки данных. Для достижения данной цели использовались программыExcel 2007, Access2007. Можно сделать следующие выводыРазработана многопользовательскую базу данных в Access 2007 с выделенными пользователями и разграниченным доступом к таблицам. Организован учёт изменений в базе. Для контроля, резервного вос-становления и учёта выполненных работ.Организован журнал администратора. На различных дисках должны быть созданы таблицы и файлы для администрирования сети и загрузочные диски.Организовано автоматическое резервирование базы на 2-3 дисках для архивного хранения или восстановления при необходимости.При проведении испытаний разрубочного АРМ недостатков и сбоев не выявлено.Актуальность внедрения проекта, подтверждается следующим:Наличие большого количества ошибок свидетельствует о том, что данные сильно искажены. Отчёты сформированные из таких данных некорректны, неполны, неактуальны.Кроме того, обработка данных занимала недопустимо большое количе-ство часов. Отчёты должны быть сформированы через месяц после получения донесений. А на деле обработка данных занимало практически больше полгода. Что делало полученные данные устаревшими и ненужными.А следовательно, заказ на закупку техники на производстве поступал с опозданием и не в полном объеме. Кроме того, сложно было вести корректный учёт списанной и имеющейся техники, а следовательно иметь представление об обеспеченности на военное и мирное время объектов.Список используемой литературыSQL [Электронный ресурс] – Режим доступа: http://www.sql.ru/Клуб программистов[Электронный ресурс] – Режим доступа: http://www.programmersforum.ru/showthread.php?t=48851Планета Excel [Электронный ресурс] – Режим доступа: http://www.planetaexcel.ru/tip.php?aid=34Уокенбах Д. Краткий справочник. – Киев: Диалектика, 2004. – 288 с.: ил.Карчевский Е.М. Филиппов И.Е. Access2010 в примерах. - Казань: КФУ. 2011. - 118 с.Джоу Уокенбах «Библия для пользователя Excel 2010» . – Киев: Диалектика, 2007. – 376 с.: ил.Джоу Уокенбах «Лудшие трюки Excel 2010» . – СПб: Питер, 2011. – 464 с.: ил.Джоу Уокенбах «Профессиональное программирование на VBAExcel 2010» . – Киев: Вильямс, 2011. – 944 с.: ил.Интернет университет [Электронный ресурс] – Режим доступа: http://www.intuit.ru/catalog/TeachPro[Электронный ресурс] – Режим доступа: http://teachpro.ru/SQL[Электронный ресурс] – Режим доступа: http://www.sql.ru/forum/actualtopics.aspx?bid=4Павленко А.Р. Компьютер, TV и здоровье – Киев: Основа, 1998, 144 с.Центр электромагнитной безопасности[Электронный ресурс] – http://www.pole.com.ru/Реакция организма детей разного возраста на работу за компьютером [Электронный ресурс] – www.parent.fio.ru Медицинские и психологические последствия работы с компьютер [Электронный ресурс] – http://vspu.ac.ru, статья Приложение 1.Настройки испытательной системыРоли пользователей – испытателей Системы приведены.Роли пользователей – испытателей СистемыРольНазначениеЗона доступных данныхАдминистратор системыУправление общесистемными настройками и пользователями СистемыСистемные справочники. Отсутствует возможность просмотра секретных данных ВЧОператор метрологического центаСоздание и ведение БДДоступ ко всем документамДанные, необходимые для выполнения проверок результатов установки и настройки испытательной системыРоль пользователяИмя (логин) пользователяПарольАдминистратор системыcontroluser52control52Оператор метрологического центра Operator112contr111Приложение 2Программа на добавление таблиц из 4 разделов в одну новую исходящую TKDMISX nowSelect Case Me.PoleVyb.Column(3) 'Выборобъекта - А Case "1" 'Объект1 Select Case Me.plvbpr 'Выборраздела Case "1" 'Раздел IRem Пересылка в табл. TKDMISXnow. TKDMisx1razdel DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO TKDMISXnow SELECT TKDMisx1razdel.* FROM TKDMisx1razdel;" TKDMisx1razdel ---> TKDMISXnow DoCmd.SetWarnings True Case "2" 'Раздел II Rem Пересылкавтабл. TKDMISX now. TKDMisx2razdel DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO TKDMISXnow SELECT TKDMisx2razdel.* FROM TKDMisx2razdel;" TKDMisx2razdel ---> TKDMISXnow DoCmd.SetWarnings True Case "3" 'Раздел III Rem Пересылкавтабл. TKDMISX now. TKDMisx3razdel DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO TKDMISXnow SELECT TKDMisx3razdel * FROM TKDMisx3razdel;" TKDMisx3razdel ---> TKDMISXnow DoCmd.SetWarnings True Case "4" 'Раздел IV Rem Пересылкавтабл. TKDMISX now. TKDMisx4razdel DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO TKDMISXnow SELECT TKDMisx4razdel * FROM TKDMisx4razdel;" TKDMisx4razdel ---> TKDMISXnow DoCmd.SetWarnings True Case Else Rem N EndSelectПриложение 3.Обработка донесения по наименованиямPrivate Sub KnNeod_Click()Rem Проверка неоднозначности наименований: напр.: КМТ-5, КМТ-6, АД-60С-Т/400-Р, Д-707С итдDim KolZp As Integer, MyNompp As Integer, NppRА As Integer, NppRБ As IntegerDim NppR3 As Integer, NppR10 As Integer, NppR2 As Integer, NppR6 As Integer, NppR1 As IntegerDim NppR3БAs Integer, NppR7k As Integer, NppR5 As Integer, NppR4Б As IntegerDim blnOK As Boolean 'Для индикатора процесса Dim MyInd As IntegerRem Перебор объектов - разделов - нумерацияSet MyDb = CurrentDb Set MyRob = MyDb.OpenRecordset("TOBVVDNS") 'Переченьобъектов KolZp = MyRob.RecordCount Set MyRkn = MyDb.OpenRecordset("TKNTNEOD") 'Неоднозначностьнаименований MyRkn.MoveFirst While MyRkn.EOF <> True MyRkn.Edit For MyIm = 4 To MyRkn.Fields.Count - 1MyRkn.Fields(MyIm) = Null Next MyIm MyRkn.Update MyRkn.MoveNext Wend Set MyRzd = MyDb.OpenRecordset("TPRZnw") 'ПереченьразделовRem * * * * * * * * * * * * Call acbInitMeter("Копируем TKDM в БД Центра ", False) 'Инициализация индикатора процессаRem * * * * * * * * * * * * MyInd = 0: MyRob.MoveFirst: MyRkn.MoveFirst While MyRob.EOF <> True 'Zackl = MyRob.BookmarkMyRzd.MoveFirst ': MyRkn.Bookmark = Zackl While MyRzd.EOF <> True Select Case Left(MyRob![KodOb], 2) Case "10" 'ЛенВО Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSVO_ЗВО_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Rem Nicht erfuellt Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSVO_ЗВО_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Rem Nicht erfuellt Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSVO_ЗВО_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "20" 'MВО Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSVO_ЦВО_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSVO_ЦВО_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSVO_ЦВО_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "30" 'CKВО Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSVO_ЮВО_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSVO_ЮВО_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSVO_ЮВО_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "40" 'ПУрВО Rem Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSVO_ВВО_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSVO_ВВО_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSVO_ВВО_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "61" 'ВВС Rem Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSVO_ВВС_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSVO_ВВС_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSVO_ВВС_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "62" 'ВМФ Rem Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSVO_ВМФ_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSVO_ВМФ_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSVO_ВМФ_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "64" '12 ГУМО Rem Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSVO_12ГУМО_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSVO_12ГУМО_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSVO_12ГУМО_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "65" 'КВ Rem Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSVO_КВ_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSVO_КВ_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSVO_КВ_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "66" 'РВСН Rem Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSVO_РВСН_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSVO_РВСН_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSVO_РВСН_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "71" 'ЦИБ 2066 Rem Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSZBO_2066J_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSZBO_2066J_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSZBO_2066J_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "72" 'ЦИБ 1961 Rem Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSZBO_1961ЦИБ_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSZBO_1961ЦИБ_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSZBO_1961ЦИБ_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case "74" 'ЦИБ 2067 Rem usw Select Case MyRzd![npp] Case 1 'Раздел I Set MyRcd = MyDb.OpenRecordset("TDNSZBO_2066C_1r") 'Донесение 1/инж Call ProcIrzd MyRcd.Close Case 2 'Раздел II Case 3 'Раздел III Set MyRcd = MyDb.OpenRecordset("TDNSZBO_2066C_3r") 'Донесение 1/инж Call ProcIIIrzd MyRcd.Close Case 4 'Раздел IIIk Case 5 'Раздел IV Set MyRcd = MyDb.OpenRecordset("TDNSZBO_2066C_4r") 'Донесение 1/инж Call ProcIVrzd MyRcd.Close Case Else Rem N End Select ' Выборраздела Case Else Rem N End Select MyRzd.MoveNext Wend MyInd = MyInd + 1 Rem * * * * * * * * * *blnOK = acbUpdateMeter((MyInd * 100) / KolZp) 'Обновлениеиндикаторадо 100%If Not blnOK Then MsgBox "Копирование TKDM в БД Центра выполнено! ", 64, " Служебное сообщение "EndIfRem * * * * * * * * * * *If MyRkn![npp] < 19 Then MyRkn.MoveNext End If MyRob.MoveNext Wend Rem * * * * * * * * * * *If blnOK Then 'Закрываем индикатор процессаCall acbCloseMeter End If Rem * * * * * * * * * * *MsgBox "Проверка неоднозначности НАИМ-ий CИВ выполнена! ", 64, "Информационное сообщение . . ."MyRob.CloseMyRzd.CloseMyDb.CloseEnd Sub По 2 разделу и 3к проверка не производиться так как эти разделы имеют свою специфику