Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Белорусский государственный университет информатики и радиоэлектроники

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Otchet_po_praktike_Lobko.docx

Скачиваний:

Добавлен:

01.05.2025

Размер:

1 Мб

Скачать

☆

<<< < Предыдущая 1 2 3 4 56 / 66

4.6 Инструкция по эксплуатации

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

Инструкция по эксплуатации предполагает проверку выполнения всех определенных на этапе проектирования функций.

Форма авторизации представлена на рисунке 5

Рисунок 5 – Демонстрация авторизации программы

Главная форма представлена на рисунке 6

Рисунок 6 – Демонстрация главной формы программы

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

Рисунок 7 –Демонстрация функций «Добавить» и «Сохранить»

Протестируем функцию поиска. Для этого необходимо заполнить форму поиска и нажать на кнопку «Поиск». Результат представлен на рисунке 8

Рисунок 8 – Демонстрация функции «Поиск»

Протестируем функцию личная карточка сотрудника. Для начала необходимо нажать кнопку меню Отчеты и открыть форму «Личная карточка». Результат представлен на рисунке 9

Рисунок 9 – Демонстрация «Личная карточка»

Далее необходимо нажать на кнопку Экспорт и выбрать документ вывода «Личной карточки» . Результат представлен на рисунке 10

Рисунок 10 – Демонстрация экспорта в Microsoft Word

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

Рисунок 11 - Демонстрация функции «Статистика персонала»

Протестируем функцию Стаж. Для начала необходимо нажать кнопку меню Стаж и открыть форму «Личная карточка». Результат представлен на рисунке 12

Рисунок 12 - Демонстрация функции «Стаж»

Протестируем функцию Истечения контракта. Необходимо во вкладке Контракт выбрать год до которого у человека заключен договор с предприятиям и нажать на кнопку «Показать». Результат представлен на рисунке 13

Рисунок 13 - Демонстрация «Истечения контракта»

5 Опытная эксплуатация

5.1 Ошибки, выявленные в процессе опытной эксплуатации

В процессе опытной эксплуатации был выявлен ряд ошибок, которые потребовали немедленного исправления. Описание ошибок приведены в таблице 12.

Таблица 12 - Некоторые примеры ошибок и их описание

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

Выводы

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

Для разработки программного средства потребовалось усовершенствование навыков работы в среде разработки Microsoft Visual Studio, владения языком программирования Visual Basic, работы с системой управления реляционными базами данных Microsoft SQL Server, владения языком структурированных запросов управления реляционными базами данных SQL.

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

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

Список используемых источников

Багласова Т.Г. Методические указания по оформлению курсовых и дипломных проектов.- Мн.: ТБП, 2006

Гради Буч. Объектно-ориентированный анализ и проектирование. – М.: Бином, 1998

Кунец И.Е. Объектно – ориентированный анализ и проектирование. Работа в среде Rational Rose. Методическое пособие для учащихся ССУЗ по специальности 2-40 01 01 «Программное обеспечение информационных технологий».- Мн.: ТБП, 2006
ГОСТ 2.105-95. ЕСКД. Общие требования к текстовым документам
ГОСТ 19.401-2000. ЕСПД. Текст программы
ГОСТ 19.402-2000 ЕСПД. Описание программы
ГОСТ 19.301-2000 ЕСПД. Программа и методика испытаний

Приложение А

(обязательное)

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

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

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

Приложение Б

(обязательное)

Текст программы

‘Код первой формы

Public Class Form1

‘Код функции Сохранить

Private Sub СотрудникBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)

Me.Validate()

Me.СотрудникBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Оптика_Сервис_ПлюсDataSet)

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'Оптика_Сервис_ПлюсDataSet.сотрудник' table. You can move, or remove it, as needed.

Me.СотрудникTableAdapter.Fill(Me.Оптика_Сервис_ПлюсDataSet.сотрудник)

End Sub

‘Код открытия новой формы

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Form2.Show()

End Sub

Private Sub СтажToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СтажToolStripMenuItem.Click

Process.Start("Расчет стажа.exe")

End Sub

‘Код открытия новой формы

Private Sub СправкаToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СправкаToolStripMenuItem.Click

Form4.Show()

