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

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

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

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

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

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

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

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

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

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

4.1 Техника безопасности

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

Существуют 5 видов инструктажей по технике безопасности:

- вводный инструктаж (для всех независимо от образования или стажа работы);

- первичный - на рабочем месте (в день приема на работу);

- повторный (не реже одного раза в 6 месяцев);

- неплановый (при изменении правил охраны труда);

- текущий (проводят с работниками перед производством работ, на которых оформляется наряд-допуск).

Классификация опасных и вредных факторов при работе с ПЭВМ и их действия на организм человека приведена в Таблице 4.1

Таблица 4.1 Опасные и вредные факторы при работе с ПЭВМ

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

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

По этой причине необходимо поддерживать следующие оптимальные параметры микроклимата: температура воздуха от 18 до 21° C; относительная влажность воздуха соответственно 55-62%; скорость движения воздуха менее 0,1м/с. Также должно осуществляться проветривание помещения, в зависимости от погодных условий, длительность должна быть не менее 10 мин. Наилучший обмен воздуха осуществляется при сквозном проветривании, Другой путь обеспечения воздухообмена, может, быть, достигнут установлением в оконных проемах автономных кондиционеров. Звукоизоляция ограждающих конструкций КВТ должна также отвечать определенным требованиям. Для снижения уровня шума потолок или стены выше 1.5 - 1.7 метра от пола должны облицовываться звукопоглощающим материалом с максимальным коэффициентом звукопоглощения в области частот 63-8000 Гц. Дополнительным звукопоглощением в КВТ могут быть занавески, подвешенные в складку на расстоянии 15-20 см. от ограждения, выполненные из плотной, тяжелой ткани. Для уменьшенного поглощения света потолок и стены выше панелей (3,5 - 1.7м.), если они не облицованы звукопоглощающим материалом, окрашиваются белой водоэмульсионной краской (коэффициент отражения должен быть не менее 0,7). Для окраски стены панелей рекомендуется отдавать предпочтение светлым краскам.

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

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

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

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

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

Естественное освещение, когда рабочие места с ПЭВМ располагаются в один ряд по длине помещения на расстоянии 0,8 - 1,0м от стены с оконными проемами, и экраны находятся перпендикулярно этой стены. Основной поток естественного света при этой должен быть слева. Не допускается направление основного светового потока естественного света справа, сзади и спереди работающего на ПЭВМ. Оптимальное расстояние глаз до экрана видеомонитора должно составлять 60-70 см, допустимое не менее 50 см. Рассматривать информацию ближе 50 см не рекомендуется. Направление взгляда представлено на рисунке 4.1.

Рис. 4.1 Направление взгляда

Рекомендации по использованию вычислительной техники:

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

- предпочтительнее использовать дисплеи с высокой разрешающей способностью и размером экрана не менее 17";

- лучше выбирать видеоадаптеры с высоким разрешением и частотой кадровой развертки не менее 70~72Гц;

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

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

- не следует располагать дисплей непосредственно под источником освещения или вплотную с ним;

- желательно, чтобы освещенность рабочего места оператора не превышала 2/3 нормальной освещенности помещения;

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

- общее время работы с дисплеем не должно превышать 50% всего рабочего времени оператора;

- не следует превышать темп работы порядка 10 тысяч нажатий клавиш в час (примерно 1500 слов);

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

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

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

4.2 Планировка помещения и размещение оборудования

Помещение имеет длину 5м и ширину 3м, высота 3,5м, есть 2 оконных проема (2200х2000)см, есть 2 стола (80х120)см, 2 шкаф (70х120)см, работает 7 человека. Схема комнаты приведена на рисунке 4.2.

Расчет удельной площади помещения, приходящейся на одного человека:

Пуд = (Пп - По)/ч.

Пуд = ((3000 х 5000) - (800 х 1200 + 700 х 1200)) / 2 ? 6,6 м2,



Рисунок 4.2. Схема комнаты размещением ПЭВМ

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

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

Таблица 4.2 Параметры кресла

