Описание предметной области и функции решаемой задачи.

Отдел кадров решает следующие задачи:

сбор информации о сотрудниках;

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

учет стажа работы (количество отработанных дней);

учет сотрудников;

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

учет дополнительных сведений (инвалидность, социальное положение, пенсионер-сотрудник и т. д.).

прием сотрудника;

увольнение сотрудника;

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

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

Нужно быстро принимать и систематизировать новую информацию,

Нужно своевременно выдавать данные об отпусках,

Должна быть ускорена выдача отчетной документации.

1. Когда принимают на работу нового сотрудника, данные о нем заносятся автоматически в базу данных.

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

3. Документы предоставляемы в государственные органы, должны соответствовать стандартам.

Ограничение предметной области:

а) у сотрудника должен быть идентификационный номер;

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

в) Отпуск сотрудника не может превышать установленного лимита;

г) Больничные должны оплачиваться предприятием.

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

1.2 Проектная часть

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

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

Организационно-экономическая сущность задачи

Основной процесс, который рассматривается в этой задаче это: Ведение личных карточек сотрудников предприятия (учёт информации о сотрудниках, отслеживание их назначений и перемещений, учёт отпусков, ведение архива и т.д.). На основе полученной информации выдаются различные отчёты.

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

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

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

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

1.3. Построение диаграмм SADT

1. Входными параметрами для данного объекта являются оформленные документы.

2. Управляющим воздействием служат Госты на оформление документов.

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

3. Выходными параметрами являются личное дело сотрудника (по требованию), выдача данных по запросу, трудовая книжка (по требованию). Все это представлено на SADT диаграмме 1 - уровня (см. приложение 5).

Функция объекта - сбор личных документов.

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

2. Управляющим воздействием служат отчетные данные (по требованию), Госты для оформления документов.

3.Механизмом являются сотрудники кадрового бюро.

4.Выходными параметрами являются заведение описи и регистрация личных документов.

Функция объекта - заведение описи и регистрация личных документов.

Структурный анализ с помощью диаграмм “сущность-связь”

На использовании ER-модели (модели “сущность-связь”) основано большинство подходов к проектированию реляционных баз данных (РБД). Модель была предложена Ченом в 1976 году. Моделирование предметной области базируется на использовании графических диаграмм, включающих небольшое число разнородных компонентов.

При проектировании РБД должны быть решены две основные проблемы:

из каких отношений должна состоять БД и

какие атрибуты должны быть у этих отношений.

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

При проектировании базы данных необходимо как можно больше использовать внутренние средства среды разработки (Borland Delphi 5). Для структурного анализа с помощью диаграммы “сущность-связь” отлично подходит встроенная возможность объекта DataModule. В полуавтоматическом режиме происходит построение диаграмм и отображение их связей.

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

Связь осуществляется:

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

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

с таблицей “Отпуска” по полю табельный номер, так как в базе данных табельный номер сотрудника должен быть уникальный. Связь между главной таблицей и таблицей “Отпуска” - один к одному. С таблицей “Дополнительные сведения” по полю табельный номер, так как в базе данных табельный номер сотрудника должен быть уникальным

Создание таблиц осуществляется в специальном приложении Delphi, которое называется Database Desktop, таблицы написаны в Paradox 7.0. При проектировании полей таблиц учитывались ГОСТы на создание личной карточки сотрудника предприятия.

Структура необходимых таблиц представлена наглядно в таблицах 1,2,3.

Таблица 1. Логическая структура основной таблицы “Общие сведения”.

Таблица 2. Логическая структура таблицы “Отпуска”.

Таблица 3. Логическая структура таблицы “Увольнения”.

3.2 Программная реализация

Инструмент Label для пояснений (надписей).

Инструмент Edit для создания модифицируемого поля.

Инструмент Memo для создания полей, содержащих текст больших размеров.

Инструмент Button является кнопкой, при нажатии на которую осуществляется выполнение какой-либо функции.

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

Инструмент GroupBox для группировки инструментов, объединенных функцией.

2. Вкладка Additional:

Инструмент Image позволяет вставить рисунок, например, для оформления формы приложения, наглдядного пояснения и т.д.

