Теоретические основы проектирования автоматизированного рабочего места

Место нахождения фирмы определяется местом нахождения исполнительного органа управления - Генерального директора: 141622 Московская область, Клинский район, дер. Давыдково, д. 3 «В».

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

Общество с ограниченной ответственностью «Комторг» (в дальнейшем ООО «Комторг») является юридическим лицом, действует в соответствии с Федеральным законом Российской Федерации «Об обществах с ограниченной ответственностью», утвержденным приказом Минфина РФ № 138-ФЗ от 8 июля 1999 года Гражданским Кодексом Российской Федерации, другими законодательными актами Российской Федерации и Уставом.

Организация хранит денежные средства в учреждении банка: «ЗелАК-Банк» ОАО г. Солнечногорск, р/с40702810131030001726, к/с 30101810300000000752, БИК 044696752. ИНН/КПП7733566544/7733101, ОГРН 1067746507982.

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

Фирма ООО «Комторг» обеспечивает необходимым техническим обслуживанием клиентов г. Клин и Клинского района. Является крупнейшим Интернет провайдером в Клину и районе. Кроме того, она работает в ряде населенных пунктов Московской области и в Москве.

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

Сотрудники сервисного центра прошли обучение у ведущих производителей оборудования (EPSON, BBK, Intel), все они являются специалистами высшей категории и готовы применить свой профессиональный опыт на благо клиентов. Определяющий принцип работы сервисного центра компании - помочь клиентам в решении технических проблем в минимально короткие сроки.

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

Сегодня фирма ООО «Комторг» развивает несколько направлений своей деятельности:

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

2. Интернет и телекоммуникации.

3. Продажа и ремонт средств мобильной связи.

Более подробно направления деятельности исследуемой организации представлены в Уставе ООО «Комторг».

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

Размещено на http://www.allbest.ru/

Рисунок 3 - Организационная структура ООО «Комторг»

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

2.2 Постановка задачи

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

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

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

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

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

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

3. Унитизация и транспортировка грузов.

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

5.1. подготовка товаров для продажи (фасовка продукции, заполнение контейнеров, распаковка и т.д.);

5.2. проверка функционирования приборов и оборудования, монтаж;

5.3. придание продукции товарного вида, предварительная обработка (например, древесины); транспортно-экспедиционные услуги и т.д.

Программа должна предоставлять пользователю возможность:

1. Вводить новый товар, указывая следующие параметры:

- Наименование;

- Количество;

- Цену;

- Дату поступления.

2. Осуществлять поиск товара по наименованию и выдавать его параметры.

3. Помечать выбывший товар, указывая дату выдачи.

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

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

6. Выдавать общую статистическую характеристику:

- Общая стоимость имеющегося товара;

- Количество имеющегося товара;

- Количество выбывшего товара.

8. Сохранять и восстанавливать всю информацию АРМ с диска.

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

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

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

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

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

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

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

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

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

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

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

Описание программы.

Описание переменных.

1. basskl - основная запись с необходимыми переменными это:

1.1. naim - наименование товара;

1.2. kol - количество товара;

1.3. price - цена товара;

1.4. kol_p - количество пришедшего товара;

1.5. kol_r - количество товара, который ушел;

1.6. date_p - дата прихода товара;

1.7. date_r - дата расхода товара.

2. f - file базы слада;

3. list - массив данных базы;

4. schet - cчетчик;

5. curs - показатель позиции;

6. stran - счетчик позиции курсора;

7. i - переменная использования;

8. mcurs - переменная начальной позиции меню;

9. k -переменная определения клавиши;

10. res -переменная выбора меню;

11. da - переменная использования;

12. er - переменная ошибки преобразования;

13. tx - переменная текста при поиске;

14. fil - переменная имени базы;

15. key - флажок;

16. seter - переменная использования.

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

Функция probel;

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

Вход: Текст, требуемая длина.

Выход: Текст требуемой длины.

Функция Edtext;

Используется для вывода на экран в нужную позицию текста и его последующего редактирования

Функция работает следующим образом:

Зацикливается до тех пор пока не будет нажатия Enter или Esc. В это время выводит на экран текст в нужную позицию, обновляется , ожидает нажатия клавиш или delete.

Вход: Координаты, текст, длина текста, флажок.

Выход: Вывод на экран текста, отредактированный текст.

Функция Cifri;

Подобна функции Edtext только ввод текста ограничен цифрами.

Работает также.

Процедура Prishlo;

Применяется для вывода на экран меню «Приход» и занесения данных в позицию базы.

