3.4 Функции и элементы управления

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

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

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

Для выполнения вышеперечисленных функций необходимо запустить на персональном компьютере (ПК) программное средство. Программное средство отобразит форму авторизации графического интерфейса. На главной странице будет доступ ко всем функциям.

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

Рассмотрим основные функции проекта.

Функция «Добавить нового сотрудника» для последующего добавления данных нового сотрудника обрабатывается событием Click(), закрепленным за элементом управления Button1 «Добавить запись». Данный компонент расположен на форме «Учет пользователей - Сотрудники». Код функции представлен ниже.

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

sotrydnikiBindingSource.AddNew()

End Sub

Функция «Удалить запись» для последующего удаления данных сотрудника обрабатывается событием Click(), закрепленным за элементом управления Button2 «Удалить запись». Данный компонент расположен на форме «Учет пользователей - Сотрудники». Код функции представлен ниже.

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

Try

Me.Validate()

sotrydnikiBindingSource.RemoveCurrent()

Me.TableAdapterManager.UpdateAll(Me.ZoomDataSet)

MsgBox("Данные успешно удалены!")

Catch ex As Exception

MsgBox("Ошибка!")

End Try

End Sub

Функция «Поиск» для последующего поиска сотрудника обрабатывается событием TextChanged(), закрепленным за элементом управления TextBox1 «Поиск». Данный компонент расположен на форме «Учет пользователей - Сотрудники». Код функции представлен ниже.

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

If ComboBox5.SelectedIndex = 0 Then

sotrydnikiBindingSource.Filter = "Фамилия Like'" + TextBox1.Text + "*'"

End If

If ComboBox5.SelectedIndex = 1 Then

sotrydnikiBindingSource.Filter = "Должность Like'" + TextBox1.Text + "*'"

End If

If ComboBox5.SelectedIndex = 2 Then

sotrydnikiBindingSource.Filter = "Отдел Like'" + TextBox1.Text + "*'"

End If

End Sub

Для формирования карточки сотрудника, необходимо на форме «Учет пользователей – Сотрудники» нажать на кнопку «Экспорт сотрудника», предварительно выбрал сотрудника в таблице.

Функция «экспорт сотрудника» для последующего формирования карточки сотрудника обрабатывается событием Click(), закрепленным за элементом управления Button5 «экспорт сотрудника». Код функции представлен ниже.

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

IO.File.WriteAllBytes(Ex.Application.StartupPath & "\exp.xlsx", My.Resources.exp)

'Открыть новую книгу Excel

oExcel = CreateObject("Excel.Application")

oBook = oExcel.Workbooks.Open(Ex.Application.StartupPath & "\exp.xlsx")

'Добавить данные в ячейки первого листа новой книги

oSheet = oBook.Worksheets(1)

oSheet.Range("E4").Value = Now.ToString("dd.MM.yyyy")

oSheet.Range("E8").Value = SotrydnikiDataGridView.CurrentRow.Cells(1).Value

oSheet.Range("E9").Value = SotrydnikiDataGridView.CurrentRow.Cells(2).Value

oSheet.Range("E10").Value = SotrydnikiDataGridView.CurrentRow.Cells(3).Value

oSheet.Range("E11").Value = SotrydnikiDataGridView.CurrentRow.Cells(4).Value

oSheet.Range("E12").Value = SotrydnikiDataGridView.CurrentRow.Cells(5).Value

oSheet.Range("E13").Value = SotrydnikiDataGridView.CurrentRow.Cells(6).Value

oSheet.Range("E14").Value = SotrydnikiDataGridView.CurrentRow.Cells(7).Value

oSheet.Range("E15").Value = SotrydnikiDataGridView.CurrentRow.Cells(8).Value

oSheet.Range("E16").Value = SotrydnikiDataGridView.CurrentRow.Cells(9).Value

oSheet.Range("E17").Value = SotrydnikiDataGridView.CurrentRow.Cells(10).Value

oBook.SaveAs(Ex.Application.StartupPath & SotrydnikiDataGridView.CurrentRow.Cells(0).Value & ".xlsx")

oExcel.Quit()

Process.Start(Ex.Application.StartupPath & SotrydnikiDataGridView.CurrentRow.Cells(0).Value & ".xlsx")

End Sub

Полный код программы находится в приложении А.