Параметр	Значение
Высота сиденья над полом, мм	380-500
Ширина сиденья, мм	460
Глубина сиденья, мм	455
Высота нижнего края спинки над сиденьем, мм	100-200
Высота верхнего края спинки над сиденьем, мм	600-700
Высота линии прогиба спинки, мм	300
Радиус изгиба переднего края сиденья, мм	25
Угол наклона сиденья, град.	3
Угол наклона спинки, град.	90-115
Ширина спинки, мм	455
Высота подлокотников, мм	255
Расстояние между подлокотниками, мм	460

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

Конструкция рабочего стола приведена на рисунке 4.3.

Рисунок 4.3 Габариты рабочего стола

Рабочая поверхность стола не регулируется по высоте. Высота стола h 725 мм, а - расстояние от сиденья до нижнего края рабочей поверхности 25см.

Рабочий стол имеет пространство для ног высотой 725 мм, шириной - 800 мм, глубиной на уровне колен - 450 мм и на уровне вытянутых ног - 650 мм. Конструкция рабочего стола обеспечивает оптимальное размещение на рабочей поверхности используемого оборудования с учетом его количества и конструктивных особенностей, характера выполняемой работы.
Клавиатура располагается на поверхности стола на расстоянии 120 мм от края, обращенного к пользователю.

Периферийные устройства расположены в зоне досягаемости работающего. Положение тела должно соответствовать направлению взгляда. Во время пользования компьютером монитор установлен на расстоянии 520 мм от глаз, верхняя часть видеодисплея на уровне глаз или чуть ниже. Нижний уровень экрана должен находиться на 20 см ниже уровни глаз. Оптимальное расстояние от глаз до экрана компьютера -- 75 .... 120см.

4.3 Нормирование параметров микроклимата

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

Таблица 4.3 Оптимальные нормы микроклимата

Период года	Категория работ	Температура воздуха, оС	Влажность, %	Скорость воздуха, м/с
Холодный	Легкая - 1б	21-23	60-40	0,1
Теплый	Легкая - 1б	22-24	60-40	0,1

Таблица 4.4

Сравнение фактических и оптимальных параметров микроклимата.

Параметр	Фактическое значение	Оптимальное значение
Температура воздуха, oC	22	21-24
Относительная влажность воздуха, %	45	60-40
Скорость движения воздуха, м/с	0,9	0,1

Микроклимат в помещении соответствует нормам.

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

4.4 Пожарная безопасность при работе на персональном компьютере

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

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

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

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

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

4.5 Электробезопасность

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

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

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

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

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

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

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

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

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

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

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

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

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

К ним относятся: в электроустановках до 1000 Вт - диэлектрические перчатки, изолирующие штанги, изолирующие и электро измерительные клещи и т.д.; свыше 1000Вт - изолирующие штанги, и электроизмерительные клещи.

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

ЗАКЛЮЧЕНИЕ

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

В процессе дипломной работы был исследован бизнес-процесс центральной лаборатории АО «УК ТМК», проведен анализ методики статистического контроля качества результатов испытаний состава и свойств сырья, изучены существующие схемы документооборота лаборатории, построена инфологическая модель и логическая схема реляционной базы данных, описано формирование протоколов, обследована структура и состав проекта базы данных, реализованы запросы пользователей в виде локальных представлений - таблиц для хранения, модификации и интерпретации данных, упорядочены данные методом индексирования, разработано приложение средствами современных информационных технологий.

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

У данного приложения удобный интерфейс, рассчитанный на не подготовительного пользователя.

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

Данный программный продукт был написан с использованием системы управления базами данных Microsoft SQL Server и средой разработки программных продуктов Borland Delphi, имеющий большие возможности для работы с базами данных. Соединение с базой данных произведено при помощи технологии ADO.

CПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Архангельский Л.Я. Delphi 2006. Справочное пособие: Язык Delphi, классы, функции Win32 и .NET -- М.: ООО «Бином-Пресс», 2006 г 1 152 с.

2. Боровский А. Н. Программирование в Delphi 2005. -- СПб.: БХВ-Петербург, 2005. - 448 с.

3. Гектор Гарсиа-Молина, Джеффри.Д.Ульман, Дженнифер Уидом Системы баз данных. Полный курс. М.: Вильямс, 2003, 1082с.

