Разработка приложения "электронная биржа труда"

6) TEdit - в компоненте Edit вводимый и выводимый текст содержится в свойстве Text. Это свойство можно устанавливать в процессе проектирования или задавать программно. Выравнивание текста, как это имело место в метках и панелях, невозможно. Перенос строк тоже невозможен. Текст, не помещающийся по длине в окно, просто сдвигается и пользователь может перемещаться по нему с помощью курсора. Окна редактирования можно использовать и просто как компоненты отображения текста. Для этого надо установить в true свойство ReadOnly. При использовании окон редактирования для вывода, ввода и редактирования чисел необходимо использовать функции взаимного преобразования строк и чисел. Для вывода это описанные при рассмотрении меток функции FloatToStr и IntToStr. При вводе это функции StrToFloat - преобразование строки в значение с плавающей запятой, и StrToInt - преобразование строки в целое значение. Свойство MaxLength определяет максимальную длину вводимого текста. Если MaxLength = 0, то длина текста не ограничена. В противном случае значение MaxLength указывает максимальное число символов, которое может ввести пользователь;

7) TLabel - используется для отображения различных надписей на форме. Тексты, отображаемые в перечисленных компонентах, определяются значением их свойства Caption. Его можно устанавливать в процессе проектирования или задавать и изменять программно во время выполнения приложения. Для метки Label цвет и шрифт - единственно доступные элементы оформления надписи. Размер метки Label определяется также свойством AutoSize. Если это свойство установлено в true, то вертикальный и горизонтальный размеры компонента определяются размером надписи. Если же AutoSize равно false, то выравнивание текста внутри компонента определяется свойством Alignment, которое позволяет выравнивать текст по левому краю, правому краю или центру клиентской области метки;

8) DBGrid - этот компонент инкапсулирует двумерную таблицу, в которой сроки представляют собой записи, а столбцы поля. Компонент DBGrid является потомком классов TDBCustomGrid и TCustomGrid от TCustomGrid наследует все функции отображения и управления работой двумерной структуры данных. Класс TDBCustomGrid обеспечивает визуализацию и редактирование полей из набора данных, причем TDBGrid только публикует свойства и методы класса TDBCustomGrid, не добавляя собственных. В компоненте TDBGrid можно отображать произвольное множество полей использованного набора данных, но число записей ограничивать нельзя, в компоненте всегда присутствуют все записи связанного набора данных. Требуемый набор полей можно составить при двойном щелчке на компоненте, перемещенном на форму, или кнопкой свойства Colums в Инспекторе объектов;

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

2.4 Описание сущности программного продукта

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

Данный проект является программой для биржи труда нашего города.

2.5 Документальное описание системы

При запуске программы появляется главная форма. Главная форма состоит из двух таблиц "Предложения" и "Спрос", строки состояния и средств навигации. В таблице "Предложения" хранится информация о предприятиях нуждающихся в сотрудниках, а в таблице "Спрос" хранится информация о соискателях. Главная форма приложения представлена на рисунке 2.

Рисунок 2 Главная форма программы

Рисунок 3 Главная форма программы с информацией о предложениях

Главная форма программы имеет меню:

1) Файл;

2) Правка;

3) Справка.

Также на главной форме имеются кнопки:

1) - добавить запись;

2) - удалить запись;

3) - редактировать запись;

4) - обновить БД;

5) - перейти к первой записи;

6) - перейти на одну запись назад;

7) - перейти на одну запись вперёд;

8) - перейти к последней записи;

9) / - свернуть/развернуть таблицу.

Рисунок 4 Главная форма программы с информацией о спросе

Меню «Файл» содержит одну вкладку «выход» (рис. 5)

Рисунок 5 Меню «Файл»

Меню «Правка» содержит четыре вкладки: «добавить», «удалить» и «редактировать» соответственно для каждой таблицы и «обновить». Действие «обновить» можно выполнить автоматически при нажатии на функциональную клавишу F5.

