Файл: Отдел кадров.doc

рисунок 8

При создании запроса «Выплаты за период», на основе которого будет формироваться статистика по выплатам сотрудникам данного подразделения, используется конструктор запросов.

рисунок 9

Результатом работы конструктора стал SQL код.

SELECT Сотрудники.Фамилия, Сотрудники.Имя, Сотрудники.Отчество, Должности.Наименование, Sum([Оклад]*DateDiff("m",[Forms]![Статистика]![DTPickerN],[Forms]![Статистика]![DTPickerK])) AS Выплаты

FROM Должности INNER JOIN Сотрудники ON Должности.Код = Сотрудники.Должность

GROUP BY Сотрудники.Фамилия, Сотрудники.Имя, Сотрудники.Отчество, Должности.Наименование, Сотрудники.Подразделение

HAVING (((Сотрудники.Подразделение)=[Forms]![Статистика]![подрКод]));

создание отчетов

Все отчеты создавались при помощи конструктора. Пример создания отчета «сотрудники подразделения» на рисунке.

рисунок 10

В заголовочной части отчета располагается наименование отчета и полей вывода. Заголовок группы «наименее» позволяет организовать группировку данных по району

VBA

Создание сложных систем редко возможно без использования средств программирования. В данной работе программные модули на visual basic

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

Для реализации задачи навигации был создан отдельный класс «навигация»

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

Навигация

Option Compare Database
Function Вперед()

Вперед_m

End Function
Function Назад()

Назад_m

End Function
Function Добавить()

Добавить_m

End Function

Function Удалить()

Удалить_m

End Function
Function Сохранить()

Сохранить_m

End Function

Function Искать()

Искать_m

End Function

Модули

'------------------------------------------------------------

' Вперед

'

'------------------------------------------------------------

Public Sub Вперед_m()

On Error GoTo Err_Кнопка38_Click

DoCmd.GoToRecord , , acNext
Exit_Кнопка38_Click:

Exit Sub
Err_Кнопка38_Click:

MsgBox Err.Description

Resume Exit_Кнопка38_Click
End Sub
'------------------------------------------------------------

' Добавить

'

'------------------------------------------------------------

Public Sub Добавить_m()

On Error GoTo Err_Кнопка36_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка36_Click:

Exit Sub
Err_Кнопка36_Click:

MsgBox Err.Description

Resume Exit_Кнопка36_Click

End Sub

'------------------------------------------------------------

' Закрыть

'

'------------------------------------------------------------

Function Закрыть_m()
DoCmd.Close , ""
End Function
Option Compare Database

'------------------------------------------------------------

' Искать

'

'------------------------------------------------------------

Public Sub Искать_m()
On Error GoTo Err_Кнопка41_Click

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Кнопка41_Click:

Exit Sub
Err_Кнопка41_Click:

MsgBox Err.Description

Resume Exit_Кнопка41_Click
End Sub

'------------------------------------------------------------

' Назад

'

'------------------------------------------------------------

Public Sub Назад_m()
On Error GoTo Err_Кнопка39_Click

DoCmd.GoToRecord , , acPrevious
Exit_Кнопка39_Click:

Exit Sub
Err_Кнопка39_Click:

MsgBox Err.Description

Resume Exit_Кнопка39_Click

End Sub
'------------------------------------------------------------

' Сохранить

'

'------------------------------------------------------------

Public Sub Сохранить_m()
On Error GoTo Err_Кнопка40_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка40_Click:

Exit Sub
Err_Кнопка40_Click:

MsgBox Err.Description

Resume Exit_Кнопка40_Click

End Sub

'------------------------------------------------------------

' Удалить

'

'------------------------------------------------------------

Public Sub Удалить_m()
On Error GoTo Err_Кнопка37_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Кнопка37_Click:

Exit Sub
Err_Кнопка37_Click:

MsgBox Err.Description

Resume Exit_Кнопка37_Click

End Sub

Описание контрольного примера

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

рисунок 11

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

рисунок 12

Заключение

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

Информация, собранная системой и представленная в наглядной форме позволяет планировать деятельность предприятия. Данные могут быть использованы системой для формирования отчетов и диаграмм.

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

Техническое задание на проектирование выполнено полностью.

Список использованных источников

Фуфаев Д.Э., Фуфаев Э.В. Базы данных. – М.: “Академия”, 2005.
Паронжанов С. Объектно-ориентированные средства анализа, проектирования и реинжениринга информационных систем. – М.: Учебные материалы конференции «Индустрия программирования 96».
Вендров А.М. CASEтехнологии. Современные методы и средства проектирования информационных систем.  М.: Финансы и статистика, 2000
Дейт К. Введение в системы баз данных/Пер. с англ. М.:Наука, 1980.
Липаев В.В Управление разработкой программных средств. Методы, стандарты, технология. – М.: Финансы и статистика, 1993.
Архангельский А.Я. Программирование в Delphi 7 М.:Бином, 2004.
Мишенин А.И. Теория экономических информационных систем: Учеб. для вузов / А.И. Мишенин.- 4-е изд., доп. и перераб. -М. : Финансы и статистика, 2001. - 240 с. : ил.
Оскерко В.С., Пунчик З.В. Практикум по технологиям баз данных. – Мн.: “БГЭУ”, 2004. – 170 с.
Ирвин М., Праг К. Access 2000. Библия пользователя. – М.: “Диалектика”, 2000. – 1040 с.
Разработка настольных приложений в Access 2002. Для профессионалов. Литвин. Гетц. 2002г.