База данных отдела кадров

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

Министерство образования и науки РФ

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

«Сибирский государственный индустриальный университет»

Институт информационных технологий и автоматизированных систем

Кафедра прикладной информатики и программирования

Пояснительная записка

К курсовой работе

по дисциплине Программная инженерия на тему

«База данных отдела кадров»

Выполнил:

студент гр. ИП-12

Веревин Д.С.

Проверил:

Доцент Бабичева Н. Б.

Новокузнецк

2014



Содержание

Введение

1. Описание области проектирования

2. Формы

3. Запросы

4. Отчёты

Заключение

Приложение 1. Процедура составления фильтра для окна «Редактор запроса»

Приложение 2. Процедура составления SQL кода запроса

Приложение 3. Процедура генерации формы отчёта

Приложение 4. Код подгружаемой библиотеки



Введение

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

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

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

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

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

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

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

1. Описание области проектирования

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

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

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

База данных, соответствующая была реализована с помощью СУБД СУБД Microsoft Access. Соответствующий данной базе интерфейс был реализован в среде разработки Delphi 7 на языке программирования Delphi.

Диаграмма базы данных представлена на рисунке 3.

Рисунок 1 - Диаграмма связей в среде разработки Microsoft Access

2. Формы

При открытии программы открывается главная форма.

Но перед тем как начать работать с программой в форме выводиться окно авторизации. Оно нужно для разделения пользователей на администраторов и непосредственно работников. Для входа в программу с правами администратора следует ввести логин и пароль, и далее нажать кнопку «Вход». В режиме администратора будут доступны дополнительные функции созданные для отладки программы на уровне разработки и аппгрейда программы.

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

Скриншот работы формы авторизации представлен на рисунке 2.

Рисунок 2 - Скриншот работы формы авторизации.

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

Рисунок 3 - Скриншот работы главной формы.

На форме присутствует горизонтальное меню находятся пункты:

Программа

Кнопка Выход

Кнопка фильтр

База данных

Добавить

Удалить

Редактировать

Запрос

Новый запрос

Открыть запрос

О программе

Кнопка фильтр отвечает за появление и исчезновения фильтра по базе данных, для быстрой фильтрации главной таблицы: Сотрудники.

Скриншот фильтра по базе данных представлен на рисунке 4.

Рисунок 4 - Скриншот фильтра по базе данных.

При нажатие на База данных\Добавить вызывается форма для добавления новых значений в базу данных. Родителем формы добавления является главная форма.

Скриншот работы формы добавления данных представлен на рисунке 5.

Рисунок 5 - Скриншот работы формы добавления данных.



При нажатие на База данных\Удалить выделеная запись удаляется из базы данных.

При нажатие на База данных\Редактировать вызывается форма для редактирования записей в базе данных. Родителем формы добавления является главная форма.

Скриншот работы формы редактирования данных представлен на рисунке 6.

Рисунок 6 - Скриншот работы формы добавления данных.

Нажатием на кнопку «О программе» вызывается окно с краткой информацией.

Скриншот формы «О программе» представлен на рисунке 7.

Рисунок 7 - Скриншот формы «О программе».

3. Запросы

Запрос - это обращение к БД для поиска или изменения в базе данных информации, соответствующей заданным критериям.

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

Редактор запросов открывается в отдельном окне. Вызвать его можно через База данных\Новый запрос или же загружая уже созданный ранние запрос через База данных\Открыть запрос. При создание нового запроса открывается форма «Фильтр запроса» для того чтобы пользователь отметил таблицы и поля, которые будет использовать в запросе. Так же можно сразу воспользоваться шаблонами находящиеся в пункте меню Запрос\Шаблон\... .

Скриншот работы формы «Фильтр запроса» представлен на рисунке 8.

Рисунок 8 - Скриншот работы формы «Фильтр запроса».

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

Скриншот работы формы редактор запроса представлен на рисунке 9.

Рисунок 9 - Скриншот работы формы редактор запроса.

Либо если вы вошли, как администратор, вызвать окно «SQL редактор» отредактировать или просмотреть уже сгенерированный вами запрос или написать новый на языке SQL.

Существует возможность загрузки и сохранения запросов. Вызовом диалогового окна сохранения: Запрос\Сохраненить запрос или закрузки: Запрос\Закрузить запрос. Так же возможен экспорт данных по запросу в Excel: Запрос\Экспорт в Excel.

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

4. Отчёты

Отчет -- это объект базы данных, который используется для отображения и обобщения данных. С помощью отчетов можно распространять и архивировать мгновенные снимки данных в печатном виде, в виде PDF- или XPS-файлов и файлов других форматов.