End Sub

‘Код вызова справки

Private Sub СправкаToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles СправкаToolStripMenuItem1.Click

Process.Start("Help.exe")

End Sub

‘Код открытия вкладки Общая информация

Private Sub ОбщаяИнформацияToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОбщаяИнформацияToolStripMenuItem.Click

End Sub

Private Sub ПаспортынеДанныеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ПаспортынеДанныеToolStripMenuItem.Click

End Sub

Private Sub ОбразованиеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОбразованиеToolStripMenuItem.Click

End Sub

Private Sub КонтрактыToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles КонтрактыToolStripMenuItem.Click

End Sub

Private Sub ГлавноеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ГлавноеToolStripMenuItem.Click

End Sub

‘Код функции Поиск

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

For i = 0 To СотрудникDataGridView.ColumnCount - 1

For j = 0 To СотрудникDataGridView.RowCount - 1

СотрудникDataGridView.Item(i, j).Style.BackColor = Color.White

СотрудникDataGridView.Item(i, j).Style.ForeColor = Color.Black

Next j

Next i

For i = 0 To СотрудникDataGridView.ColumnCount - 1

For j = 0 To СотрудникDataGridView.RowCount - 1

If InStr(СотрудникDataGridView.Item(i, j).Value, TextBox1.Text) Then

СотрудникDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue

СотрудникDataGridView.Item(i, j).Style.ForeColor = Color.Blue

End If

Next j

Next i

End Sub

‘Код функции Сортировка

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Dim Col As System.Windows.Forms.DataGridViewColumn

Select Case ListBox1.SelectedIndex

Case 0

Col = DataGridViewTextBoxColumn2

Case 1

Col = DataGridViewTextBoxColumn3

Case 2

Col = DataGridViewTextBoxColumn4

Case 3

Col = DataGridViewTextBoxColumn5

Case 4

Col = DataGridViewTextBoxColumn6

Case 5

Col = DataGridViewTextBoxColumn7

Case 6

Col = DataGridViewTextBoxColumn8

End Select

If RadioButton1.Checked Then

СотрудникDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)

Else

СотрудникDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)

End If

End Sub

Private Function DataGridViewTextBoxColumn() As DataGridViewColumn

Throw New NotImplementedException

End Function

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

Button4.Enabled = True

End Sub

‘Код функции Фильтарация

Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click

СотрудникBindingSource.Filter = "семейное_положение= '" & ComboBox1.Text & " '"

End Sub

‘Код функции Сброс фильтрации

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

СотрудникBindingSource.Filter = ""

Refresh()

End Sub

‘Код функции Сброс фильтрации

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

СотрудникBindingSource.Filter = ""

End Sub

‘Код функции Даты рождения сотрудников

Const cFilter As String = "Дата_рождения >= '{0}' and Дата_рождения <= '{1}'"

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

СотрудникBindingSource.Filter = String.Format(cFilter, DateTimePicker1.Value, DateTimePicker2.Value)

End Sub

Private Sub ListBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

Button4.Enabled = True

End Sub

‘Код вызова отчета

Private Sub ЛичнаяКарточкаToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ЛичнаяКарточкаToolStripMenuItem.Click

Form5.Show()

End Sub

‘Код вызова отчета

Private Sub СтатистикаПерсоналаToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СтатистикаПерсоналаToolStripMenuItem.Click

Form6.Show()

End Sub

Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click

End Sub

End Class

‘Код формы 2

Public Class Form2

Private _p1 As Integer

‘Код функции Сохранить

Private Sub СотрудникBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles СотрудникBindingNavigatorSaveItem.Click

Me.Validate()

Me.СотрудникBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Оптика_Сервис_ПлюсDataSet)

End Sub

‘Код функции закрытия формы

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Close()

End Sub

‘Код функции Поиск

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

For i = 0 To СотрудникDataGridView.ColumnCount - 1

For j = 0 To СотрудникDataGridView.RowCount - 1

СотрудникDataGridView.Item(i, j).Style.BackColor = Color.White

СотрудникDataGridView.Item(i, j).Style.ForeColor = Color.Black

Next j

Next i

For i = 0 To СотрудникDataGridView.ColumnCount - 1

