Структура рабочей сети Internet
версиях программа непроверялась, по причине их не существования на момент
разработки. По неписаным законам совместимости, как правило, более старшая
версия поддерживает всевозможности предыдущей.
Указанный InterBase SQL сервер входит в комплект поставки Delphi и его установка
достаточно тривиальна.
При установленном сервере необходимо создать в BDE-Administrator так называемые
«алиасы» - псевдонимыбаз данных. Также следует завести пользователя баз данных,
которым с точки зрения сервера и является написанная программа АРМ Отдел Кадров.
Для этого в менеджереSQL сервера надо завести пользователя с именем «MATHER» и
установить его пароль «1». Приведем внешний вид менеджера.
Рис. 2.1 Менеджер SQL InterBase сервера
Сначала надо подключится к серверу. Для этого надо выбрать кнопку «Подключение к
серверу»,по нажатию на которую вызывается диалог выбора сервера. Выбрав
установленный локальный или установленный на сетевом сервере SQL-сервер,
произвести к нему подключение.Стоит помнить, что сразу после установки SQL
сервера по умолчанию имя сисадмина SYSDBA, логин MASTERKEY. Затем выбрать пункт
Управлениебезопасностью и добавить пользователя с именем «MATHER» и установить
его пароль «1».
Внешний вид диалогов :
Рис 2.2 Диалог подключения к серверу
Рис 2.3 Диалог добавления нового пользователя
Далее надо завести "алиасы" в BDE администраторе на используемые базыданных.
Сами файлы баз данных "Depots.gdb", "Dict.gdb", "Mail.gdb" надо разместить
насетевом сервере (или в любой удобной директории при локальной установке).
Соответствия следующие :
"Depots.gdb" - aliase = depots2.
"Dict.gdb" - aliase = dictionary2.
"Mail.gdb"- aliase = mail2.
Рис 2.4. Внешний вид BDE-Administrator при создании алиасов.
Для созданных алиасов надо выбрать тип драйвера INTRBASE и язык LANGDRIVER =
"Pdox ANSICyrillic". Данные действия иллюстрирует рисунок 2.4.
2.1.10Особенности реализации поставленной задачи
Первая задача, с которой пришлось столкнуться, состояла в разработке удобного
интерфейса.Поскольку программа рассчитана на длительную работу оператора с ней,
а также есть опыт неудачного интерфейса программы-прототипа, то этому вопросу
было уделенонемало внимания. Ключевым аспектом стал выбор цветовой палитры всей
программы, поскольку как показала практика, слишком контрастная цветовая палитра
ведет ксильному утомлению оператора и недовольству программой в целом.
В результате была выбрана наиболее оптимальная для считывания с экрана цветовая
палитра, а именно белый или светло-серый шрифт на темно-зеленом фоне.
Пользователипрограммы подтвердили, что именно при таких цветах глаза меньше
всего устают и работа с программой не вызывает раздражения.
Следующей задачей стало хорошее структурирование обрабатываемой информации с
целью ееразнесения по различным формам и диалогам. В программе-прототипе многие
логически разные данные вводились в одной и той же форме, что приводило
кпутанице и не делало ее интерфейс интуитивно понятным. В АРМ-Отдел Кадров
представление информации более наглядно и структурировано в целом.
Для повышения удобства работы были реализованы словари, назначение и принцип
работы скоторыми описаны выше.
С точки зрения программной реализации был решен ряд вопросов. В Delphi, как это
не печально,набор стандартных функций для работы со строками и датами не
покрывает все встречающиеся задачи. Поэтому при работе над дипломом были
написаны различныефункции и процедуры для проверки и обработки даты и строк. Они
вынесены в отдельный модуль и могут быть применены при решении новых задач.
Также были закодированы алгоритмы для специфичной работы с периодами времени при
работе смесяцами , кварталами и т.п.
Многие операторы привыкли работать с программой, минимально используя
манипулятор"мышь" используя для повышения скорости набора текста и перемещения
по полям ввода. Для этого были написаны специальные визуальные компоненты
нооснове простых полей ввода, но которые по нажатию клавиш "вверх", "вниз"
передают фокус ввода на другое поле или компонент. Эти поляввода также можно
применить при решении других задач.
При реализации самой базы данных основной трудностью являлось продумывание
структур таблиц. Посколько требовалось создание программы, создающей минимальную
нагрузку на сеть, то это требовало достаточно ответственного подхода. Выяснилась
необходимостьсоздать ряд хранимых процедур, чтобы программа минимально нагружала
сеть и соответствовала технологии клиент-сервер.
2.1.11 Экранныеформы
После запуска программы и ввода правильного пароля пользователь оказывается в
основном окнепрограммы :
Рис 2.5. Основное окно программы
Форма отображения списка личных карточек (активного и архива):
Рис 2.6 Список личных карточек (активных либо из архива).
Рис 2.7 Внешний вид учетной карточки-главный раздел
Рис 2.8 Внешний вид учетной карточки-Воинский учет.
Рис 2.9 Внешний вид учетной карточки-Назначения, перемещения
Рис 2.10 Комлексный запрос на поиск учетной карточки в архиве
Рис 2.11 Словарь - Виды образования
Рис 2.12 Словарь Специальностей в режиме добавления новой записи.
Рис 2.13 Системный журнал для просмотра совершенных действий.
Заключение
В данном разделе приводитьсяобщее описание созданной программы. Дана инструкция
по еевводу в эксплуатацию и работе с ней. Информация подкреплена графическим
материалом - внешним видом диалоговых окон программы.
3 Безопасность жизнедеятельности
Введение
Пользователь ПЭВМ испытывает вредное действие работы ПЭВМ, поэтому рабочие
местапользователей должны отвечать безопасным и безвредным условием труда.
В связи с этим предполагается разработать комплекс мер, обеспечивающих
безопасные и безвредныеусловия труда и рассмотреть экологические вопросы
3.1 Анализ опасных и вредных факторов, возникающих при работе скомпьютером
При разработке программного продукта на разработчика работающего на ПЭВМ
постоянно илипериодически действуют следующие опасные и вредные факторы [3.1.,
3.2.]:
1. Загрязнение воздуха вредными веществами, пылью, микроорганизмами и
положительными аэронами.
2.Несоответствие нормам параметров микроклимата.
3.Возникновение на экране монитора статистических зарядов, заставляющих
частички пыли двигаться к ближайшему заземлённому предмету, часто им
оказывается лицо разработчика.
4.Повышенный уровень шума на рабочем месте.
5.Повышенный уровень статистического электричества при неправильно
спроектированной рабочей зоне.
6.Опасный уровень напряжения в электрической цепи, замыкание которой может
произойтичерез тело человека.
7.Широкий спектр излучения от дисплея, который включает рентгеновскую,
ультрафиолетовую иинфракрасную области, а так же широкий диапазон
электромагнитных излучений других частот.
8.Повышенный уровень электромагнитных излучений.
9.Повышенный уровень ионизирующих излучений ( мягкое рентгеновское, гамма -
излучение).
10.Отсутствие или недостаток естественного света.
11.Недостаточная освещенность рабочей зоны.
12.Повышенная яркость света.
13.Пониженная контрастность.
14.Прямая и обратная блесткость.
15.Повышенная пульсация светового потока (мерцание изображения).
16.Длительное пребывание в одном и том же положении, и повторение одних и тех же
движенийприводит к синдрому длительных статических нагрузок (СДСН).
17.Нерациональная организация рабочего места.
18.Несоответствие эргономических характеристик оборудования нормируемым
величинам.
19.Умственное перенапряжение, которое обусловлено характером решаемых задач
приводит к синдрому длительных психологическим нагрузкам (сдпн).
20.Большой объем перерабатываемой информации приводит к значительным нагрузкам
на органызрения.
21.Монотонность труда.
22.Нервно-психические нагрузки.
23.Нервно-эмоциональные стрессовые нагрузки.
24.Опасность возникновения пожара.
Остановимся подробнее на недостаточной освещенности рабочей зоны помещения, где
установленыПЭВМ, а также на влиянии повышенной яркости света, пониженной
контрастности, прямой и обратной блёсткости иповышенной пульсации светового
потока.
При работе на ПЭВМ органы зрения пользователя выдерживают большую нагрузку с
одновременнымпостоянным напряженным характером труда что приводит к нарушению
функционального состояния зрительногоанализатора и центральной нервной системы.
Нарушение функционального состояния зрительного анализатора проявляется в
сниженииостроты зрения, устойчивости ясного видения, аккомодации, электрической
чувствительности и лабильности.
Причинами нарушения функционального состояния зрительного анализатора являются
постояннаяпереадаптация органов зрения в условиях наличия в поле зрения объекта
различения и фона различной яркости; недостаточной четкостью и
контрастностьюизображения на экране; строчностью воспринимаемой информации;
постоянными яркостными мельканиями; наличием ярких пятен на клавиатуре и экране
за счетотражения светового потока, большой разницей между яркостью рабочей
поверхности я яркостью окружающих предметов, наличием равноудаленных предметов,
невысокимкачеством исходной информации на бумаге, неравномерной и недостаточной
освещенностью на рабочем месте.
Наряду с перечисленными общепринятыми особенностями работы пользователя на
рабочем местеПЭВМ существуют особенности восприятия информации с экрана
монитора.
Особенностью восприятия информации с экрана монитора органами зрения
пользователя ПЭВМявляются:
экран монитора является источником света, на который в процессе
работынепосредственно обращены органы зрения пользователя, что вводит
оператора в другое психофизиологическое состояние;
привязанность внимания пользователя к экрану монитора является причиной
длительностинеподвижности глазных и внутриглазных мышц, что приводит к их
ослаблению;
длительная и повышенная сосредоточенность органов зрения приводит к большим
нагрузкам а,следовательно, к утомлению органов зрения, способствует
возникновению близорукости, головной боли и раздраженности, нервного
напряжения и стресса;
длительная привязанность внимания пользователя к экрану монитора создает
дискомфортное восприятие информации, в отличие отчтения обычной печатной
информации;
экран монитора является источником падающего светового потока на органы
зренияпользователя, в отличие от обычной печатной информации, которая
считывается за счет отраженного светового потока;
информация на экране монитора периодически обновляется в процессе
сканированияэлектронного луча по поверхности экрана и при низкой частоте
происходит мерцание изображения, в отличие отнеизменной информации на бумаге.
3.2Мероприятия попредотвращению и уменьшению влияния вредных факторов
3.2.1Нормирование искусственного и естественного освещения.
Для снижения нагрузки на органы зрения пользователя при работе на ПЭВМ
необходимо соблюдатьследующие условия зрительной работы. При работе на ПЭВМ
пользователь выполняет работу высокой точности, при минимальном размере объекта
различения 0.3-0.5 мм(толщина символа на экране), разряда работы III, подразряда
работы Г (экран - фон светлый символ - объект различения темным или наоборот).
Естественное боковое освещение должно составлять 2%, комбинированное
искусственное освещение400 лк при общем освещении 200 лк [3.3.]
3.2.2Основные требования к искусственному освещению впроизводственном помещении.
К системам производственного освещения предъявляются следующие основные
требования: [2.4.,2.5]
соответствие уровня освещённости рабочих мест характеру выполняемой работы
достаточно равномерное распределение яркости на рабочих поверхностях и в
окружающемпространстве
отсутствие резких теней, прямой и отражённой блёскости (блёскость – повышенная
яркостьсветящихся поверхностей, вызывающая ослеплённость);
оптимальная направленность излучаемого осветительными приборами светового
потока.
Искусственное освещение в помещении и на рабочем месте создаёт хорошую
видимость информации,машинописного и рукописного текста, при этом должна быть
исключена отражённая блёскость.
В связи с этим предусматриваются мероприятия по ограничению слепящего
воздействия оконныхпроёмов и прямое попадание солнечных лучей, а так же
исключение на рабочих поверхностях ярких и тёмных пятен. Это достигается за счёт
соответствующейориентации оконных проёмов и рационального размещения рабочих
мест.
Площадь оконных проёмов должна составлять не менее 25% площади пола. В
помещениирекомендуется комбинированная система освещения с использованием
люминесцентных ламп. Для проектирования местного освещения рекомендуются
люминесцентные лампы,светильники которых установлены на столе или его
вертикальной панели.
Светильники местного освещения должны иметь приспособления для ориентации в
разныхнаправлениях, устройствах для регулирования яркости и защитные решётки от
ослепления и отражённого света.
3.2.3Расчёт искусственного освещения
Имеется помещение инженера-разработчика размером:
длина 5 м;
ширина 4 м;
высота 3 м.
Потолок, пол и стены окрашены краской. Метод светового потока сводится к
определениюколичества светильников по следующей формуле [3.5] :
N = (*Sп*К*Z) / (F* *n)
где Енорм - нормируемая минимальная освещённость на рабочем месте, лк;
Енорм= 400лк;
Sn - площадь производственного помещения, м2; S=20 м2;
К - коэффициент запаса светового потока, зависящий от степени загрязнения ламп,
К=1.4,
Z – коэффициент минимальной освещенности, для люминесцентных ламп = z = 1.1
F – световой поток лампы, лм;
коэффициент использования светового потока ламп;
n – число ламп в светильнике, n = 2.4;
коэффициент затенения, = 0.9
Индекс помещения определяется по формуле:
А и В - длина и ширина помещения, м;
Нр - высота подвеса светильника над рабочей поверхностью, м.
После подстановки данных, находим индекс помещения:
i = (5*4) / (2*(5+4)) = 1.11
Коэффициенты отражения потолка и пола принимаем 0.75 и 0.50 соответственно. В
зависимости отиндекса помещения и коэффициентов отражения потолка и пола находим
коэффициент использования светового потока по таблице [2.5]
Выбираем тип люминесцентных ламп низкого давления:
Лампа ЛТБ-20, световой поток 975 лм;
Лампа ЛТБ-30, световой поток 1720 лм;
Лампа ЛТБ-40, световой поток 3000 лм.
Подставив все значения, найдем количество светильников:
N = (400*20* 1.4*1.1)/(975*0.54*2.4*0.9)=10.8 = 11 шт;
N = (400*20* 1.4*1.1)/(1720*0.54*2,4*0.9)=6.1 = 6 шт;
N = (400*20*1.4*1.1)/(3000*0.54*2.4*0.9)=3.52 = 4 шт.
Из трех вариантов выбираем наиболее экономичный.
Для определения оптимального варианта надо рассчитать:
Руд = N*F/Sn
1. Руд = 11*975 / 20 = 536.25
2. Руд = 6*1720 / 20 = 516
3. Руд = 4*3000 / 20 = 600
Следовательно, наиболее экономичным будет вариант 2:
ЛТБ-30, и поэтому конструктивно выбираем его.
3.2.4Рациональная планировка рабочих мест.
Для создания равномерной освещённости рабочих мест при общем освещении
светильники слюминесцентными лампами встраиваются непосредственно в потолок
помещения и располагается в равномерно-прямоугольном порядке. Наиболее
желательноерасположение светильников в непрерывный сплошной ряд вдоль длинной
стороны помещения. Коэффициент наивыгоднейшего расположения светильников
определяетсяпо формуле [2.5]:
Lm = Lc / Hp ,
где Lm - коэффициент наивыгоднейшего расположения светильников, Lm =1.3;
Lс - расстояние между центрами светильников, м. Отсюда, Lс = l.3*2 = 2.6м.
Число рядов светильников определяем по формуле:
m=B/Lс, m=4/2.6=1.53=2.
Число светильников в ряду определяем по формуле:
M=N/m, М=6/2=3шт.
Суммарная длина светильников в ряду -1св М, учитывая, что
1св=[1л+(0.05-0.1)],
где 1св - длина светильника, м ;
1л - длина лампы, м.
1св = 0.909+0.9=1 м
Отсюда расстояние между светильниками в ряду определим из следующего
соотношения:
A-1св*M
К = , K = (5-1*3) / (3+1) = 0.5 м
M+1
Схема расположения светильников приведена на рис. 3.1.
рис. 3.1. Схема расположения светильников в помещении.
1 – оконный проем; 2- светильник; 3 – рабочий стол;
3.3Утилизация и переработкартути в люминесцентных лампах
Определив количество ламп в помещении и приняв срок службы одной лампы в среднем
полгода,рассмотрим вопросы утилизации и переработки ртути в люминесцентных
лампах.
Только в приборостроительной области количество используемых люминесцентных ламп
исчисляется миллионами и через 1.5-2года выбрасывается на свалки. [3.6].
В связи с этим большое практическое значение приобретает разработка и внедрение
технологии извлечений дорогостоящих материалов из люминесцентных ламп
после окончания срока их эксплуатации, в частности технология извлечения ртути.
Разработка технологии извлечения ртути является составной частью создания
ресурсосберегающей технологии и природоохранительной системы.
Ртуть (Hg) имеет атомный вес 200,59. Она мало распространена в природе: ее
содержание в земной коре составляет всего 0,000005вес.%. Изредка ртуть
встречается в самородном виде, вкрапленная в горные породы, но главным образом
она находится в природе в виде сульфида ртути HgS , или киновари. Ртуть -
единственныйметалл, жидкий при обыкновенной температуре, ее плотность составляет
13,546г/см3.
Ртуть является весьма дорогостоящим элементом. Добыча ее отличается трудоемкой
технологией,которая приводит к нарушению земель по форме рельефа, т.е. к
нарушению экологического равновесия.
Кроме того, не утилизированные люминесцентные лампы могут приводить к попаданию
паров ртути ватмосферный воздух, через почву и воду,
Ртуть относится к веществам первого класса опасности, а ее величина ПДК- 0,0003
мг/м3согласно СН 245-71 т.е. ртуть является чрезвычайно опасным веществом,
оказывающее пагубное влияние на окружающую среду и живой мир,
Каждая лампа содержит 60,.. 120мг ртути. Примерно 100г ртути можно получить из
1000 ламп.Испарение такого количества ртути из разбитых ламп приводит к
загрязнению 10 млн.м3 воздуха по ПДК.
Переработка использованных люминесцентных ламп исключает это воздействие.
Отделение по извлечению ртути из люминесцентных ламп может располагаться на
территориипредприятия по изготовлению ламп или на предприятии любой отрасли, где
эксплуатируется большое количество люминесцентных ламп
В основу технологии извлечения ртути из люминесцентных ламп лежит способ
демеркуризации.(рис.3.2)
Демеркуризация боя ламп в ванне с раствором в течении 1.5 часа
Рис 3.2 Схема демеркуризации люминесцентных ламп
Операция дробления ламп осуществляется в барабане, при вращении лопастей
которогопроисходит измельчение стекла ламп.
Операция погрузки в контейнер осуществляется перемещением боя стекла ламп и
арматуры пожелобу.
Операция демеркуризации боя стекла ламп производят помещением контейнера в ванну
сдемеркуризационным раствором, где его выдерживают в течение 1,5 часов.
В табл 3.1 приведены типы, химический состав и краткая характеристика
демеркуризационныхрастворов.
Таблица 3.1.
3.3.5Химический состав и удельный расход демеркуризационныхрастворов
Тип раствора Состав и удельный расход на одну лампу демеркуризационного
раствора Состав и удельный расход на одну лампу демеркуризационного
раствора
Раствор №1, Температура Раствора 280° Перманганат калия Ктп04-0.00025г/л
Соляная кислота НС1 -0,000125г/л Техническая вода-0,0375г/л Ионы в
перечете на металлическую ртуть: KMn04-0.5* 10г/л НС1-0.25* 10г/л
Раствор №2, Температура Раствора 28° Хлорное железо Fed * 6Н20 - 0.0025г/л
Карбонат кальция СаСОз-0,0015г/л Техническая вода -0,0375 г/л Ионы в
пересчете на металлическую ртуть: Fed * 6Н2О - 0.25 * 10г/л, СаСОз -3.75*
10г/л
Операция установки контейнера на лотке преследует цель стока
демеркуризационногораствора.
Операция сбора демеркуризационного раствора производится в приемный бак емкостью
1,6м3.
Операция перекачки отработанного раствора производится насосом в ионообменный
фильтр ссульфоуглем типа ККУ-2, предварительно прошедшем регенерацию раствором
СаСОз.
Операция выделения металлической ртути происходит за счет сжигания фильтра с
сульфоуглем, которое производится один раз в два года.
Наряду с основными операциями имеются дополнительные.
Отработанныйдемеркуризационный раствор может быть направлен в бак емкостью 1,6м3
для повторного приготовления демеркуризационного раствора или в
системыхозяйственно-фекальной канализации предприятия.
Массу подвергают обработке (отделению металлической арматуры от боя стекла).
Бой стекла ламп направляют для переработки на предприятие по производству ламп
или напредприятие стеклянных изделий.
Металлическую арматуру направляют для переплава на
машиностроительные и металлургические предприятия.
Общее количество ртути, которое может быть извлечено при демеркуризации
люминесцентных ламп определяют поформуле:
М = m * N,
где М - общее количество ртути, которое может быть извлечено из люминесцентных
ламп.
m - количество ртути, которое может быть извлечено из одной лампы, г;
Количество ртути в одной люминесцентной лампе - 0,05-0,12г.
После подстановки известных значений получаем :
M = 0.12 * 12 = 1.44 г
С учетом всех производственных помещений это уже значительная цифра и путь к
созданиюприродоохранной системы.
Заключение
В разделе «Безопасность жизнедеятельности» проведен анализ вредных факторов,
оказывающихвлияние на органы зрения пользователя ПЭВМ.
Сформированы общие требования к помещению и произведен расчет искусственного
освещения.
Проведена экологическая оценка люминесцентных ламп, которые используются в
производственном помещении.
4 Приложения
4.1.1Листингосновного файла-проекта
program deports;
uses
Forms,
sysutils,
mainform in 'mainform.pas' {form1},
PasswordsDB in '..libraryPasswordsDB.pas' {Passwords_: TDataModule},
PasswordChange in '..libraryPasswordChange.pas' {PasswordChange_},
Login in '..libraryLogin.pas' {Login_},
NEUser in '..libraryNEUser.pas' {NEUser_},
Variables in '..libraryVariables.pas',
utils in '..libraryutils.pas',
keygenDB in '..librarykeygenDB.pas' {keygen_: TDataModule},
JornalDB in '..libraryJornalDB.pas' {Jornal_: TDataModule},
ViewJornal in '..libraryViewJornal.pas' {ViewJornal_},
BureausDB in '..libraryBureausDB.pas' {Bureaus_: TDataModule},
viewBureaus in '..libraryviewBureaus.pas' {ViewBureaus_},
NewBureau in '..libraryNewBureau.pas' {NewBureau_},
MainBD in '..libraryMainBD.pas' {MainDB: TDataModule},
mailer in '..librarymailer.pas' {Mailer_},
UsersMonitor in '..libraryUsersMonitor.pas' {UsersMonitor_},
educationDB in '..libraryeducationDB.pas' {edu_: TDataModule},
ViewEdu in '..libraryviewedu.pas' {ViewEdu_},
NewEdu in '..libraryNewedu.pas' {Newedu_},
InstitutesDB in '..libraryInstitutesDB.pas' {Institutes_: TDataModule},
ViewInstitutes in '..libraryviewInstitutes.pas' {ViewInstitutes_},
NewInstitute in '..libraryNewInstitute.pas' {NewInstitute_},
DipSpcDB in '..libraryDipSpcDB.pas' {DipSpc_: TDataModule},
ViewDipSpc in '..libraryviewDipSpc.pas' {ViewDipSpc_},
NewDipSpc in '..libraryNewDipSpc.pas' {NewDipSpc_},
qualifDB in '..libraryQualifDB.pas' {qualif_: TDataModule},
Viewqualif in '..libraryviewQualif.pas' {Viewqualif_},
Newqualif in '..libraryNewQualif.pas' {Newqualif_},
WkSpcDB in '..librarywkSpcDB.pas' {WkSpc_: TDataModule},
ViewWkSpc in '..libraryviewwkSpc.pas' {ViewWkSpc_},
NewWkSpc in '..libraryNewwkSpc.pas' {NewWkSpc_},
ITRSpcDB in '..libraryITRSpcDB.pas' {ITRSpc_: TDataModule},
ViewITRSpc in '..libraryviewITRSpc.pas' {ViewITRSpc_},
NewITRSpc in '..libraryNewITRSpc.pas' {NewITRSpc_},
AroundsDB in '..libraryAroundsDB.pas' {Arounds_: TDataModule},
ViewArounds in '..libraryviewArounds.pas' {ViewArounds_},
NewAround in '..libraryNewAround.pas' {NewAround_},
NewStreet in '..libraryNewstreet.pas' {NewStreet_},
WarBursDB in '..libraryWarBursDB.pas' {WarBurs_: TDataModule},
ViewWarBurs in '..libraryviewWarBurs.pas' {ViewWarBurs_},
NewWarBur in '..libraryNewWarBur.pas' {NewWarBur_},
WarGrpsDB in '..libraryWarGrpsDB.pas' {WarGrps_: TDataModule},
ViewWarGrps in '..libraryviewWarGrps.pas' {ViewWarGrps_},
NewWarGrp in '..librarynewWarGrp.pas' {NewWarGrp_},
ContsDB in '..libraryContsDB.pas' {Conts_: TDataModule},
ViewConts in '..libraryviewConts.pas' {ViewConts_},
NewCont in '..libraryNewCont.pas' {NewCont_},
NewWarName in '..libraryNewWarName.pas' {NewWarName_},
NeedDB in '..libraryNeedDB.pas' {Needs_: TDataModule},
ViewQuestions in '..libraryviewQuestions.pas' {ViewQuestions_},
NewQuestion in '..libraryNewQuestion.pas' {NewQuestion_},
Answer in '..libraryAnswer.pas' {Answer_},
NationsDB in '..libraryNationsDB.pas' {Nations_: TDataModule},
ViewNations in '..libraryviewNations.pas' {ViewNations_},
NewNation in '..libraryNewNation.pas' {NewNation_},
CountrysDB in '..libraryCountrysDB.pas' {Countrys_: TDataModule},
viewCountrys in '..libraryviewCountrys.pas' {ViewCountrys_},
NewCountry in '..libraryNewCountry.pas' {NewCountry_},
FamalysDB in '..libraryFamalysDB.pas' {Famalys_: TDataModule},
ViewFamalys in '..libraryviewFamalys.pas' {ViewFamalys_},
NewFamaly in '..libraryNewFamaly.pas' {NewFamaly_},
ViewExcesses in '..libraryviewExcesses.pas' {ViewExcesses_},
ExcessesDB in '..libraryExcessesDB.pas' {Excesses_: TDataModule},
NewExcess in '..libraryNewExcess.pas' {NewExcess_},
MeedsDB in '..libraryMeedsDB.pas' {Meeds_: TDataModule},
ViewMeeds in '..libraryviewMeeds.pas' {ViewMeeds_},
NewMeed in '..libraryNewMeed.pas' {NewMeed_},
emeritusDB in '..libraryemeritusDB.pas' {emeritus_: TDataModule},
viewemeritus in '..libraryviewemeritus.pas' {Viewemeritus_},
Newemeritus in '..libraryNewemeritus.pas' {Newemeritus_},
CardsDB in 'CardsDB.pas' {Cards_: TDataModule},
LoadLed in '..libraryLoadLed.pas' {LoadLed_},
ViewCards in 'viewcards.pas' {ViewCards_},
ViewCard in 'viewcard.pas' {ViewCard_},
NewChild in 'Newchild.pas' {NewChild_},
NewCardsEdu in 'newcardsedu.pas' {NewCardsEdu_},
NewWorkMove in 'Newworkmove.pas' {NewWorkMove_},
NewcommonWork in 'Newcommonwork.pas' {NewcommonWork_},
lockScreen_ in 'lockScreen_.pas' {lockScreen__},
Newleaf in 'Newleaf.pas' {Newleaf_},
NewPunishment in 'Newpunishment.pas' {NewPunishment_},
DisPunishment in 'Dispunishment.pas' {DisPunishment_},
NewOutCountry in 'NewOutCountry.pas' {NewOutCountry_},
Newplantmeed in 'Newplantmeed.pas' {Newplantmeed_},
Newcardmeed in 'Newcardmeed.pas' {Newcardmeed_},
search in 'search.pas' {Search_},
Newcardemeritus in 'Newcardemeritus.pas' {Newcardemeritus_},
MainTable in 'MainTable.pas' {MainTable_: TQuickRep},
PRNTitle in 'PRNTitle.pas' {PRNTitle_},
cards_Main in 'cards_Main.pas' {cards_main_: TQuickRep},
MainPFTable in 'MainPFTable.pas' {MainPFTable_: TQuickRep},
viewcdpf in 'viewcdpf.pas' {viewcdpf_},
viewcdedu in 'viewcdedu.pas' {viewcdedu_},
Statedu in 'Statedu.pas' {StatEdu_},
MaineduTable in 'MaineduTable.pas' {MaineduTable_: TQuickRep},
Statqual in 'Statqual.pas' {Statqual_},
viewcdqual in 'viewcdqual.pas' {viewcdqual_},
MainqualTable in 'MainqualTable.pas' {MainqualTable_: TQuickRep},
StatAround in 'Stataround.pas' {StatAround_},
Statbur in 'Statbur.pas' {Statbur_},
s13_thpayment in 's13_thpayment.pas' {s13_thpayment_: TQuickRep},
PRNSTG13 in 'PRNSTG13.pas' {PRNSTG13_},
viewWarNames in '..libraryviewWarNames.pas' {ViewWarNames_},
megastat in 'megastat.pas' {megaStat_},
MaininvalTable in 'MaininvalTable.pas' {MaininvalTable_: TQuickRep},
viewcdinval in 'viewcdinval.pas' {viewcdinval_},
viewarchive in 'viewarchive.pas' {viewarchive_},
wait in 'wait.pas' {Wait_},
setingsdb in '..librarysetingsdb.pas' {Setings_: TDataModule},
s14_thpayment in 's14_thpayment.pas' {s14_thpayment_: TQuickRep},
Warreport in 'Warreport.pas' {WarReport_: TQuickRep},
MedTable in 'MedTable.pas' {MedTable_: TQuickRep},
helper in '..libraryhelper.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(Tform1, form1);
Application.Run;
end.
4.1.2Листинг созданного VCL-компонента.
unit DBSearchEdit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBTables,
DB,stdctrls;
type
TDBSearchEdit = class(TEdit)
procedure onchange_ (sender : TObject);
procedure onkeypress_ (Sender: TObject; var Key: Char);
private
needsearch_ : boolean;
table1_ : Ttable;
keyFieldName_,textFieldName_ : TField;
indexname_ : string;
onchange2 : tnotifyevent;
srch,ch : integer;
onkeypress2 : TKeyPressEvent;
{ Private declarations }
protected
{ Protected declarations }
public
constructor Loaded;
constructor Create(aOwner: TComponent); override;
destructor