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

Из главной формы также имеется доступ к разработанным запросам и отчетам.Рисунок 5 – Форма «Сотрудники.При заполнении данных по сотрудникамдобавляется фото сотрудника. Чтобы можно было добавлять фотографии в формате jpg (обычно на форме отображаются изображения в формате bmp, а это значительно увеличивает объем базы данных), на форму были добавлены элемент Рисунок, в который будет добавляться фотография, и кнопка «Загрузить фото», которая открывает окно файлового диалога, чтобы выбратьфотографию сотрудника.Открытое изображение переводится в двоичный формат данных и в таком виде хранится в таблице.Щелчок по кнопке «Загрузить фото» вызывает обработчик события, написанный на VBA, который сначала вызывает окно файлового диалога (стандартное для Office 2010), а затем загружает в элемент Рисунок выбранный файл с фотографией, вызывает текущую запись (через текущую запись формы) и запоминает в поле Photo данные из свойства PictureData установленного на форме элемента Рисунок:Private Sub Кнопка159_Click()Dim rst As Recordset'задаем строку для имени файла с фотографиейDim strFilePath As StringWith Application.FileDialog(msoFileDialogOpen)'задаем свойства диалогового окна для выбора только файлов с изображениями.AllowMultiSelect = False.Filters.Clear.Filters.Add "Всефайлы", "*.*".Filters.Add "JPEG", "*.jpg".Filters.Add "Рисунки", "*.bmp".FilterIndex = 1If .Show = 0 Then Exit SubstrFilePath = Trim$(.SelectedItems(1))End WithMyPic.Picture = strFilePath'Set rs = CurrentDb.OpenRecordset("Personnel", dbOpenDynaset)Setrst = Me.Recordset'добавляем фото в текущую записьrst.Editrst![Photo] = MyPic.PictureDatarst.UpdateEndSubЧтобы рисунок отобразился на форме, необходимо задать его вывод в элемент Рисунок, установленный на форме. Для этого служит подпрограмма Form_Current():PrivateSubForm_Current()IfMe.NewRecordThenMyPic.Picture = "(отсутствует)"ElseMyPic.PictureData = Me![Photo]EndIfEndSubДанные по сотрудникам добавляются через форму, открытую на добавление новой записи. Основные данные вводятся непосредственно в поля формы Сотрудники, а дополнительные данные, такие как предыдущие места работы, полученное образование, сведения о перемещениях, взысканиях и поощрениях добавляются при помощи соответствующих кнопок на форме.Например, щелчок по кнопке «Добавить образование» вызывает форму добавления образования с учетом выбранного сотрудника (рис. 6). Для этого в обработчике щелчка по кнопке сначала запоминается идентификатор сотрудника, добавляется новая запись в таблицу EducationList, а затем вызывается форма добавления с фильтром на добавленную запись:PrivateSub Кнопка241_Click()DimcodAsLongcurrIdPers = Me.Recordset![IdPers]Setrs = CurrentDb.OpenRecordset("EducationList", dbOpenDynaset) 'добавляем новую записьrs.AddNewrs![IdPers] = currIdPersrs.Update 'запоминаем номер новой записи и вызывает форму для ввода данныхcod = DMax("[Id]", "EducationList")DoCmd.OpenForm "EducationList", , , "Id=" & codEndSubРисунок 6 – Форма «Полученное образование».Аналогичным образом организовано добавление данных и в других таблицах.Private Sub Кнопка263_Click()Dim cod As LongcurrIdPers = Me.Recordset![IdPers] Set rs = CurrentDb.OpenRecordset("WorkPath", dbOpenDynaset) 'добавляем новую записьrs.AddNewrs![IdPers] = currIdPersrs.Updatecod = DMax("[IdWork]", "WorkPath")DoCmd.OpenForm "WorkPath", , , "IdWork=" & codEnd SubPrivate Sub Кнопка291_Click()Dim cod As LongcurrIdPers = Me.Recordset![IdPers] Set rs = CurrentDb.OpenRecordset("MoveList", dbOpenDynaset) 'добавляем новую записьrs.AddNewrs![IdPers] = currIdPersrs.Updatecod = DMax("[Id]", "MoveList")DoCmd.OpenForm "MoveList_new", , , "Id=" & codEnd SubPrivate Sub Кнопка292_Click()Dim cod As LongcurrIdPers = Me.Recordset![IdPers] Set rs = CurrentDb.OpenRecordset("PenaltyList", dbOpenDynaset) 'добавляем новую записьrs.AddNewrs![IdPers] = currIdPersrs.Updatecod = DMax("[Id]", "PenaltyList")DoCmd.OpenForm "PenaltyList_new", , , "Id=" & codEnd SubPrivate Sub Кнопка293_Click()Dim cod As LongcurrIdPers = Me.Recordset![IdPers] Set rs = CurrentDb.OpenRecordset("RewardsList", dbOpenDynaset) 'добавляем новую записьrs.AddNewrs![IdPers] = currIdPersrs.Updatecod = DMax("[Id]", "RewardsList")DoCmd.OpenForm "RewardsList_new", , , "Id=" & codEndSubПриказы вводятся отдельно, форма для просмотра и добавления приказа в список (рис. 7) вызывается с главной формы. Рисунок 7 – Форма «Список приказов».Перемещение, добавление и удаление приказов осуществляется при помощи кнопок.Справочники организованы в виде ленточной формы, работа с записями осуществляется при помощи стандартных кнопок навигации, исключением является форма для просмотра и ввода подразделений университета, так как база содержит достаточно большой перечень подразделений, поэтому для добавления и удаления записей были вынесены кнопки на верхнюю часть формы (рис. 8).Рисунок 8 – Форма «Отдел/Кафедра».В процессе работы были разработаны запросы:перечень сотрудников кафедры по названию кафедры (рис. 9-10); Рисунок 9 – Запрос на выдачу списка сотрудников кафедры по названию кафедры в режиме конструктора.Рисунок 10 – Результат запроса на выдачу списка сотрудников кафедры по части названия кафедры«матем».Количество сотрудниковпо факультетам и должностям (рис. 11-12); Рисунок 11 – Запрос на выдачу количества сотрудников по факультетам и должностям в режиме конструктора.Рисунок 12 – Результат запроса на выдачу количества сотрудников по факультетам и должностям.Количество сотрудниковпо отделам/кафедрам (рис. 13-14); Рисунок 13 – Запрос на выдачу количества сотрудников по кафедрам в режиме конструктора.Рисунок 14 – Результат запроса на выдачу количества сотрудников по кафедрам.В процессе работы также были созданы отчет – список сотрудников с датами рождения с группировкой по факультетам и кафедрам (рис. 15) и данные сотрудников (рис. 16).Рисунок 15 – Отчет по датам рождения сотрудников.Рисунок 16 – Отчет по общему списку сотрудников.Вывод в отчет фотографий осуществляется с использованием VBA. Чтобы вывести фотографию, в отчет было вставлен элемент Рисунок, который затем был программно связан с полем Photo. При переходе на текущую запись в отчете в элемент Рисунок подгружается хранящееся в базе данных изображение:PrivateSubReport_Current()OnErrorResumeNextMe!MyPic.PictureData = Me![Photo]EndSubЗаключениеВ данной курсовой работе была разработана база данных отдела кадров университета.Разработанная база данных позволяет добавлять, изменять, удалять и просматривать все имеющиеся и вводимые данные. Созданные формы позволяют просматривать и корректировать входную информацию, а запросы и отчеты получать необходимую информацию из базы данных.Данная курсовая работа является актуальной и была разработана с использованием MicrosoftAccess.При этом решение является временным, но необходимым, так как дальнейшее развитие базы данных может предполагать создание приложения, разработанного на одном из языков программирования высокого уровня,либо доработку на языке VBA базы данных в полноценное приложение, позволяющее использовать разработанную базу данных пользователю любого уровня подготовки в области информационных технологий.Список использованных источниковБекаревич, Ю. Б. Самоучитель Access 2010 / Ю. Б. Бекаревич, Н. В. Пушкина. – СПб.: БХВ-Петербург, 2011. – 432 с.Как сделать запрос с параметром в access 2010? [Электронный ресурс] – Режим доступа: http://word-office.ru/kak-sdelat-zapros-s-parametrom-v-access-2010.html Гарсиа-Молина, Гектор. Системы баз данных : Полный курс / Гектор Гарсиа-Молина, Джеффри Д. Ульман, Дженнифер Уидом ; [Пер. с англ. и ред. А.С. Варакина].– М.: Издательство «Вильямс», 2017 г. – 1088 с.Использование параметров для ввода данных при выполнении запроса. [Электронный ресурс] – Режим доступа: https://support.microsoft.com/ru-ru/office/использование-параметров-для-ввода-данных-при-выполнении-запроса-c2806d3d-d500-45a8-8507-ec6af351b6edМаска в MicrosoftAccess. [Электронный ресурс] – Режим доступа: https://accesshelp.ru/maska-vvoda-v-microsoft-access/Новиков Б. А. Основы технологий баз данных: учебное пособие / Б. А. Новиков, Е. А. Горшкова, Н. Г. Графеева; под ред. Е. В. Рогова. – 2-е изд. – М.: ДМК Пресс, 2020. – 582 с.НОУ ИНТУИТ. Работа с базами данных. Лекция 6: Реляционный подход к построению инфологической модели. [Электронный ресурс] – Режим доступа: https://intuit.ru/studies/courses/3439/681/lecture/14024Советов, Б. Я. Базы данных: учебник для прикладногобакалавриата / Б. Я. Советов, В. В. Цехановский, В. Д. Чертовской. – 3-е изд., перераб. и доп. – М.: Издательство Юрайт, 2018. – 420 с.Созданиепростого отчета.[Электронный ресурс] – Режим доступа:https://support.microsoft.com/ru-ru/office/создание-простого-отчета-408e92a8-11a4-418d-a378-7f1d99c25304Что такое база данных?[Электронный ресурс] – Режим доступа:https://www.oracle.com/ru/database/what-is-database/