Рисунок 6 Меню «Правка»

Меню «Справка» содержит две закладки: «справка» и «о программе» (рисунок 7).

Рисунок 7 Меню «Справка»

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

Рисунок 8 Контекстное меню таблицы «Предложения»

Рисунок 9 Контекстное меню для «Спрос»

Выполнив двойной щелчок левой кнопкой мыши на выбранной записи можно получить доступ к окну редактирования свойств по таблице «Предложения» или соответственно «Спрос» (рисунок 10 и 11).

Рисунок 10 Окно редактирования таблицы «Предложения»

Рисунок 11 Окно редактирования таблицы «Соискатель»

При нажатии на кнопке «Сохранить» программа сохранит изменённые данные и закроет окно редактирования. При щелчке на кнопке «закрыть» изменения сохранены не будут.

Выбрав в контекстном меню таблицы «Предложения» команду «Поиск по организации» появится диалоговое окно с просьбой программы ввести наименование организации (рисунок 12).

Рисунок 12 Поиск «по организации» для таблицы «Предложения»

Выбрав в контекстном меню таблицы «Спрос» команду «Поиск по фамилии» появится диалоговое окно с просьбой программы ввести фамилию соискателя (рисунок 13).

Рисунок 13 Поиск «по фамилии» для таблицы «Спрос»

Аналогичным образом осуществляется поиск «по образованию» и «поиск по телефону» для таблицы «Спрос».

При выборе в контекстном меню команды «Поиск работодателя» активизируется окно выполнения анализа и поиска возможных вариантов для выбранного соискателя (рисунок 14).

Рисунок 14 Анализ данных для выбранного соискателя

Выполнение анализа возможно производить с учётом образования и оклада. Причём если в слове «специальность» у соискателя имеется ошибка или опечатка можно изменить точность поиска и программа сможет подобрать возможные варианты (рисунок 15).

Рисунок 15 Анализ данных для выбранного соискателя без учёта образования

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

3. Экономическая эффективность

3.1 Расчет затрат на разработку программного продукта

Применение разработанного продукта позволит:

1) увеличить скорость обработки данных;

2) увеличить поиск необходимой информации;

3) защита чтения и предотвращение пропажи информации.

Разработка приложения потребовала усилия двух человек:

1) руководитель проекта;

2) техник-программист.

Для более планомерного выполнения весь объем работ пришлось разбить на этапы:

1) постановка задачи и определения хода работы;

2) анализ поставленной задачи;

3) сбор литературы по предметной области;

4) анализ структуры базы данных;

5) проектирование временной базы данных;

6) разработка базового алгоритма программы;

7) отладка и тестирование системы;

8) исследование эффективности и анализ результатов.

Все этапы и коэффициенты загрузки исполнителей представлены в таблице 6:

Таблица 6

Перечень этапов выполнения работ

№	Наименование работ	Исполнитель	Длительность
	1	2	3
1	Постановка задач и определение хода работы	Руководитель Техник-программист	2
Продолжение таблицы 6
	1	2	3
2	Анализ поставленной задачи	Руководитель Техник-программист	1
3	Сбор литературы по предметной области	Руководитель Техник-программист	4
4	Анализ структуры БД	Руководитель Техник-программист	4
5	Проектирование временной БД	Руководитель Техник-программист	7
6	Разработка Базового алгоритма	Руководитель Техник-программист	11
7	Отладка и тестирование	Руководитель Техник-программист	4
8	Исследование эффективности и анализ результатов	Руководитель Техник-программист	9
ИТОГО:	--	42

Расчет проектных затрат.

Единовременные затраты (себестоимость), необходимые для реализации проекта рассчитываются следующим образом:

(1)