Отчёт генерируется по актуальному запросу, то есть по запросу который уже сгенерирован и выведен в таблицу. Окно отчёта вызывается нажатием на кномку «Отчёт» в окне редактора запросов.

Скриншот работы формы отчёт представлен на рисунке 10.

Рисунок 9 - Скриншот работы формы «SQL редактор».

Так как отчёты нужны для распространения данных полученные после формирования запроса в разных форматах. В программе существует экспорт актуального отчёта в программную среду Microsoft Excel.

Чтобы произвести экспорт отчёта нужно в главном меню окна нажать кнопку «Экспорт в Excel». Программа самостоятельно включит приложение Microsoft Excel и транспортирует туда данные из отчёта.

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



Заключение

В рамках физического моделирования выполнена реализация основных объектов базы данных: таблицы, запросы.

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

С помощью среды программирования Delphi 7 был создан интерфейс, позволяющий выполнять множество функций работы с базой данных, а именно:

Добавление новых записей в таблицу, о новых сотрудниках, удаление занесенных ранние данных, изменение записей в таблицах базы данных, если данные по сотруднику изменились или сотрудник был уволен;

Составления запросов, для отыскания необходимой информации в базе данных и дальнейшей генерации отчёта по этому запросу. А также экспорт запросов в Excel; база данные кадры запрос

Сохранение и загрузка запросов. Позволяет переносить и хранить уже созданные запросы для экономии времени сотрудников;

Просмотр SQL кода запроса. Функция исключительно для разработчиков. Позволяющая упростить работу при модернизации программы.;

Просмотр выборок данных по результатам запросов;

Просмотр отчётов по результатам запросов. Перевод их в Excel.



Приложение 1. Процедура составления фильтра для окна «Редактор запроса»

procedure TForm7.pnl3Click(Sender: TObject);

var

j,i:Integer;

s:string;

begin

{Начало From}

froms:='';

countFroms:=0;

for i:=1 to 4 do if chk[i].Checked then

begin

countFroms:=countFroms+1;

case i of

1: begin froms:=froms+'Lichdata,'; aFroms[countFroms]:='Lichdata' end;

2: begin froms:=froms+'Adres,'; aFroms[countFroms]:='Adres' end;

3: begin froms:=froms+'Telephones,'; aFroms[countFroms]:='Telephones' end;

4: begin froms:=froms+'Doljnost,'; aFroms[countFroms]:='Doljnost' end;

end;

end;

if froms='' then

begin

aFroms[1]:='Lichdata';

aFroms[2]:='Adres';

aFroms[3]:='Telephones';

aFroms[4]:='Doljnost';

froms:='lichdata,Adres,Telephones,Doljnost';

countFroms:=4;

end

else froms:=LeftStr(froms,Length(froms)-1);

Form4.from:=froms;

{Конец From}

{Начало Select}

form4.cbb1.Items.Clear;

otchet:='';

if countFroms>0 then

for i:=5 to 21 do

if chk[i].Checked then

begin

otchet:=otchet+chk[i].caption+',';

form4.cbb1.Items.Add(chk[i].caption);

end;

if otchet='' then otchet:='*'

else otchet:=LeftStr(otchet,Length(otchet)-1);

{Конец Select}

stat1.Panels[0].Text:='Таблиц: '+IntToStr(countFroms);

stat1.Panels[1].Text:='SQL код: select '+otchet+' from '+froms;

fdm.form7hide;

end;



Приложение 2. Процедура составления SQL кода запроса

procedure TForm4.createQuery;

var

f,errorEdt:Boolean;

show,table,SignEdt:string;

countSignEdt:array [1..21] of Integer;

clone:array [1..8] of string;

z,cloneend,i,j,countEdt,countCbb:integer;

begin

try

sqlcod:='select ';

show:='';

if cbb1.Text<>'' then

begin

sqlcod:=sqlcod+cbb1.Text;

clone[1]:=cbb1.Text;

for i:=2 to 8 do

if cbb[i].Text<>'' then

begin

z:=1;

f:=True;

while (f) and (z<=8) do

begin

ShowMessage(cbb[i].Text+'='+clone[z]+' z='+inttostr(z));

if cbb[i].text=clone[z] then f:=false;

z:=z+1;

end;

if f then

begin

sqlcod:=sqlcod+','+cbb[i].Text;

clone[i]:=cbb[i].Text

end;

end;

end

else sqlcod:=sqlcod+' *';

if form7.froms='' then

begin

form7.pnl3.OnClick(Action);

end;

sqlcod:=sqlcod+' from '+form7.froms;

