Разработка автоматизированной системы учета движения ремонтируемой электроаппаратуры
Задачи автоматизированной системы управления планирования работ. Требования к программному и техническому обеспечению АС. Организационная структура предприятия СПО "Арктика". Характеристика требований при проведении ремонтно-восстановительных работ.
| Рубрика | Экономико-математическое моделирование |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 01.04.2015 |
| Размер файла | 1,1 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Таблица «PODRAZD» необходима для хранения информации о подразделениях.
Таблица 3.17.
Структура таблицы «PODRAZD»
|
Наименование |
Тип данных |
Ключ |
Обяз. |
Индекс. |
Описание |
|
|
PPODRAZD_ID |
NUMBER |
Первичный |
Да |
Да |
Код подразделения - счётчик |
|
|
PODRAZD_NAME |
VARCHAR2(15) |
- |
Да |
Нет |
Наименование подразделения |
Таблица «REG_BOOK» необходима для хранения информации о сформированных накладных.
Таблица 3.18.
Структура таблицы «REG_BOOK»
|
Наименование |
Тип данных |
Ключ |
Обяз. |
Индекс. |
Описание |
|
|
BOOK_ID |
NUMBER |
Первичный |
Да |
Да |
Код журнала - счётчик |
|
|
NUMBER |
VARCHAR2(10) |
- |
Да |
Нет |
Номер накладной |
|
|
DATE_CREATE |
DATE |
- |
Да |
Нет |
Дата оформления |
|
|
DEVICE_ID |
NUMBER |
Внешний |
Да |
Да |
Код прибора. Ссылается на поле DEVICE_ID таблицы DEVICE |
|
|
PODRAZD_ID |
NUMBER |
Внешний |
Да |
Да |
Код заказа. Ссылается на поле PODRAZD_ID таблицы PODRAZD |
2.4 Построение динамической модели данных
Динамическая модель системы предназначена для иллюстрации работы системы при выполнении поставленных задач и участие объектов статической модели в данных задачах. Модель представлена в виде диаграмм (состояния, компонентов, топологии) выполненных по нотации UML.
Диаграмма состояния системы
Диаграмма состояния системы для роли “Пользователь” приведена на рисунке 3.6, на нем отображается состояние, в котором может находиться система и переходы из одного в другое состояние при определенных событиях программы или внешних воздействиях.
Рис. 3.6. Диаграмма состояния системы для роли “Пользователь”.
Диаграмма деятельности системы
Диаграмма деятельности системы для роли “Пользователь” приведена на рисунке 3.8, на нем отображается последовательность бизнес-процессов или операций классов по принципу от активности к активности или от активности к состоянию.
Рис. 3.8. Диаграмма деятельности системы для роли “Пользователь”
Диаграмма топологии системы
Диаграмма топологии программы приведена на рисунке 3.10, на ней отображается набор технических устройств, необходимых для нормального функционирования системы.
Рис. 3.10 Диаграмма топологии системы.
Диаграмма последовательности (взаимодействия)
Кроме сценария поведения каждого объекта программы необходимо точно представлять взаимодействие этих объектов между собой, определение клиентов и серверов и порядка обмена сообщений между ними.
Обмен сообщениями происходит в определенной последовательности, и Sequence Diagram позволяют получить отражение этого обмена во времени.
Диаграммы последовательности (взаимодействия) пользователя, АС и СУБД приведены на рисунках 3.11.
Рис. 3.11. Диаграмма последовательности (взаимодействия) пользователя, АС и СУБД
2.5 Описание интерфейсов и результатов работы программы
При запуске приложения соединение с базой данных происходит автоматически, поэтому на экране сразу появляется главная форма приложения.
Рис. 3.12. Главная форма приложения.
При помощи кнопок пользователь выбирает необходимые действия.
При нажатии кнопки «Просмотр журналов учета накладных» происходит переход на форму «Журналы учета накладных».
Рис. 3.13. Форма «Журналы учета накладных».
Пользователь может создавать накладные при нажатии кнопки «Новая накладная», просматривать накладные по подразделениям, при выборе их в соответствующем поле, создавать отчеты и осуществлять поиск.
При нажатии кнопки «Новая накладная» выводится форма «Новая накладная».
Рис. 3.14. Форма «Новая накладная».
Пользователь может формировать отчеты, выбирая соответствующий пункт в главном меню формы «Журналы учета накладных».
Рис. 3.15. Форма «Журналы учета накладных» (Отчеты).
При выборе отчета «За период» появляется окно формы «Накладные за период», в которой пользователь указывает параметры отчета.
Рис. 3.16. Форма «Накладные за период».
При нажатии кнопки «Показать» производится предварительный просмотр отчета.
При выборе отчета «По изделию» появляется окно формы «Выберите изделие», в которой пользователь указывает параметры отчета.
Рис. 3.17. Форма «Выберите изделие».
При нажатии кнопки «Показать» производится предварительный просмотр отчета.
При выборе на форме «Журналы учета накладных» пункта меню «Поиск» производится поиск по подразделению и дате (рисунок 3.18. и рисунок 3.19.).
Рис. 3.18. Форма «Поиск по подразделению».
Рис. 3.19. Форма «Поиск по дате».
При выборе в главной форме «Просмотр информации о ремонте» появляется форма «Информация о ремонте».
Рис. 3.21. Форма «Информация о ремонте».
Пользователь может формировать отчеты, выбирая соответствующий пункт в главном меню формы «Информация о ремонте».
При выборе пункта «Добавить» в главном меню формы «Информация о ремонте» пользователь может заносить информацию в БД.
Рис. 3.22. Форма «Добавление».
При выборе в главной форме «Справочники» появляется форма «Справочная информация».
Рис. 3.23. Форма «Справочная информация».
Далее приведен внешний вид отчетов, генерируемых приложением.
Рис. 3.24. Отчет «Накладные, полученные за период».
Рис. 3.25. Отчет «Приборы, находящиеся в подразделении».
Рис. 3.26. Отчет «Приборы, требующие замены».
Рис. 3.27. Отчет «Приборы с массой ».
3. ЭКОНОМИЧЕСКАЯ ЧАСТЬ
Темой организационно-экономической части дипломного проекта является расчет сметы затрат необходимых для создания программы учета технической документации на предприятии. Затраты на разработку будут определяться по формуле
Зпс = Пок +Расх + 3р + Осн + Рпр (руб.), (4.1)
где Пок - стоимость покупных комплектующих (руб.);
Расх - стоимость расходных материалов (руб.);
Зр - заработная плата разработчиков программы (руб.);
Осн - отчисления на социальные нужды (ЕСН) (руб.);
Рпр - прочие прямые расходы (руб.).
3.1 Расчет стоимости покупных комплектующих и расходных материалов
За время подготовки и согласования технической документации проекта была потрачена 1 пачка бумаги формата А4 стоимостью 195 рублей. Кроме того, для распечатки документов использовались картриджи для струйного принтера, стоимость которых составляет в сумме 680 рублей. Тогда полная стоимость расходных материалов составит:
Расх = 195 + 680= 875 руб.
Полный перечень использованных расходных материалов с указанием их стоимости указан в таблице 4.1
Таблица 4.1
Стоимость затраченных расходных материалов
|
Наименование |
Цена, руб. |
Кол-во |
Сумма, руб. |
|
|
Бумага А4 |
195 |
1 |
195 |
|
|
Картриджи принтера |
680 |
1 |
680 |
|
|
Итого: |
875 |
3.2 Расчет трудоемкости создания программы
Для того чтобы посчитать непосредственно затраты на программирование и отладку необходимо выяснить, сколько времени было отведено на создание и отладку программы. На основании данных, полученных в результате статистической обработки показателей вычислительного процесса, было определено, что средний расход машинного времени (ч/100 команд) для общесистемных задач, к которым можно отнести разработанный проект составляет 4 часа на 100 команд исходного кода. Общее число команд приравнено к числу строк программы. Просуммировав число строк во всех файлах, содержащих исходные тексты программы, можно получить общее число команд. В разработанной программе число команд примерно равняется 3200.
См = Км * Nc (4.2)
где См - общий расход машинного времени;
Км- средний расход машинного времени, который составляет 0,04 (ч/1 команду);
Nc- число команд.
На оформление документов (предпроектный анализ задач и формирование требований пользователя, разработка концепции создания программного изделия, разработка и согласование технического задания на создание программного изделия, оформление проектной и эксплуатационной документации, тестирование программы) затрачено 140 часов. Полная трудоемкость произведенных работ указана в таблице 4.2.
Таблица 4.2
Трудоемкость создания программного средства
|
Наименование этапов |
Т,час |
|
|
Предпроектный анализ задач и формирование требований пользователя, постановка производственных задач. |
15 |
|
|
Разработка концепции создания программного изделия |
10 |
|
|
Разработка и согласование технического задания на создание программного изделия |
18 |
|
|
Разработка математического обеспечения (моделей, методов, алгоритмов) |
32 |
|
|
Разработка структур данных |
30 |
|
|
Разработка и отладка программы |
150 |
|
|
Тестирование программы |
20 |
|
|
Оформление проектной и эксплуатационной документации |
40 |
|
|
Итого: |
315 |
3.3 Расчет заработной платы
Для расчета стоимости нормы-часа работы программиста принято 70 руб. в час. На разработку данного проекта было затрачено 315 часов, таким образом, стоимость разработки метода решения составил: Зр = 70*315=22050 руб. Размер дополнительной заработной платы составляет 10% от размера основной, что составит 2205 руб.
Расчет единого социального налога
Ставка единого социального налога (ЕСН) на момент разработки составляет 26% от заработной платы. Тогда:
ЕСН=(22050+2205) *0,26=6306,3 руб.
3.4 Расчет прочих прямых расходов
Расчет затрат на электроэнергию производится по формуле:
(руб.), (4.3)
где:Ц квт/руб - цена одного киловатта электроэнергии = 1,92 руб.
Т - время затраченное на работу ПК = 300 часов
Расчет затрат электроэнергии складывается из стоимости одного киловатта равного 1,92 рубля умноженного на количество машинного времени затраченного на разработку программного продукта равного 320 часов. В итоге затраты на электроэнергию составили:
Зэл= 1,92 * 300 = 576 руб.
Кроме того, для поиска дополнительной справочной информации были использованы ресурсы сети Интернет. С учетом того что подключение к сети Интернет происходило в сеансовом режиме с оплатой по трафику, затраты можно определить по формуле:
(руб.), (4.4)
где: V- объём скачанной информации (Мb);
Ц Mb - цена одного мегабайта скачанной информации (руб.)
В рассматриваемом случае при работе в сети Интернет было скачано около 190 Mb информации, при цене одного мегабайта скачанной информации 1,90 руб. Тогда:
Зм.в.=190*1,90=361 руб.
Общая сумма прочих прямых расходов составила:
Pn= Зэл+ Зм.в (4.4)
Pn=576+361=937руб.
Общий перечень прямых расходов представлен в таблице 4.3.
Таблица 4.3 Общий перечень прямых расходов
|
Вид расхода |
Сумма, руб. |
|
|
Оплата электроэнергии |
576 |
|
|
Доступ к сети Интернет |
361 |
|
|
Итого: |
937 |
Рассчитав все расходы, связанные с разработкой программного продукта, можно составить смету произведенных затрат представленную в таблице 4.4.
Таблица 4.4 Смета затрат на разработку программного продукта
|
Статья затрат |
Сумма, (руб.) |
|
|
Расходные материалы |
875,0 |
|
|
Заработная плата |
22050,0 |
|
|
Размер дополнительной заработной платы |
2205,0 |
|
|
ЕСН |
6306,3 |
|
|
Прямые расходы |
937,0 |
|
|
Итого |
32373,3 |
3.5 Оценка экономической эффективности системы
Данная автоматизированная система разрабатывалась, как средство улучшения качества работы службы материально-технического снабжения. В этом случае прямой экономический эффект от внедрения рассчитать сложно, но несомненно, что внедрение данной разработки принесет значительный косвенный экономический эффект за счет ускорения и оптимизации времени оформления, поиска и просмотра документации. Это повысит качество труда специалистов ОАО СПО «Арктика».
4. ТРЕБОВАНИЯ К ТЕХНИКЕ БЕЗОПАСНОСТИ И ОХРАНЕ ЖИЗНЕДЕЯТЕЛЬНОСТИ
4.1 Анализ опасных и вредных факторов при работе на ЭВМ
Работа операторов, программистов и просто пользователей непосредственно связана компьютерами, а соответственно с дополнительными вредными воздействиями целой группы факторов, что существенно снижает производительность их труда.
Изучение и решение проблем, связанных с обеспечением здоровых и безопасных условий, в которых протекает труд человека -- одна из наиболее важных задач в разработке новых технологий и систем производства. Изучение и выявление возможных причин производственных несчастных случаев, профессиональных заболеваний, аварий, взрывов, пожаров, и разработка мероприятий и требований, направленных на устранение этих причин, позволяют создать безопасные и благоприятные условия для труда человека. Комфортные и безопасные условия труда -- один из основных факторов, влияющих на производительность служащих, использующих вычислительную технику.
В связи с широким применением средств вычислительной техники актуальными становятся проблемы влияния компьютера на здоровье, работоспособность человека. Разрабатываются меры, которые необходимо предпринять с целью снятия полностью или хотя бы частично негативного влияния средств компьютерной техники.
Допустимый уровень воздействия факторов окружающей среды это такая выраженность факторов которая при воздействии на организм человека периодически или в течении всей жизни не вызывает соматических или психических заболеваний в том числе скрытых или временно компенсируемых или других изменений состояния здоровья. Выход за пределы приспособленческих реакций обнаруживается современными методами исследований сразу или в отдаленные сроки жизни настоящих или будущих поколений.
Спектр излучений ЭЛТ включает рентгеновское излучение, электростатический потенциал (ловушка для пыли), а также низко- и высокочастотные электрические и магнитные поля. Взаимодействие пучка электронов с люминофором в ЭЛТ приводит к возникновению электромагнитных излучений в оптическом (31012-31016 Гц) и рентгеновском диапазоне (31016-31019 Гц). Если защита от рентгеновских лучей, электрического заряда и электрических ударов в большинстве случаев гарантируется, то при уменьшении электромагнитных полей до разумных пределов у многих изготовителей возникают трудности. Широко распространено убеждение, что эти поля являются источником болезней или вызывают хронические заболевания: растворение амальгамы в зубных пломбах, нарушение сердечного ритма и повышенный риск образования раковых клеток.
Специальные измерения показали, что мониторы излучают магнитные волны, по интенсивности не уступающие уровням магнитных полей, способных обусловливать возникновение опухолей у людей. Технические характеристики дисплеев (разрешающая способность, яркость, контрастность, частота обновления или мелькания) в том случае, если на них не обращают внимания при выборе устройства или неправильно устанавливают, могут крайне отрицательно сказаться на зрении.
4.2 Общие положения и область применения
Данные требования разработаны в соответствии с санитарно-эпидемиологическими правилами и нормативами ''Гигиенические требования к персональным электронно-вычислительным машинам и организации работы. СанПиН 2.2.2/2.4.1340-03, утвержденные Главным государственным санитарным врачом Российской Федерации и действующие на всей территории Российской Федерации с 30 июня 2003 года.
Требования направлены на предотвращение неблагоприятного влияния на здоровье человека вредных факторов производственной среды и трудового процесса при работе с ПЭВМ.
Требования определяют санитарно-эпидемиологические требования к:
- эксплуатации отечественных ПЭВМ, используемых на производстве;
- эксплуатации импортных ПЭВМ, используемых на производстве;
- организации рабочих мест с ПЭВМ.
Требования распространяются:
- на условия и организацию работы с ПЭВМ;
- на вычислительные электронные цифровые машины персональные, портативные; периферийные устройства вычислительных комплексов (принтеры, сканеры, клавиатура, модемы внешние, электрические компьютерные сетевые устройства, устройства хранения информации, блоки бесперебойного питания и пр.), устройства отображения информации (видеодисплейные терминалы (ВДТ) всех типов).
Рабочие места с использованием ПЭВМ должны соответствовать данным требованиям.
4.3 Организация рабочего места пользователя
Следует иметь в виду, что можно частично или полностью предотвратить воздействие неблагоприятных факторов, изменив привычные методы работы и обустройство рабочего места, а именно:
- режим работы;
- рабочее место;
- освещенность;
- излучение экрана.
Нормальная и безопасная работа человека-оператора во многом зависит от того, в какой мере условия и режим его работы соответствуют оптимальным. Режим труда операторов зависит от характера работы: ввод данных, редактирование программ, считывание информации с экрана и т.д. Техника безопасности зависит от типа и конструкции ЭВМ. Необходимы перерывы 5-10 минут через каждый час работы и 15 минут -- через два часа работы (за рубежом рекомендуется отдыхать каждый час). Рекомендуемое количество нажатий на клавиши -- 10-12 тысяч в час (приблизительно 1700 слов) или 200 в минуту.
Данные мероприятия в какой-то мере предотвратят негативное влияние длительных статических нагрузок на позвоночник и кисти рук, а также смягчат влияние перенапряжения глазных мышц. Планирование и организация рабочего места пользователя ЭВМ должны, прежде всего, основываться на антропометрических и психофизических данных людей, которые будут довольно интенсивно работать с компьютером.
Рабочие зоны в зависимости от положения человека-пользователя делят на зоны для работы стоя и работы сидя. Однако именно положение пользователя сидя определяет форму его рабочего места. Для нормальной организации труда пользователя разместить все требующиеся ему, а также привлекающие его внимание во время работы предметы в зонах досягаемости. Однако практически все исследователи в области эргономики (проблемы человек -- компьютер) считают, что нельзя найти идеального места, положения при работе, в котором можно было бы трудится в течение всего установленного времени. Для большинства людей наиболее оптимальным считается такое положение, которое можно перестроить не менее чем для двух позиций. Большое значение имеет в этом плане правильный выбор стола и стула для пользователя ЭВМ. Стул, в частности, должен иметь примерно пять параметров регулировки, особенно по росту, а также по положению подлокотников. Стул также должен иметь оптимальную опорную жесткость. Рекомендуется установка рабочего положения стула таким образом, чтобы линия взора оператора почти совпадала с центром экрана. Необходимо, чтобы расстояние между экраном и пользователем было не менее 50 см. Клавиатура не должна быть жестко связана с дисплеем и должна быть расположена на наиболее удобном для пользователя уровне.
4.4 Микроклимат, содержание аэроионов и вредных химических веществ в воздухе помещений эксплуатации ЭВМ
В производственных помещениях, в которых работа с ЭВМ является основной, должны обеспечиваться оптимальные параметры микроклимата. Параметры микроклимата приведены в таблице 5.1.
Таблица 5.1. Микроклимат помещений
|
Период года |
Категория работ |
Температура воздуха, град. С не более |
Относит. Влажность воздуха, % |
Скорость движения воздуха, м/с |
|
|
Холодный |
Легкая - 1а |
22 - 24 |
40 - 60 |
0,1 |
|
|
Легкая - 1б |
21 - 23 |
40 - 60 |
0,1 |
||
|
Теплый |
Легкая - 1а |
23 - 25 |
40 - 60 |
0,1 |
|
|
Легкая - 1б |
22 - 24 |
40 - 60 |
0,2 |
Для повышения влажности воздуха в помещениях с ЭВМ следует применять увлажнители воздуха, заправляемые ежедневно дистиллированной или прокипяченной питьевой водой.
Помещения с ЭВМ перед началом и после каждого часа работы, должны быть проветрены, что обеспечивает улучшение качественного состава воздуха, в том числе и аэроионный режим.
Уровни положительных и отрицательных аэроионов в воздухе помещений с ЭВМ должны соответствовать нормам. Уровень аэроинов приведен в таблице 5.2. А Допустимое содержание вредных химических веществ в помещениях с ЭВМ приведено в таблице 5.3.
Таблица 5.2.
Уровень аэроионов
|
Уровни |
Число ионов в 1 см воздуха |
||
|
Положительные |
Отрицательные |
||
|
Минимально необходимые |
400 |
600 |
|
|
Оптимальные |
1500-3000 |
3000-5000 |
|
|
Максимально допустимые |
50000 |
50000 |
Допустимое содержание вредных химических веществ в помещениях с ЭВМ
Таблица 5.3.
Допустимое содержание вредных химических веществ в помещениях с ЭВМ
|
Вредное химическое вещество |
Среднесуточная концентрация, мг/м |
|
|
Аммиак |
0,03 |
|
|
Дибутилфталат |
0,05 |
|
|
Ксилол |
0,2 |
|
|
Озон |
0,03 |
|
|
Оксид углерода |
3,0 |
|
|
Толуол |
0,6 |
|
|
Фенол |
0,003 |
|
|
Формальдегид |
0,01 |
|
|
Хлористый винил |
0,005 |
4.5 Шум и вибрация
В помещениях, в которых работа на ЭВМ является основной (залы вычислительной техники и др.), во всех учебных помещениях с ЭВМ фоновый уровень шума не должен превышать 40 дБА, (при работе систем воздушного отопления, вентиляции и кондиционирования - 35 дБА), а во время работы на ЭВМ 50 дБА.
Время реверберации в помещениях с ЭВМ не должно быть более 1 с. Частотная характеристика времени реверберации в диапазоне частот 250-4000 Гц должна быть ровной, а на частоте 125 Гц спад времени реверберации должен составлять не более 5%.
4.6 Освещение
Освещение следует выбирать в зависимости от яркости экрана, его цвета, а также времени работы с экраном. Хорошее освещение необходимо для выполнения большинства задач, поставленных перед оператором. Чтобы правильно спланировать рациональную систему освещения, необходимо учитывать яркость источников света, их расположение в помещении, яркостный контраст между устройствами ЭВМ и фоном, блесткость поверхностей, качество и цвет светильников и поверхностей. Для малой и средней контрастности поверхности ЭВМ при темном фоне наименьший уровень освещенности должен быть 150 лк. Для большой контрастности при светлом или темном фоне наименьший уровень освещенности 100 лк. ЭВМ эксплуатируют в помещениях, где необходимо предусматривать систему искусственного освещения из люминесцентных ламп дневного света или ламп накаливания. Величина коэффициента искусственного освещения должна соответствовать нормативам уровня по СанПиН 2.2.2/2.4.1340-03 «Требования к освещению на рабочих местах, оборудованных ПЭВМ».
4.7 Требования к помещениям для эксплуатации ЭВМ
Помещения с ЭВМ должны иметь естественное и искусственное освещение. Естественное освещение должно осуществляться через светопроемы, ориентированные преимущественно на север и северо-восток и обеспечивать коэффициент естественной освещенности (КЕО) не ниже 1,2% в зонах с устойчивым снежным покровом и не ниже 1,5% на остальной территории.
Площадь на одно рабочее место с ЭВМ для пользователя должна составлять не менее 6,0 кв. м, а объем - не менее 20,0 куб. м.
Производственные помещения, в которых для работы используются преимущественно ЭВМ (диспетчерские, операторские, расчетные и др. не должны граничить с помещениями, в которых уровни шума и вибрации превышают нормируемые значения (механические цеха, мастерские, гимнастические залы и т.п.)).
Звукоизоляция ограждающих конструкций помещений с ВДТ и ПЭВМ должна отвечать гигиеническим требованиям и обеспечивать нормируемые параметры шума.
Для внутренней отделки интерьера помещений с ЭВМ должны использоваться диффузно - отражающие материалы с коэффициентом отражения для потолка - 0,7 - 0,8; для стен - 0,5 -0,6; для пола - 0,3 - 0,5. Полимерные материалы, используемые для внутренней отделки интерьера помещений с ВДТ и ПЭВМ, должны быть разрешены для применения органами и учреждениями Государственного санитарно - эпидемиологического надзора.
Поверхность пола в помещениях эксплуатации ЭВМ должна быть ровной, без выбоин, нескользкой, удобной для очистки и влажной уборки, обладать антистатическими свойствами.
Важным при решении интерьеров рабочих комнат является цвет. С помощью цвета можно расширить или сузить интерьер, сделать его иллюзорно более открытым или закрытым. Известно, что яркие насыщенные цвета воздействуют на человека возбуждающе. Такое решение рекомендуется лишь в тех залах, где человек бывает непродолжительное время. Приглушенные, разбавленные тона, неяркие цветовые сочетания действуют успокаивающе.
4.8 Требования к монитору
Очень важным звеном в охране здоровья пользователя, интенсивно работающего с компьютером, является монитор. Требования, предъявляемые к мониторам, можно подразделить на четыре группы: качество представления изображения, излучение, электрическая и механическая надежность.
Наиболее важными для монитора являются следующие технические параметры качества изображения: частота вертикальной синхронизации (кадровая развертка), частота горизонтальной синхронизации (строчная развертка) и полоса пропускания видеосигнала. Кадровая частота измеряется обычно в герцах и во многом определяет устойчивость изображения (отсутствие мерцаний). Как известно, человеческий глаз воспринимает смену изображений с частотой выше 20-25 Гц практически как непрерывное движение. Чем выше частота кадров, тем устойчивее изображение. Частота строк в килогерцах, вообще говоря, определяется произведением частоты вертикальной развертки на количество выводимых строк в одном кадре (разрешающая способность по вертикали). Полоса видеосигнала, измеряемая в мегагерцах, определяет самые высокие частоты в видеосигнале. Приблизительно эта величина может быть рассчитана как произведение количества точек в строке (разрешающая способность по горизонтали) на частоту строчной развертки. Иными словами, этот параметр отражает число точек в строке, которое монитор может воспроизвести за одну секунду.
При прочих равных условиях четкость изображения на мониторе тем выше, чем меньше размеры точек люминофора на внутренней поверхности экрана. Обычно говорят не о размерах самих точек, а о расстоянии между ними (dot per pitch). Этот параметр для различных моделей мониторов может лежать в диапазоне от 0,41 до 0,25 мм, однако для хороших моделей диапазон существенно сужается -- от 0,28 до 0,25 мм.
4.9 Режим труда и отдыха
Режимы труда и отдыха при работе с ПЭВМ и ВДТ должны организовываться в зависимости от вида и категории трудовой деятельности.
Виды трудовой деятельности разделяются на 3 группы: группа А - работа по считыванию информации с экрана ВДТ или ПЭВМ с предварительным запросом; группа Б - работа по вводу информации; группа В - творческая работа в режиме диалога с ЭВМ. При выполнении в течение рабочей смены работ, относящихся к разным видам трудовой деятельности, за основную работу с ПЭВМ и ВДТ следует принимать такую, которая занимает не менее 50% времени в течение рабочей смены или рабочего дня.
Для видов трудовой деятельности устанавливается 3 категории тяжести и напряженности работы с ВДТ и ПЭВМ, которые определяются: для группы А - по суммарному числу считываемых знаков за рабочую смену, но не более 60000 знаков за смену; для группы Б - по суммарному числу считываемых или вводимых знаков за рабочую смену, но не более 40000 знаков за смену; для группы В - по суммарному времени непосредственной работы с ВДТ и ПЭВМ за рабочую смену, но не более 6 часов за смену.
Для обеспечения оптимальной работоспособности и сохранения здоровья профессиональных пользователей на протяжении рабочей смены должны устанавливаться регламентированные перерывы. Время регламентированных перерывов в течение рабочей смены следует устанавливать в зависимости от ее продолжительности, вида и категории трудовой деятельности. Продолжительность непрерывной работы с ВДТ без регламентированного перерыва не должна превышать 2 часов.
При 8-часовой рабочей смене и работе на ВДТ и ПЭВМ регламентированные перерывы следует устанавливать:
- для I категории работ - через 2 часа от начала рабочей смены и через 2 часа после обеденного перерыва продолжительностью 15 минут каждый;
- для II категории работ - через 2 часа от начала рабочей смены и через 1.5 - 2 часа после обеденного перерыва продолжительностью 15 минут каждый или продолжительностью 10 минут через каждый час работы;
- для III категории работ - через 1.5 - 2 часа от начала рабочей смены и через 1.5 - 2 часа после обеденного перерыва продолжительностью 20 минут каждый или продолжительностью 15 минут через каждый час работы.
4.10 Защита от статического электричества и электромагнитных излучений
Для предотвращения образования и защиты от статического электричества в помещениях ВЦ необходимо использовать нейтрализаторы и увлажнители, а полы должны иметь антистатическое покрытие. Защита от статического электричества должна проводиться в соответствии с санитарно-гигиеническими нормами допускаемой напряженности полей и не должна превышать 20 кВ в течение 1 часа (ГОСТ 12.1045-84).
В последнее время все большее распространение получают мониторы с низким уровнем излучения -- так называемые LR-мониторы (Low Radiation). Эти устройства обычно отвечают одной из двух спецификаций, выработанных Шведским национальным советом по измерениям и тестированию MPR (Swedish National Board of Measurement and Testing). Первая спецификация (MPR I) касается в основном магнитных полей и определяет уровень излучения для частот в полосе от 1 до 400 кГц. Вторая спецификация (MPR II), принятая в декабре 1990 года была распространена и на электрические поля. Оба поля измеряются в двух полосах: 5 Гц - 2 кГц и 2 - 400 кГц. Напряженность электрического поля в нижней полосе не должна превышать 25 В/м, а в верхней 2,5 В/м, соответственно напряженность магнитного поля -- 250 и 2,5 нанотесла. Электростатический потенциал должен быть ниже 500 В.
4.11 Требования к утилизации отходов при работе на компьютере
С учетом старения и выхода из строя компьютерной техники она вся попадает в отходы. К такому рода отходам можно отнести бумагу, картриджи, вышедшую из строя или устаревшую технику. При утилизации все отходы должны быть отсортированы. Бумага идет на вторичную переработку. Картриджи относятся к третьему классу опасности и складируются в специальных накопителях. Переработку компьютерных отходов производят на специальных полигонах. При утилизации старых компьютеров происходит их разработка на фракции: металлы, пластмассы, стекло.
Складирование, хранение, утилизация и захоронение образующихся отходов осуществляется в соответствии с существующими на предприятии нормативами и схемой размещения отходов.
Городская свалка промышленных и бытовых отходов расположена на свободной территории в 8 км от предприятия. Накопитель твердых промышленных отходов расположен к юго-востоку от города на расстоянии 7 км на площадке, прилегающей к дороге, ведущей на свалку промышленных отходов.
В целях предотвращения загрязнения почвы, нереализуемые и опасные токсичные отходы 1-3 классов опасности, образующиеся в процессе выполнения работ, собираются в специальные контейнеры и складируются на временной площадке контейнерного хранения токсичных отходов на территории предприятия согласно инструкции 60.81-1.02.056-99.
Концентрация химических веществ в почве не должна превышать допустимые нормы согласно нормативным документам.
ЗАКЛЮЧЕНИЕ
В ходе дипломного проектирования был изучен процесс учета движения ремонтируемой электрорадиоаппаратуры и на его основе построена функциональная модель, представленная в аналитической части.
Далее был проведен анализ существующих аналогичных систем, в результате которого выяснилось, что ни одна из рассмотренных систем по тем или иным причинам не подходит для автоматизации учета движения ремонтируемой электрорадиоаппаратуры на данном производстве.
На следующем этапе была спроектирована логическая модель данных и определены основные функции системы.
Завершающим шагом дипломного проектирования была оценка экономических затрат на разработку данной системы.
В результате дипломного проектирования разработанная автоматизированная система учета конструкторской документации отвечает всем заявленным требованиям и выполняет следующие функции:
- обеспечивает хранение информации в СУБД «ORACLE»;
- предоставляет пользователям общие средства навигации и доступа к данным;
- обеспечивает интегрированные средства поиска;
Внедрение системы учета движения ремонтируемой электрорадиоаппаратуры позволяет автоматизировать процесс учета движения ремонтируемой электрорадиоаппаратуры, сократив, таким образом, время на поиск и добавление информации, что приведет к ускорению производства в целом.
ПЕРЕЧЕНЬ ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
электроапаратура автоматисированный програмный
1. Маклаков С.В., Bpwin и Erwin. CASE-средства разработки информационных
систем. - М.: Диалог-МИФИ, 2001.
2. Хомоненко А., Гофман В. Самоучитель Delphi. - Санкт-Петербург: «БХВПетербург», 2003.
3. Конноли Т., Бегг К. Базы данных. Проектирование, реализация и сопровождение. Теория и практика - М.: Вильямс, 2003.
4. Архангельский А.Я. «Delphi 7. Справочное пособие», М.: Бином, 2003.
5. СанПиН 2.1.7.1322-03. Гигиенические требования к размещению и обезвреживанию отходов производства и потребления от 30 апреля 2003 г.
5. СанПиН 2.2.2/2.4-1340-03. Гигиенические требования к персональным электронно-вычислительным машинам и организации работы; от 3 июня 2003 г.
6. СанПиН 2.2.4.1329-03 Требования по защите персонала от воздействия импульсных электромагнитных полей, 2003.
7. Фаулер М., Скотт К. «UML в кратком изложении. Применение стандартного объектного языка моделирования», М.: Мир, 1999.
ПРИЛОЖЕНИЕ
ЛИСТИНГ ПРОГРАММЫ
unit UnitSelect;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TFormSelect = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
procedure Panel4Click(Sender: TObject);
procedure Panel3Click(Sender: TObject);
procedure Panel5Click(Sender: TObject);
procedure Panel6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSelect: TFormSelect;
implementation
uses UnitAutor, UnitJournal, UnitRepair, UnitSprav;
{$R *.dfm}
procedure TFormSelect.Panel4Click(Sender: TObject);
begin
FormJournal.Show;
FormSelect.Hide;
end;
procedure TFormSelect.Panel3Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TFormSelect.Panel5Click(Sender: TObject);
begin
FormRepair.Show;
FormSelect.Hide;
end;
procedure TFormSelect.Panel6Click(Sender: TObject);
begin
FormSprav.Show;
FormSelect.Hide;
end;
end.
unit UnitJournal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DB, ADODB, StdCtrls, Grids, DBGrids, Menus;
type
TFormJournal = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
ComboBoxPodrazd: TComboBox;
Label1: TLabel;
ADOTablePodrazd: TADOTable;
ADOConnectionJournal: TADOConnection;
ADOQueryViborNakl: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOQueryViborNaklNUMBER: TStringField;
ADOQueryViborNaklDATE_CREATE: TDateTimeField;
ADOQueryViborNaklPODRAZD_NAME: TStringField;
ADOQueryViborNaklIZD_NAIM: TStringField;
ADOQueryViborNaklSHIP_ZAV_NOM: TStringField;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Panel9: TPanel;
Panel10: TPanel;
Panel11: TPanel;
ADOQueryDevice: TADOQuery;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
Panel12: TPanel;
Panel13: TPanel;
Panel14: TPanel;
Panel15: TPanel;
Panel16: TPanel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Panel17: TPanel;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ComboBoxPodrazdClick(Sender: TObject);
procedure Panel6Click(Sender: TObject);
procedure Panel7Click(Sender: TObject);
procedure Panel8Click(Sender: TObject);
procedure Panel10Click(Sender: TObject);
procedure Panel11Click(Sender: TObject);
procedure Panel9Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure Panel12Click(Sender: TObject);
procedure Panel13Click(Sender: TObject);
procedure Panel15Click(Sender: TObject);
procedure Panel16Click(Sender: TObject);
procedure Panel17Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormJournal: TFormJournal;
implementation
uses UnitAutor, UnitSelect, UnitNakl, UnitPeriod, UnitViborIzd,
UnitSearchDate, UnitSearchPodrazd;
{$R *.dfm}
procedure TFormJournal.FormActivate(Sender: TObject);
begin
ADOConnectionJournal.Connected:=true;
ADOTablePodrazd.Active:=true;
ADOTablePodrazd.Open;
ADOTablePodrazd.First;
ComboBoxPodrazd.Clear;
while ADOTablePodrazd.Eof=false do
begin
ComboBoxPodrazd.Items.Add(ADOTablePodrazd.FieldByName('PODRAZD_NAME').AsString);
ADOTablePodrazd.Next;
end;
end;
procedure TFormJournal.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ADOTablePodrazd.Active:=false;
ADOConnectionJournal.Connected:=false;
end;
procedure TFormJournal.ComboBoxPodrazdClick(Sender: TObject);
begin
ADOTablePodrazd.Locate('PODRAZD_NAME',ComboBoxPodrazd.Text,[]);
ADOQueryViborNakl.Parameters.ParamByName('p').Value:=ADOTablePodrazd.FieldByName('PODRAZD_ID').AsInteger;
ADOQueryViborNakl.Open;
end;
procedure TFormJournal.Panel6Click(Sender: TObject);
begin
FormSelect.Show;
FormJournal.Close;
end;
procedure TFormJournal.Panel7Click(Sender: TObject);
begin
ADOQueryViborNakl.First;
end;
procedure TFormJournal.Panel8Click(Sender: TObject);
begin
ADOQueryViborNakl.Prior;
end;
procedure TFormJournal.Panel10Click(Sender: TObject);
begin
ADOQueryViborNakl.Next;
end;
procedure TFormJournal.Panel11Click(Sender: TObject);
begin
ADOQueryViborNakl.Last;
end;
procedure TFormJournal.Panel9Click(Sender: TObject);
begin
ADOQueryDevice.Parameters.ParamByName('p').Value:=ADOQueryViborNakl.FieldByName('NUMBER').AsString;
ADOQueryDevice.Close;
ADOQueryDevice.Open;
end;
procedure TFormJournal.DBGrid1CellClick(Column: TColumn);
begin
ADOQueryDevice.Parameters.ParamByName('p').Value:=ADOQueryViborNakl.FieldByName('NUMBER').AsString;
ADOQueryDevice.Close;
ADOQueryDevice.Open;
end;
procedure TFormJournal.Panel12Click(Sender: TObject);
begin
ADOQueryDevice.First;
end;
procedure TFormJournal.Panel13Click(Sender: TObject);
begin
ADOQueryDevice.Prior;
end;
procedure TFormJournal.Panel15Click(Sender: TObject);
begin
ADOQueryDevice.Next;
end;
procedure TFormJournal.Panel16Click(Sender: TObject);
begin
ADOQueryDevice.Last;
end;
procedure TFormJournal.Panel17Click(Sender: TObject);
begin
FormNakl.Show;
FormJournal.Hide;
end;
procedure TFormJournal.N3Click(Sender: TObject);
begin
FormPeriod.Show;
end;
procedure TFormJournal.N4Click(Sender: TObject);
begin
FormViborIzd.Show;
end;
procedure TFormJournal.N5Click(Sender: TObject);
begin
FormSearchData.Show;
FormJournal.Hide;
end;
procedure TFormJournal.N6Click(Sender: TObject);
begin
FormSearchPodrazd.Show;
FormJournal.Hide;
end;
end.
unit UnitNakl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CheckLst, ComCtrls, ExtCtrls, DB, ADODB, Grids,
DBGrids;
type
TFormNakl = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
DateTimePicker1: TDateTimePicker;
GroupBox1: TGroupBox;
Label3: TLabel;
ComboBox1: TComboBox;
Label4: TLabel;
ComboBox2: TComboBox;
Label5: TLabel;
ComboBox3: TComboBox;
Panel3: TPanel;
ADOQuery1: TADOQuery;
Label7: TLabel;
ComboBox5: TComboBox;
ADOTableIzd: TADOTable;
ADOTableShip: TADOTable;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
CheckListBox1: TCheckListBox;
Panel4: TPanel;
procedure FormActivate(Sender: TObject);
procedure Panel3Click(Sender: TObject);
procedure ComboBox5Click(Sender: TObject);
procedure ComboBox3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormNakl: TFormNakl;
implementation
uses UnitJournal;
{$R *.dfm}
procedure TFormNakl.FormActivate(Sender: TObject);
begin
FormJournal.ADOTablePodrazd.Open;
FormJournal.ADOTablePodrazd.First;
while FormJournal.ADOTablePodrazd.Eof=false do
begin
ComboBox1.Items.Add(FormJournal.ADOTablePodrazd.FieldByName('PODRAZD_NAME').AsString);
ComboBox2.Items.Add(FormJournal.ADOTablePodrazd.FieldByName('PODRAZD_NAME').AsString);
FormJournal.ADOTablePodrazd.Next;
end;
ADOTableShip.Open;
ADOTableShip.First;
while ADOTableShip.Eof=false do
begin
ComboBox5.Items.Add(ADOTableShip.FieldByName('SHIP_ZAV_NOM').AsString);
ADOTableShip.Next;
end;
end;
procedure TFormNakl.Panel3Click(Sender: TObject);
begin
FormJournal.Show;
FormNakl.Close;
end;
procedure TFormNakl.ComboBox5Click(Sender: TObject);
begin
;
ADOQuery2.Parameters.ParamByName('p').Value:=ComboBox5.Items.Strings[ComboBox5.ItemIndex];
ADOQuery2.Close;
ADOQuery2.Open;
ADOQuery2.First;
while ADOQuery2.Eof=false do
begin
ComboBox3.Items.Add(ADOQuery2.FieldByName('IZD_OBOZN').AsString);
ADOQuery2.Next;
end;
end;
procedure TFormNakl.ComboBox3Click(Sender: TObject);
begin
ADOQuery3.Parameters.ParamByName('q').Value:=ComboBox5.Items.Strings[ComboBox5.ItemIndex];
ADOQuery3.Parameters.ParamByName('p').Value:=ComboBox3.Items.Strings[ComboBox5.ItemIndex];
ADOQuery3.Close;
ADOQuery3.Open;
ADOQuery3.First;
while ADOQuery3.Eof=false do
begin
CheckListBox1.Items.Add(ADOQuery3.FieldByName('DEV_NAME').AsString+' '+ADOQuery3.FieldByName('SHEM_NOM').AsString+' '+ADOQuery3.FieldByName('SHEMA_NAIM').AsString);
ADOQuery3.Next;
end;
end;
end.
unit UnitPeriod;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls, ADODB, DB, RpDefine, RpCon,
RpConDS;
type
TFormPeriod = class(TForm)
Panel1: TPanel;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label5: TLabel;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOQuery1: TADOQuery;
Panel2: TPanel;
Panel3: TPanel;
procedure Panel3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Panel2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormPeriod: TFormPeriod;
Podrazd: String;
implementation
uses UnitJournal, UnitAutor, UnitOtchPeriod;
{$R *.dfm}
procedure TFormPeriod.Panel3Click(Sender: TObject);
begin
FormPeriod.Close;
end;
procedure TFormPeriod.FormActivate(Sender: TObject);
begin
ADOTable1.Open;
ADOTable1.First;
while ADOTable1.Eof=false do
begin
ComboBox1.Items.Add(ADOTable1.FieldByName('PODRAZD_NAME').AsString);
ADOTable1.Next;
end;
ADOTable2.Open;
ADOTable2.First;
while ADOTable2.Eof=false do
begin
ComboBox2.Items.Add(ADOTable2.FieldByName('SHIP_ZAV_NOM').AsString);
ADOTable2.Next;
end;
Podrazd:=FormJournal.ComboBoxPodrazd.Text;
end;
procedure TFormPeriod.Panel2Click(Sender: TObject);
begin
ADOQuery1.Parameters.ParamByName('p').Value:=ComboBox1.Text;
ADOQuery1.Parameters.ParamByName('q').Value:=ComboBox2.Text;
ADOQuery1.Parameters.ParamByName('s').Value:=DateTimePicker1.DateTime;
ADOQuery1.Parameters.ParamByName('r').Value:=DateTimePicker2.DateTime;
FormOtchPer.QRLabel3.Caption:=ComboBox1.Text;
FormOtchPer.QRLabel14.Caption:=ComboBox2.Text;
FormOtchPer.QRLabel5.Caption:=DateToStr(DateTimePicker1.DateTime);
FormOtchPer.QRLabel7.Caption:=DateToStr(DateTimePicker2.DateTime);
FormOtchPer.QRLabel17.Caption:=Podrazd;
ADOQuery1.Close;
ADOQuery1.Open;
FormOtchPer.QuickRep1.Preview;
end;
end.
unit UnitRepair;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ADODB, DB, StdCtrls, Grids, DBGrids, Menus;
type
TFormRepair = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
Label3: TLabel;
ComboBox2: TComboBox;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOQuery1: TADOQuery;
Panel4: TPanel;
ADOQuery2: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOQuery2DEV_NAME: TStringField;
ADOQuery2TYPE_DEVICE: TStringField;
ADOQuery2SHEMA_NAIM: TStringField;
ADOQuery2SHEM_NOM: TStringField;
ADOQuery2ZAV_NOM: TStringField;
ADOQuery2STATUS: TStringField;
ADOQuery2RASPOLOG: TStringField;
ADOQuery2MASS: TFloatField;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
ADOQuery3: TADOQuery;
ADOQuery4: TADOQuery;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
procedure FormActivate(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
procedure Panel4Click(Sender: TObject);
procedure ComboBox2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
UserSrlect: integer;
end;
var
FormRepair: TFormRepair;
implementation
uses UnitSelect, UnitRepSTat, UnitOtchMass, UnitApp;
{$R *.dfm}
procedure TFormRepair.FormActivate(Sender: TObject);
begin
ADOTable1.Open;
ComboBox1.Clear;
ADOTable1.First;
while ADOTable1.Eof=false do
begin
ComboBox1.Items.Add(ADOTable1.FieldByName('SHIP_ZAV_NOM').AsString);
ADOTable1.Next;
end;
end;
procedure TFormRepair.ComboBox1Click(Sender: TObject);
begin
ComboBox2.Clear;
ADOQuery1.Close;
ADOQuery1.Parameters.ParamByName('p').Value:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
ADOQuery1.Open;
ADOTable1.First;
while ADOQuery1.Eof=false do
begin
ComboBox2.Items.Add(ADOQuery1.FieldByName('IZD_OBOZN').AsString);
ADOQuery1.Next;
end;
end;
procedure TFormRepair.Panel4Click(Sender: TObject);
begin
FormSelect.Show;
FormRepair.Close;
end;
procedure TFormRepair.ComboBox2Click(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery2.Parameters.ParamByName('p').Value:=ComboBox1.Text;
ADOQuery2.Parameters.ParamByName('q').Value:=ComboBox2.Items.Strings[ComboBox2.ItemIndex];
ADOQuery2.Open;
end;
procedure TFormRepair.N2Click(Sender: TObject);
begin
ADOQuery3.Active:=true;
ADOQuery3.Parameters[0].Value:=ComboBox1.Text;
with FormRepStat do
begin
QuickRep1.DataSet:=ADOQuery3;
QRDBText1.DataSet:=ADOQuery3;
QRDBText1.DataField:='IZD_OBOZN';
QRDBText2.DataSet:=ADOQuery3;
QRDBText2.DataField:='SHEMA_NAIM';
QRDBText3.DataSet:=ADOQuery3;
QRDBText3.DataField:='TYPE_DEVICE';
QRDBText4.DataSet:=ADOQuery3;
QRDBText4.DataField:='DEV_NAME';
QRDBText5.DataSet:=ADOQuery3;
QRDBText5.DataField:='SHEM_NOM';
QRLabel2.Caption:='замены';
QRLabel4.Caption:=ComboBox1.Text;
end;
ADOQuery3.Close;
ADOQuery3.Open;
FormRepStat.QuickRep1.Preview;
end;
procedure TFormRepair.N3Click(Sender: TObject);
begin
ADOQuery4.Active:=true;
ADOQuery4.Parameters[0].Value:=ComboBox1.Text;
with FormRepStat do
begin
QuickRep1.DataSet:=ADOQuery4;
QRDBText1.DataSet:=ADOQuery4;
QRDBText1.DataField:='IZD_OBOZN';
QRDBText2.DataSet:=ADOQuery4;
QRDBText2.DataField:='SHEMA_NAIM';
QRDBText3.DataSet:=ADOQuery4;
QRDBText3.DataField:='TYPE_DEVICE';
QRDBText4.DataSet:=ADOQuery4;
QRDBText4.DataField:='DEV_NAME';
QRDBText5.DataSet:=ADOQuery4;
QRDBText5.DataField:='SHEM_NOM';
QRLabel2.Caption:='ремонта';
QRLabel4.Caption:=ComboBox1.Text;
end;
ADOQuery4.Close;
ADOQuery4.Open;
FormRepStat.QuickRep1.Preview;
end;
procedure TFormRepair.N5Click(Sender: TObject);
begin
UserSrlect:=1;
FormAPP.Show;
FormRepair.Hide;
end;
procedure TFormRepair.N10Click(Sender: TObject);
begin
FormAPP.Show;
FormRepair.Hide;
end;
end.
unit UnitSearchDate;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, ComCtrls, StdCtrls, ExtCtrls;
type
TFormSearchData = class(TForm)
Panel1: TPanel;
Label1: TLabel;
DateTimePicker1: TDateTimePicker;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOQuery1NUMBER: TStringField;
ADOQuery1DATE_CREATE: TDateTimeField;
ADOQuery1PODRAZD_NAME: TStringField;
ADOQuery1IZD_NAIM: TStringField;
ADOQuery1DEV_NAME: TStringField;
ADOQuery1SHEM_NOM: TStringField;
ADOQuery1SHIP_ZAV_NOM: TStringField;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Label2: TLabel;
procedure Panel3Click(Sender: TObject);
procedure Panel4Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSearchData: TFormSearchData;
implementation
uses UnitJournal;
{$R *.dfm}
procedure TFormSearchData.Panel3Click(Sender: TObject);
begin
FormJournal.Show;
FormSearchData.Close;
end;
procedure TFormSearchData.Panel4Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.Parameters.ParamByName('p').Value:=DateTimePicker1.DateTime;
ADOQuery1.Open;
end;
procedure TFormSearchData.FormActivate(Sender: TObject);
begin
Label2.Caption:=FormJournal.ComboBoxPodrazd.Text;
end;
end.
unit UnitSearchPodrazd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, Grids, DBGrids, ADODB;
type
TFormSearchPodrazd = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Panel3: TPanel;
ComboBox1: TComboBox;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOQuery1NUMBER: TStringField;
ADOQuery1DATE_CREATE: TDateTimeField;
ADOQuery1DEV_NAME: TStringField;
ADOQuery1SHEM_NOM: TStringField;
ADOQuery1IZD_OBOZN: TStringField;
ADOQuery1SHIP_ZAV_NOM: TStringField;
procedure FormActivate(Sender: TObject);
procedure Panel3Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSearchPodrazd: TFormSearchPodrazd;
implementation
uses UnitJournal;
{$R *.dfm}
procedure TFormSearchPodrazd.FormActivate(Sender: TObject);
begin
Label1.Caption:='Накладные, поступившие в '+FormJournal.ComboBoxPodrazd.Text+' из';
ComboBox1.Items := FormJournal.ComboBoxPodrazd.Items;
end;
procedure TFormSearchPodrazd.Panel3Click(Sender: TObject);
begin
FormJournal.Show;
FormSearchPodrazd.Close;
end;
procedure TFormSearchPodrazd.ComboBox1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.Parameters.ParamByName('p').Value:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
ADOQuery1.Open;
end;
end.
unit UnitSprav;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, DB, ADODB, StdCtrls, DBCtrls, Menus;
type
TFormSprav = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
ADOTable1: TADOTable;
GroupBox1: TGroupBox;
Label1: TLabel;
ComboBox1: TComboBox;
GroupBox2: TGroupBox;
Label2: TLabel;
ComboBox2: TComboBox;
ADOQuery1: TADOQuery;
Label3: TLabel;
Edit1: TEdit;
Label4: TLabel;
Edit2: TEdit;
ADOQuery2: TADOQuery;
Label5: TLabel;
ComboBox3: TComboBox;
ADOQuery3: TADOQuery;
GroupBox3: TGroupBox;
ADOTable2: TADOTable;
Edit3: TEdit;
Label6: TLabel;
Label8: TLabel;
ComboBox4: TComboBox;
ADOQuery4: TADOQuery;
ListBox1: TListBox;
GroupBox4: TGroupBox;
Label7: TLabel;
ADOQuery5: TADOQuery;
ADOQuery6: TADOQuery;
Label9: TLabel;
Edit4: TEdit;
Label10: TLabel;
Edit5: TEdit;
Label11: TLabel;
Label12: TLabel;
Edit6: TEdit;
Label13: TLabel;
Edit7: TEdit;
Подобные документы
Разработка и создание системы учета отгрузки и реализации готовой продукциии, возможность просматривать накладные реализаций, поступлений. Алгоритм решения задачи. Коды проектируемой системы автоматизированной обработки информации. Листинг программы.
курсовая работа [17,6 K], добавлен 12.01.2009Проектирование подсистемы АСУ "Управление договорами" - автоматизированной системы, представляющей совокупность программно-аппаратных средств, обеспечивающих взаимодействие человека с ЭВМ в интерактивном режиме. Характеристика системы и анализ требований.
курсовая работа [447,2 K], добавлен 04.02.2011Проектирование формы входных документов и выходного плана выплат по вкладам на основе исходной информации. Рассмотрение наиболее рациональных путей разработки автоматизированной информационной системы в условиях Маслянинского ДО ОАО Банк "Левобережный".
курсовая работа [314,6 K], добавлен 28.04.2010Основные функции, задачи и принципы бюджетной системы управления. Технология организации бюджетирования в единой корпоративной автоматизированной системе управления финансовыми ресурсами. Эффект от сокращения времени на расчет видов гибких бюджетов.
дипломная работа [1,4 M], добавлен 07.06.2011Метод сетевого планирования и управления, его цели, задачи и необходимость. Определение минимальной стоимости комплекса производственных работ при заданной продолжительности его выполнения с помощью построения, анализа и оптимизации сетевого графика.
курсовая работа [39,6 K], добавлен 07.12.2010Склады, их понятие и роль в логистике. Анализ систем управления складом. Автоматизация процесса приемки и отпуска картона. Комплектование и отгрузка картона клиенту железной дорогой. Оценка затрат на внедрение автоматизированной системы управления.
дипломная работа [1,1 M], добавлен 27.11.2012Система сетевого планирования и управления. Особенности построения сетевого графика. Расчет сроков завершения работ и резервов времени по работам и событиям, его оптимизация с целью минимизации затрат для выполнения всего комплекса работ до 21 суток.
курсовая работа [27,7 K], добавлен 16.10.2009Общая характеристика и модели сетевого планирования и управления. Оптимизация сетевых моделей по критерию "время-затраты". Показатели элементов сетевой модели. Оптимизация сетевого графика - процесс улучшения организации выполнения комплекса работ.
лекция [313,1 K], добавлен 09.03.2009Технико-экономическая характеристика предметной области и предприятия. Анализ деятельности ООО "СВ Логистика". Программная и техническая архитектура ИС предприятия. Обоснование проектных решений по техническому обеспечению. Характеристика базы данных.
дипломная работа [2,5 M], добавлен 09.06.2010Понятие и структура интеллектуальной системы. Математическая теория нечетких множеств. Причины распространения системы Fuzzy-управления. Предпосылки для внедрения нечетких систем управления. Принципы построения системы управления на базе нечеткой логики.
реферат [68,3 K], добавлен 31.10.2015
