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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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)
Источник: https://baza.diplomsite.ru/previewfile/2409

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

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