For j = 0 To СотрудникDataGridView.RowCount - 1

If InStr(СотрудникDataGridView.Item(i, j).Value, TextBox1.Text) Then

СотрудникDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue

СотрудникDataGridView.Item(i, j).Style.ForeColor = Color.Blue

End If

Next j

Next i

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

Button2.Enabled = True

End Sub

‘Код функции Сортировка

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim Col As System.Windows.Forms.DataGridViewColumn

Select Case ListBox1.SelectedIndex

Case 0

Col = DataGridViewTextBoxColumn2

Case 1

Col = DataGridViewTextBoxColumn3

Case 2

Col = DataGridViewTextBoxColumn4

Case 3

Col = DataGridViewTextBoxColumn5

Case 4

Col = DataGridViewTextBoxColumn6

Case 5

Col = DataGridViewTextBoxColumn7

Case 6

Col = DataGridViewTextBoxColumn8

End Select

If RadioButton1.Checked Then

СотрудникDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)

Else

СотрудникDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)

End If

End Sub

‘Код функции Фильтрация

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

СотрудникBindingSource.Filter = "семейное_положение= '" & ComboBox1.Text & " '"

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

Me.Validate()

Me.СотрудникBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Оптика_Сервис_ПлюсDataSet)

Refresh()

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

СотрудникBindingSource.AddNew()

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

СотрудникBindingSource.RemoveCurrent()

End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

Dim Col As System.Windows.Forms.DataGridViewColumn

Select Case ListBox3.SelectedIndex

Case 0

Col = DataGridViewTextBoxColumn25

Case 1

Col = DataGridViewTextBoxColumn15

Case 2

Col = DataGridViewTextBoxColumn16

Case 3

Col = DataGridViewTextBoxColumn17

Case 4

Col = DataGridViewTextBoxColumn18

Case 5

Col = DataGridViewTextBoxColumn19

End Select

If RadioButton5.Checked Then

Тип_образованияDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)

Else

Тип_образованияDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)

End If

End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

Dim Col As System.Windows.Forms.DataGridViewColumn

Select Case ListBox2.SelectedIndex

Case 0

Col = DataGridViewTextBoxColumn24

Case 1

Col = DataGridViewTextBoxColumn10

Case 2

Col = DataGridViewTextBoxColumn12

Case 3

Col = DataGridViewTextBoxColumn11

End Select

If RadioButton3.Checked Then

ПаспортDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)

Else

ПаспортDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)

End If

End Sub

Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged

Button9.Enabled = True

End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

ПаспортBindingSource.AddNew()

End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

ПаспортBindingSource.RemoveCurrent()

End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click

Me.Validate()

Me.ПаспортBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Оптика_Сервис_ПлюсDataSet)

End Sub

Private Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChanged

Button14.Enabled = True

End Sub

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click

Тип_образованияBindingSource.Filter = "Образование= '" & ComboBox2.Text & " '"

End Sub

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click

Тип_образованияBindingSource.AddNew()

End Sub

Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click

Тип_образованияBindingSource.RemoveCurrent()

End Sub

Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click

Me.Validate()

Me.Тип_образованияBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Оптика_Сервис_ПлюсDataSet)

End Sub

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click

Тип_образованияBindingSource.Filter = ""

End Sub

Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click

СотрудникBindingSource.Filter = ""

Refresh()

End Sub

Private Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChanged

Button22.Enabled = True

End Sub

Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click

Dim Col As System.Windows.Forms.DataGridViewColumn

Select Case ListBox4.SelectedIndex

Case 0

Col = DataGridViewTextBoxColumn27

Case 1

Col = DataGridViewTextBoxColumn21

Case 2

Col = DataGridViewTextBoxColumn22

Case 3

Col = DataGridViewTextBoxColumn23

Case 4

Col = DataGridViewTextBoxColumn26

End Select

If RadioButton7.Checked Then

КонтрактDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)

Else

КонтрактDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)

End If

End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

For i = 0 To Тип_образованияDataGridView.ColumnCount - 1

For j = 0 To Тип_образованияDataGridView.RowCount - 1

Тип_образованияDataGridView.Item(i, j).Style.BackColor = Color.White

