База данных «Кадры»

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

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

Иркутский государственный  технический университет

Кафедра информатики

 

 

 

 

 

 

 

 

 

 

 

КУРСОВАЯ РАБОТА

 

ПО ИНФОРМАТИКЕ

 

 

 

 

 

 

 

 

Выполнил: студент группы

ЭЭб-11-2: Борисов А. Н.

Проверила: доцент Соломина В. К.

Иркутск 2011

 

Содержание

 

Введение 4

1.  База данных «Кадры» 4

1.1. Описание таблиц 4

1.2. Описание форм 6

1.3. Схема данных 6

1.4. Описание запросов 6

1.5. Описание отчетов 7

2. Задача на VBA 1

2.1. Блок схема алгоритма 1

2.2. Программа 2

2.3 Тесты (Результаты вычислений) 1

Заключение 1

Литература 3

 

Введение

1. База данных «Кадры»

База данных «Кадры» предназначается для учета личного состава, что необходимо на любом, даже на самом маленьком предприятии.

Основные таблицы: «Личные сведения», «Служебные сведения»

Вспомогательные таблицы: «Должности», «Отделы», «Специальности»

1.1. Описание таблиц

БД состоит из пяти таблиц: трех вспомогательных и двух основных.

Первая основная таблица «Личные сведения» состоит из полей: [Код сотр, Дата рожд,  Место рожд, Паспорт, Адрес, Адрес регистр, Семейн полож, Число детей]. Поле [Код сотр] является ключевым.

Описание полей приведено  в следующей таблице:

Личные  сведения
Код сотр	Дата  рожд	Место рожд	Паспорт	Адрес	Адрес регистр	Семейн  полож	Число детей
1	18.10.1968	г. Иркутск	2507 697643	г. Иркутск, ул. Ленина, д. 22, кв. 56	г. Иркутск ул. Ленина д. 22, кв. 56	Женат	2
2	30.06.1986	г. Улан-Удэ	2708 658908	г. Иркутск, ул. Степана Разина, д. 9, кв. 57	г. Ангарск ул. Чайковского, д. 10, кв. 7	Не женат
3	15.05.1978	с. Веренка	3698 864657	г. Иркутск, ул. Лермонтова, д. 100, кв. 36	Иркутская обл. Заларинский район, с. Веренка, ул. Трактовая, д. 5	Женат	4
4	18.09.1979	г.Зима	7569 989687	г. Иркутск, ул. Бажова, д. 25, кв. 78	г. Черемхово, ул. Вокзальная, д. 45, кв. 18	Замужем	1
5	23.09.1969	г. Иркутск	9890 876876	г. Иркутск, ул. Академическая, д. 22, кв. 56	г. Иркутск, ул. Академическая, д. 22, кв. 56	Замужем	3
6	23.10.1977	г. Шелехов	2455 454322	г. Шелехов, ул. Железнодорожная 5	г. Шелехов, ул. Железнодорожная 5	Женат	1
7	12.08.1986	г. Усолье-Сибирское	7886 476599	г. Иркутск, ул. Академическая д. 22, кв. 92	г. Иркутск, ул. Академическая д. 22, кв. 92	Не женат
8	24.03.1975	п. Залари	2345 653322	Мегет, ул. Нагорная, д. 41	Мегет, ул. Нагорная, д. 41	Женат	3
9	15.09.1981	г. Иркутск	4576 476743	г. Иркутск, ул. Маршала Конева, д. 40, кв. 43	г. Иркутск, ул. Маршала Конева, д. 40, кв. 43	Женат

 

Вторая основная таблица  «Служебные сведения» состоит из полей: [Код сотр, Фамилия, Имя Отчество, Код отдела, Код должн, Образование, Код спец, Стаж, Телефоны]

Описание полей приведено  в следующей таблице:

Служебные сведения
Код сотр	Фамилия	Имя Отчество	Код отдела	Код должн	Образование	Код спец	Стаж	Телефоны
1	Старков	Андрей Владимирович	1	1	Высшее	103	7 лет, 6 мес.	8 (395) 34-34-87
2	Иванов	Петр Михайлович	3	3	Средне специальное	104	18 лет, 3 мес.	8 (395) 67-98-02
3	Сидоров	Михаил Васильевич	2	2	Среднее	100	10 лет, 8 мес	8 (395) 28-95-46
4	Полякова	Анна Семеновна	1	5	Средне специальное	102	12 лет, 2 мес.	8 (395) 12-83-07
5	Воробьева	Ольга Андреевна	1	5	Средне специальное	102	23 года, 11 мес	8 (395) 45-87-20
6	Петров	Антон Сергеевич	2	2	Среднее	100	18 лет, 2 мес.	8 (395) 54-77-23
7	Абрамов	Сергей Абрамович	4	4	Среднее (неполное)	100	7 лет, 3 мес.	8 (395) 47-97-64
8	Егоров	Артем Валерьевич	4	4	Среднее (неполное)	100	4 года	8 (395) 26-05-59
9	Королев	Александр Александрович	5	6	Средне специальное	101	5лет, 5 мес.	8 (395) 58-85-38

 