где:	Соб	-	затраты на оборудование, тенге;
	Cмат	-	затраты на материалы и комплектующие изделия, тенге;
	Сосн.з/пл	-	основная заработная плата персонала, участвующего в разработке, тенге;
	Сотч.з/пл	-	отчисления с заработной платы на ЕСН, тенге;
	Сэл	-	затраты на электроэнергию, тенге;
	Собщехоз	-	общехозяйственные расходы, тенге;
	СА	-	амортизационные отчисления, тенге.

Расчет затрат на оборудование.

Для реализации проекта требуется покупка нового оборудования. Затраты приведены в таблице 7:

Таблица 7

Затраты на оборудование

№	Наименование	Количество	Цена приобретения	Итого
1	Ноутбук «Asus»	1	150000	150000
2	Мышь	1	1000	1000
3	Принтер марки «hp»	1	25000	25000
Всего	176000

Расчет затрат на материалы.

В таблице 8 приведен список необходимых для реализации материалов и комплектующих.

Таблица 8

Затраты на материалы и комплектующие

№	Наименование	Цена, тенге.	Количество	Стоимость, тенге.
1	Бумага	600	1 пачка	600
2	Краска	150	2 штука	300
3	CD-RV	100	1 штука	100
4	Интернет	5тг/минута	20 мин	100
Итого	1100

Расчет заработной платы.

Заработная плата техника-программиста, устанавливается работодателем в размере 45000 тенге.

Отчисления в бюджет (социальный налог).

Отчисления на единый социальный налог рассчитываются по формуле:

(2)

где ?ОПВ - взносы в обязательный пенсионный фонд, составляют 10%;

Ставка СН - ставка социального налога, составляет 11%.

(45000-10%) * 11%=4455 тенге (3)

Затраты на электроэнергию

Затраты связанные с эксплуатацией компьютера при подготовке проекта. Рассчитывается по формуле:

(4)

где	Р	-	потребляемая мощность, кВт (принимаем для ПК - 0,6кВт, для ноутбуков - 0,4 кВт);
	Тф	-	фактическое время использования техники, час. Принимается равным 32*8=256 часов; поскольку компьютер задействован только на этапах 4-8;
	Цэл	-	цена электрической энергии, тенге за 1 кВт.ч, принимаем 10,3тг;
	Кз	-	коэффициент загруженности техники по мощности, принимается равным 0,95;
	Кт	-	коэффициент загруженности техники по времени, принимается равным 0,85.

Затраты на амортизацию

Амортизация составит 20% от стоимости ОФ (ПК, ноутбука):

Общехозяйственные расходы.

Общехозяйственные расходы рассчитываются 20% от заработной платы, включающей в себя отчисления в бюджет.

Таким образом, себестоимость программного продукта составит:

С_/c=176000+1100+4455+1118+35200+9891 =227764 тенге

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

4. Охрана труда

4.1 Общие требования безопасности

К работе с персональным компьютером допускаются лица:

1) имеющие персональные навыки, изучившие руководство по эксплуатации персонального компьютера и знающие порядок включения и отключения электронных устройств;

2) прошедшие вводный инструктаж, а также инструктаж по безопасности труда непосредственно на рабочем месте.

Профессиональные пользователи должны проходить обязательные предварительные (при поступлении на работу) и периодические медосмотры.

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

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

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

1) выполнять правила внутреннего распорядка, требования настоящей инструкции и инструкции по эксплуатации правила электрической и пожарной безопасности;

2) знать принцип работы компьютера и методику правильной его эксплуатации;

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

4) сообщать руководителю работ или техническому персоналу обо всех неполадках в работе компьютера;

5) знать приемы освобождения от действия электрического тока лиц, попавших под напряжение, и способы оказания им первой помощи;

6) знать расположение средств пожаротушения и уметь ими пользоваться.

Следует иметь в виду, что:

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

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

3) верхний край экрана следует располагать на уровне глаз или чуть ниже;

4) оптимальное расстояние от глаз до экрана 600-700 мм, но не ближе 500 мм;