Тип_образованияDataGridView.Item(i, j).Style.ForeColor = Color.Black

Next j

Next i

For i = 0 To Тип_образованияDataGridView.ColumnCount - 1

For j = 0 To Тип_образованияDataGridView.RowCount - 1

If InStr(Тип_образованияDataGridView.Item(i, j).Value, TextBox3.Text) Then

Тип_образованияDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue

Тип_образованияDataGridView.Item(i, j).Style.ForeColor = Color.Blue

End If

Next j

Next i

End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

For i = 0 To ПаспортDataGridView.ColumnCount - 1

For j = 0 To ПаспортDataGridView.RowCount - 1

ПаспортDataGridView.Item(i, j).Style.BackColor = Color.White

ПаспортDataGridView.Item(i, j).Style.ForeColor = Color.Black

Next j

Next i

For i = 0 To ПаспортDataGridView.ColumnCount - 1

For j = 0 To ПаспортDataGridView.RowCount - 1

If InStr(ПаспортDataGridView.Item(i, j).Value, TextBox2.Text) Then

ПаспортDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue

ПаспортDataGridView.Item(i, j).Style.ForeColor = Color.Blue

End If

Next j

Next i

End Sub

Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click

For i = 0 To КонтрактDataGridView.ColumnCount - 1

For j = 0 To КонтрактDataGridView.RowCount - 1

КонтрактDataGridView.Item(i, j).Style.BackColor = Color.White

КонтрактDataGridView.Item(i, j).Style.ForeColor = Color.Black

Next j

Next i

For i = 0 To КонтрактDataGridView.ColumnCount - 1

For j = 0 To КонтрактDataGridView.RowCount - 1

If InStr(КонтрактDataGridView.Item(i, j).Value, TextBox4.Text) Then

КонтрактDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue

КонтрактDataGridView.Item(i, j).Style.ForeColor = Color.Blue

End If

Next j

Next i

End Sub

Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click

КонтрактBindingSource.Filter = "Договор_подряда= '" & ComboBox3.Text & " '"

End Sub

Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click

КонтрактBindingSource.Filter = ""

End Sub

Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click

Me.Validate()

Me.КонтрактBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Оптика_Сервис_ПлюсDataSet)

End Sub

Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click

КонтрактBindingSource.RemoveCurrent()

End Sub

Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click

КонтрактBindingSource.AddNew()

End Sub

Private Function TimetableDBDataSet() As КурсачDataSet

Throw New NotImplementedException

End Function

Private Function DataGridViewTextBoxColumn() As DataGridViewColumn

Throw New NotImplementedException

End Function

Const cFilter As String = "по >= '{0}' and по <= '{1}'"

Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click

КонтрактBindingSource.Filter = String.Format(cFilter, DateTimePicker1.Value, DateTimePicker2.Value)

End Sub

Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click

КонтрактBindingSource.Filter = ""

End Sub

End Class

‘Код формы 3

Public Class Form3

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Close()

End Sub

‘Код функции авторизации

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Button1.Enabled = True

If TextBox1.Text = "12345" Then

Dim f As Form1 = New Form1

f.ShowDialog()

f.Dispose()

Me.Close()

Else : Label4.Text = "Неверный пароль или логин!"

End If

End Sub

End Class

‘Код формы 5 (Личная карточка)

Public Class Form5

‘Код вызова отчета

Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'Оптика_Сервис_ПлюсDataSet.сотрудник' table. You can move, or remove it, as needed.

Me.сотрудникTableAdapter.Fill(Me.Оптика_Сервис_ПлюсDataSet.сотрудник)

Me.ReportViewer1.RefreshReport()

End Sub

End Class

‘Код формы 5 (Статистика персонала)

Public Class Form6

‘Код вызова отчета

Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'КурсачDataSet.диаграмма2' table. You can move, or remove it, as needed.

Me.диаграмма2TableAdapter.Fill(Me.КурсачDataSet.диаграмма2)

'TODO: This line of code loads data into the 'Оптика_Сервис_ПлюсDataSet.диаграмма1' table. You can move, or remove it, as needed.

Me.диаграмма1TableAdapter.Fill(Me.Оптика_Сервис_ПлюсDataSet.диаграмма1)