3. Вкладка System:

Инструмент Timer - объект, программируемый на выполнение чего-либо по истечению, определено заданного времени.

4. Вкладка DataAccess:

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

Инструмент Table используется для определения необходимой таблицы.

Инструмент Query используется для создания SQL запроса.

5. Вкладка DataControls:

Инструмент DBGrid используется для отображения данных из указанной таблицы.

Форма имеет пять кнопок управления: “Прием сотрудника”, “Увольнение сотрудника”, “ Выборка по различным параметрам ”, “Просмотр всей базы данных”, “Выход”.

Процедура кнопки “Прием сотрудников” имеет вид:

procedure TFormmenu.SpeedButton1Click(Sender: TObject);

begin

try

DataModule1.Table1.Active:=true;

Formmenu.Hide;

Application.CreateForm(TForm_dial_priem, Form_dial_priem);

Form_dial_priem.DBEdit1.SetFocus;

except

ShowMessage('Возможно подключение баз');

end;

end;

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

Процедура кнопки “Выход”

procedure TFormmenu.BitBtn1Click(Sender: TObject);

begin

if messagedlg ('Вы действительно хотите выйти?',mtConfirmation, [mbYes,mbNo],0)=mrYes

then

begin

DataModule1.Table1.Active:=false;

DataModule1.Table2.Active:=false;

DataModule1.Table3.Active:=false;

DataModule1.Query1.Active:=false;

Application.Terminate;

end;

end;

Рис.1. Главная форма - “Отдел кадров”

Описание подчиненных форм

Вторая форма называется “Приказ о приеме” (см. рис.2). Здесь заполняются данные о приказе в 4 поля. Имеются две кнопки “Ввод” (ввод данных в БД, переход на форму “Личная карточка”) и “Отмена” (выход на главную форму).

Процедура кнопки “Ввод” выглядит следующим образом:

procedure TForm_dial_priem.SpeedButton1Click(Sender: TObject);

begin

try

if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') and (DBEdit3.Text<>'') then

begin

Application.CreateForm(TFormLichnDan, FormLichnDan);

DataModule1.Table1.Post;

Form_dial_priem.DestroyWindowHandle;

DataModule1.Table1.Edit;

end

else

ShowMessage('Нужно заполнить все поля.');

except

ShowMessage('Проверьте правильность введённых парметров.');

end;

end;

При нажатии на этой кнопки осуществляется переход на форму “Личная карточка”, где непосредственно происходит ввод данных о принятом сотруднике.

Процедура кнопки “Отмена” выглядит следующим образом:

procedure TForm_dial_priem.SpeedButton2Click(Sender: TObject);

begin

close;

end;

Третья форма называется “Личные данные”.

На этой форме имеются две вкладки “Личная карточка” и “Отпуска”.

Выбрав вкладку “Личная карточка” в соответствующие поля вводится информация о сотруднике: его фамилия, имя, отчество, адрес, семейное положение, диплом и т.д. (см. рис. 3).

(рис.3).

Выбрав вкладку “Отпуска” вводится информация об отпусках всех сотрудников: начало и конец отпуска, тип отпуска и основание.(см. рис4).

Процедура

procedure TFormLichnDan.FormActivate(Sender: TObject);

begin

DBEdit4.SetFocus;

end;

procedure TFormLichnDan.TabSheet2Show(Sender: TObject);

begin

DataModule1.Table2.Active:=true;

DBNavigator1.DataSource:=DataModule1.DataSource2;

DBMemo3.SetFocus;

end;

Четвертая форма называется “Приказ об увольнении” (см. рис.5).

Здесь вводится табельный номер увольняемого сотрудника и при нажатии на кнопку “Уволить” появляется таблица (см.рис.6), в которую отправляются данные об уволенном и хранятся там.

(рис. 5, 6).

Процедура “Приказ об увольнении ” имеет вид:

procedure TForm_dial_uvoln.SpeedButton1Click(Sender: TObject);

begin

if Edit1.Text<>'' then

begin

