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

        
 
 
 
 
 
 
 
 
 

     Рисунок 4.5 – Форма «Прогноз темпов безработицы»

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

     4.4 Группировка

     В пункте «Группировка» имеется возможность  упорядочить безработных по таким критериям как: возраст (рис.4.6), пол (рис.4.7), стаж (рис.4.8), специальность (рис.4.9), причина безработицы (рис.4.10)

     

Рисунок 4.6 – Группировка по возрасту

     

 
 
 
 
 
 
 
 
 
 
 
 

     Рисунок 4.7 – Группировка по половой принадлежности

     

     Рисунок 4.8 – Группировка по стажу

     

     Рисунок 4.9 – Группировка по специальности

 

     

 
 

     Рисунок 4.10 – Группировка по причине увольнения 

     4.5 Трудоустройство

      Из последнего пункта меню «Трудоустройство» отображается форма «Поиск подходящий вакансий» (рис.4.11). В этой форме отображается описание самой подходящей вакансии для безработного, выбранного из выпадающего списка. Поиск вакансии происходит из выборки таблиц «Вакансии» и «Безработные». Выборка происходит по полу, специальности, образованию, стажу и возрасту. Из всех подходящих вакансий выбирается наиболее подходящая вакансия сначала по зарплате, после по количеству рабочих дней и количеству дней отпуска.

     Рисунок 4.11 – Форма «Поиск подходящей вакансии» 

ЗАКЛЮЧЕНИЕ

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

     Целью курсовой работы являлось разработать  приложение в среде Delphi, взаимодействующее с базами данных в СУБД Paradox, которая содержит данные о безработных, предприятиях и вакансиях.

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

     1) Изучена структура таблиц баз данных

     2) С помощью программной среды Delphi осуществлялся подбор для каждого обратившегося безработного наиболее подходящего варианта работы по сведениям в банке данных

     3) Проводился анализ и прогнозирование ситуации на рынке труда:

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

     Все задачи, поставленные на курсовое проектирование, выполнены полностью.

     СПИСОК  ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Архангельский, А.Я. Программирование в Delphi / А.Я. Архангельский М.: ООО «Бином-Пресс», 2003. – 1152 с.
2. Аткинсон, Леон. MySQL. Библиотека профессионала. – М.:  Издательский дом “Вильяме”, 2002.– 624 с.
3. Microsoft Corporation. Проектирование и реализация баз данных Microsoft SQL Server 2000. Учебных курс MCAD/ MCSE, MCDBA/ Пер. с англ. – 2-е изд., испр. – М.: Издательско-торговый дом “Русская Редакция”, 2003. – 512 с.
4. Райордан Р. Основы реляционных баз данных/Пер. с англ . – М.:  Издательско-торговый дом  “Русская Редакция”, 2001.–384 с.
5. Ульман Д., Уидом  Д. Введение в системы баз данных. – СПб.: Питер, 2000. – 374 с.
6. Конноли, Томас, Бегг, Каролин Базы данных. Проектирование, реализация и сопровождение. Теория и практика. 3-е издание.: Пер. с англ.  –  М.: Издательский дом “Вильяме”, 2003. – 1440 с.
7. Понамарев, В. Базы данных в Delphi 7. Самоучитель/ В. Понамарев СПб.: Питер, 2003. – 224 с.
8. В. Фаронов, Deiphi 6 - СПб.: Питер, 2002. - 640 с.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение

unit UnitAnalis, предназначен для определения роста или падения уровня безработицы и вычисления процента относительно минимального и максимального года.

interface

uses

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

  Dialogs, StdCtrls, DB, DBTables;

type

  TFormAnalis = class(TForm)

    Label2: TLabel;     //В  Label2 содержится поясняющий текст 

    Memo1: TMemo;   //В Memo1 записывается результат вычислений

    DataSource1: TDataSource;    

    Query1: TQuery;

    procedure FormClose(Sender: TObject; var Action: TCloseAction); //Процедура выполняющаяся при открытии форым

    procedure FormShow(Sender: TObject); //Процедура выполняющаяся при открытии формы

    procedure Podschet();  //Процедура нахождения минимального и максимального года и подсчета разницы между этими годами

      private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormAnalis: TFormAnalis;