Описание работы: Работает со строкой массива базы. Выводит на экран меню «Приход», преобразует текстовые переменные после ввода в строки меню.

Процедура Ushlo;

Аналогична процедуре Prishlo .Заменена только формула вычисления количества.

Процедура Vvodnov;

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

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

Процедура Edzapic;

Используется для редактирования записи в текущей позиции курсора листинга перечня товаров.

Вход: Позиция

Выход: отредактированный текст в данной позиции.

Процедура Ekran;

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

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

Функция Vivstr;

Формирует строку по позиции в базе.

Обнуляется. Работает со строкой в массиве базы. Производит преобразование в стринговые переменные числовых значений базы (количества цены, приход, расход), сумма формируется путем вычисления. Добавление нужными пробелами функцией Probel.

Процедура Vivlist;

Обеспечивает формирование экрана с помощью процедуры Ekran, вывод поясняющей строки. Подкрашивание строки в позиции курсора, опрос клавиш курсора и служебных (для ввода новой, корректировки, удаления). Работает следующим образом: Выполняет процедуру Ekran, прорисовывает строку пояснения, цикл пока не нажата клавиша «влево», «вправо», «Enter», «Esc» - опрашивает клавиатуру с помощью функции «Readkey» если нажата «Вниз» или «Вверх» уменьшаетя или увеличивается соответственно текущий счетчик позиций меню

Функция Vstroca;

Функция организует главное меню в верхней строке экрана.

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

Процедура Sortirovka;

Сортирует данные по заданной колонке.

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

2.3 Алгоритм и специфика программы

Общая схема алгоритма представлена на рисунке 4.

Описание алгоритма работы программы. Очищается экран выводится меню для указания месторасположения и названия файла базы по умолчанию это «С:\base.dat» затем проверяется создан ли файл если нет то создается. Организуется цикл до конца файла переписываются данные в массив базы. Обнуляются переменные. организуется меню по данным функции Vstroka затем происходи выбор с помощью оператора Case по которому осуществляются переходы.

В случае «1» прихода функции Vstroka выводится листинг данных базы и заголовков, организация движения курсора по строкам базы при помощи процедуры Vivlist.

В случае результата «2» формируется окно с тенью «Пришло», заполняется окно с помощью процедуры Prishlo по текущей позиции курсора экрана и листинга.

«3» формируется окно «Расход», заполняется с помощью процедуры Ushlo.

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

Рисунок 4 - Общий алгоритм программы

Если не находит выводит сообщение и устанавливает на конечную позицию. «5» Окно сортировки. Выполняется процедура Sortirovka. При других значениях функции Vstroca происходит запись файла базы, закрытие файла.

Спецификация программы представлена в таблице 1.

Таблица 1. Спецификация программы

Название файла	Примечание	Обозначение файла
Склад.EXE	Исполняемый файл	Запускает программу
Склад.pas	Файлы модулей	Содержат основной код программы
*.db	Файл базы	Содержит вопросы и ответы

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

Программный продукт «Склад», представляет собой файл с расширением *.exe, являющийся исполняемым кодом языка программирования Pascal.

Программа состоит из двух частей:

1. база данных, которая хранит различные данные;

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

Основные требования к техническим и программным средствам представлены в таблице 2.

Таблица 2. Основные требования к техническим и программным средствам

Наименование технического средства или компонента	Техническая характеристика	Примечание
Технология изготовления	АТX	От этого зависит мощность и возможности оборудования
Центральный процессор	Pentium 166 MHz и выше	Лучше Pentium 233 MHz и выше
Оперативная память	Не менее 512 Mb SIMM	Желательно 1024 или выше MB DIMM
Материнская плата
Видео карта	SVGA с 2MB	Можно более мощные с графическим акселератором
Звуковая плата, колонки	Не требуется	Не требуется
Носители информации	В зависимости от объема данных в базе	В зависимости от объема данных в базе
Дисководы	Для гибких магнитных дисков 3.5” на 1.44MB
CD-ROM	Не требуется	Не требуется
Монитор Монитор и видео-карта должны поддерживать режим экрана не менее 800х600 пикселей	15”	17”
Клавиатура	Стандартная 104 клавишная	Совместимая с операционной системой Windows 95

Описание реализации алгоритма. Программа начинает свою работу с запуска файла Склад.EXE. появляется запрос на создание базы данных или прописание пути к существующей базе данных в противном случае она автоматически создает базу данных на диске C:\Base.dat.

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



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

Выбрав добавить нажатием клавиши Ins, появляется окно заполнения базы