Me.ReportViewer1.RefreshReport()

End Sub

End Class

‘Код на SQL

--Создания базы данных

create database Оптика_Сервис_Плюс

--Использования созданной базы

use Оптика_Сервис_Плюс

--Создания таблицы Тип_образования

create table Тип_образования (Код_типа_образования bigint not null primary key identity,

образование nchar(50) null,

Наименование_учреждения_образования nchar(50) null,

Наименование_специализации nchar(50) null,

Дата_выдачи_диплома date null,

Код_сотрудника bigint not null identity Foreign key references сотрудник(Код_сотрудника)

on delete cascade

on update cascade)

--Создания таблицы Паспорт

create table Паспорт (Код_паспорта bigint not null primary key identity,

Кем_выдан nchar(80) null,

Номер_паспорта nvarchar(30) null,

Дата_выдачи datetime null,

Код_сотрудника bigint not null identity Foreign key references сотрудник(Код_сотрудника)

on delete cascade

on update cascade)

--Создания таблицы Контракт

create table Контракт (Код_контракта bigint not null primary key identity,

ФИО char(50) not null,

С date null,

по date null,

Договор_подряда char(15) null,

Код_сотрудника bigint not null identity Foreign key references сотрудник(Код_сотрудника)

on delete cascade

on update cascade)

--Создания таблицы Сотрудник

create table сотрудник (Код_сотрудника bigint not null primary key identity,

ФИО nchar(50)not null,

Дата_рождения date null,

гражданство nchar(50) null,

Пол nchar(50) null,

Адрес nchar(50) null,

Должность nchar(100) null,

семейное_положение nchar(50) null)

--СОТРУДНИК

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Александрова Рита Александровна','09.04.1947','Республика Беларусь','ж','Минск ул.Проезд технический д 12 кв 62','Бухгалтер', 'не замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Байдах Сергей Анатольевич','11.11.1977','Республика Беларусь','м','Минск, ул Ааэзова, 9-48','Юрист консул','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Быченок Анатолий Иванович','03.07.1960','Республика Беларусь','м','Л.Карастаеновой 35-2','Инженер','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Василевский Михаил Анатольевич','08.02.1958','Республика Беларусь','м','Минск пр Независимости д 133 кв 338','Инженер','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес, Должность, семейное_положение)

values ('Глатонкова Светлана Валентиновна','20.03.1980','Республика Беларусь','ж','Минск ул.Скрипникова 19-143','Бухгалтер','замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Дорошко Геннадий Владимирович','28.03.1984','','м','Минск ул.Ангарская д26-1 кв 28','Инженер-электрик','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Евсейчик Екатерина Владимировна','25.05.1994','Республика Беларусь','ж','Минск ул.Уборевича д 68 кв 17','Бухгалтер','не замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Зубчеков Михаил Михайлович','07.10.1949','Российская Федерация','м','Минск ул.Карбышева 9-257','','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Клочко Дмитрий Михайлович','10.02.1988','Республика Беларусь','м','Минск пер.Клушова 19-28','Агент коммерческий','холост')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Лобейко Сергей Михайлович','05.02.1969','','м','Минск ','','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Лобов Дмитрий Леонидович','15.09.1980','Республика Беларусь','м','Минск, ул. Рафиева д 78, кв 649','Техник по ремонту','холост')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Неронова Елена Александровна','18.11.1969','Российская Федерация','ж','','','не замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Павловский Владимир Николаевич','18.08.1955','Республика Беларусь','м','Минск ул.','','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Парамонов Сергей Иванович','22.04.1968','Республика Беларусь','м','Минск Строителей','Начальник участка','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Платонов Александр Дмитриевич','23.08.1980','Республика Беларусь','ж','Минск, ул Лещинского д 33-1,кв 108','','замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Пронин Олег Анатольевич','18.07.1958','Российская Федерация','м','Барановичи, ул Прошинского д74 «В»','','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Русак Андрей Александрович','06.10.1983','Республика Беларусь','м','Минский р-н Ратомка, ул Заречная д 3','Инженер','холост')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Русецкий Андрей Валерьевич','11.03.1969','Республика Беларусь','м','Минск, ул Кольцова 32-49','Инженер по ремонту','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Синкевич Анатолий Павлович','14.05.1964','Республика Беларусь','м','Минск ул.Калиновского д 93 кв 90','Инженер по ремонту','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Столярова Наталья Ивановна','10.02.1988','Республика Беларусь','ж','Минск, ул.Сеннацкая д 51 кв 22','Главный бухгалтер','замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Титенкова Наталья Федоровна','08.01.1979','Республика Беларусь','ж','Минск ул.Мирошниченко д 10 кв 243','Делопроизводитель','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Трофимчик Игорь Арсеньевич','26.07.1959','Республика Беларусь','м','Минск ул Калиновского д 70 кв 65','Инженер','холост')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Шавлюкевич Мария Станиславовна','04.05.1966','Республика Польша','ж','Гродно, ул Гая д 29, кв 61','','замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Шанчук Галина Ивановна','22.02.1949','Республика Беларусь','ж','Минск пр Франциски Скорины 139-39','Директор','замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Шманай Владимир Владимирович','01.01.1950','Российская Федерация','м','Минск, ул Горбатого 26 ','','женат')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Гринцевич Светлана Яковлевна','21.08.1954','Руспублика Беларусь','ж','Минск, ул Пригородная 29-2','Менеджер по продажам','замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Шевцова Диана Игоревна','26.11.1990','Республика Беларусь','ж','Минск, ул Парникова 2-9 кв 69','','не замужем')