implementation

uses UMain, UnitProbnik2;

{$R *.dfm} 

procedure TFormAnalis.Podschet();

var

    s,s1,s_max,s_min : string;

    i,k1,k2: Integer;

  begin

   k:=0;

   Query1.active:=False;              

   Query1.sql.clear;    //Закрытие и очистка компоненты запросов

   Query1.sql.add('Select Max(Data_yvolnenia) qq,Min(Data_yvolnenia) ww from unemployed');//Запрос выбора максимальной и минимальной даты увольнения из таблицы безработные

   Query1.execsql;    //Компиляция запроса

   Query1.Active:=True; 

   s_max:=Query1.fieldbyname('qq').AsString; //Занесение максимальной даты из запроса в переменную

   s_min:=Query1.fieldbyname('ww').AsString; //Занесение минимальной даты из запроса в переменную

   s_max:=copy(s_max,7,4);  //Выделение из даты года

   s_min:=copy(s_min,7,4); 

   max:=StrToInt(s_max);  //Перевод из типа строки в тип целого

   min:=StrToInt(s_min);

   Query1.sql.clear;

   for i := max downto (min+1) do  //Цикл от максимального года к минимальному для подсчета разности

     begin

       Query1.sql.add('Select Count (*) kolvo FROM unemployed Where Data_yvolnenia between ''01.01.'+IntToStr(i)+''' and ''31.12.'+IntToStr(i)+'''');   //Запрос поиска количества безработных i-го года

       Query1.execsql;

       Query1.Active:=True;

       k1:=Query1.fieldbyname('kolvo').AsInteger;  //Занесение в переменную результата выполнения запроса

       Query1.sql.clear;

       Query1.sql.add('Select Count (*) kolvo1 FROM unemployed Where Data_yvolnenia between ''01.01.'+IntToStr(i-1)+''' and ''31.12.'+IntToStr(i-1)+'''');  //Запрос поиска количества безработных (i-1)-го года

       Query1.execsql;

       Query1.Active:=True;

       k2:=Query1.fieldbyname('kolvo1').AsInteger;  //Занесение в переменную результата выполнения запроса

       k:=k+k1-k2;  //Подсчет разницы между каждым предыдущим годом

       Query1.sql.clear;

     end;

    Query1.sql.add('Select Count(*) as kol From unemployed');  //Запрос на подсчет количества безработных

    Query1.execsql;

    Query1.Active:=True;

   kol:=Query1.fieldbyname('kol').AsInteger;  //Занесение в переменную результата выполнения запроса

    Query1.sql.clear;

    Query1.Active:=False;

end; 

procedure TFormAnalis.FormShow(Sender: TObject);

  var m:real;

begin

  FMain.Visible:=False;  //Отключение видимости главной формы

  FormAnalis.Show;        //Открытие формы «Анализ рынка»

  FormAnalis.memo1.Clear;  //Очищение поля для записи

  Podschet();   //Выполнение функции подсчета

  m:=int(k*100/kol);  //Подсчет процента роста или падения безработицы

  FormAnalis.memo1.Lines.Add('По данным таблицы:');

if (k=0) then FormAnalis.memo1.Lines.Add('C '+ IntToStr(min) + ' по ' + IntToStr(max) + ' года уровень безработицы  остался прежним');  //Добавление в поле для записи результатов расчета

if (k<0) then FormAnalis.memo1.Lines.Add('C '+ IntToStr(min) + ' по ' + IntToStr(max) + ' года безработица  снизилась на ' + FloatToStr(m) + ' %');  //Добавление в поле для записи результатов расчета

if (k>0) then FormAnalis.memo1.Lines.Add('C '+ IntToStr(min) + ' по ' + IntToStr(max) + ' года безработица  увеличилась на ' + FloatToStr(m) + ' %');  //Добавление в поле для записи результатов расчета

end; 

procedure TFormAnalis.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  FMain.Visible:=True;  //При закрытии формы «Анализ рынка» видимость главной формы включается

end;

end. 

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

unit UnitPrognos;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, DB, DBTables;

type

  TFormPrognos = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Button1: TButton;

    Query1: TQuery;

    DataSource1: TDataSource;

    Memo1: TMemo;