Дипломная работа: Автоматизация учета посещений клиентов в "Фонд социального страхования Российской Федерации"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
87
End Sub
Private Sub Корреспондентский_счетTextBox_TextChanged(sender As Object, e As
EventArgs) Handles Корреспондентский_счетTextBox.TextChanged
End Sub
Private Sub БИКLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub БИКTextBox_TextChanged(sender As Object, e As EventArgs) Handles
БИКTextBox.TextChanged
End Sub
Private Sub ОКПОLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub ОКПОTextBox_TextChanged(sender As Object, e As EventArgs) Handles
ОКПОTextBox.TextChanged
End Sub
Private Sub ОКАТОLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub ОКАТОTextBox_TextChanged(sender As Object, e As EventArgs) Handles
ОКАТОTextBox.TextChanged
End Sub
Private Sub ОКВЭДLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub ОКВЭДTextBox_TextChanged(sender As Object, e As EventArgs) Handles
ОКВЭДTextBox.TextChanged
End Sub
Private Sub ОКТМОLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub ОКТМОTextBox_TextChanged(sender As Object, e As EventArgs) Handles
ОКТМОTextBox.TextChanged
End Sub
Private Sub ОКОГУLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub ОКОГУTextBox_TextChanged(sender As Object, e As EventArgs) Handles
ОКОГУTextBox.TextChanged
End Sub
Private Sub ОКФСLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub ОКФСTextBox_TextChanged(sender As Object, e As EventArgs) Handles
ОКФСTextBox.TextChanged
End Sub
Private Sub Полное_наименование_организацииLabel_Click(sender As Object, e As
EventArgs)
End Sub
Private Sub ОКОПФLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub ОКОПФTextBox_TextChanged(sender As Object, e As EventArgs) Handles
ОКОПФTextBox.TextChanged
End Sub
Private Sub Электронный_адресLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Электронный_адресTextBox_TextChanged(sender As Object, e As EventArgs)
Handles Электронный_адресTextBox.TextChanged
End Sub
Private Sub Контактный_телефонLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Контактный_телефонTextBox_TextChanged(sender As Object, e As EventArgs)
Handles Контактный_телефонTextBox.TextChanged
End Sub
Private Sub ФИО_руководителяLabel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub ФИО_руководителяTextBox_TextChanged(sender As Object, e As EventArgs)
Handles ФИО_руководителяTextBox.TextChanged
End Sub
Private Sub Form5_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form4.Enabled = True
88
End Sub
End Class
Форма 6. Сотрудники
Public Class Form6
Private Sub СотрудникиBindingNavigatorSaveItem_Click(sender As Object, e As
EventArgs) Handles СотрудникиBindingNavigatorSaveItem.Click
Me.Validate()
Me.СотрудникиBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
End Sub
Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Сотрудники". При необходимости она может быть перемещена или
удалена.
Me.СотрудникиTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Сотрудники)
End Sub
Private Sub Form6_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
If TextBox1.Text = "" Then Form1.Enabled = True
If TextBox1.Text = "12" Then Form12.Enabled = True
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs)
Handles BindingNavigatorAddNewItem.Click
Enabled = False
Form8.Visible = True
Form8.СотрудникиBindingSource.AddNew()
Form8.Номер_по_порядкуTextBox.Text = СотрудникиDataGridView.Rows.Count
Form8.Место_дислокацииComboBox.Items.Clear()
Form7.Visible = True
For i As Integer = 0 To Form7.Место_дислокацииDataGridView.Rows.Count - 2
Form8.Место_дислокацииComboBox.Items.Add(Form7.Место_дислокацииDataGridView.Rows(i).Cells
(2).Value)
Next
Form7.Close()
End Sub
Private Sub СотрудникиDataGridView_DoubleClick(sender As Object, e As EventArgs)
Handles СотрудникиDataGridView.DoubleClick
If TextBox1.Text = "" Then
Enabled = False
Form8.Visible = True
Form8.Место_дислокацииComboBox.Items.Clear()
Form7.Visible = True
For i As Integer = 0 To Form7.Место_дислокацииDataGridView.Rows.Count - 2
Form8.Место_дислокацииComboBox.Items.Add(Form7.Место_дислокацииDataGridView.Rows(i).Cells
(2).Value)
Next
Form7.Close()
Form8.IDTextBox.Visible = True
For i As Integer = 0 To Form8.СотрудникиBindingSource.Count - 1
Form8.СотрудникиBindingSource.Position = i
If СотрудникиDataGridView.CurrentRow.Cells(0).Value =
Form8.IDTextBox.Text Then
Form8.IDTextBox.Visible = False
Exit Sub
End If
Next
Form8.Close()
Form8.IDTextBox.Visible = False
End If
If TextBox1.Text = "12" Then
Form12.ФИО_исполнителяTextBox.Text =
СотрудникиDataGridView.CurrentRow.Cells(2).Value
89
Form12.Отдел_исполнителяTextBox.Text =
СотрудникиDataGridView.CurrentRow.Cells(4).Value
Form12.Место_дислокации_исполнителяTextBox.Text =
СотрудникиDataGridView.CurrentRow.Cells(5).Value
Close()
End If
If TextBox1.Text = "16" Then
Form16.ФИО_сотрудникаTextBox.Text =
СотрудникиDataGridView.CurrentRow.Cells(2).Value
Form16.ОтделTextBox.Text = СотрудникиDataGridView.CurrentRow.Cells(4).Value
Form16.Место_дислокацииComboBox.Text =
СотрудникиDataGridView.CurrentRow.Cells(5).Value
Form16.База_посещенийBindingSource.Filter = "ФИО_исполнителя ='" +
Form16.ФИО_сотрудникаTextBox.Text + "'"
Close()
End If
End Sub
Private Sub СотрудникиDataGridView_CellContentClick(sender As Object, e As
DataGridViewCellEventArgs) Handles СотрудникиDataGridView.CellContentClick
End Sub
End Class
Форма 7. Справочник мест дислокации
Public Class Form7
Private Sub Место_дислокацииBindingNavigatorSaveItem_Click(sender As Object, e As
EventArgs) Handles Место_дислокацииBindingNavigatorSaveItem.Click
Me.Validate()
Me.Место_дислокацииBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
End Sub
Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Место_дислокации". При необходимости она может быть
перемещена или удалена.
Me.Место_дислокацииTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Место_дислокации)
End Sub
Private Sub Form7_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form1.Enabled = True
End Sub
End Class
Форма 8. Карточка сотрудника
Public Class Form8
Private Sub СотрудникиBindingNavigatorSaveItem_Click(sender As Object, e As
EventArgs) Handles СотрудникиBindingNavigatorSaveItem.Click
Me.Validate()
Me.СотрудникиBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
Form6.СотрудникиTableAdapter.Fill(Form6.Uchet_poseshaemostiDataSet.Сотрудники)
Close()
End Sub
Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Сотрудники". При необходимости она может быть перемещена или
удалена.
Me.СотрудникиTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Сотрудники)
End Sub
Private Sub Form8_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form6.Enabled = True
End Sub
End Class
Форма 9. Заявки/События
90
Public Class Form9
Private Sub ЗаявкиBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Handles ЗаявкиBindingNavigatorSaveItem.Click
Me.Validate()
Me.ЗаявкиBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
End Sub
Private Sub Form9_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Заявки". При необходимости она может быть перемещена или
удалена.
Me.ЗаявкиTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Заявки)
End Sub
Private Sub Form9_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form1.Enabled = True
End Sub
End Class
Форма 10. Проекты
Public Class Form10
Private Sub ПроектыBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Handles ПроектыBindingNavigatorSaveItem.Click
Me.Validate()
Me.ПроектыBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
End Sub
Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Проекты". При необходимости она может быть перемещена или
удалена.
Me.ПроектыTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Проекты)
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs)
Handles BindingNavigatorAddNewItem.Click
Form11.Visible = True
Form11.ПроектыBindingSource.AddNew()
Form11.Статус_проектаComboBox.Text = "Открыт"
Form11.Порядковый_номерTextBox.Text = ПроектыDataGridView.Rows.Count
Enabled = False
End Sub
Private Sub Form10_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form1.Enabled = True
End Sub
Private Sub ПроектыDataGridView_CellContentClick(sender As Object, e As
DataGridViewCellEventArgs) Handles ПроектыDataGridView.CellContentClick
End Sub
Private Sub ПроектыDataGridView_DoubleClick(sender As Object, e As EventArgs) Handles
ПроектыDataGridView.DoubleClick
Form11.Visible = True
For i As Integer = 0 To Form11.ПроектыBindingSource.Count - 1
Form11.ПроектыBindingSource.Position = i
If ПроектыDataGridView.CurrentRow.Cells(0).Value = Form11.IDTextBox.Text Then
Enabled = False
Exit Sub
End If
Next
Form11.Close()
End Sub
End Class
Форма 11. Карточка проекта
Public Class Form11
Private Sub ПроектыBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Handles ПроектыBindingNavigatorSaveItem.Click
Me.Validate()
91
Me.ПроектыBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
Form10.ПроектыTableAdapter.Fill(Form10.Uchet_poseshaemostiDataSet.Проекты)
Close()
End Sub
Private Sub Form11_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Проекты". При необходимости она может быть перемещена или
удалена.
Me.ПроектыTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Проекты)
End Sub
Private Sub Form11_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form10.Enabled = True
End Sub
End Class
Форма 12. Карточка обращения
Public Class Form12
Private Sub База_посещенийBindingNavigatorSaveItem_Click(sender As Object, e As
EventArgs) Handles База_посещенийBindingNavigatorSaveItem.Click
Me.Validate()
Me.База_посещенийBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
Form1.База_посещенийTableAdapter.Fill(Form1.Uchet_poseshaemostiDataSet.База_посещений)
Close()
End Sub
Private Sub Form12_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.База_посещений". При необходимости она может быть перемещена
или удалена.
Me.База_посещенийTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.База_посещений)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form2.Visible = True
Form2.TextBox1.Text = "12"
Enabled = False
End Sub
Private Sub Form12_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form1.Enabled = True
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form6.Visible = True
Form6.TextBox1.Text = "12"
Enabled = False
End Sub
Private Sub Form12_VisibleChanged(sender As Object, e As EventArgs) Handles
Me.VisibleChanged
If Form13.Уровень_доступаTextBox1.Text = "Оператор" Then
Статус_посещенияComboBox.Enabled = False
End Sub
End Class
Форма 13. Авторизация
Public Class Form13
Private Sub СотрудникиBindingNavigatorSaveItem_Click(sender As Object, e As
EventArgs)
Me.Validate()
Me.СотрудникиBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
End Sub
Private Sub Form13_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Источник: https://baza.diplomsite.ru/previewfile/2409

Смотрите также:

«Характеристика объектов коммерческой деятельности в торговле»
1253
1846
2448
2448
25.05.20 г. Расчёт срока окупаемости
3_Pravookhranitelnye_organy_otveta_na_65_vopro
3244
3631
383