Разработка информационно-поисковой системы
Информационные потребности пользователя, модульная декомпозиция информационно-поисковой системы. Выбор средств разработки, проектирование базы данных, описание входных и выходных данных. Алгоритмы работы программы и модулей, пользовательский интерфейс.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 03.10.2017 |
| Размер файла | 742,2 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
- стратегию недифференцированного маркетинга, заключающуюся в игнорировании различий между сегментами рынка, без использования преимуществ анализа сегментации.
- стратегию дифференцированного маркетинга, реализуемую в виде маркетинговых программ, адаптированных для каждого сегмента.
- стратегию концентрированного маркетинга, проявляемую в сосредоточении ресурсов предприятия на удовлетворении потребностей одного или нескольких сегментов.
Выбор любой из этих трех стратегий охвата рынка определяется:
- числом идентифицированных и потенциально рентабельных сегментов;
- ресурсами предприятия.
Если ресурсы предприятия ограничены, то стратегия концентрированного маркетинга, по-видимому, является единственно возможной.
3.2.6 Позиционирование товара
Позиционирование товара - это оптимальное размещение товара в рыночном пространстве, разработка и создание имиджа товара таким образом, чтобы он занял в сознании покупателя достойное место, отличающееся от положения товаров конкурентов [9].
При этом необходимо различать сегментацию и позиционирование, хотя последние части включают в сегментацию рынка. Результат сегментации рынка - это желаемые характеристики товара. Результат позиционирования - это конкретные маркетинговые действия по разработке, распространению и продвижению товара на рынок.
Позиционирование товара в целевом сегменте связано с выделением отличительных преимуществ товара (конкурентных преимуществ), удовлетворением специфических потребностей или определенной категории клиентов, а также с формированием характерного имиджа товара и/или фирмы.
3.2.7 Принципы сегментации с учётом специфики продукта
Особенностью рынка программного продукта (ПП) является постоянное расширение товарной массы (числа пакетов), что определяется следующими причинами [10]:
- индустрией производятся и выпускаются на рынок все новые и новые ПП;
- находящиеся на рынке ПП непрерывно модернизируются и не уходят с рынка, так как продолжают находить спрос у пользователей.
Рынок сбыта программного продукта формируют существующие и потенциальные покупатели с соответствующими количественными и качественными характеристиками потребностей в продукции и услугах. Потребителями могут быть как организации, так и частные лица в зависимости от типа товара. Программные продукты относятся к классу товаров промышленного назначения. То есть для них характерны все перечисленные выше признаки сегментации, относящиеся к промышленному рынку.
3.2.8 Методика сегментации рынка математическими методами
Для формирования сегментов рынка используются элементы таксономического анализа - построение диаграмм Чекановского. Исходным шагом, предопределяющим правильность конечных результатов, является формирование матрицы наблюдений. Эта матрица содержит наиболее полную характеристику изучаемого множества объектов и имеет вид [10]:
(3.1)
где w - число объектов; n - число признаков; Xik - значение признака k для объекта i.
Признаки, включенные в матрицу, могут быть неоднородны, поскольку описывают разные свойства объектов. Кроме того, различаются единицы их измерения. Поэтому надлежит выполнить предварительное преобразование, которое заключается в стандартизации признаков. Это преобразование производится в соответствии с формулой
,(3.2)
причем:
,(3.3)
где k = 1, 2, ..., n ;
(3.4)
- стандартное отклонение признака k; zik - стандартизованное значение признака k для объекта i.
После стандартизации переменных переходят к процедуре - расчету матрицы расстояний с учетом всех элементов матрицы наблюдений. Чаще всего для этого расчета используется средняя абсолютная разность значений признаков:
(r, s = 1, 2, ... , w)(3.5)
Матрицу расстояний можно записать в следующем виде:
(3.6)
Здесь символ обозначает расстояние между элементами i и j.
Дальнейшее преобразование вышеприведенной матрицы заключается в том, что исчисленные расстояния разбиваются на классы по заранее установленным интервалам. Затем каждому выделенному классу присваивают условный знак: если элемент принадлежит интервалу, то пишут «X», иначе «-». Преобразованная таким образом таблица называется неупорядоченной диаграммой Чекановского (табл. 3.1).
Таблица 3.1 Неупорядоченная диаграмма Чекановского
|
Номера единиц |
1 |
2 |
… |
||
|
1 |
X |
- |
X |
- |
|
|
2 |
- |
- |
- |
X |
|
|
… |
… |
… |
… |
… |
|
|
W |
- |
X |
- |
X |
В приведенной неупорядоченной диаграмме очередность записи случайна. На это указывает явственный разброс символов, обозначающих разницу между изучаемыми элементами: наименьшее численное расстояние, обозначенное «»; наибольшее расстояние, т.е. пары элементов, наиболее разнящиеся между собой, - знаком «-». Для их линейного упорядочения следует произвести перегруппировку знаков таким образом, чтобы знаки «X» оказались как можно ближе к главной диагонали диаграммы. С этой целью строки и столбцы таблицы переставляются до тех пор, пока не получится упорядоченная диаграмма, из которой и получают сегменты рынка.
3.3 Поиск сегментов рынка для ИПС «Разработка и макетирование»
Информационно-поисковая система (ИПС) автоматизирует работу разработчиков изделий радиоэлектронной аппаратуры по поиску необходимых сведений в базе знаний, работу операторов по поддержанию сведений в актуальном состоянии, а также работу кладовщиков по ведению складского учета изделий.
Изначально предполагается, что ИПС «Разработка и макетирование» будет использоваться для собственных нужд НИИ ВС и СУ. Однако система может быть в короткие сроки адаптирована к условиям работы большинства организаций, занимающихся проектированием и разработкой радиоэлектронной аппаратуры, особенно специального назначения. В существенных доработках не будет необходимости, потому что производственные процессы в этом случае будут иметь сходную структуру. Для организаций, разрабатывающих аппаратуру общего назначения, часть функционала, связанная с механизмами разграничения доступа к документам и разрешимости применения импортных изделий, по всей видимости, востребована не будет. С другой стороны, их, вероятно, будет интересовать ведение складского учета в денежном выражении, что потребует некоторой доработки программы. Для предприятий складского хозяйства весьма привлекательным будет являться модуль учета изделий на складе, однако покупать большой программный продукт и использовать лишь часть его функционала не резон. Тем более что существуют специализированные программы для ведения такого учета. Однако принять во внимание данные предприятия тоже стоит.
Будем рассматривать следующие характеристики программного продукта, влияющие на наполненность системы:
1) Простота и удобство интерфейса;
2) Функциональность;
3) Быстродействие;
4) Надёжность;
5) Необходимость адаптации;
6) Дешевизна.
Сформируем матрицу наблюдений (табл. 3.2). Численные значения характеристик программного продукта выставляются по пятибалльной шкале следующим образом:
«1» - нет необходимости в данной характеристике;
«2» - характеристика безразлична;
«3» - более безразлична, чем необходима;
«4» - более необходима, чем безразлична;
«5» - необходима.
Таблица 3.2 Матрица наблюдений
|
Потребитель\ характеристика |
Прос-тота |
Функцио-нальность |
Быстро-действие |
Надёж-ность |
Необхо-димость адап-тации |
Деше-визна |
||
|
НИИ ВС и СУ |
5 |
5 |
5 |
5 |
1 |
5 |
||
|
Разработчики электронной аппаратуры |
специального назначения |
5 |
5 |
4 |
5 |
3 |
4 |
|
|
общего назначения |
4 |
3 |
5 |
5 |
3 |
4 |
||
|
Складские хозяйства |
5 |
1 |
4 |
4 |
5 |
5 |
Стандартизация признаков не требуется, так как характеристики оценивались в баллах, то есть матрица однородна.
Далее, используя формулу (3.5), преобразуем матрицу наблюдений в матрицу расстояний (табл.3.3):
Таблица 3.3 Матрица расстояний
|
1 |
2 |
3 |
4 |
||
|
1 |
0 |
2/3 |
2/3 |
11/6 |
|
|
2 |
2/3 |
0 |
2/3 |
3/2 |
|
|
3 |
2/3 |
2/3 |
0 |
7/6 |
|
|
4 |
11/6 |
3/2 |
7/6 |
0 |
Приведем числа в ячейках матрицы к десятичному виду (табл.3.4):
Таблица 3.4 Матрица расстояний (в десятичном виде)
|
1 |
2 |
3 |
4 |
||
|
1 |
0 |
0,67 |
0,67 |
1,83 |
|
|
2 |
0,67 |
0 |
0,67 |
1,50 |
|
|
3 |
0,67 |
0,67 |
0 |
1,17 |
|
|
4 |
1,83 |
1,50 |
1,17 |
0 |
Учитывая тот факт, что мы имеем дело лишь с четырьмя группами потребителей разрабатываемого программного обеспечения, то разобьём полученные расстояния на два класса и каждому выделенному классу присвоим свой знак, т.е. получим неупорядоченную матрицу Чекановского (табл. 3.5): для первого интервала: [0; 0,91] - знак «Х»; для второго интервала: (0,91; 1,83] - знак «-».
Таблица 3.5 Неупорядоченная матрица Чекановского
|
1 |
2 |
3 |
4 |
||
|
1 |
Х |
Х |
Х |
- |
|
|
2 |
Х |
Х |
X |
- |
|
|
3 |
Х |
X |
Х |
- |
|
|
4 |
- |
- |
- |
Х |
Видно, что перегруппировка матрицы расстояний не требуется, знаки «Х», обозначающие наименьшие численные расстояния, уже оказались ближе к главной диагонали. Итак, мы получили упорядоченную матрицу Чекановского (табл. 3.6):
Таблица 3.6 Упорядоченная матрица Чекановского
|
1 |
2 |
3 |
4 |
||
|
1 |
X |
Х |
Х |
- |
|
|
2 |
Х |
Х |
X |
- |
|
|
3 |
Х |
X |
Х |
- |
|
|
4 |
- |
- |
- |
Х |
В результате выполненных операций был выделен целевой сегмент рынка для нашего программного продукта - это организации, занимающиеся разработкой радиоэлектронной аппаратуры общего и специального назначения. Охват целевого сегмента следует производить с помощью стратегии концентрированного маркетинга.
Для позиционирования нашего программного продукта в целевом сегменте наиболее значимыми конкурентными преимуществами будут являться следующие характеристики:
? простота использования (интуитивно понятный интерфейс, относительная легкость внедрения системы);
? широкая функциональность (комплексная автоматизация различных этапов работ);
? надежность.
4. РАЗДЕЛ ПО ПРОИЗВОДСТВЕННОЙ И ЭКОЛОГИЧЕСКОЙ БЕЗОПАСНОСТИ
4.1 Введение
Научно-технический прогресс и широкое распространение вычислительной техники внесли изменения в условия производственной деятельности работников умственного труда. Их труд стал более интенсивным, напряжённым, требующим затрат умственной, эмоциональной и физической энергии. В связи с этим возросла роль охраны труда, призванной не только облегчить труд человека, но и сделать условия труда комфортными. Вероятнее всего человеку уже никогда не удастся полностью избежать вредного влияния передовых технологий на организм, но, как и во многих других случаях, сами пользователи персональных компьютеров, по крайней мере, могут свести его к минимуму. Персональные компьютеры (ПК) являются изделиями сложной вычислительной техники и, как любой прибор, требуют при работе с ним соблюдения определенных методов безопасной работы, незнание или пренебрежение которыми может причинить немало неприятностей. Большинство проблем решаются сами собой при правильной организации рабочего места, соблюдении правил техники безопасности и разумном распределении рабочего времени.
В данном разделе приводятся рекомендации по правильной организации рабочего места оператора, а также основные методы уменьшения вредных факторов воздействия компьютера на человека.
4.2 Аспекты производственной безопасности при работе на ПК
Имеющийся в настоящее время комплекс разработанных организационных мероприятий и технических средств защиты, накопленный опыт работы ряда вычислительных центров показывает, что имеется возможность значительно снижать воздействие на операторов опасных и вредных производственных факторов.
Опасным называется производственный фактор, воздействие которого на работающего человека в определенных условиях приводит к травме или другому внезапному резкому ухудшению здоровья. Если же производственный фактор приводит к заболеванию или снижению трудоспособности, то его считают вредным. В зависимости от уровня и продолжительности воздействия вредный производственный фактор может стать опасным. Опасные и вредные производственные факторы подразделяются на четыре группы: физические, химические, биологические и психофизиологические [11].
4.2.1 Психофизиологические факторы
Психофизиологические факторы в зависимости от характера действия делятся на следующие группы: физические перегрузки (статические, динамические) и нервно-психические перегрузки (умственное перенапряжение, перенапряжение анализаторов, монотонность труда, эмоциональные перегрузки).
Монотонность - психическое состояние человека, вызванное однообразием восприятий или действий. Монотонности труда характерна для работы оператора ПК, которая связана с вводом однообразной информации. В этом случае очень часто у сотрудника возможно возникновение рабочего стресса [11].
Согласно статистике, рабочему стрессу подвержены две трети работающих людей, а в некоторых профессиях 100% работающих. И что интересно здесь в группу риска вынесены действительно вовсе не самые опасные, нервные и напряженные виды деятельности, а наоборот, вполне спокойные, но монотонные и изматывающие.
Наиболее опасная в стрессовом плане ситуация возникает, когда человек выполняет достаточно однообразные действия, не дающие сразу положительного эффекта, но требующие постоянной концентрации. Например, работа с документами. При этом если работа происходит на фоне регулярных помех и отвлекающих событий, риск стресса увеличивается в несколько раз.
Для предупреждения возникновения рабочего стресса рекомендуется соблюдать следующие правила:
- общее время работы за дисплеем не должно превышать 50% всего рабочего времени оператора;
- при обычной работе за компьютером необходимо делать 15-минутные перерывы через каждые два часа, а при интенсивной работе - через каждый час;
- не следует превышать темп работы порядка 10 тысяч нажатий клавиш в час (примерно 1500 слов);
- предпочтительнее использовать жидкокристаллические дисплеи с высокой разрешающей способностью (разрешением) и удобным размером экрана;
- лучше выбирать видеоадаптеры с высоким разрешением и, по возможности, частотой обновления экранного изображения не менее 70-72 Гц (рекомендуется 85 или 100 Гц);
- обязательно ставить на дисплеи экранные, в частности, поляризационные, фильтры, в несколько раз снижающие утомляемость глаз;
- наконец, при вводе данных с клавиатуры рекомендуется не зажимать телефонную трубку между плечом и ухом.
Рабочая поза оказывает значительное влияние на эффективность работы человека. Основные требования к рабочим местам при выполнении работы сидя приведены в ГОСТ 12.2.032-78 "ССБТ. Рабочее место при выполнении работ сидя. Общие эргономические требования" [12]. Рабочее место должно быть оборудовано так, чтобы исключать неудобные позы и длительные статические напряжения тела. Поскольку найти такое идеальное положение для тела, в котором можно было бы пребывать в течение всего дня, вряд ли возможно, то для большинства людей комфортабельным может быть рабочее место, которое можно приспособить, как минимум, для двух позиций (при этом положение оборудования должно соответствовать выполняемой работе и привычкам пользователя).
К обслуживанию и работе на ПК допускаются лица прошедшие медосмотр при поступлении на работу. Последующий медосмотр проводится раз в два года. Также необходимо соблюдать ограничения на работу с персональными компьютерами для служащих, страдающих заболеваниями опорно-двигательного аппарата, глаз (или нарушениями зрения), кожи.
4.2.2 Защита от излучений
Основным источником проблем, связанных с охраной здоровья людей, использующих в своей работе персональные компьютеры, являются дисплеи (мониторы), особенно дисплеи с электронно-лучевыми трубками. Они представляют собой источники наиболее вредных излучений, неблагоприятно влияющих на здоровье операторов [11].
История исследования этого вопроса достаточно длительная и непростая, но полученные результаты носят пока еще преимущественно статистический характер и не имеют адекватного объяснения. Частотный состав (спектр) излучения монитора характеризуется наличием рентгеновских, ультрафиолетовых, инфракрасных и других электромагнитных колебаний. Опасность рентгеновского и части других излучений большинством ученых признается пренебрежимо малой, поскольку их уровень достаточно невелик и в основном поглощается покрытием экрана. Наиболее тяжелая ситуация связана, по-видимому, с полями излучений очень низких частот (ОНЧ) и крайне низких частот (КНЧ), которые, как выяснилось, способны вызывать биологические эффекты при воздействии на живые организмы. Было обнаружено, что электромагнитные поля с частотой порядка 60 Гц могут инициировать изменения в клетках животных (вплоть до нарушения синтеза ДНК). Особенно поразительным для исследователей оказался тот факт, что, в отличие, например, от рентгеновского излучения, электромагнитные волны обладают необычным свойством: опасность их воздействия при снижении интенсивности излучения не уменьшается, мало того, некоторые поля действуют на клетки тела только при малых интенсивностях или на конкретных частотах.
Специальные измерения показали, что мониторы действительно излучают магнитные волны, по интенсивности не уступающие уровням магнитных полей, способных обусловливать возникновение опухолей у людей.
В некоторых странах (в том числе в Швеции и Канаде) разработаны стандарты для излучений ОНЧ-магнитных полей. Большое число поставщиков - например, фирмы IBM, DEC и Philips - продают мониторы, удовлетворяющие указанным стандартам. Кроме того, любой монитор, работающий не на электронно-лучевой трубке, имеет то преимущество, что не излучает переменных компонент, связанных с наличием систем вертикального и горизонтального отклонения электронного луча. Поэтому, например, жидкокристаллические мониторы помимо таких достоинств, как компактность и низкое энергопотребление, являются намного более безопасными, чем мониторы с электронно-лучевой трубкой.
Пользователям персональных компьютеров, желающим снизить уровень облучения переменными магнитными полями, следует расположить мониторы так, чтобы расстояние до них составляло величину, равную расстоянию вытянутой руки (с вытянутыми пальцами).
4.2.3 Оборудование рабочих мест с ПК
Требования к организации и оборудованию рабочего места оператора приведены в ГОСТ 12.2.032-78 [12]. Высота рабочей поверхности стола для пользователей должна регулироваться в пределах 680-800 мм; при отсутствии таковой возможности высота рабочей поверхности стола должна составлять 725 мм.
Модульными размерами рабочей поверхности стола для ПК, на основании которых должны рассчитываться конструктивные размеры, следует считать: ширину 800, 1200, 1400 мм, глубину 800 и 1000 мм при нерегулируемой высоте, равной 725 мм.
Рабочий стол должен иметь пространство для ног высотой не менее 600 мм, шириной - не менее 500 мм, глубиной на уровне колен - не менее 450 мм и на уровне вытянутых ног - не менее 650 мм.
Рабочий стул (кресло) должен быть подъемно-поворотным и регулируемым по высоте и углам наклона сиденья и спинки, а также - расстоянию спинки до переднего края сиденья.
Рабочее место необходимо оборудовать подставкой для ног, имеющей ширину не менее 300 мм, глубину не менее 400 мм, регулировку по высоте в пределах до 150 мм и по углу наклона опорной поверхности подставки до 20 градусов. Поверхность подставки должна быть рифленой и иметь по переднему краю бортик высотой 10 мм.
Клавиатуру следует располагать на поверхности стола на расстоянии 100-300 мм от края, обращенного к пользователю, или на специальной регулируемой по высоте рабочей поверхности, отделенной от основной столешницы.
4.2.4 Электробезопасность
Конструкция компьютера обеспечивает электробезопасность для работающего на нем человека. Тем не менее, компьютер является электрическим устройством, работающим от сети переменного тока напряжением 220В, а в мониторе напряжение, подаваемое на кинескоп, достигает нескольких десятков киловольт. Поэтому использование компьютеров в организации требует соблюдения дополнительных норм электробезопасности.
Чтобы предотвратить возможность поражения электрическим током, возникновения пожара и выхода из строя самого компьютера при работе и техническом обслуживании компьютера необходимо соблюдать следующие меры предосторожности:
- сетевые розетки, от которых питается компьютер, должны соответствовать вилкам кабелей электропитания компьютера;
- запрещается использовать в качестве заземления водопроводные и газовые трубы, радиаторы и другие узлы парового отопления;
- запрещается во время работы компьютера отключать и подключать разъемы соединительных кабелей;
- запрещается снимать крышку системного блока и производить любые операции внутри корпуса до полного отключения системного блока от электропитания;
- запрещается разбирать монитор и пытаться самостоятельно устранять неисправности (опасные для жизни высокие напряжения на элементах схемы монитора сохраняются длительное время после отключения электропитания);
- запрещается закрывать вентиляционные отверстия на корпусе системного блока и монитора посторонними предметами во избежание перегрева элементов расположенных внутри этих устройств;
- повторное включение компьютера рекомендуется производить не ранее, чем через 20 секунд после выключения.
Однако, как показывает анализ случаев электротравматизма при эксплуатации промышленных установок, чаще всего имеет место однополюсное (однофазное) прикосновение в изолированных и глухозаземленных сетях.
Единственным фактором, ограничивающим силу тока, протекающего через тело человека в однофазных сетях, является сопротивление тела человека.
Опасность эксплуатации таких электроустановок очевидна. Эффективной мерой защиты при питании оборудования машинного зала напряжением опасным для жизни человека является защитное заземление. Заземляющим устройством называют совокупность заземлителя (металлического проводника или группы проводников, находящихся в непосредственном соприкосновении с грунтом) и заземляющих проводников, соединяющих заземленные части электроустановки с заземлителем. Если корпус электрооборудования не имеет контакта с землей, то прикосновение к нему так же опасно, как и прикосновение к токоведущим частям электроустановки. Когда корпус заземляют, образуется ветвь тока, параллельная участку сети, в которую включается человек. Ток замыкания на землю перераспределяется: вследствие малого сопротивления заземляющего устройства больший ток пойдет через заземляющую систему, и меньший - через тело человека. При исправном заземлении ток, проходящий через тело человека, становится неопасным. Так как помещение компьютерного зала относится к классу помещений без повышенной опасности, то, для обеспечения безопасности персонала, необходим обычный комплекс профилактических работ, включающий обеспечение надежного заземления всех металлических частей, причем наибольшая допустимая величина сопротивления заземления не должна превышать 100 Ом.
Изоляция играет важную роль в электроустановках, она защищает их от чрезмерной утечки токов, предохраняет людей от поражения током и исключает возникновение пожаров.
Проводка в производственных помещениях выполняется изолированными проводами или кабелями, которые в местах, где возможны их механические повреждения, укладываются в металлические трубы. Помещения, в которых устанавливаются персональные ЭВМ, должны соответствовать всем вышеуказанным требованиям.
4.2.5 Освещение рабочего места
Освещение рабочего места оператора ПК имеют свою специфику. Освещенность рабочего места не должна быть очень яркой, она должна быть меньше, чем при работе с бумагами. При одновременной работе с бумагами и экраном необходимо использовать настольную лампу для подсветки документов. При этом свет от настольной лампы не должен попадать в глаза и на экран. Рядом с монитором нельзя располагать блестящие и отражающие свет предметы (глянцевые плакаты, рамки от картин, вазы и т.п.).
Во избежание бликов экран монитора нужно располагать перпендикулярно к окну. Не следует располагать монитор на фоне яркого окна, так как свет из окна будет оказывать дополнительную нагрузку на зрение. Если окно будет расположено за спиной оператора, изображение на мониторе будет выглядеть блеклым, что также потребует дополнительного зрительного напряжения. Наилучшим считается, когда окно расположено слева. При этом нужно регулировать яркость оконного света при помощи гардин, штор и жалюзи.
Освещенность должна соответствовать характеру труда, который определяется объектом различия, фоном, контрастом объекта с фоном [11].
Необходимо обеспечить достаточно равномерное распределение яркости на рабочей поверхности, а также в пределах окружающего пространства. Светлая окраска потолка, стен и производственного оборудования способствует созданию равномерного распределения яркости в поле зрения.
На рабочей поверхности должны отсутствовать резкие тени. Особенно вредны движущиеся тени, которые могут привести к травмам. Тени необходимо смягчать, применяя, например, светильники со светорассеивающими молочными стеклами. На окнах необходимо предусматривать солнцезащитные устройства (например, жалюзи).
В поле зрения должна отсутствовать блескость. Блескость - повышенная яркость светящихся поверхностей, вызывающая нарушение зрительных функций (ослепленность), т.е. ухудшение видимости объектов. Блескость снижают уменьшением яркости источника света или выбором рациональных углов светильника.
Величина освещенности должна быть постоянной во времени. Колебания освещенности, вызванные резким изменением напряжения в сети, приводят к значительному утомлению. Следует выбирать необходимый состав спектра освещения. Это существенно при работах, где требуется правильная цветопередача. Все элементы осветительных установок должны быть достаточно долговечными, электро- и взрывобезопасными.
Свечение со стороны экрана, а также частая смена заставок на экране при большой продолжительности трудовой деятельности может отрицательно воздействовать на зрение. Такой режим работы утомляет зрительные органы, и это необходимо учитывать при работе за компьютером.
4.3 Расчет общего освещения
Рассчитаем общее освещение в компьютерном зале методом коэффициента использования светового потока.
Выбираем рекомендованное для компьютерного зала люминесцентное освещение [11].
Длина помещения 8 м; ширина помещения 6 м; высота - 3,4 м. Будем использовать светильники типа ОДОР с двумя лампами типа ЛБ-40.
Основная расчетная формула имеет вид:
(4.1)
где F - световой поток светильника; Е - выбранное значение освещенности; Кз - коэффициент запаса; N - число светильников; з - коэффициент использования светового потока; z - коэффициент неравномерности освещения; S - площадь помещения [11].
Располагаем светильники рядами вдоль длинной стороны помещения. Для обеспечения наилучших условий освещения при максимальной экономичности осветительной установки расстояние между светильниками L и высотой подвеса их над рабочей поверхностью h должны соответствовать отношению:
(4.2)
Высота подвеса над рабочей поверхностью h рассчитывается по формуле:
(4.3)
где H = 3,4 м - высота помещения; hс = 0,2 м - свес светильника; hp = 0,8 м - высота рабочей поверхности от пола; примем л=1,15.
h = 3,4-0,2-0,8 = 2,4 [м]
L = 1,15*h = 2,76 [м]
Длина помещения А = 8 м; ширина помещения В = 6 м. Количество рядов светильников N найдем из уравнения:
L * (0.33* 2 + N-1) = B(4.4)
Количество рядов светильников N = 3 ряда.
Примем значение освещенности Eн = 500 лк.
Так как запыленность воздуха меньше 1 мг/мі, то коэффициент запаса: Кз = 1,5.
Площадь помещения S = A*B = 8*6 = 48 мІ.
Так как мы предполагаем создать достаточно равномерное освещение, то коэффициент неравномерности освещения: z = 1,1.
Индекс помещения:
Коэффициенты отражения светового потока принимаем:от потолкасп = 70%;от стенсс = 50%;от поласпола = 10%.
Тогда по таблице находим коэффициент использования светового потока:з = 0,51.
По таблице находим световой поток лампы ЛБ-40: Фл = 3120 лм.
Световой поток светильника: Фсв = 2*Фл = 6240 лм.
Количество светильников в одном ряду M:
Определим расположение светильников.
Длина светильника lсв = 1.3 м.
Количество светильников в ряду М = 4 шт.
Количество рядов светильников N = 3 шт.
Так как М*lсв = 5,2<А = 8 [м], то расстояние между светильниками в одном ряду L2 можно сделать равным расстоянию от крайнего светильника в ряду до стены.
Тогда:
Расстояние между рядами L1, при расстоянии крайнего ряда от стены 0.33*L1:
Итак, для освещения компьютерного зала используем 12 светильников типа ОДОР с двумя лампами типа ЛБ-40.
В данном разделе рассмотрены вопросы производственной безопасности при работе с ПК и даны практические рекомендации по созданию оптимальных условий труда оператора ПК.
Были рассмотрены психофизиологические факторы, оказывающие влияние на здоровье человека, вопросы электробезопасности и защиты от излучений, требования к оборудованию рабочего места оператора и его освещению, а также проведен расчет общего освещения компьютерного зала методом коэффициента использования светового потока.
ЗАКЛЮЧЕНИЕ
В процессе работы над дипломным проектом были разработаны следующие составные части информационно-поисковой системы «Разработка и макетирование»: подсистема администрирования с автоматической регистрацией пользователей, модуль формирования перечней элементов и ведомостей покупных изделий, а также модуль учета изделий на складе. Для этого была исследована предметная область и выявлены информационные потребности пользователя, осуществлен выбор средств разработки, спроектирована база данных системы, определены входные и выходные данные, разработаны алгоритмы функционирования и пользовательский интерфейс. В целях повышения надежности было осуществлено тестирование полученных модулей и подсистем и проведена опытная эксплуатация ИПС.
В технологическом разделе дипломного проекта были описаны некоторые технологии, которые использовались при разработке. В частности, это технология создания баз данных с помощью специализированного инструмента IBExpert, а также технология экспорта данных на основе OLE.
Сегментация рынка пользователей системы, выполненная в организационно-экономическом разделе, показала наличие потенциальных целевых сегментов, на которых может быть востребована ИПС, и ее конкурентные преимущества.
В разделе по производственной и экологической безопасности были затронуты вопросы безопасности жизнедеятельности при работе за компьютером, которые имеют огромное значение для предприятия при охране труда программистов и операторов, использующих разработанную программу.
На данный момент информационно-поисковая система «Разработка и макетирование», в состав которой входят разработанные модули и подсистемы, успешно внедрена и используется научно-техническим персоналом НИИ ВС и СУ МИЭТ.
СПИСОК ЛИТЕРАТУРЫ
1. Гагарина Л.Г., Зубов Н.Н., Стрижков А.В., Федотова Е.Л. Методические указания по подготовке дипломного проекта специалистов направления 654600 «Информатика и вычислительная техника» (специальность 220400 «Программное обеспечение вычислительной техники и автоматизированных систем»). Под редакцией А.Э. Нестерова - М.: МИЭТ, 2004 - 66с.: ил.
2. Ковязин А., Востриков С. Мир InterBase. Архитектура, администрирование и разработка приложений баз данных в InterBase/FireBird/Yaffil. - М.: КУДИЦ-ОБРАЗ, 2002. - 496 с.
3. Фаронов В.В. Программирование баз данных в Delphi 7. Учебный курс. - СПб.: ПИТЕР, 2003. - 459 с.
4. Архангельский А.Я. Программирование в Delphi 7. - M.: ЗАО «Издательство БИНОМ», 2003. - 1152 с.
5. Роджерсон Дэйл. Основы СОМ. - М.: Русская редакция, 2000. - 400 с.
6. Котлер Ф. Основы маркетинга / Пер. с англ. - М.: Ростинтэр, 2002.
7. Моисеева Н.К., Костина Г.Д. Маркетинговые исследования при создании и использовании программных продуктов. Методические указания для выполнения курсовых и дипломных работ по специальности «Менеджмент». М.: МГИЭТ(ТУ), 1996. - 78 с.: ил.
8. Каракеян В.И. Безопасность жизнедеятельности. - М.: МИЭТ, 1999.
9. ГОСТ 12.2.032-78. ССБТ. Рабочее место при выполнении работ сидя. Общие эргономические требования.
ПРИЛОЖЕНИЕ
Текст программы
Программное обеспечение информационно-поисковой системы «Разработка и макетирование» (ИПС РиМ) состоит из пятидесяти семи модулей. Ниже приводится листинг основных модулей.
//Модуль работы с учетными записями пользователей
unit UsersView;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ExtCtrls, Grids, DBGrids, ComCtrls, ToolWin, Buttons, Tabs, IniFiles;
type
TfmUsersView = class(TForm)
StatusBar: TStatusBar;
BottomPanel: TPanel;
tsPages: TTabSet;
LeftBottomPanel: TPanel;
sbFirst: TSpeedButton;
sbLeft: TSpeedButton;
sbRight: TSpeedButton;
sbLast: TSpeedButton;
ToolBar: TToolBar;
tbAddUser: TToolButton;
tbDeleteUser: TToolButton;
ToolButton5: TToolButton;
tbFind: TToolButton;
ToolButton2: TToolButton;
tbEdit: TToolButton;
ToolButton3: TToolButton;
tbTable: TToolButton;
tbForm: TToolButton;
mmTableView: TMainMenu;
N1: TMenuItem;
mmAddUser: TMenuItem;
mmDeleteUser: TMenuItem;
N4: TMenuItem;
mmExit: TMenuItem;
N2: TMenuItem;
mmFind: TMenuItem;
N3: TMenuItem;
mmEdit: TMenuItem;
N5: TMenuItem;
mmTable: TMenuItem;
mmForm: TMenuItem;
pmTableView: TPopupMenu;
pmOpenCategory: TMenuItem;
pmCloseCategory: TMenuItem;
ButtonPanel: TPanel;
buSetLevel: TButton;
lblSearch: TLabel;
edSearch: TEdit;
ClosePanel: TPanel;
sbCloseResults: TSpeedButton;
ToolButton1: TToolButton;
tbRemind: TToolButton;
tbImport: TToolButton;
mmImport: TMenuItem;
N7: TMenuItem;
ListView: TListView;
mmDict: TMenuItem;
tbDictControl: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure mmExitClick(Sender: TObject);
procedure mmFindClick(Sender: TObject);
procedure mmEditClick(Sender: TObject);
procedure mmTableClick(Sender: TObject);
procedure mmFormClick(Sender: TObject);
procedure sbFirstClick(Sender: TObject);
procedure sbLeftClick(Sender: TObject);
procedure sbRightClick(Sender: TObject);
procedure sbLastClick(Sender: TObject);
procedure tsPagesClick(Sender: TObject);
procedure mmAddUserClick(Sender: TObject);
procedure mmDeleteUserClick(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure buSetLevelClick(Sender: TObject);
procedure edSearchChange(Sender: TObject);
procedure ClosePanelResize(Sender: TObject);
procedure sbCloseResultsClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure tbRemindClick(Sender: TObject);
procedure mmImportClick(Sender: TObject);
procedure ListViewDblClick(Sender: TObject);
procedure ListViewColumnClick(Sender: TObject; Column: TListColumn);
procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
procedure mmDictClick(Sender: TObject);
private
{Private declarations}
public
OldLogin : string; //сохранение логина
ColumnToSort : integer; //столбец для сортировки
NumOfClicks : integer; //число нажатий на столбце
ShowNew : boolean; //показать новых
AllSelected : boolean; //выбрать всех
sSQL : string;
CheckList : TStringList; //список отмеченных
procedure PrepareGrid;
procedure RestoreChecks;
end;
var
fmUsersView : TfmUsersView;
implementation
{$R *.dfm}
uses
DataModule, DataModuleRM, DB, IBCustomDataSet, IBStoredProc, UserCardView, UserCard, SetLevel, Search, Reg, Remind, ImportUsers, DictControl;
//*************************//
// Подготовка грида //
//*************************//
procedure TfmUsersView.PrepareGrid;
begin
with ListView.Columns do
begin
Items[1].Caption := 'Логин';
Items[2].Caption := 'ФИО';
Items[3].Caption := 'Должность';
Items[4].Caption := 'Подразделение';
Items[5].Caption := 'Код доступа';
Items[6].Caption := 'Роль';
Items[7].Caption := 'Дата регистрации';
end;
end;
//**************************//
// Создание формы //
//**************************//
procedure TfmUsersView.FormCreate(Sender: TObject);
var
i : integer;
begin
StatusBar.Panels[1].Text := '1:1';
ShowNew := false;
CheckList := TStringList.Create;
buSetLevel.Left := ButtonPanel.Width - buSetLevel.Width - 5;
ColumnToSort := 1;
NumOfClicks := 0;
with ListView.Columns do
begin
Clear;
for i := 0 to 7 do Add;
Items[0].Width := 18;
Items[1].Width := 120;
Items[2].Width := 160;
Items[3].Width := 160;
Items[4].Width := 160;
Items[5].Width := 160;
Items[6].Width := 130;
Items[7].Width := 110;
end;
PrepareGrid;
end;
//****************************//
// Активизация формы //
//****************************//
procedure TfmUsersView.FormActivate(Sender: TObject);
begin
AllSelected := false;
if ShowNew
then tsPages.TabIndex := 1
else tsPages.TabIndex := 0;
edSearch.SetFocus;
edSearchChange(Sender);
end;
//**********************************************//
// Обработчик меню: Выход из программы //
//**********************************************//
procedure TfmUsersView.mmExitClick(Sender: TObject);
begin
fmUsersView.Close;
end;
//**********************************//
// Обработчик меню: Поиск //
//**********************************//
procedure TfmUsersView.mmFindClick(Sender: TObject);
begin
fmSearch.ShowModal;
end;
//******************************************//
// Обработчик меню: Редактировать //
//******************************************//
procedure TfmUsersView.mmEditClick(Sender: TObject);
var
sLogin : string;
begin
if DM.qrUsers.IsEmpty then Exit;
if ListView.Selected = nil
then
begin
ShowMessage('Выберите пользователя для редактирования');
Exit;
end;
sLogin := ListView.Selected.SubItems.Strings[0];
DM.qrUsers.Locate('LOGIN',sLogin,[loCaseInsensitive]);
fmUserCard := TfmUserCard.Create(nil, cmEdit);
fmUserCard.Caption := 'Редактирование пользователя';
fmUserCard.ShowModal;
fmUserCard.Free;
tsPagesClick(Sender);
end;
//*********************************//
// Обработчик меню: Добавить //
//*********************************//
procedure TfmUsersView.mmAddUserClick(Sender: TObject);
begin
fmUserCard := TfmUserCard.Create(nil, cmInsert);
fmUserCard.Caption := 'Добавление пользователя';
fmUserCard.ShowModal;
fmUserCard.Free;
tsPagesClick(Sender);
end;
//*********************************//
// Обработчик меню: Удалить //
//*********************************//
procedure TfmUsersView.mmDeleteUserClick(Sender: TObject);
var
sLogin : string;
begin
if ListView.Selected = nil
then
begin
ShowMessage('Выберите пользователя, которого хотите удалить');
Exit;
end;
sLogin := ListView.Selected.SubItems.Strings[0];
if (sLogin = DM.sLogin) or (sLogin = OldLogin) then
begin
Application.MessageBox('Нельзя удалить текущего пользователя','Ошибка!',MB_ICONERROR);
Exit;
end;
if MessageDlg('Удалить пользователя "' + sLogin + '"', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
begin
with DM.spUser do
begin
StoredProcName := 'DELETE_USER';
ParamByName('VC_LOGIN').Value := sLogin;
Prepare;
ExecProc;
end;
DM.trRimBase.CommitRetaining;
tsPagesClick(Sender);
end;
end;
//***************************************//
// Обработчик меню: Импорт данных //
//***************************************//
procedure TfmUsersView.mmImportClick(Sender: TObject);
begin
fmImportUsers.ShowModal;
fmUsersView.Activate;
end;
//*******************************************//
// Обработчик меню: Системные словари //
//*******************************************//
procedure TfmUsersView.mmDictClick(Sender: TObject);
begin
fmDictControl.ShowModal;
fmUsersView.Activate;
end;
//****************************************//
// Обработчик меню: Вид-Таблица //
//****************************************//
procedure TfmUsersView.mmTableClick(Sender: TObject);
var
i : integer;
begin
if mmTable.Checked then
Exit;
mmTable.Checked := true;
mmForm.Checked := false;
tbTable.Down := true;
tbForm.Down := false;
fmUserCardView.Visible := false;
ListView.Visible := true;
i := DM.qrUsers.RecNo;
ListView.Selected := ListView.Items.Item[i-1];
edSearch.SetFocus;
tsPages.SelectedColor := clWhite;
tsPages.UnselectedColor := clBtnFace;
end;
//**************************************//
// Обработчик меню: Вид-Форма //
//**************************************//
procedure TfmUsersView.mmFormClick(Sender: TObject);
var
sLogin : string;
begin
if mmForm.Checked then
Exit;
mmTable.Checked := false;
mmForm.Checked := true;
tbTable.Down := false;
tbForm.Down := true;
if (ListView.Selected <> nil)
then
begin
sLogin := ListView.Selected.SubItems.Strings[0];
DM.qrUsers.Locate('LOGIN',sLogin,[loCaseInsensitive]);
end
else DM.qrUsers.First;
ListView.Visible := false;
fmUserCardView.Parent := fmUsersView;
fmUserCardView.Visible := true;
tsPages.SelectedColor := clBtnFace;
tsPages.UnselectedColor := clWhite;
end;
//**************************************//
// Обработчик: Закрыть категорию //
//**************************************//
procedure TfmUsersView.sbCloseResultsClick(Sender: TObject);
var
s : string;
begin
if tsPages.TabIndex < 2
then Exit;
s := 'Закрыть закладку "' + tsPages.Tabs[tsPages.TabIndex] + '" ?';
if Application.MessageBox(PChar(s),'Подтвердите',MB_ICONQUESTION + MB_YESNO) = IDYES
then
begin
tsPages.Tabs.Delete(tsPages.TabIndex);
tsPages.TabIndex := 0;
end;
end;
//*****************************************//
// Обработчик: Показать уведомление //
//*****************************************//
procedure TfmUsersView.tbRemindClick(Sender: TObject);
begin
fmRemind.ShowModal;
fmUsersView.Activate;
end;
//**************************//
// Смена закладок //
//**************************//
procedure TfmUsersView.tsPagesClick(Sender: TObject);
var
Left, Top, Bottom, Num : integer;
ValuesList : TStringList;
begin
Top := Round(StatusBar.Height / 4);
Left := StatusBar.Panels[0].Width + StatusBar.Panels[1].Width + 5;
Bottom := 3 * Top;
StatusBar.Canvas.Pen.Color := clNavy;
StatusBar.Canvas.Brush.Color := clNavy;
StatusBar.Panels[1].Text := IntToStr(tsPages.TabIndex + 1) + ' : ' + IntToStr(tsPages.Tabs.Count);
StatusBar.Canvas.Rectangle(Left, Top, Left + 100, Bottom);
DM.qrUsers.Transaction.CommitRetaining;
ValuesList := TStringList.Create;
CheckList.Clear;
for Num := 0 to ListView.Items.Count - 1 do
if ListView.Items.Item[Num].Checked
then CheckList.Add(ListView.Items.Item[Num].SubItems.Strings[0]);
ListView.Items.BeginUpdate;
ListView.Items.Clear;
sSQL := 'select u.*, da.vc_acl_name, dr.vc_role from USERS u, DICT_ACL da, DICT_ROLE dr where u.uacl=da.n_acl_id and u.urole=dr.n_role_id';
if tsPages.TabIndex = 2
then sSQL := fmSearch.sSQL;
DM.qrUsers.SQL.Clear;
if tsPages.TabIndex = 1 then sSQL := sSQL + ' and u.n_new = 1';
if (edSearch.Text <> '') and (tsPages.TabIndex <> 2)
then
sSQL := sSQL + ' and upper(u.LOGIN) like upper(''' + edSearch.Text + '%'')';
DM.qrUsers.SQL.Add(sSQL + ' order by upper(u.LOGIN)');
with DM.qrUsers do
begin
Close;
Open;
FetchAll;
First;
PrepareGrid;
for Num := 0 to RecordCount - 1 do
begin
ValuesList.Clear;
ListView.Items.Add;
ValuesList.Add(FieldValues['LOGIN']);
if not (FieldValues['UNAME'] = null)
then ValuesList.Add(FieldValues['UNAME'])
else ValuesList.Add('');
if not (FieldValues['UPOST'] = null)
then ValuesList.Add(FieldValues['UPOST'])
else ValuesList.Add('');
if not (FieldValues['UDEP'] = null)
then ValuesList.Add(FieldValues['UDEP'])
else ValuesList.Add('');
ValuesList.Add(FieldValues['VC_ACL_NAME']);
ValuesList.Add(FieldValues['VC_ROLE']);
ValuesList.Add(FieldValues['REGDATE']);
ListView.Items.Item[Num].SubItems.AddStrings(ValuesList);
Next;
end;
end;
if (DM.qrUsers.RecNo = 0) then
begin
mmDeleteUser.Enabled := false;
tbDeleteUser.Enabled := false;
tbEdit.Enabled := false;
mmEdit.Enabled := false;
buSetLevel.Enabled := false;
end
else
begin
mmDeleteUser.Enabled := true;
tbDeleteUser.Enabled := true;
tbEdit.Enabled := true;
mmEdit.Enabled := true;
buSetLevel.Enabled := true;
end;
if (tsPages.TabIndex = 2)
then
begin
sbCloseResults.Enabled := true;
lblSearch.Visible := false;
edSearch.Visible := false;
end
else
begin
sbCloseResults.Enabled := false;
lblSearch.Visible := true;
edSearch.Visible := true;
end;
AllSelected := false;
RestoreChecks;
ListView.Items.EndUpdate;
StatusBar.Canvas.Pen.Color := clBtnFace;
StatusBar.Canvas.Brush.Color := clBtnFace;
StatusBar.Canvas.Rectangle(Left, Top, Left + 100, Bottom);
StatusBar.Panels.Items[3].Text := ' Всего пользователей: ' + IntToStr(DM.qrUsers.RecordCount);
end;
//**************************************//
// Переход на первую закладку //
//**************************************//
procedure TfmUsersView.sbFirstClick(Sender: TObject);
begin
tsPages.TabIndex := 0;
end;
//******************************************//
// Переход на предыдущую закладку //
//******************************************//
procedure TfmUsersView.sbLeftClick(Sender: TObject);
begin
if(tsPages.TabIndex <> 0) then
tsPages.SelectNext(false);
end;
//****************************************//
// Переход на следующую закладку //
//****************************************//
procedure TfmUsersView.sbRightClick(Sender: TObject);
begin
if(tsPages.TabIndex <> tsPages.Tabs.Count - 1) then
tsPages.SelectNext(true);
end;
//****************************************//
// Переход на последнюю закладку //
//****************************************//
procedure TfmUsersView.sbLastClick(Sender: TObject);
begin
tsPages.TabIndex := tsPages.Tabs.Count - 1;
end;
//**************************//
// Закрытие формы //
//**************************//
procedure TfmUsersView.FormClose(Sender: TObject;
var Action: TCloseAction);
var
MyIni : TIniFile;
begin
MyIni := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'IniFiles\DB.INI');
try
MyIni.WriteBool('OPTIONS','ShowRemind',DM.ShowRemindDialog);
finally
MyIni.Free;
end;
with DM.spAutoReg do //вызываем процедуру регистрации
begin
ParamByName('VC_LOGIN').Value := OldLogin;
ParamByName('VC_PASS').Value := 'nopass';
ParamByName('REFRESH_CALL').Value := 1;
Prepare;
ExecProc;
DM.sName := ParamByName('VC_NAME').AsString; //запомнили ФИО
DM.sLogin := ParamByName('VC_REAL_LOGIN').AsString; //и логин
DM.nRole := ParamByName('N_ROLE').AsInteger; //и роль
DM.nLevel := ParamByName('N_ACL').AsInteger; //и ACL
Close;
end;
DM.trRimBase.CommitRetaining;
end;
//*********************************//
// Изменение размеров формы //
//*********************************//
procedure TfmUsersView.FormResize(Sender: TObject);
begin
buSetLevel.Left := ButtonPanel.Width - buSetLevel.Width - 5;
end;
//*********************************//
// Установить права доступа //
//*********************************//
procedure TfmUsersView.buSetLevelClick(Sender: TObject);
var
i : integer;
begin
CheckList.Clear;
for i := 0 to ListView.Items.Count - 1 do
if ListView.Items.Item[i].Checked
then CheckList.Add(ListView.Items.Item[i].SubItems.Strings[0]);
fmSetLevel.ShowModal;
if tsPages.TabIndex <> 2 then edSearch.SetFocus;
tsPagesClick(Sender);
AllSelected := true;
RestoreChecks;
end;
//*****************************************//
// Изменение поля "Поиск по логину" //
//*****************************************//
procedure TfmUsersView.edSearchChange(Sender: TObject);
begin
tsPagesClick(Sender);
end;
//*******************************//
// Восстановление отметок //
//*******************************//
procedure TfmUsersView.RestoreChecks;
var
Num, ListNum : integer;
begin
for Num := 0 to ListView.Items.Count - 1 do
for ListNum := 0 to CheckList.Count - 1 do
if ListView.Items.Item[Num].SubItems.Strings[0] = CheckList.Strings[ListNum]
then ListView.Items.Item[Num].Checked := true;
end;
//**********************************//
// Изменение размеров панели //
//**********************************//
procedure TfmUsersView.ClosePanelResize(Sender: TObject);
begin
sbCloseResults.Left := ClosePanel.Width - 15;
end;
//********************//
// Показ формы //
//********************//
procedure TfmUsersView.FormShow(Sender: TObject);
begin
if DM.ShowRemindDialog then fmRemind.ShowModal;
end;
//********************************//
// Двойной щелчок на гриде //
//********************************//
procedure TfmUsersView.ListViewDblClick(Sender: TObject);
var
sLogin : string;
begin
if ListView.Selected = nil
then Exit;
sLogin := ListView.Selected.SubItems.Strings[0];
DM.qrUsers.Locate('LOGIN',sLogin,[loCaseInsensitive]);
mmEditClick(Sender);
end;
//********************************//
// Щелчок на столбце грида //
//********************************//
procedure TfmUsersView.ListViewColumnClick(Sender: TObject;
Column: TListColumn);
var
i : integer;
begin
if Column.Index = 0
then
begin
AllSelected := not AllSelected;
for i := 0 to ListView.Items.Count - 1 do
if AllSelected
then ListView.Items.Item[i].Checked := true
else ListView.Items.Item[i].Checked := false;
end
else
begin
ListView.Items.BeginUpdate;
PrepareGrid;
if (ColumnToSort = Column.Index) and (NumOfClicks = 1)
then NumOfClicks := 2 else NumOfClicks := 1;
ColumnToSort := Column.Index;
if NumOfClicks = 1
then Column.Caption := Column.Caption + ' (+)'
else Column.Caption := Column.Caption + ' (-)';
(Sender as TCustomListView).AlphaSort;
ListView.Items.EndUpdate;
end;
end;
//*************************//
// Сортировка грида //
//*************************//
procedure TfmUsersView.ListViewCompare(Sender: TObject; Item1,
Item2: TListItem; Data: Integer; var Compare: Integer);
var
Index : integer;
begin
Index := ColumnToSort - 1;
Compare := AnsiCompareText(Item1.SubItems[Index],Item2.SubItems[Index]);
if NumOfClicks = 2 then Compare := (-1) * Compare;
end;
end.
//Модуль складского учета в разрезе элементов
unit StoreView;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Tabs, ExtCtrls, ComCtrls, Menus, ToolWin, ImgList, Grids, DBGrids, StdCtrls, DBCtrls, IniFiles, IB, DB;
type
TfmStoreView = class(TForm)
StatusBar: TStatusBar;
BottomPanel: TPanel;
tsPages: TTabSet;
LeftBottomPanel...
Подобные документы
Общее описание информационно–справочной системы, предназначенной для контролирования работы промоутеров. Описание входных и выходных данных. Проектирование интерфейса пользователя. Выбор стратегии разработки тестов. Поиск информации, просмотр отчётов.
курсовая работа [3,6 M], добавлен 27.07.2014Выбор состава технических и программных средств разработки системы. Описание входных и выходных данных. Выбор модели базы данных. Разработка подсистемы наполнения базы данных, формирования отчетов. Разработка интерфейса пользователя, тестирование системы.
курсовая работа [3,7 M], добавлен 04.12.2014Возможности программы DBDesigner. Проектирование и реализация информационно-поисковой системы с помощью CASE-средства DBDesigner в среде Intranet. Этапы проектирования базы данных, установление соединения с базой данных на сервере, синхронизация.
лабораторная работа [1,5 M], добавлен 18.08.2009Совместимость и преобразование типов данных. Создание информационно-поисковой системы на языке программирования Паскаль. Описание интерфейса, каждого блока программы "Картотека больных". Рассмотрение результатов работы программы, сортирования данных.
курсовая работа [368,9 K], добавлен 18.05.2015Автоматизация и визуализация рабочего места методиста факультета, работающего с личными делами студентов. Создание базы данных и ограничений. Интерфейс пользователя и порядок работы с программным обеспечением. Разработка справки и контекстной помощи.
курсовая работа [867,3 K], добавлен 22.02.2016Разработка web-приложения для оперирования данными с помощью базы данных и web-браузера в качестве клиента пользователя. Основные преимущества языка программирования Java. Осуществление редактирования, добавления информации и поиска по архивам данных.
дипломная работа [2,1 M], добавлен 30.09.2016Анализ существующих поисковых систем и используемых ими алгоритмов поиска документов. Разработка информационно-поисковой системы словарного типа, способной осуществлять релевантный поиск документов, особенности ее структуры и информационно-поисковой базы.
дипломная работа [942,1 K], добавлен 19.05.2011Разработка программы для автоматизации расчетов на телефонной станции. Описание входной и выходной информации, комплекс технических средств. Интерфейс конечного пользователя. Проектирование программных модулей представления входных и выходных данных.
курсовая работа [460,1 K], добавлен 26.06.2015Разработка информационной системы на языке программирования С++ в среде С++Builder. Схема базы данных. Характеристика энергосберегающих режимов операционной системы. Интерфейс программы, ее установка на компьютер, выполнение, средства и порядок испытания.
отчет по практике [986,2 K], добавлен 06.02.2016Анализ информационно-поисковых систем автоматизации производства. Построение инфологической и логической модели базы данных технологического оборудования для сборочно-монтажных работ. Выбор языка программирования приложения БД. Алгоритм работы программы.
дипломная работа [2,5 M], добавлен 18.12.2013Разработка база данных в виде таблицы, включающей поля: ФИО, адрес, номер телефона, наименование услуги, сумма оплаты, срок выполнения. Процедуры программы и соответствующие им пункты в меню. Описание исходных данных, интерфейса и работы каждой процедуры.
курсовая работа [997,3 K], добавлен 08.06.2014Описание входной и выходной информации. Требования к комплексу технических средств и к интерфейсу конечного пользователя. Разработка форм представления входных и выходных данных. Проектирование программных модулей. Руководство пользователя и программиста.
курсовая работа [421,6 K], добавлен 27.06.2015База данных как компьютеризованная система, предназначенная для хранения информации и предоставления ее по требованию. Описание предметной области для проектирования и организации базы учета данных готовой продукции и сопровождения ее программой.
дипломная работа [1,0 M], добавлен 19.05.2011Описание и классификация современных информационно–поисковых систем. Гипертекстовые документы. Обзор и рейтинги основных мировых поисковых систем. Разработка информационно–поисковой системы, демонстрирующей механизм поиска информации в сети Интернет.
дипломная работа [1,3 M], добавлен 16.06.2015Проектирование программного модуля: сбор исходных материалов; описание входных и выходных данных; выбор программного обеспечения. Описание типов данных и реализация интерфейса программы. Тестирование программного модуля и разработка справочной системы.
курсовая работа [81,7 K], добавлен 18.08.2014Возможности программы DBDesigner. Моделирование, сопровождения информационных систем. Проектирование базы данных. Кодирование, установление соединения с базой данных на серввере. Синхронизация, запросы для внесения изменений и операций над данными.
лабораторная работа [1,4 M], добавлен 26.08.2009Проектирование алгоритмов и программных кодов для различных элементов пользовательских форм информационно-аналитической системы. Исследование структуры базы данных. Связь между таблицами. Разработка графического интерфейса программы и справочной системы.
курсовая работа [2,4 M], добавлен 10.01.2015Проектирование информационно-поисковой системы "Цветы" для решения задач, связанных с предоставлением услуг по оформлению и доставке заказов букетов и композиций. Разработка объектов базы данных - транзакций, представлений, хранимых процедур и запросов.
курсовая работа [4,2 M], добавлен 26.11.2011Описание входных и выходных данных. Общая характеристика и требования к проектируемой программе, ее структуре и функциональным компонентам. Выбор и обоснование средств разработки, разработка интерфейса пользователя. Требования к программному обеспечению.
курсовая работа [1,4 M], добавлен 12.05.2016Разработка базы данных при помощи системы управления базами Microsoft Access. Определение состава выходных и входных данных, их математическое выражение и информационно-логическая модель. Разработка блок-схемы алгоритма и таблиц в режиме "Конструктор".
курсовая работа [2,8 M], добавлен 12.11.2013