Меню приход выводит следующее оно

Меню расход выводит следующее окно

При выборе поиска появляется окно поиска по наименованию

Меню сортировка выводит окно, в котором вводится номер столбца, по которому необходимо отсортировать данные в таблице

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

2.4 Охрана труда и техника безопасности

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

Работа на ЭВМ, а также на периферийных устройствах, входящие в состав ЭВМ, связано с возможностью возникновения опасных и вредных фактов:

1. Появления повышенного значения напряжения электрической цепи, замыкания которое может произойти через тело человека в случае прикосновения к открытым токопроводящим частям или к электропроводке с нарушенной изоляцией Мотузко Ф. Я. Охрана труда.- М.: Высшая школа, 2009. - 37 с..

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

3. Перенапряжение зрения при работе с экранным устройством, в особенности при нерациональном освещении рабочей поверхности в зоне видео экрана, и нерациональное расположение экрана по отношению к глазам Мацяшек Л.А. Анализ требований и проектирование систем.- М.: Наука, 2012. - 22 с..

4. При работе оператора ЭВМ необходимо быть внимательным, не отвлекаться на посторонние дела и не отвлекать людей.

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

Для обеспечения личной безопасности перед началом работы оператор ЭВМ обязан:

1. Проверить, визуально, порядок на своём рабочем месте и убедиться в отсутствии нарушений правил безопасности;

2. Для длительной работы (более 30 мин) подготовить рабочее место: отрегулировать сидение на оптимально удобное место, расположить элементы рабочего места так, чтобы угол зрения составлял 16°, расстояние до экрана было 40-50см; принять меры при нормальной освещённости прямой свет не падал на экран.

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

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

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

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

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

1. Длина помещения: 6.5 м;

2. Ширина помещения: 3.7 м;

3. Высота помещения: 3.5 м;

4. Число окон: 4;

5. Число рабочих мест: 2;

6. Освещение: естественное (через боковые окна) и общее искусственное;

7. Вид выполняемых работ: непрерывная работа с прикладной программой в диалоговом режиме.

Напряжение зрения:

1. Освещённость РМ, лк 300;

2. Размеры объекта, мм 0.3 - 0.5;

3. Разряд зрительной работы III - IV.

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

1. Недостаточное освещение;

2. Шум от работающих машин;

3. Электромагнитное излучение;

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

Поэтому необходимо разработать средства защиты от этих вредных факторов. К данным средствам защиты относятся: вентиляция, искусственное освещение, звукоизоляция. Существуют нормативы, определяющие комфортные условия и предельно допустимые нормы запылённости, температуры воздуха, шума, освещённости. В системе мер, обеспечивающих благоприятные условия труда, большое место отводится эстетическим факторам: оформление производственного интерьера, оборудования, применение функциональной музыки и др., которые оказывают определённое воздействие на организм человека. Важную роль играет окраска помещений, которая должна быть светлой. В данном разделе дипломного проекта рассчитывается необходимая освещённость рабочего места и информационная нагрузка оператора СаНПин 2.2.2.542-96. Гигиенические требования к видеодисплейным терминалам (ВДТ). Персональным электронно-вычислительным машинам (ПЭВМ) и организации работы.- М.: Информационно-издательский центр Госкомэпиднадзора России, 2009. - 28 с..

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

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

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

Кроме того, необходимо в течение 8-ми часового рабочего дня предусмотреть один часовой перерыв на обед, 5-ти минутные перерывы каждые полчаса и 15-ти минутные перерывы каждые 1.5 - 2 часа. Работу необходимо организовать таким образом, чтобы наиболее сложные задачи решались с 11:00 до 16:00 - в период наибольшей активности человека, а не в начале дня, когда оператор ещё не достиг максимальной активности, и не в конце дня, когда уже развивается утомление Самгин Э. Б. Освещение рабочих мест.- М.: МИРЭА, 2011. - 54 с..

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

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

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

В общем случае в типовой состав рабочей зоны включают:

1. Средства отображения информации индивидуального пользования (блоки отображения дисплеев, экраны персональных ЭВМ, и т.п.);

2. Средства управления и ввода информации (пульты дисплеев, клавиатура и устройства позиционирования курсора);

3. Устройства печати, документирования и хранения информации;

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

5. Стол и кресло оператора.

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

1. Учет последовательности и частоты использования отдельных средств в течение рабочей смены;

2. Учет требований к скорости и точности приема информации оператором;

3. Учет особенностей конструктивного выполнения технических средств и аппаратуры.

Рабочее место оператора складывается из:

1. Пространства, занимаемого оборудованием;

2. Пространства необходимого для технического обслуживания и ремонта;

3. Зоны проходов, обеспечивающей нормальное функционирование оборудования;

4. Сенсомоторного пространства (части пространства рабочего места, в которой осуществляется двигательная и сенсорная работа человека).

Пространственные и размерные соотношения между элементами рабочего места должны быть достаточными для:

1. Размещения работающего человека с учетом его рабочих движений и перемещений согласно технологическому процессу;

2. Расположения средств управления в пределах максимальной и минимальной границ моторного пространства;

3. Оптимального обзора визуальной информации,

4. Смены рабочей позы и рабочего положения;

5. Свободного доступа к оборудованию при ремонте и наладке;

6. Рационального размещения основных и вспомогательных средств труда;

7. Ведения записей, работы с документами и приборами.

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

1. Особенности конструктивного выполнения и расположения технических средств и аппаратуры;

2. Длительность работы с данной аппаратурой;

3. Точность и эффективность приема информации.

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

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

Итак, при эргономической оценке рабочего места оператора в качестве основных эргономических требований были выбраны следующие:

1. Особенности конструктивного выполнения и расположения технических средств и аппаратуры;

2. Длительность работы с данной аппаратурой;

3. Точность и эффективность приема информации.

Заключение

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

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

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

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

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

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

Согласно принципу системности АРМ следует рассматривать как системы, структура которых определяется функциональным назначением.

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

В основу классификации АРМ может быть положен ряд классификационных признаков. С учетом областей применения возможна классификация АРМ по функциональному признаку:

1. АРМ административно - управленческого персонала;

2. АРМ проектировщика радиоэлектронной аппаратуры, автоматизированных систем управления и т.д.

3. АРМ специалиста в области экономики, математики, физики, и т. д.

4. АРМ производственно-технологического назначения.

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

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

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

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

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

С целью обеспечения возможности взаимодействия человека с ЭВМ в интерактивном режиме появляется необходимость реализовать в рамках АСУ, так называемое АРМ - автоматизированное рабочее место.

• При написании данной выпускной квалификационной работы были выполнены поставленные цели по написанию программного продукта для АРМ «Склад»:
• - Поиск информации для написания курсовой в различных источниках;
• - Изучение материала по поставленной задаче;
• - Изучение языка программирования Object Pascal;
• - Изучение информации по среде программирования Delphi;
• - Написание программы;
• - Тестирование программы;

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

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

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

Глоссарий

№ п/п	Понятие	Определение
1	Интегрированная вычислительная сеть (интерсеть)	представляет собой взаимосвязанную совокупность многих вычислительных сетей, которые в интерсети называются подсетями.
2	Информационная скорость	определяется числом битов информации, переданных в единицу времени.
3	Канал (канал связи)	средства односторонней передачи данных.
4	Канал передачи данных	средства двустороннего обмена данными, включающие аппаратуру окончания канала данных и линию передачи данных.
5	Клиент	любая система, процесс, компьютер, пользователь, запрашивающие у сервера какой-либо ресурс, пользующиеся каким-либо ресурсом или обслуживаемые сервером иным способом.
6	Кодирование	представление сообщения последовательностью элементарных символов.
7	Коммутация данных	передача данных, при которой канал передачи данных может использоваться попеременно для обмена информацией между различными пунктами информационной сети в отличие от связи через некоммутируемые каналы, обычно закрепленные за определенными абонентами.
8	Компьютерная (вычислительная) сеть	вычислительная система, включающая в себя несколько компьютеров, терминалов и других аппаратных средств, соединенных между собой обеспечивающими передачу данных линиями связи.
9	Линия передачи данных	средства, которые используются в информационных сетях для распространения сигналов в нужном направлении.
19	Протокол	совокупность соглашений относительно способа представления данных, обеспечивающего их передачу в нужных направлениях и правильную интерпретацию данных всеми участниками процесса информационного обмена.
11	Сервер	любая система, процесс, компьютер, владеющие каким-либо вычислительным ресурсом (памятью, временем, производительностью процессора и т. д.).
12	Система	любой объект, который одновременно рассматривается и как единое целое, и как объединенная в интересах достижения поставленных целей совокупность разнородных элементов.
13	Среда передачи данных	совокупность линий передачи данных и блоков взаимодействия (т.е. сетевого оборудования, не входящего в станции данных), предназначенных для передачи данных между станциями данных.
14	Телекоммуникация	дистанционная передача данных на базе компьютерных сетей и современных технических средств связи.
15	Терминал	устройство, предназначенное для взаимодействия пользователя с вычислительной системой или сетью ЭВМ.
16	Топология	геометрическое отображение отношений в сети.