countEdt:=0;

for i:=1 to 15 do

if edt[i].Text<>'' then countEdt:=countEdt+1;

j:=1;

errorEdt:=False;

if edt[1].Text<>'' then

while ((not errorEdt) and (j<=15)) do

begin

if edt[j].text<>'' then

begin

errorEdt:=True;

if edt[j].Text[1]='!' then

begin

if (edt[j].Text[2]='=') then begin countsignedt[j]:=2; errorEdt:=False; end;

if (edt[j].Text[2]='<') then begin countsignedt[j]:=2; errorEdt:=False; end;

if (edt[j].Text[2]='>') then begin countsignedt[j]:=2; errorEdt:=False; end;

end

else

begin

if (edt[j].Text[1]='=') then begin countsignedt[j]:=1; errorEdt:=False; end

else

if (edt[j].Text[1]='<') then begin countsignedt[j]:=1; errorEdt:=False; end

else

if (edt[j].Text[1]='<') and (edt[j].Text[2]='>') then begin countsignedt[j]:=2; errorEdt:=False; end

else

if (edt[j].Text[1]='>') then begin countsignedt[j]:=1; errorEdt:=False; end

else

SignEdt:='';

for i:=1 to 2 do SignEdt:=SignEdt+edt[j].Text[i];

if SignEdt='IN' then begin countsignedt[j]:=3; errorEdt:=False; end

else

SignEdt:='';

for i:=1 to 4 do SignEdt:=SignEdt+edt[j].Text[i];

if SignEdt='LIKE' then begin countsignedt[j]:=5; errorEdt:=False; end

else

SignEdt:='';

for i:=1 to 7 do SignEdt:=SignEdt+edt[j].Text[i];

if SignEdt='BETWEEN' then begin countsignedt[j]:=8; errorEdt:=False; end;

end;

end;

j:=j+1;

end;

countCbb:=0;

for i:=1 to 8 do if cbb[i].Text<>'' then countCbb:=countCbb+1;

if (errorEdt) and (countEdt<>0) then

begin

ShowMessage;

Log('ОШИБКА! Условие запроса написанно не корректно!',mmo1);

end

else

if edt[1].Text<>'' then

begin

sqlcod:=sqlcod+' where';

if (cbb1.textand (cbb1.text<>'Дата_Рожд') and (cbb1.text<>'Стаж') then

begin

sqlcod:=sqlcod+' ('+cbb1.Text+edt1.Text[1]+'''';

for i:=2 to Length(edt1.Text) do sqlcod:=sqlcod+edt1.Text[i];

sqlcod:=sqlcod+''')';

end

else

sqlcod:=sqlcod+' ('+cbb1.Text+edt1.Text+')';

for j:=1 to 7 do

if cbb[j+1].text<>'' then

begin

if edt[j*2].text<>'' then

begin

if (cbb[j+1].text<>') and (cbb[j+1].text<>'Дата_Рожд') and (cbb[j+1].text<>') then

begin

sqlcod:=sqlcod+' and ('+cbb[j+1].Text+edt[j*2].Text[1]+'''';

for i:=2 to Length(edt[j*2].Text) do sqlcod:=sqlcod+edt[j*2].Text[i];

sqlcod:=sqlcod+''')';

end

else

sqlcod:=sqlcod+' and ('+cbb[j+1].Text+edt[j*2].Text+')'

end

else

if edt[j*2+1].text<>'' then

begin

if (cbb[j+1].text<>) and (cbb[j+1].text<>'Дата_Рожд') and (cbb[j+1].text<>') then

begin

sqlcod:=sqlcod+' or ('+cbb[j+1].Text+edt[j*2+1].Text[1]+'''';

for i:=2 to Length(edt[j*2+1].Text) do sqlcod:=sqlcod+edt[j*2+1].Text[i];

sqlcod:=sqlcod+''')';

end

else

sqlcod:=sqlcod+' or ('+cbb[j+1].Text+edt[j*2+1].Text+')';

end;

end;

end;

if Form7.countFroms>1 then

begin

if edt[1].Text='' then sqlcod:=sqlcod+' where';

if Form7.aFroms[1]='Lichdata' then

for i:=2 to Form7.countFroms do

if i>2 then sqlcod:=sqlcod+' and ('+Form7.aFroms[1]+'.ключ='+Form7.aFroms[i]+'. '

else sqlcod:=sqlcod+' ('+Form7.aFroms[1]+'.ч='+Form7.aFroms[i]+'.)'

else

for i:=2 to Form7.countFroms do

if i>2 then sqlcod:=sqlcod+' and ('+Form7.aFroms[1]+'.='+Form7.aFroms[i]+'. '