5) высота клавиатуры должна быть отрегулирована так, чтобы кисти рук держались прямо (возможно применение подставок для кистей рук);

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

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

8) для предотвращения образования и защиты от статического электричества, в помещении, где установлен компьютер, необходимо применять нейтрализаторы и увлажнители. Должна быть эффективная вентиляция и поддерживаться относительная влажность воздуха на уровне 40-60% (можно разместить вблизи компьютера цветы или аквариум).

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

При работе с персональным компьютером в ночную смену (c 22 до 6 час.), независимо от категории и вида трудовой деятельности, продолжительность регламентированных перерывов должна увеличиваться на 60 мин.

4.2 Требования безопасности перед началом работы

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

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

1) убедиться в отсутствии дрожания и мерцания изображения на экране монитора;

2) установить яркость, контрастность, цвет и размер символов, фон экрана, обеспечивающие наиболее комфортное и четкое восприятие изображения.

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

4.3 Требования безопасности при выполнении работ

Работник во время работы обязан:

1) в течение рабочего дня содержать в порядке и чистоте рабочее место;

2) не закрывать вентиляционные отверстия ПЭВМ;

3) при необходимости временного прекращения работы корректно закрыть все активные задачи;

4) соблюдать правила эксплуатации оборудования и требования настоящей инструкции;

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

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

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

1) прикасаться к задней панели системного блока, монитора и источника бесперебойного питания при включенном питании;

2) переключать разъемы интерфейсных кабелей периферийных устройств, при включенном питании;

3) закрывать оборудование бумагами и посторонними предметами;

4) допускать скапливание бумаг на рабочем месте;

5) производить отключение питания во время выполнения активной задачи;

6) снимать защитный фильтр с экрана монитора;

7) допускать попадание влаги на поверхности устройств;

8) производить самостоятельно вскрытие и ремонт оборудования;

9) производить вскрытие или заправку на рабочем месте картриджей лазерных принтеров и копировальной техники;

10) прикасаться к нагретым элементам принтеров и копировальной техники;

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

12) располагаться при работе на расстоянии менее 50 см. от экрана монитора.

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

При выполнении в течение рабочей смены работ, относящихся к разным видам трудовой деятельности, за основную работу с ПЭВМ и ВДТ следует принимать такую, которая занимает не менее 50% времени в течение рабочей смены или рабочего дня.

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

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



4.4 Требования безопасности в аварийных ситуациях

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

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

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

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

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

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

1) произвести закрытие всех выполняемых на ПЭВМ задач;

2) отключить питание в последовательности, установленной инструкциями по эксплуатации на оборудование с учетом характера выполняемых работ;

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

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

Заключение

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

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

В рамках настоящей дипломной работы разработана система, помогающая работодателям производить подбор кадров с одной стороны и кандидатам в поисках работы с другой. Доступ работодателей и кандидатов к Бирже осуществляется с помощью приложения созданного в программной среде Borland Delphi 7.

В результате выполнения данного дипломного проекта я закрепил основные моменты работы в среде программирования Delphi 7.0, т.е. работу с различными компонентами ввода/вывода, работу с базами данных формата mdb, компоненты и схему взаимодействия приложения и базы данных с помощью языка запросов SQL. Дополнительно я изучил свойства многопоточного приложения и принципы его реализации на примере моего проекта.

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

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

Разработанный программный продукт использует следующие технологии:

ADO - ActiveX Data Objects,

ODBC - Open Data Base Connectivity.

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

Список литературы

1. Козлов В.Н., Кисоржевский В.Ф., Морозов Б.И. «Теория информационных процессов и систем». СПбГПУ, 2003;

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

3. Орлов С.А. «Технология разработки программного обеспечения». СПб.: Питер, 2002.

4. Архангельский А. «Компоненты и классы Borland Delphi. Справочное пособие» Бином-Пресс, 2008.

5. Кнут Д.Э. «Искусство программирования в среде Borland Delphi». М.: Просвещение 1997.