4. Голицина О.Л., Партыка Т.., Попов И.И. Программное обеспечение: учебное пособие. - СПб.: Москва, 2008. 68-129с.

5. Гофман В. Э., Хомоненко А. Д. Delphi. Быстрый старт. -- СПб.: БХВ-Петербург, 2003. -- 288 с.

6. Гофман В. Э., Хомоненко А. Д. Работа с базами данных в Delphi. -- СПб.: БХВ-Петербург, 2001. -- 656 с.

7. Дейт К.Дж. Введение в системы баз данных.- М: Вильямс, 2005, 8-ое изд. -1328 с.

8. Карпова Т. С. Базы данных: модели, разработка, реализация. -- СПб.: Питер, 2001. -- 304 с.

9. Малкольм Г. Программирование для Microsoft SQL Server 2000 с использованием XML./Пер. с англ.- М.: Издательско-торговый дом «Русская редакция», 2002, 320 с.:илл.

10. Мамаев Е. Microsoft SQL Server 2000. Спб. 2003.

11. Мамаев Е., Шкарина Л. «Microsoft SQl Server 2000 для профессионалов».- СПб:Питер, 2001

12. Михеев Р.Н. MS SQL Server 2005 для администраторов. СПб.: БВХ-Петербург, 2006.- 544с.

13. Ребекка М. Риордан «Программирование в SQL Server 2000».

14. Советов Б.Я., Цехановский В.В., Чертовский В.Д. Базы данных. Теория и практика. Учебник для вузов. М.: Высшая школа., 2005, 463с.

15. Сорокин А. В. Delphi. Разработка баз данных. -- СПб.: Питер, 2005. -- 477 с.

16. Фаронов В.В. Программирования баз данных в Delphi 7. Учебный курс. СПб.: Питер, 2006.- 459 с.

17. Фленов М. Е. Библия Delphi. --СПб.: БХВ-Петербург, 2004. -- 880 с.

18. Хомоненко А.Д. Базы данных: Учебник для вузов, СПб., Корона принт, 2006.

19. Хоторн Роб «Разработка баз данных, Micrososoft SQL Server 2000».-Вильямс, 2001

20. Шарон Б., Мэйбл Грэг «Sql Server 2000, Энциклопедия программиста».-ДиаСофт, 2001

ПРИЛОЖЕНИЕ А

Журнал регистрации поступившей пробы в центральную лабораторию комбината

Дата поступления	Время поступления	Наименование материала (пробы)	Ф.И.О. контролера	Ф.И.О. лаборанта	Подпись контролера
12.01.2010	10:18	Карналлит обезвоженный	Головина С.Б.	Воронина М.Л.
12.01.2010	10:22	Титан губчатый	Карелова М.И.	Воронина М.Л.
12.01.2010	11: 02	Хлористый магний	Барокина Г.И.	Воронина М.Л.
12.01.2010	11:45	Серная кислота	Бердюгина В.Г.	Воронина М.Л.
12.01.2010	11: 58	Калий кремнефтористый	Мищенко А.В.	Воронина М.Л.
12.01.2010	12:32	Магний сырец	Зыгина М.С.	Воронина М.Л.

ПРИЛОЖЕНИЕ Б

Журнал регистрации химических анализов проб титана губчатого, HB

Химический анализ

_________________ Титан губчатый, HB_________________

(наименование материала проб, контролируемый элемент) 2009 г

Дата поступления проб в контр.	Номер рабочей пробы	Дата отбора пробы	Номер контрольной пробы	Результаты, %	Расхождения	Роспись исполнителя
				р	к	Д
10.12	8150	01.11	1	89.8	87.9	8	1.9
	8801	24.11	2	94.1	95.1	8	1.0
	8314	07.11	3	88.7	87.9	7	0.8
	8597	06.11	4	95.8	96.2	8	3.2
	8296	29.11	5	84.0	85.1	7	0
	8948	13.11	6	92.4	92.6	8	0.1
13.12	8206	27.11	7	88.7	88.2	8	0.3
	8883	08.11	8	87.0	86.1	7	1.5
	8352	14.11	9	92.5	90.6	8	1.4
	8533	11.11	10	89.4	87.1	7	0.6