else sqlcod:=sqlcod+' ('+Form7.aFroms[1]+'. ='+Form7.aFroms[i]+'.'

end;

if (not errorEdt) then

begin

Form1.nListSQLCod:=Form1.nListSQLCod+1;

Log( ('+sqlcod+')',mmo1);

SQLQuery[Form1.nListSQLCod]:=TQuery.Create('Запрос'+inttostr(Form1.nListSQLCod),sqlcod);

lst1.Items.Add(SQLQuery[Form1.nListSQLCod].NameQuery);

Log('+SQLQuery[Form1.nListSQLCod].NameQuery,mmo1);

ActionQuery:=Form1.nListSQLCod;

fdm.ADOQuery1.SQL.Clear;

fdm.ADOQuery1.SQL.Add(sqlcod);

fdm.ADOQuery1.Open;

Log('Создан '+SQLQuery[Form1.nListSQLCod].NameQuery,mmo1);

excel1.Enabled:=True;

n5.Enabled:=True;

Form4.btn3.Enabled:=True;

form6.mmo1.Lines.Clear;

Form6.mmo1.Lines.Add(sqlcod);

end;

except

MessageDlg(SQL.', mtError, [mbOK], 0);

end;

end;



Приложение 3. Процедура генерации формы отчёта.

procedure TForm4.btn3Click(Sender: TObject);

var

i:Integer;

begin

Form8.Caption:='Отчё +SQLQuery[ActionQuery].NameQuery;

Log('Сгенерирован отчёт по запросу '+SQLQuery[ActionQuery].NameQuery,mmo1);

Form8.Show;

if dbgrd1.Columns.Count<>0 then

begin

Form8.dbedt[1]:=TDBEdit.Create(form8);

Form8.dbedt[1].Parent:=form8;

Form8.dbedt[1].Left:=130;

Form8.dbedt[1].Top:=30;

Form8.dbedt[1].Width:=form8.Width-170;

Form8.dbedt[1].Height:=21;

Form8.dbedt[1].DataSource:=fDM.DataSource1;

Form8.dbedt[1].DataField:=dbgrd1.Columns[0].Title.Caption;

form8.dbedt[1].ReadOnly:=True;

Form8.lbl[1]:=TLabel.Create(form8);

Form8.lbl[1].Parent:=form8;

Form8.lbl[1].Caption:=dbgrd1.Columns[0].Title.Caption+': ';

Form8.lbl[1].Left:= Form8.dbedt[1].Left- Form8.lbl[1].Width-5;

Form8.lbl[1].Top:=30;

end;

if dbgrd1.Columns.Count>1 then

for i:=2 to dbgrd1.Columns.Count do

begin

form8.dbedt[i]:=TDBEdit.Create(form8);

form8.dbedt[i].Parent:=form8;

form8.dbedt[i].Left:=form8.dbedt[1].Left;

form8.dbedt[i].Top:=form8.dbedt[i-1].Top+10+form8.dbedt[i-1].Height;

form8.dbedt[i].Width:=form8.dbedt[1].Width;

form8.dbedt[i].Height:=21;

form8.dbedt[i].DataSource:=fDM.DataSource1;

form8.dbedt[i].DataField:=dbgrd1.Columns[i-1].Title.Caption;

form8.dbedt[i].ReadOnly:=True;

form8.lbl[i]:=TLabel.Create(form8);

form8.lbl[i].Parent:=form8;

form8.lbl[i].Caption:=dbgrd1.Columns[i-1].Title.Caption+': ';

form8.lbl[i].Left:=form8.dbedt[1].Left-form8.lbl[i].Width-5;

form8.lbl[i].Top:=form8.dbedt[i-1].Top+10+form8.dbedt[i-1].Height;

end;

form8.Height:=form8.dbedt[dbgrd1.Columns.Count].Top+form8.dbedt[dbgrd1.Columns.Count].Height+100;

form4.Enabled:=false;

form8.row:=dbgrd1.Columns.Count;

end;



Приложение 4. Код подгружаемой библиотеки

library Project2;

uses

SysUtils,

StdCtrls,

Classes;

var

i:integer=1;

{$R *.res}

procedure Log(text:string; PlaceLog:TMemo); stdcall; export;

var textLog:string;

begin

textLog:='['+inttostr(i)+'] ';

textLog:=textLog+DateToStr(Date);

textLog:=textLog+' / '+Timetostr(Time)+': ';

textLog:=textLog+text;

PlaceLog.Lines.Add(textLog);

i:=i+1;

end;

exports Log;

begin

end.

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