6. Джаррод Холингворт, Боб Сворт, Марк Кэшмэн, Поль Густавсон«Delphi 7». Руководство разработчика» М.: Издательский дом «Вильямс», 2005.

7. Хомоненко А., Ададуров С. «Работа с базами данных в Delphi». СПб.: BHV-Санкт-Петербург, 2005.



Приложение А

unit Unit1;

interface

uses

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

Dialogs, ComCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Menus, ExtCtrls,

ToolWin, Buttons, DBCtrls;

type

TForm1 = class(TForm)

StatusBar1: TStatusBar;

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

GroupBox2: TGroupBox;

DBGrid2: TDBGrid;

ADOQuery2: TADOQuery;

DataSource2: TDataSource;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Timer1: TTimer;

PopupMenu1: TPopupMenu;

PopupMenu2: TPopupMenu;

N9: TMenuItem;

N13: TMenuItem;

N15: TMenuItem;

N18: TMenuItem;

N20: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N11: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

ToolBar1: TToolBar;

Splitter1: TSplitter;

DBNavigator1: TDBNavigator;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

ToolBar2: TToolBar;

Splitter2: TSplitter;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

DBNavigator2: TDBNavigator;

N14: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N19: TMenuItem;

N21: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

N29: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);

procedure DBGrid1DblClick(Sender: TObject);

