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.