16.12	8424	20.11	11	85.3	90.1	7	0.8
	8811	04.11	12	84.5	83.3	7	2.3
	8767	23.11	13	88.3	92.0	7	0.2
	8503	22.11	14	98.3	98.7	8	1.2

р - результат анализа рабочей пробы

д - допускаемое расхождение

к - результат анализа контрольной пробы

- фактическое расхождение

ПРИЛОЖЕНИЕ В

Журнал регистрации химических анализов проб хлористого магния

Химический анализ

_________________ Хлористый магний _________________

(наименование (вещества) материала проб) 2009 г

Дата поступ. пробы	Номер пробы	Дата отбора	Содержание, %	Роспись исполнителя
			MgO	Ti	Fe
4.05	03535	4.05	0.22	0.0038	0.0044
	03543		0.15	0.0056	0.0046
	03544		0.15	0.0058	0.0054
	03545		0.15	0.0053	0.0056
	03546		0.17	0.0056	0.0032
	03547		0.16	0.0055	0.0045
	03548		0.15	0.0051	0.0055
	03549		0.16	0.0060	0.0078
5.05	03557	5.05	0.12	0.0063	0.0060
	03558		0.16	0.0050	0.0065
	03559		0.14	0.0037	0.0050
	03560		0.17	0.0042	0.0054
	03561		0.13	0.0043	0.0042
	03562		0.14	0.0032	0.0046
	03563		0.16	0.0036	0.0057

ПРИЛОЖЕНИЕ Г

Журнал регистрации химических анализов титана губчатого

Химический анализ

_________________ Титан губчатый _________________

(наименование материала проб)

Дата поступления проб в контр.

Номер пробы

Дата отбора пробы

Номер контрольной пробы

0

N

Роспись исполнителя

Результаты, %

Расхождения

Результаты, %

Расхождения

р

к

Д

р

к

Д

ПРИЛОЖЕНИЕ Д

Схема

Аналитического и технического контроля продукции (материалов) по цеху №3 на 2009 год

№ пп	Наименование материала	Место отбора проб	Периодичность отбора проб	К-во проб в месяц	Исполнитель	Наименование определяемых компонентов	НД на методы испытаний	НД на технические требования	Срок выдачи результатов испытаний
					По отбору проб	По выполнению испытаний
1	Магний восстановитель	ООВиД, вакуум - ковш	Каждый ковш	Расчетно	ОТК	ЦЛК	Fe, Cl, Si, N	ТИ 3323-24-10	ТИ 3323-24-10	15 мин.
2	Титан губчатый	Установка предварительной сортировки	Каждая партия	Расчетно	Цех№3	Цех№3	Отсутствие дефектных включений	ГОСТ 1776-90	ГОСТ 1776-90	3 ч.
3	Титан губчаты (контрольной пробы)	ОТК	До 20% от количества партий	Расчетно	ОТК	ЦЛК	Ti, Ni, Cl, O, N, Fe, C, Si, Al, Sn	ГОСТ 3030-96 МВИ 3827-96	ГОСТ 3030-96 МВИ 3827-96	По графику

ПРИЛОЖЕНИЕ Е

Центральная лаборатория (ЦЛК) АО УК ТМК

Протокол испытаний №12

01.03.2010 направляется ОТК цех №1

Заказчик: Цех №1

Наименование материала: Карналлит обезвоженный

НД на испытуемый материал: по схеме контроля

НД на методы анализа: по схеме контроля

Контракт (если был заключен) №

Дата поступления пробы	Номер пробы	Дата отбора пробы	Содержание, %
			MgCl2	MgO	H2O общ.
28.02.2010	00023	25.02.2010	0,98	0,02	0,265
28.02.2010	00024	26.02.2010	0,98	0,01	0,260
28.02.2010	00025	27.02.2010	0,97	0,02	0,269
28.02.2010	00026	27.02.2010	0,96	0,02	0,264

ПРИЛОЖЕНИЕ И

Листинг программной реализации

unit Unit1;

interface

uses

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

Dialogs, Menus, ComCtrls, StdCtrls, DBCtrls, ExtCtrls, Grids, DBGrids,