Список использованных источников

1. Васина Н. и др. Информационные ресурсы Internet. - М.: Изд. РРГУ, 2008.

2. Глушаков С.В., Мельничков И.В. Персональный компьютер: Учебный курс.- Харьков: Фолио; М.: ООО «Изд-во АСТ», 2010.- 542 с.

3. Гук М. Дисковая подсистема ПК. - СПб.: Питер, 2008.- 336 с.

4. Гук М. Энциклопедия «Аппаратные средства IBM PC». - СПб.: Питер, 2011.- 468 с.

5. Евдокимов В.В. Экономическая информатика: Учебник для вузов. - СПб.: Питер, 2008.

6. Жаров А. Железо IBM-2001. - М.: Изд-во «Микро-Арт», 2011.- 368 с.

7. Интернет: Энциклопедия / Под ред. Л. Мелиховой. - СПб: Питер, 2009.

8. Информатика: Базовый курс / Симонович С.В. и др. - СПб: Питер, 2011.

9. Информатика: Практикум по технологии работы на компьютере/Под ред. Н.В. Макаровой.- М.: Финансы и статистика, 2010. - 384 с.

10. Информационные системы / Под ред. В.Н. Волковой и Б.И. Кузина.- СПб.: Изд-во СПбГТУ, 2012.

11. Информационные системы в экономике / Под ред. В.В. Дика. - М.: Финансы и статистика, 2010.

12. Левин А. Самоучитель работы на компьютере. - Изд. 5-е перераб. и доп.- М.: Нолидж, 2012. - 624 с.

13. Леонтьев В.П. Новейшая энциклопедия персонального компьютера. М.: ОЛМА-ПРЕСС, 2002.

14. Максимович Г.Ю. и др. Информационные системы: Учебное пособие. - М.: Изд-во Рос. экон. акад. им. Г.В. Плеханова, 2010.

15. Мишенин А.И. Теория экономических информационных систем. - М.: Финансы и статистика, 2010.

16. Могилев А.В., Пак Н.И. Информатика.- М.: ACADEMIA, 2011.- 342 с.

17. Мотузко Ф. Я. Охрана труда.- М.: Высшая школа, 2009. - 37 с.

18. Новейший самоучитель по работе в Интернете / Под ред. С. Симоновича. М.: Десс; Инфорком-Пресс, 2011.

19. Олифер В.Г., Олифер Н.А. Компьютерные сети: Принципы, технологии, протоколы. - СПб.: Питер, 2012.

20. Петров В.Н. Информационные системы. - СПб.: Питер, 2008.

21. Проектирование экономических информационных систем / Е.А. Петров, Г.М. Смирнов, А.А. Сорокин, Ю.Ф. Тельнов. - М.: Финансы и статистика, 2011.

22. Пятибратов А.П., Гудыко Л.П. Вычислительные системы, сети и технологии. - М.: Финансы и статистика, 2010.- 362 с.

23. Пятибратов А.П., Гудыно Л.П., Кириченко А.А. Вычислительные системы, сети и телекоммуникации. - М.: Финансы и статистика, 2011.

24. Руководство Р2.2.013-94 Гигиенические критерии оценки условий труда по показателям вредности и опасности факторов производственной среды, тяжести и напряженности трудового процесса.- 103 с.

25. Рычков В. Excel 2003: Краткий курс. - СПб.: Питер, 2009.

26. Самгин Э. Б. Освещение рабочих мест.- М.: МИРЭА, 2011. - 54 с.

27. СаНПин 2.2.2.542-96. Гигиенические требования к видеодисплейным терминалам (ВДТ). Персональным электронно-вычислительным машинам (ПЭВМ) и организации работы.- М.: Информационно-издательский центр Госкомэпиднадзора России, 2009. - 28 с.

28. Тельнов Ю.Ф. Интеллектуальные информационные системы в экономике: Учебное пособие. - М.: Синтез, 2008.

29. Тупикина Е.Н., Мелюхин А.П. Информационные системы и сети: Учебное пособие. - Владивосток: Изд-во Дальневост. гос. акад. экономики и управления, 2009.

30. Фигурнов В.Э. IBM PC для пользователя / Изд. 10-е. - М.: Инфра-М, 2012.

31. Фролов И. Компьютерное «железо». Руководство пользователя.- М.: Познавательная книга плюс, 2009. - 352 с.

