82
Form12.База_посещенийBindingSource.AddNew()
Form12.Номер_заявкиTextBox.Text = База_посещенийDataGridView.Rows.Count
Form9.Visible = True
For i As Integer = 0 To Form9.ЗаявкиDataGridView.Rows.Count - 2
Form12.Наименование_заявкиComboBox.Items.Add(Form9.ЗаявкиDataGridView.Rows(i).Cells(1).Va
lue)
Next
Form9.Close()
Form10.Visible = True
For i As Integer = 0 To Form10.ПроектыDataGridView.Rows.Count - 2
If Form10.ПроектыDataGridView.Rows(i).Cells(6).Value.ToString = "Открыт" Then
Form12.Наименование_заявкиComboBox.Items.Add(Form10.ПроектыDataGridView.Rows(i).Cells(2).
Value)
Next
Form10.Close()
Form12.Статус_посещенияComboBox.Text = "Открыта"
If Form13.Уровень_доступаTextBox.Text = "Оператор" Then
Form12.Статус_посещенияComboBox.Enabled = False
End Sub
Private Sub База_посещенийDataGridView_DoubleClick(sender As Object, e As EventArgs)
Handles База_посещенийDataGridView.DoubleClick
Form12.Visible = True
Enabled = False
If Form13.Уровень_доступаTextBox.Text = "Оператор" Then
Form12.Статус_посещенияComboBox.Enabled = False
Form9.Visible = True
For i As Integer = 0 To Form9.ЗаявкиDataGridView.Rows.Count - 2
Form12.Наименование_заявкиComboBox.Items.Add(Form9.ЗаявкиDataGridView.Rows(i).Cells(1).Va
lue)
Next
Form9.Close()
Form10.Visible = True
For i As Integer = 0 To Form10.ПроектыDataGridView.Rows.Count - 2
If Form10.ПроектыDataGridView.Rows(i).Cells(6).Value.ToString = "Открыт" Then
Form12.Наименование_заявкиComboBox.Items.Add(Form10.ПроектыDataGridView.Rows(i).Cells(2).
Value)
Next
Form10.Close()
For i As Integer = 0 To Form12.База_посещенийBindingSource.Count - 1
Form12.База_посещенийBindingSource.Position = i
If Form12.IDTextBox.Text =
База_посещенийDataGridView.CurrentRow.Cells(0).Value.ToString Then
Enabled = False
Exit Sub
End If
Next
Form12.Close()
End Sub
Private Sub ВыходToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
ВыходToolStripMenuItem.Click
End
End Sub
Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form13.Close()
End Sub
Private Sub База_посещенийDataGridView_CellContentClick(sender As Object, e As
DataGridViewCellEventArgs) Handles База_посещенийDataGridView.CellContentClick
End Sub
Private Sub ОПроектеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
ОПроектеToolStripMenuItem.Click
83
Form14.Visible = True
End Sub
Private Sub Отчет1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
Отчет1ToolStripMenuItem.Click
Form15.Visible = True
Enabled = False
End Sub
Private Sub Отчет2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
Отчет2ToolStripMenuItem.Click
Form16.Visible = True
Enabled = False
End Sub
Private Sub Отчет3ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
Отчет3ToolStripMenuItem.Click
Form17.Visible = True
Enabled = False
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles
ToolStripButton1.Click
Enabled = False
Form18.Visible = True
End Sub
End Class
Форма 2.Физические лица
Public Class Form2
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 Form2_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
Form3.Visible = True
Form3.Физические_лицаBindingSource.AddNew()
Dim a As Integer = Физические_лицаDataGridView.RowCount - 1
Form3.Номер_по_порядкуTextBox.Text = a
Enabled = False
End Sub
Private Sub Form2_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form1.Enabled = True
If TextBox1.Text = "12" Then Form12.Enabled = True
End Sub
Private Sub Физические_лицаDataGridView_DoubleClick(sender As Object, e As EventArgs)
Handles Физические_лицаDataGridView.DoubleClick
If TextBox1.Text = "" Then
Form3.Visible = True
For i As Integer = 0 To Form3.Физические_лицаBindingSource.Count - 1
Form3.IDTextBox.Visible = True
Form3.Физические_лицаBindingSource.Position = i
If Form3.IDTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(0).Value Then
Enabled = False
Form3.IDTextBox.Visible = False
Exit Sub
End If
84
Next
Form3.IDTextBox.Visible = False
Form3.Visible = False
End If
If TextBox1.Text = "12" Then
Form12.Снилс_заявителяTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(13).Value.ToString
Form12.Фамилия_заявителяTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(2).Value.ToString
Form12.Имя_заявителяTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(3).Value.ToString
Form12.Отчество_заявителяTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(4).Value.ToString
Form12.ID_заявителяTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(0).Value.ToString
If Физические_лицаDataGridView.CurrentRow.Cells(5).Value Is DBNull.Value Then
Form12.Дата_рождения_заявителяDateTimePicker.Value = Date.Now.Date Else
Form12.Дата_рождения_заявителяDateTimePicker.Value =
Физические_лицаDataGridView.CurrentRow.Cells(5).Value.ToString
Close()
End If
If TextBox1.Text = "15" Then
Form15.Фамилия_заявителяTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(2).Value.ToString
Form15.Имя_заявителяTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(3).Value.ToString
Form15.Отчество_заявителяTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(4).Value.ToString
Form15.IDTextBox.Text =
Физические_лицаDataGridView.CurrentRow.Cells(0).Value.ToString
If Физические_лицаDataGridView.CurrentRow.Cells(5).Value Is DBNull.Value Then
Form15.Дата_рождения_заявителяDateTimePicker.Value = Date.Now.Date Else
Form15.Дата_рождения_заявителяDateTimePicker.Value =
Физические_лицаDataGridView.CurrentRow.Cells(5).Value.ToString
Form15.База_посещенийBindingSource.Filter = "ID_заявителя ='" +
Form15.IDTextBox.Text + "'"
Close()
End If
End Sub
Private Sub Физические_лицаDataGridView_CellContentClick(sender As Object, e As
DataGridViewCellEventArgs) Handles Физические_лицаDataGridView.CellContentClick
End Sub
End Class
Форма 3. Карточка физического лица
Public Class Form3
Private Sub Физические_лицаBindingNavigatorSaveItem_Click(sender As Object, e As
EventArgs) Handles Физические_лицаBindingNavigatorSaveItem.Click
Me.Validate()
Me.Физические_лицаBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
Form2.Физические_лицаTableAdapter.Fill(Form2.Uchet_poseshaemostiDataSet.Физические_лица)
Close()
End Sub
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Физические_лица". При необходимости она может быть перемещена
или удалена.
Me.Физические_лицаTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Физические_лица)
End Sub
Private Sub Form3_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form2.Enabled = True
85
End Sub
End Class
Public Class Form4
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
Форма 4. Юридические лица
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Юридические_лица". При необходимости она может быть
перемещена или удалена.
Me.Юридические_лицаTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Юридические_лица)
End Sub
Private Sub Form4_LocationChanged(sender As Object, e As EventArgs) Handles
Me.LocationChanged
End Sub
Private Sub Form4_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form1.Enabled = True
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs)
Handles BindingNavigatorAddNewItem.Click
Form5.Visible = True
Enabled = False
Form5.Юридические_лицаBindingSource.AddNew()
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
Form5.Visible = True
For i As Integer = 0 To Form5.Юридические_лицаBindingSource.Count - 1
Form5.IDTextBox.Visible = True
Form5.Юридические_лицаBindingSource.Position = i
If Form5.IDTextBox.Text =
Юридические_лицаDataGridView.CurrentRow.Cells(0).Value Then
Enabled = False
Form5.IDTextBox.Visible = False
Exit Sub
End If
Next
Form5.IDTextBox.Visible = False
Form5.Visible = False
End Sub
End Class
Форма 5. Карточка юридического лица
Public Class Form5
Private Sub Юридические_лицаBindingNavigatorSaveItem_Click(sender As Object, e As
EventArgs) Handles Юридические_лицаBindingNavigatorSaveItem.Click
Me.Validate()
Me.Юридические_лицаBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
Form4.Юридические_лицаTableAdapter.Fill(Form4.Uchet_poseshaemostiDataSet.Юридические_лица
)
Close()
86
End Sub
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Юридические_лица". При необходимости она может быть
перемещена или удалена.
Me.Юридические_лицаTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Юридические_лица)
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 Почтовый_адрес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)
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