Buttons, ImgList, WinTypes, WinProcs, DB, dagTmplt, DbAGrids, ADODB,

IWControl, IWCompListbox, ValEdit, Mask, DBClient;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

mnuFail: TMenuItem;

procedure mnuShriftStolbcClick(Sender: TObject);

procedure mnuShriftZagolClick(Sender: TObject);

private

{ Private declarations }

insertMode: boolean ;

public

{ Public declarations }

GridTitles : array of Boolean;

property Canvas;

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit8, Unit10, Unit11, Unit13, Unit15,

Unit16, Unit20, Unit21,Unit22, Unit24, ComObj, ADOInt, Unit25, StrUtils,

Unit7;

{$R *.dfm} {$R FileCtrl}

procedure Register(Sender: TObject);

begin

RegisterComponents('VUBudget', [TDBGrid]);

end;

procedure TForm1.mnuStatistClick(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.mnuCloseClick(Sender: TObject);

begin

Close; //Закрываем форму и соответственно все приложение

end;

procedure TForm1.mnuVidAnalClick(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1.mnuVnVidClick(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.mnuKomponClick(Sender: TObject);

begin

Form8.Show;

end;

procedure TForm1.mnuKontralClick(Sender: TObject);

begin

Form10.Show;

end;

procedure TForm1.mnuLaboranClick(Sender: TObject);

begin

Form11.Show;

end;

procedure TForm1.mnuMaterClick(Sender: TObject);

begin

Form13.Show;

end;

procedure TForm1.mnuMestOtborClick(Sender: TObject);

begin

Form15.Show;

end;

procedure TForm1.mnuFrakcClick(Sender: TObject);

begin

Form20.Show;

end;

procedure TForm1.mnuCehaClick(Sender: TObject);

begin

Form21.Show;

end;

procedure TForm1.mnuOProgrClick(Sender: TObject);

begin

Form22.Show;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

DM2.TMK_Query.Close;

DM2.TMK_Connecti.Close;

Close;

end;

procedure TForm1.SortirovkaClick(Sender: TObject);

var

x1,x2: Integer;

begin

if RadioGroup1.ItemIndex=0 then

begin

x1:=StrToInt(Edit1.Text)-1;

x2:=StrToInt(Edit2.Text)+1;

Form1.DbAltGrid1.DataSource:=DM2.Poisk2_DS;

DM2.Poisk2_Qu.Close;

DM2.Poisk2_Qu.Parameters.ParamByName('n1').Value:=x1;

DM2.Poisk2_Qu.Parameters.ParamByName('n2').Value:=x2;

DM2.Poisk2_Qu.Open(SELECT MIN (Результат_анализа. VALUE_REAL) AS MIN_VR, Komp.KODKOMP, MAX(Результат_анализа.VALUE_REAL) AS MAX_VR

FROM Komp LEFT OUTER JOIN

Результат_анализа ON Komp.KODKOMP = Результат_анализа.KODKOMP AND Komp.KODKOMP = Результат_анализа.KODKOMP

GROUP BY Komp.KODKOMP);

DM2.Rez_anal.MasterSource:=DM2.Poisk2_DS;

DM2.Rez_anal.MasterFields:='IdAnalys';

DM2.Rez_anal.IndexFieldNames:='IdAnalys';

end else begin

if RadioGroup1.ItemIndex=1 then

begin

Form1.DbAltGrid1.DataSource:=DM2.Poisk_Data_;

DM2.Poisk_Data.Close;

DM2.Poisk_Data.Parameters.ParamByName('date1').Value:=Form1.DateTimePicker2.DateTime;

DM2.Poisk_Data.Parameters.ParamByName('date2').Value:=Form1.DateTimePicker3.DateTime;

DM2.Poisk_Data.Open;

end; end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex=0 then

begin

DateTimePicker2.Enabled:=True;

DateTimePicker3.Enabled:=True;

Sortirovka.Enabled:=True;

Edit1.Enabled:=False;

Edit2.Enabled:=False;

end else begin

if RadioGroup1.ItemIndex=1 then

begin

DateTimePicker2.Enabled:=False;

DateTimePicker3.Enabled:=False;

Sortirovka.Enabled:=True;

Edit1.Enabled:=True;

Edit2.Enabled:=True;

end; end; end;

procedure TForm1.mnuVyzSpravClick(Sender: TObject);

begin

WinHelp(Form1.Handle,'SPRAV.hlp',HELP_CONTEXT,1);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

insertMode := True;

end;

procedure TForm1.ClearClick(Sender: TObject);

begin

Form1.DbAltGrid1.SelectedRows .Clear;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

if Form1.Tag=0 then

begin

Form24:=TForm24.Create(Self);

Form24.ShowModal;

end; end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

DM2.TMK_Connecti.BeginTrans;

try

if DM2.TMK_DS.DataSet.State in

[dsInsert,dsEdit] then

DM2.TMK_DS.DataSet.Post;

except

DM2.TMK_Connecti.RollbackTrans;

ShowMessage('Невозможно сохранить данные! Повторите попытку!');

DM2.TMK_Query.CancelUpdates;

DM2.TMK_Query.Refresh;

exit;

end;

DM2.TMK_Connecti.CommitTrans;

end;

procedure TForm1.BitBtn11Click(Sender: TObject);

begin

if MessageDlg('Пожтверждаете удаление записи',mtConfirmation,[mbYes,mbNo],0)=mrYes then

DM2.TMK_Table.Delete;

DbAltGrid1.SetFocus;

end;

procedure TForm1.BitBtn8Click(Sender: TObject);

begin

if Label3.Caption='1.1 Карналлит обезвоженный' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=41;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=8;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=57;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='1.2 Раствор соляной кислоты' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=44;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='2.1 Шлам из миксера хлоратора' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=41;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=8;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=45;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=46;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=43;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=33;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=24;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=1;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=25;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=22;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=58;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=39;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='2.2 Шлам из плавительной камеры хлоратора' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=41;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=8;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=45;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=46;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=43;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=33;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=24;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=1;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=25;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=22;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=58;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=39;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='2.3 Шлам хлорирующих камер хлоратора' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=41;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=8;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=45;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=46;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=43;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=33;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=24;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=1;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=25;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=22;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=58;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=39;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='2.4 Соль поваренная (SO4)' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=58;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='2.5 Соль поваренная (NaCl)' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=46;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='2.6 Кокс нефтянной измельченный' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=2;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=59;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=19;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='2.7 Возгон хлоратора' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=41;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=8;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=45;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=46;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=43;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=33;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=24;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=1;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=25;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=58;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=39;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=37;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='2.8 Безводный карналлит (х.камера)' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=41;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=8;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

end;

begin

if Label3.Caption='2.9 Безводный карналлит (ковш)' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=8;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=41;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=22;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

begin

if Label3.Caption='2.10 Безводный карналлит (полный)' then

begin

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=41;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=8;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=45;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=46;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=43;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=33;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=24;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=25;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=1;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=58;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=39;

DM2.Rez_analVALUE_REAL.Value:=0;

show;

DM2.Rez_anal.Edit;

DM2.Rez_anal.Insert;

DM2.Rez_anal.Append;

DM2.Rez_analIdAnalys.Value:=DBGrid4.Columns[0].Field.AsInteger;

DM2.Rez_analKODKOMP.Value:=22;

DM2.Rez_analVALUE_REAL.Value:=0;

Show;

end;

procedure TForm1.BitBtn9Click(Sender: TObject);

begin

begin

DM2.TMK_Connecti.BeginTrans;

try

if DM2.Rez_analDS.DataSet.State in

[dsInsert,dsEdit] then

DM2.Rez_analDS.DataSet.Post;

except

DM2.TMK_Connecti.RollbackTrans;

ShowMessage('Невозможно сохранить данные! Повторите попытку!');

DM2.Rez_anal.CancelUpdates;

DM2.Rez_anal.Refresh;

exit;

end;

DM2.TMK_Connecti.CommitTrans;

end;

end;

procedure TForm1.DBGrid3CellClick(Column: TColumn);

begin

Label3.Caption:=DBGrid3.SelectedField.Text;

end;

procedure TForm1.mnuShriftStolbcClick(Sender: TObject);

var i : Integer;