32. Шафрин Ю.А. Азбука компьютерных технологий. Образовательная книга-самоучитель для взрослых пользователей ПК IBM PC. - М., 2008.- 460

33. Шафрин Ю.А. Информационные технологии: В 2-х ч. Ч. 2. Офисная технология и информационные системы. - М.: Лаборатория базовых знаний, 2011.- 366 с.

34. Экономическая информатика / Под ред. П.В. Конюховского и Д.Н. Колесова. - СПб.: Питер, 2011.

35. Экономическая информатика: Учебник для вузов/ Под ред. д.э.н., проф. В.В. Евдокимова. - СПб.: Питер, 2012. - 592 с.: ил.

Приложение

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

Program kursovoi;

uses crt;

type basskl = record

naim:string[40];

kol:integer;

price:single;

kol_p:integer;

date_p:string[8];

kol_r:integer;

date_r:string[8];

end;

var f:file of basskl;

List:array[0..255] of basskl;

Schet:Integer;

curs,stran,i,mcurs:integer;

k:char;

Res,da,er,seter:Integer;

Tx,files:String;

key:boolean;

const

mnu:array[1..6] of string[13]=(

' Ввод ',

' Приход ',

' Расход ',

' Найти ',

' Сортировка ',

' Выход ');

function Probel(Text:String;Len:Integer):String;

begin

While length(Text)<Len do Text:=Text+' ';

Probel:=copy(Text,1,len)

end;

function Edtext(x,y:Integer; Text:String;Len:Integer;var key:boolean):String;

var c:char;

begin

key:=true;

Edtext:='';

repeat

gotoxy(x,y);

write(Text);

write(Probel('',len));

gotoxy(x,y);

write(Text);

c:=Readkey;

if c=#8 then delete(Text,length(Text),1);

if c in ['A'..'z',' ','.','0'..'9','А'..'я','-'] then Text:=Text+c;

Text:=copy(Text,1,len);