Вспомогательная таблица  «Должности» состоит из полей [Код должн, Должность]. Поле [Код должн] является ключевым.

Описание полей приведено  в следующей таблице:

Должности
Код должн	Должность
1	Директор
2	Охранник
3	Шофер
4	Грузчик
5	Продавец
6	Электрик

 

Вспомогательная таблица  «Отделы» состоит из следующих полей: [Код отд, Отдел, Начальник, Телефоны]. Поле Код отд является ключевым.

 

 

Отделы
Код отд	Отдел	Начальник	Телефоны
1	Продажа	Полякова Анна Семеновна	12-68-12
2	Охрана	Петров Антон  Сергеевич	45-45-89
3	Транспортный	Иванов Петр Михайлович	89083457896
4	Грузчики	Сидоров Михаил Васильевич
5	Техническое обслуживание	Королев Александр  Александрович	87-95-37

1.2. Описание форм

БД содержит 1 форму  «Служебные сведения». Форма служит для просмотра и добавления записей в таблицу «Служебные сведения». Содержит поля [Код сотр, Фамилия, Имя Отчество, Код отдела, Код должн, Образование, Код спец, Стаж, Телефоны].

1.3. Схема данных

Рис.1.4. Описание запросов

База данных содержит 2 запроса с параметром – «Сведения об отделах» и «Фамилия сотрудника».

Запросы содержат поля таблиц «Служебные сведения», «Отделы», «Должности», «Специальности», «Личные сведения».

При открытии запроса  «Сведения об отделах», программа запрашивает название отдела.

Структура запроса:

 

При открытии запроса  «Сведения о сотрудниках» программа запрашивает фамилию сотрудника, который нас интересует. Структура запроса приведена на рис:

1.5. Отчеты

База данных «Кадры» содержит 2 отчета «Служебные сведения» и «Сведения об отделах». Отчет «Служебные сведения» построен на основе запроса «Сведения о сотрудниках», при его открытии запрашивается фамилия сотрудника. Отчет «Сведения об отделах» построен на основе одноименного запроса, при его открытии запрашивается название отдела.

Отчет «Служебные сведения» предоставляет необходимую информацию о запрошенном сотруднике.

Отчет «Сведения об отделах» предоставляет информацию о запрошенном  отделе.

2. Задача на VBA

Составить программу для вычисления функций f, z, k, при

,

 

 

 

 
2.1. Блок схема алгоритма

 
2.2. Программа

Private Sub CommandButton1_Click()

Dim x As Single

Dim y As Single

  x = TBx.Value

  y = TBy.Value

If y > 11 Or y < -3 Then

  MsgBox ("y - за границами диапазона")

  Exit Sub

End If

If x = 0 Then

  MsgBox ("x не равно нулю !")

  Exit Sub

  End If

  TBf.Value = 4 ^ (x - 2) * Sin(y)

  TBf.Text = Format(Val(TBf.Value), "0.000")

If x > 0 Then

  TBz.Value = Sqr(y / x - 3 / x ^ 2)

Else

  TBz.Value = (x + y) * 3 ^ (y - x)

End If

  TBz.Text = Format(Val(TBz.Value), "0.000")

If x < y Then

  TBk.Value = (4 * x - 2) / (y + 4)

ElseIf x > y Then

  TBk.Value = x - y

  Else

  TBk.Value = 3 * x - e ^ x + 1

End If

  TBk.Text = Format(Val(TBk.Value), "0.000")

End Sub 

2.3 Тесты (Результаты вычислений)

 
Заключение

В данной курсовой работе была представлена база данных «Кадры», приведены необходимые  поля базы данных, их структура и тип; объединение их в определенные объекты и построение связи между объектами базы данных.

База данных представлена в  Microsoft Access 2010.

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

В действительности же база данных «Кадры»  намного сложнее – в ней  больше таблиц и в таблицах больше полей.

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

Задача решена в приложении Microsoft Excel 2010 с помощью редактора Visual Basic Application.

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

 

Литература

1. Дейт К. Дж. Введение в системы баз данных = IntroductiontoDatabaseSystems — 8-е изд. — М.: Вильямс, 2005.

2. Кузнецов С. Д. Основы баз данных — 2-е изд. — М.: Интернет-Университет Информационных Технологий; БИНОМ. Лаборатория знаний, 2007.

3. Когаловский М.Р. Энциклопедия технологий баз данных — М.: Финансы и статистика, 2002.