insert into сотрудник (ФИО, Дата_рождения, гражданство, Пол, Адрес,Должность, семейное_положение)

values ('Василевич Сергей Александрович','20.09.1955','','м','','','')

--ТИП_ОБРАЗОВАНИЯ

insert into Тип_образования ( ФИО,образование,Наименование_учреждения_образования, Наименование_специализации, Дата_выдачи_диплома, Код_образования )

values ('Александрова Рита Александровна','Средне специальное','Минский финансово экономический техникум','Бухгалтер - финансист','18.06.1978', 1)

values ('Байдах Сергей Анатольевич','Высшее','Академия МВД,Респуб училище олимп резерва ','Юрист консул','2008',2)

values ('Быченок Анатолий Иванович','Среднее','Минский электротехнический техникум связи','Инженер','23.06.1984',3)

values ('Василевский Михаил Анатольевич','Средне специальное','Минский политехникум','Техник-электрик','26.06.1983',4)

values ('Глатонкова Светлана Валентиновна','Высшее','Минский государственный торговый колледж, институт переподготовки ','бухгалтер','2000, 2010',5)

values ('Дорошко Геннадий Владимирович','Высшее','Минский радиотехнический институт','Радиоинженер','29.06.1984',6)

values ('Евсейчик Екатерина Владимировна','Средне спецальное','Колледж бизнеса и права','Бухгалтер','29.06.2012',7)

values ('Зубчеков Михаил Михайлович','Высшее','Ленинградский институт киноинженеров','Инженер - электрик','12.06.1972',8)

values ('Клочко Дмитрий Михайлович','Среднее','БГУИР (не оконченно), МЖКХ ГУЦ ','','07.02.2012',9)

values ('Лобейко Сергей Михайлович','Средне спецальное','Куйбышевский радиомеханический техникум','Техник-механник','30.06.1988',10)

values ('Лобов Дмитрий Леонидович','Средне техническое','Минский политехнический колледж','Техник по метрологии','2001',11)

values ('Неронова Елена Александровна','Средне спецальное','Минский финансовый колледж','бухгалтер','1996',12)

values ('Павловский Владимир Николаевич','Среднее','','','',13)

values ('Парамонов Сергей Иванович','Высшее','МВИЗРУ в ПВО','радиоинженер','23.06.1990',14)

values ('Платонов Александр Дмитриевич','Высшее','','Экономист-менеджер','18.02.2004',15)

values ('Пронин Олег Анатольевич','Средне специальное','Ярославское высшее зенитное, ракетно-командное училище противовоздушной обороны','Инженер по эксплуатации','13.06.1979',16)

values ('Русак Андрей Александрович','Высшее','Минский госуд политехнический колледж, БГУИР','Метрология стандартизация и сертификация','30.06.2005',17)