until (c=#27) or (c=#13);

if c=#13 then Edtext:=Text else key:=false;

end;

function Cifri(x,y:Integer; Text:String;Len:Integer;var key:boolean):String;

var c:char;

begin

key:=true;

Cifri:='';

repeat

gotoxy(x,y);

write(Text);

write(Probel('',len));

gotoxy(x,y);

write(Text);

c:=Readkey;

if c=#8 then delete(Text,length(Text),1);

if c in ['.','0'..'9','-'] then Text:=Text+c;

Text:=copy(Text,1,len);

until (c=#27) or (c=#13);

if c=#13 then Cifri:=Text else key:=false;

end;

procedure Prishlo(posiz:integer);

var Tx:String;

er:integer;

key:Boolean;

kl:integer;

begin

clrscr;

With List[Posiz] do begin

writeln(' Приход');

writeln(' Количество ->');

writeln(' Дата прихода ДД.ММ.ГГ->');

val(Cifri(25,2,'',6,key),kl,er); if NOT key then exit;

kol_p:=kol_p+kl; kol:=kol+kl;

Date_p:=Cifri(25,3,'',8,key); if NOT key then exit;

end;

end;

procedure Ushlo(posiz:integer);

var er:integer;

key:Boolean;

kl:integer;

begin

clrscr;

With List[Posiz] do begin

writeln(' Расход');

writeln(' Количество ->');

writeln(' Дата расхода ДД.ММ.ГГ->');

val(Cifri(25,2,'',6,key),kl,er); if NOT key then exit;

kol_r:=kol_r+kl; kol:=kol-kl;

Date_r:=Cifri(25,3,'',8,key); if NOT key then exit;

end;

end;

procedure Vvodnov;

var Tx:String;

er:integer;

key:Boolean;

begin

clrscr;

With List[Schet] do begin

writeln(' Новый товар');

writeln(' Наименование товара :');

writeln(' Количество :');

writeln(' Цена :');

writeln(' Дата прихода ДД.ММ.ГГ:'); {readln(date_p);}

Naim:=Edtext(25,2,'',20,key); if NOT key then exit;

val(Cifri(25,3,'',6,key),kol,er); if NOT key then exit;

kol_p:=kol;

val(Cifri(25,4,'',10,key),price,er); if NOT key then exit;

Date_p:=Cifri(25,5,'',8,key); if NOT key then exit;

inc(Schet);

end;

end;

procedure Edzapic(posiz:integer);

var Tx:String;

er:integer;

key:Boolean;

begin

clrscr;

With List[posiz] do begin

writeln(' Редактирование товара');

writeln(' Наименование товара :');

writeln(' Цена :');

Tx:=Edtext(25,2,Naim,20,key); if key then Naim:=tx;

str(price:0:2,tx);

tx:=Cifri(25,3,tx,10,key); if key then val(tx,price,er);

end;

end;

function vstroca(var curs:integer):integer;

var i:integer;

begin

Textbackground(15);

TextColor(0);

gotoxy(1,1); write(Probel('',80));

for i:=0 to 5 do

begin

gotoxy(i*13+1,1); write(mnu[i+1]);

end;

Textbackground(0);

TextColor(14);

gotoxy((curs-1)*13+1,1); write(mnu[curs]);

repeat

k:=readkey;

Textbackground(15);

TextColor(0);

gotoxy((curs-1)*13+1,1); write(mnu[curs]);

if k=#0 then k:=readkey;

case k of

#75: if curs>1 then dec(curs) else curs:=6;

#77: if curs<6 then inc(curs) else curs:=1;

end;

Textbackground(0);

TextColor(14);

gotoxy((curs-1)*13+1,1); write(mnu[curs]);

if k=#13 then vstroca:=curs;

until (k=#27) or (k=#13);

if k=#27 then vstroca:=-1;

end;

function VIVSTR(nstr:integer):String;

var Skol,sprice,summ,

Pkol,Rkol:String[10];

begin

VIVSTR:='';

if (nstr<Schet) and (nstr>=0) then

With List[nstr] do

begin

str(kol,skol);

str(price:9:2,sprice);

str(price*kol:9:2,summ);

str(kol_p,pkol);

str(kol_r,rkol);

VIVSTR:=Probel(naim,20)+Probel(skol,6)+Probel(sprice,11)+Probel(summ,11)+

Probel(Pkol,6)+Probel(Date_p,10)+Probel(Rkol,6)+Probel(Date_r,9);

end;

end;

procedure Ekran;

var i:integer;

Summ_,Sum_p,Sum_r:Double;

begin

Window(1,2,80,25);

Textbackground(5);

TextColor(10);

Clrscr;

gotoxy(1,1);

Textbackground(3);

write(Probel('Наименование',20)+Probel('Кол-во',9)+Probel('Цена',10)+

Probel('Сумма',7)+Probel('Приход ',7)+Probel('Дата пост',10)+Probel('Расход',6)

+Probel(' Дата выд',9));

Textbackground(5);

TextColor(14);

for i:=0 to 20 do

begin

gotoxy(1,2+i); Write(Vivstr(i+stran));

end;

Textbackground(15);

TextColor(0);

gotoxy(1,1+curs); write(VIVSTR(curs+stran-1));

Summ_:=0; Sum_p:=0; Sum_r:=0;

for i:=0 to Schet-1 do

begin

Summ_:=Summ_+(List[i].price*List[i].kol);

Sum_p:=Sum_p+(List[i].price*List[i].kol_p);

Sum_r:=Sum_r+(List[i].price*List[i].kol_r);

end;

Textbackground(4);

TextColor(15);

gotoxy(1,23); write(Probel('',80));

gotoxy(1,23); write(' Итого: ',

Summ_:12:2,' руб. Приход: ',Sum_p:0:2,' руб. Расход:',Sum_r:0:2,' руб.');

gotoxy(15,24); write ('Общее количество наименований товара: ',schet,' шт');

end;

procedure Sortirovka(num:Integer);

var i,j,k:Integer;

Bas:Basskl;

begin

for i:=0 to Schet-1 do

begin

Bas:=List[i];

for j:=i+1 to Schet-1 do

begin

case Num of

1: if Bas.Naim>List[j].naim then begin Bas:=List[j]; k:=j end;

2: if Bas.kol>List[j].kol then begin Bas:=List[j]; k:=j end;

3: if Bas.price>List[j].price then begin Bas:=List[j]; k:=j end;

5: if Bas.kol_p>List[j].kol_p then begin Bas:=List[j]; k:=j end;

6: if Bas.date_p>List[j].date_p then begin Bas:=List[j]; k:=j end;

7: if Bas.kol_r>List[j].kol_r then begin Bas:=List[j]; k:=j end;

8: if Bas.date_r>List[j].date_r then begin Bas:=List[j]; k:=j end;

end;

end;

List[k]:=List[i]; List[i]:=Bas;

end;

end;

procedure Vivlist(var seek,curs:integer);

var c,k:char;

i:integer;

begin

Ekran;

Textbackground(3);

gotoxy(1,24); write(Probel(' <- -> - меню | Ins - Добавить | Ctrl+F8 - Удалить | Ctrl+Enter - Изменить',79));

Textbackground(15);

TextColor(1);

gotoxy(1,1+curs); write(VIVSTR(curs+stran-1));

repeat

c:=readkey;

Textbackground(5);

TextColor(14);

gotoxy(1,1+curs); write(VIVSTR(curs+stran-1));

if c=#0 then k:=readkey;

case k of

#72: begin {Вверх курсор}

if (curs=1) and (stran>0) then begin dec(stran); Ekran end;

if (curs>1) then dec(curs);

end;

#80: begin {Вниз курсор}

if (curs=20) and (stran+20<Schet) then

begin inc(stran); Ekran end;

if ((curs<20) and (Schet>=20))

or ((Schet<20) and (curs<Schet)) then inc(curs);

end;

#101: begin{Удалить} {Ctrl+F8}

if Schet>0 then

for i:=curs+stran-1 to Schet-1 do

begin

List[i]:=List[i+1];

end;

dec(Schet);

dec(curs);

Ekran;

end;

#82: begin {Ins - новая запись}

Window(12,12,72,17);

Textbackground(0);

clrscr;

Window(10,11,70,16);

Textbackground(7);

clrscr;

{новоя запись}

Vvodnov;

Sortirovka(1);

Window(1,1,80,25);

Ekran;

end;

end;

if c=#10 then {Ctrl+Enter}

begin

Window(12,12,72,17);

Textbackground(0);

clrscr;

Window(10,11,70,16);

Textbackground(7);

clrscr;

{новая запись}

Edzapic(Curs+stran-1);

Sortirovka(1);

Window(1,1,80,25);

Ekran;

end;

Textbackground(15);

TextColor(1);

gotoxy(1,1+curs); write(VIVSTR(curs+stran-1));

until (k=#27) or (k=#13) or (k=#75)or (k=#77);

Window(1,1,80,25);

end;

begin

clrscr;

Window(16,12,66,15);

Textbackground(9);

textcolor (3);

clrscr;

write (' Введите название и полный путь базы');

gotoxy (3,3);

readln (files);

if files='' then files:='c:\base.dat';

assign(f,files);

{$I-}

reset(f);

{$I+}

if IOResult<>0 then rewrite(f);

Schet:=0;

While not eof(f) do

begin

inc(Schet);

read(f,List[Schet-1]);

end;

Textbackground(0);

clrscr;

curs:=1; stran:=0; mcurs:=1; seter:=15;

repeat

Ekran;

Window(1,1,80,25);

res:=vstroca(mcurs);

case res of

1:begin

Vivlist(stran,curs);

Window(1,1,80,25);

end;

2:begin

Window(16,12,66,15);

Textbackground(0);

clrscr;

Window(14,11,64,14);

Textbackground(7);

clrscr;

{Запуск новой записи}

Prishlo(Curs+stran-1);

Window(1,1,80,25);

end;

3:begin

Window(16,12,66,15);

Textbackground(0);

clrscr;

Window(14,11,64,14);

Textbackground(7);

clrscr;

{Запуск новой записи}

Ushlo(Curs+stran-1);

Window(1,1,80,25);

end;

4:begin {Поиск}

Window(16,12,66,14);

Textbackground(7);

clrscr;

Window(14,11,64,13);

Textbackground(8);

clrscr;

Gotoxy(2,2); Write('Найти наименование:');

Tx:=Edtext(25,2,'',20,key);

for i:=0 to Schet-1 do

if List[i].naim=tx then begin seter:=1; break; end;

if i>20 then begin curs:=1; stran:=i end

else begin curs:=i+1; stran:=0; end;

if seter<>1 then

begin

Window(16,12,66,14);

Textbackground(7);

clrscr;

Window(14,11,64,13);

Textbackground(8);

clrscr;

Gotoxy(2,2); Write('Наименование ненайдено'); readln; stran:=1; curs:=1;

end;

Vivlist(stran,curs);

Window(1,1,80,25);

end;

5:begin {Сортировка}

Window(16,12,66,14);

Textbackground(0);

clrscr;

Window(14,11,64,13);

Textbackground(7);

clrscr;

Gotoxy(2,2); Write('Введите поле для сортировки (1..8):');

val(Cifri(38,2,'',1,key),da,er);

if da in [1..8] then Sortirovka(da);

Window(1,1,80,25);

end;

end;

until (res<1) or (res=6);

Rewrite(f);

Sortirovka(1);

for i:=0 to Schet-1 do Write(f,List[i]);

close(f);

end.

Размещено на Allbest.ur