procedure DBGrid2DblClick(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N27Click(Sender: TObject);

procedure N28Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+GetCurrentDir+'\..\BD\Birga_Truda.mdb;Persist Security Info=False';

Form1.ADOQuery1.Active:=True;

Form1.StatusBar1.Panels[0].Text:=' Предложений о работе - '+IntToStr(ADOQuery1.RecordCount);

Form1.ADOQuery2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+GetCurrentDir+'\..\BD\Birga_Truda.mdb;Persist Security Info=False';

Form1.ADOQuery2.Active:=True;

Form1.StatusBar1.Panels[1].Text:=' Соискателей - '+IntToStr(ADOQuery2.RecordCount);

Form1.StatusBar1.Panels[2].Text:=' Сегодня - '+DateToStr(Date);

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Timer1.Enabled:=True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Form1.AlphaBlendValue:=Form1.AlphaBlendValue-20;

If Form1.AlphaBlendValue<21 then Application.Terminate;

end;

procedure TForm1.N23Click(Sender: TObject);

begin

Form2.Label1.Caption:=ADOQuery2.Fields[1].Text;

Form2.Label2.Caption:=ADOQuery2.Fields[2].Text;

Form2.Label3.Caption:=ADOQuery2.Fields[3].Text;

Form2.ShowModal();

end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

{ If Key='А' then Key:='а';

If Key='Б' then Key:='б';

If Key='В' then Key:='в';

If Key='Г' then Key:='г';

If Key='Д' then Key:='д';

If Key='Е' then Key:='е';

If Key='Ё' then Key:='ё';

If Key='Ж' then Key:='ж';

If Key='З' then Key:='з';

If Key='И' then Key:='и';

If Key='Й' then Key:='й';

If Key='К' then Key:='к';

If Key='Л' then Key:='л';

If Key='М' then Key:='м';

If Key='Н' then Key:='н';

If Key='О' then Key:='о';

If Key='П' then Key:='п';

If Key='Р' then Key:='р';

If Key='С' then Key:='с';

If Key='Т' then Key:='т';

If Key='У' then Key:='у';

If Key='Ф' then Key:='ф';

If Key='Х' then Key:='х';

If Key='Ц' then Key:='ц';

If Key='Ч' then Key:='ч';

If Key='Ш' then Key:='ш';

If Key='Щ' then Key:='щ';

If Key='Ъ' then Key:='ъ';

If Key='Ы' then Key:='ы';

If Key='Ь' then Key:='ь';

If Key='Э' then Key:='э';

If Key='Ю' then Key:='ю';

If Key='Я' then Key:='я'; }

if (

('А' <= Key) and ( Key <'Я' )

) then

Key:= char(

integer(Key) + ( integer('а') -integer('А') )

);

end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

Form3.Edit1.Text:=Form1.ADOQuery1.Fields[1].Text;

Form3.Edit2.Text:=Form1.ADOQuery1.Fields[2].Text;

Form3.ComboBox1.Text:=Form1.ADOQuery1.Fields[3].Text;

Form3.Edit4.Text:=Form1.ADOQuery1.Fields[4].Text;

Form3.Edit5.Text:=Form1.ADOQuery1.Fields[5].Text;

Form3.Edit6.Text:=Form1.ADOQuery1.Fields[6].Text;

Form3.Edit7.Text:=Form1.ADOQuery1.Fields[7].Text;

Form3.ShowModal();

end;

procedure TForm1.DBGrid2DblClick(Sender: TObject);

begin

Form4.Edit1.Text:=Form1.ADOQuery2.Fields[1].Text;

Form4.Edit2.Text:=Form1.ADOQuery2.Fields[2].Text;

Form4.Edit3.Text:=Form1.ADOQuery2.Fields[3].Text;

Form4.Edit4.Text:=Form1.ADOQuery2.Fields[4].Text;

Form4.Edit5.Text:=Form1.ADOQuery2.Fields[5].Text;

Form4.ComboBox1.Text:=Form1.ADOQuery2.Fields[6].Text;

Form4.Edit6.Text:=Form1.ADOQuery2.Fields[7].Text;

Form4.Edit7.Text:=Form1.ADOQuery2.Fields[8].Text;

Form4.Edit8.Text:=Form1.ADOQuery2.Fields[9].Text;

Form4.Edit9.Text:=Form1.ADOQuery2.Fields[10].Text;

Form4.ShowModal();

end;

procedure TForm1.N9Click(Sender: TObject);

//Поиск по организации

Var Input: String;

begin

Input:=InputBox('Поиск...','Введите название организации','');

if Input<>'' then

begin

Try

Form1.ADOQuery1.Close();

Form1.ADOQuery1.SQL.Text:='SELECT * From Предложения WHERE Организация='+char(39)+Input+char(39);

Form1.ADOQuery1.ExecSQL();

Form1.ADOQuery1.Open();

except

end;

end;

Input:='';

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form1.ADOQuery1.Close();

Form1.ADOQuery1.SQL.Text:='SELECT * From Предложения ORDER BY Организация ASC';

Form1.ADOQuery1.ExecSQL();

Form1.ADOQuery1.Open();

end;

procedure TForm1.N15Click(Sender: TObject);

//Поиск по фамилии

Var Input: String;

begin

Input:=InputBox('Поиск...','Введите фамилию','');

if Input<>'' then

begin

Try

Form1.ADOQuery2.Close();

Form1.ADOQuery2.SQL.Text:='SELECT * From Спрос WHERE Фамилия='+char(39)+Input+char(39);

Form1.ADOQuery2.ExecSQL();

Form1.ADOQuery2.Open();

except

end;

end;

Input:='';

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Form1.ADOQuery2.Close();

Form1.ADOQuery2.SQL.Text:='SELECT * From Спрос ORDER BY Фамилия ASC';

Form1.ADOQuery2.ExecSQL();

Form1.ADOQuery2.Open();

end;

procedure TForm1.N18Click(Sender: TObject);

//Поиск по образованию

Var Input: String;

begin

Input:=InputBox('Поиск...','Введите образование','');

if Input<>'' then

begin

Try

Form1.ADOQuery2.Close();

Form1.ADOQuery2.SQL.Text:='SELECT * From Спрос WHERE Образование='+char(39)+Input+char(39);

Form1.ADOQuery2.ExecSQL();

Form1.ADOQuery2.Open();

except

end;

end;

Input:='';

end;

procedure TForm1.N20Click(Sender: TObject);

//Поиск по телефону

Var Input: String;

begin

Input:=InputBox('Поиск...','Введите номер телефона','');

if Input<>'' then

begin

Try

Form1.ADOQuery2.Close();

Form1.ADOQuery2.SQL.Text:='SELECT * From Спрос WHERE Телефон='+char(39)+Input+char(39);

Form1.ADOQuery2.ExecSQL();

Form1.ADOQuery2.Open();

except

end;

end;

Input:='';

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Form1.ADOQuery1.Insert();

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Form1.ADOQuery1.Delete();

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

Form3.Edit1.Text:=Form1.ADOQuery1.Fields[1].Text;

Form3.Edit2.Text:=Form1.ADOQuery1.Fields[2].Text;

Form3.ComboBox1.Text:=Form1.ADOQuery1.Fields[3].Text;

Form3.Edit4.Text:=Form1.ADOQuery1.Fields[4].Text;

Form3.Edit5.Text:=Form1.ADOQuery1.Fields[5].Text;

Form3.Edit6.Text:=Form1.ADOQuery1.Fields[6].Text;

Form3.Edit7.Text:=Form1.ADOQuery1.Fields[7].Text;

Form3.ShowModal();

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

Form1.ADOQuery1.Close();

Form1.ADOQuery1.SQL.Text:='SELECT * From Предложения ORDER BY Организация ASC';

Form1.ADOQuery1.ExecSQL();

Form1.ADOQuery1.Open();

end;

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin

Form1.ADOQuery2.Insert();

end;

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

Form1.ADOQuery2.Delete();

end;

procedure TForm1.SpeedButton9Click(Sender: TObject);

begin

Form4.Edit1.Text:=Form1.ADOQuery2.Fields[1].Text;

Form4.Edit2.Text:=Form1.ADOQuery2.Fields[2].Text;

Form4.Edit3.Text:=Form1.ADOQuery2.Fields[3].Text;

Form4.Edit4.Text:=Form1.ADOQuery2.Fields[4].Text;

Form4.Edit5.Text:=Form1.ADOQuery2.Fields[5].Text;

Form4.ComboBox1.Text:=Form1.ADOQuery2.Fields[6].Text;

Form4.Edit6.Text:=Form1.ADOQuery2.Fields[7].Text;

Form4.Edit7.Text:=Form1.ADOQuery2.Fields[8].Text;

Form4.Edit8.Text:=Form1.ADOQuery2.Fields[9].Text;

Form4.Edit9.Text:=Form1.ADOQuery2.Fields[10].Text;

Form4.ShowModal();

end;

procedure TForm1.SpeedButton10Click(Sender: TObject);

begin

Form1.ADOQuery2.Close();

Form1.ADOQuery2.SQL.Text:='SELECT * FROM Спрос ORDER BY Фамилия ASC';

Form1.ADOQuery2.ExecSQL();

Form1.ADOQuery2.Open();

end;

procedure TForm1.N21Click(Sender: TObject);

begin

Form1.ADOQuery1.Insert();

end;

procedure TForm1.N24Click(Sender: TObject);

begin

Form1.ADOQuery2.Insert();

end;

procedure TForm1.N25Click(Sender: TObject);

begin

Form1.ADOQuery1.Delete();

end;

procedure TForm1.N26Click(Sender: TObject);

begin

Form1.ADOQuery2.Delete();

end;

procedure TForm1.N27Click(Sender: TObject);

begin

Form3.Edit1.Text:=Form1.ADOQuery1.Fields[1].Text;

Form3.Edit2.Text:=Form1.ADOQuery1.Fields[2].Text;

Form3.ComboBox1.Text:=Form1.ADOQuery1.Fields[3].Text;

Form3.Edit4.Text:=Form1.ADOQuery1.Fields[4].Text;

Form3.Edit5.Text:=Form1.ADOQuery1.Fields[5].Text;

Form3.Edit6.Text:=Form1.ADOQuery1.Fields[6].Text;

Form3.Edit7.Text:=Form1.ADOQuery1.Fields[7].Text;

Form3.ShowModal();

end;

procedure TForm1.N28Click(Sender: TObject);

begin

Form4.Edit1.Text:=Form1.ADOQuery2.Fields[1].Text;

Form4.Edit2.Text:=Form1.ADOQuery2.Fields[2].Text;

Form4.Edit3.Text:=Form1.ADOQuery2.Fields[3].Text;

Form4.Edit4.Text:=Form1.ADOQuery2.Fields[4].Text;

Form4.Edit5.Text:=Form1.ADOQuery2.Fields[5].Text;

Form4.ComboBox1.Text:=Form1.ADOQuery2.Fields[6].Text;

Form4.Edit6.Text:=Form1.ADOQuery2.Fields[7].Text;

Form4.Edit7.Text:=Form1.ADOQuery2.Fields[8].Text;

Form4.Edit8.Text:=Form1.ADOQuery2.Fields[9].Text;

Form4.Edit9.Text:=Form1.ADOQuery2.Fields[10].Text;

Form4.ShowModal();

end;

procedure TForm1.N19Click(Sender: TObject);

begin

Form1.ADOQuery1.Close();

Form1.ADOQuery1.SQL.Text:='SELECT * From Предложения ORDER BY Организация ASC';

Form1.ADOQuery1.ExecSQL();

Form1.ADOQuery1.Open();

Form1.ADOQuery2.Close();

Form1.ADOQuery2.SQL.Text:='SELECT * FROM Спрос ORDER BY Фамилия ASC';

Form1.ADOQuery2.ExecSQL();

Form1.ADOQuery2.Open();

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

If GroupBox1.Height=300

then

begin

GroupBox1.Height:=GroupBox1.Height+250;

DBGrid1.Height:=DBGrid1.Height+250;

GroupBox2.Top:=GroupBox2.Top+250;

GroupBox2.Height:=GroupBox2.Height-250;

DBGrid2.Height:=DBGrid2.Height-250;

SpeedButton5.Glyph.LoadFromFile(GetCurrentDir+'\pic\Вверх.bmp');

SpeedButton11.Visible:=False;

end

else

begin

GroupBox1.Height:=GroupBox1.Height-250;

DBGrid1.Height:=DBGrid1.Height-250;

GroupBox2.Top:=GroupBox2.Top-250;

GroupBox2.Height:=GroupBox2.Height+250;

DBGrid2.Height:=DBGrid2.Height+250;

SpeedButton5.Glyph.LoadFromFile(GetCurrentDir+'\pic\Вниз.bmp');

SpeedButton11.Visible:=True;

end

end;

procedure TForm1.SpeedButton11Click(Sender: TObject);

begin

If GroupBox2.Height=300

then

begin

GroupBox1.Height:=GroupBox1.Height-250;

DBGrid1.Height:=DBGrid1.Height-250;

GroupBox2.Top:=GroupBox2.Top-250;

GroupBox2.Height:=GroupBox2.Height+250;

DBGrid2.Height:=DBGrid2.Height+250;

SpeedButton11.Glyph.LoadFromFile(GetCurrentDir+'\pic\Вниз.bmp');

SpeedButton5.Visible:=False;

end

else

begin

GroupBox1.Height:=GroupBox1.Height+250;

DBGrid1.Height:=DBGrid1.Height+250;

GroupBox2.Top:=GroupBox2.Top+250;

GroupBox2.Height:=GroupBox2.Height-250;

DBGrid2.Height:=DBGrid2.Height-250;

SpeedButton11.Glyph.LoadFromFile(GetCurrentDir+'\pic\Вверх.bmp');

SpeedButton5.Visible:=True;

end

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form5.ShowModal;

end;

end.

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

...