values ('Русецкий Андрей Валерьевич','Высшее','Минский Радиотехнический институт','Радиоинженер','1993',18)

values ('Синкевич Анатолий Павлович','Высшее','Минский радиотехнический институт ','инженер','26.06.1986',19)

values ('Столярова Наталья Ивановна','Средне специальное','Минский машиностроительный колледж','экономист','19.06.1999',20)

values ('Титенкова Наталья Федоровна','Высшее','Институт управления и предпринимательства, Минский политехникум','экономист','',21)

values ('Трофимчик Игорь Арсеньевич','Высшее','Минский радиотехнический институт','Инженер конструктор-технолог','1983',22)

values ('Шавлюкевич Мария Станиславовна','Высшее','СГПТУ-74','','1984',23)

values ('Шанчук Галина Ивановна','Высшее','БПИ','Инженер-электрик','1973',24)

values ('Шманай Владимир Владимирович','Среднее','','','',25)

values ('Гринцевич Светлана Яковлевна','Высшее','Белорусский государственный университет имени В.И.Ленина, Минское медицинское училище','биолог','17.06.1987',26)

values ('Шевцова Диана Игоревна','Средне специальное','Минский государственный торговый колледж','товаровед','2011',27)

values ('Василевич Сергей Александрович','Среднее','','','',28)

--ПАСПОРТ

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (1,'Александрова Рита Александровна','Заводским РОВД г Минска','МР0674914')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (2,'Байдах Сергей Анатольевич','Заводским РУВД г Минска','МР1508911')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (3,'Быченок Анатолий Иванович','Центральный РОВД Минска','МР2099449')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (4,'Василевский Михаил Анатольевич','Первомайским РУВД г Минска','МР1523095')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (5,'Глатонкова Светлана Валентиновна','Московским РУВД г Минска','МР1961172')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (6,'Дорошко Геннадий Владимирович','Заводское РУВД Минска','МР2147266')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (7,'Евсейчик Екатерина Владимировна','Заводским РУВД Минска','МР2586253')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (8,'Зубчеков Михаил Михайлович','Первомайским РУУС Минска','MP1492268')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (9,'Клочко Дмитрий Михайлович','Партизанским РУВД г.Минска','МР1788821')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (10,'Лобейко Сергей Михайлович','','')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (11,'Лобов Дмитрий Леонидович','Московским РОВД г.Минска','МР089065')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (12,'Неронова Елена Александровна','Минским РУВД мин обл','МС0436923')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (13,'Павловский Владимир Николаевич','Партизанским УВД Минска','MP0923526')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (14,'Парамонов Сергей Иванович','Минским РУУС, Минской области ','МС0748174')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (15,'Платонов Александр Дмитриевич','Первомайский РУВД г.Минска','МР2051575')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (16,'Пронин Олег Анатольевич','Барановическим ГОВД Бреской обл','АВ20264559')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (17,'Русак Андрей Александрович','Ивацевическим РОВД, Брестской обл','АВ0719121')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (18,'Русецкий Андрей Валерьевич','Советским РОВД г.Минска','MP1317322')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (19,'Синкевич Анатолий Павлович','Первомайским РОВД г.Минска','МР0367103')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (20,'Столярова Наталья Ивановна','Заводским РУВД г.Минска','МР1939568')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (21,'Титенкова Наталья Федоровна','МР1695440','Фрунзенским РУВД г.Минска')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (22,'Трофимчик Игорь Арсеньевич','МР1875786','Минск Первомайским РУУС')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (23,'Шавлюкевич Мария Станиславовна','КН1949254','Октябрьским РОВД г.Гродно')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (24,'Шанчук Галина Ивановна','МР1358645','Первомайское ОВД')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (25,'Шманай Владимир Владимирович','МР0099714','Первомайским РОВД, Минск')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (26,'Гринцевич Светлана Яковлевна','МР0573008','Центральный РОВД г Минска')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (27,'Шевцова Диана Игоревна','MP','Первомайское РУВД')

insert into Паспорт (Код_сотрудника,ФИО,Кем_выдан,Номер_паспорта)

values (28,'Василевич Сергей Александрович','','')

--КОНТРАКТ