DataModule1.Table1.Filter:='tab_nomer='''+edit1.text+'''';

DataModule1.Table1.Filtered:=true;

DataModule1.Table3.Insert;

DataModule1.Table3.FieldValues['tab_nomer']:=DataModule1.Table1.FieldValues['tab_nomer'];

DataModule1.Table3.FieldValues['famil']:=DataModule1.Table1.FieldValues['famil'];

DataModule1.Table3.FieldValues['name']:=DataModule1.Table1.FieldValues['name'];

DataModule1.Table3.FieldValues['otchestvo']:=DataModule1.Table1.FieldValues['otchestvo'];

DataModule1.Table3.FieldValues['dolgnost']:=DataModule1.Table1.FieldValues['dolgnost'];

Application.CreateForm (TForm_uvolen,Form_uvolen);

Form_uvolen.SpeedButton2.Enabled:=true;

Form_uvolen.SpeedButton1.Enabled:=true;

Edit1.Clear;

Form_uvolen.DBGrid1.SetFocus;

end

else

begin

ShowMessage('Введите табельный номер.');

Edit1.SetFocus;

end;

end;

end.

Процедура “Отмена” имеет вид:

procedure TForm_dial_uvoln.SpeedButton2Click(Sender: TObject);

begin

close;

end;

Процедура “Подтвердить увольнение ”

procedure TForm_uvolen.SpeedButton1Click(Sender: TObject);

begin

try

DataModule1.Table3.edit;

DataModule1.Table3.Post;

DataModule1.Table2.Delete;

DataModule1.Table1.Delete;

DataModule1.Table1.Filter:='';

DataModule1.Table1.Filtered:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

ShowMessage('Сотрудник уволен.');

except

DataModule1.Table3.edit;

DataModule1.Table3.Post;

DataModule1.Table1.Delete;

DataModule1.Table1.Filter:='';

DataModule1.Table1.Filtered:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

ShowMessage('Сотрудник уволен.');

end;

end;

Процедура “Отменить увольнение”

procedure TForm_uvolen.SpeedButton2Click(Sender: TObject);

begin

DataModule1.Table3.Cancel;

SpeedButton1.Enabled:=false;

SpeedButton2.Enabled:=false;

end;

end.

Пятая форма называется “Поиск” (см. рис. 7).

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

“Поиск” и “Личные данные”, а также переход на главную форму.

(рис.7).

Процедура “Поиск”

rocedure TFormpoisk.SpeedButton1Click(Sender: TObject);

var pole:string;

begin

if Edit1.Text<>'' then begin

DataModule1.Table1.Active:=false;

DataModule1.Table2.Active:=false;

DataModule1.Table3.Active:=false;

DataModule1.Query1.Active:=false;

DataModule1.Query1.SQL.Clear;

case RadioGroup1.ItemIndex of

0:pole:='tab_nomer';

1:pole:='famil';

2:pole:='dolgnost';

end;

DataModule1.Query1.SQL.Add('select * from t1 where '+pole+'='+''''+Edit1.Text+'''');

DataModule1.Query1.Active:=true;

DataModule1.DataSource1.DataSet:=DataModule1.Query1;

Application.CreateForm(TFormLichnDan,FormLichnDan);

FormLichnDan.SpeedButton2.Visible:=true;

Formpoisk.DestroyWindowHandle;

end

else

begin

ShowMessage('Нужно ввести значение параметра');

Edit1.SetFocus;

end;

end;

end.

“Отмена”, программируется так же как в выше перечисленых случаях.

(рис.8).

(рис.9).

Процедура

procedure TFormLichnDan.N2Click(Sender: TObject);

begin

ShowMessage('Автор: Александренко Юлия'+#10#13+

' ВУиТ ИТ-203 '+#10#13+

' Курсовая работа ');

end;

Процедура

procedure TFormLichnDan.N4Click(Sender: TObject);

begin

showMessage('Данная программа позволяет частично автоматизировать работу отдела'+#10#13+

'кадров. При помощи данного приложения можно систематизировать '+#10#13+

'информацию о приёме и увольнении сотрудников.'+#10#13#10#13+

'Версия: 1.0'+#10#13+

'2002 год.');

end;

ЗАКЛЮЧЕНИЕ

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

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