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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
92
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Сотрудники". При необходимости она может быть перемещена или
удалена.
Me.СотрудникиTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Сотрудники)
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles
PictureBox1.Click
For i As Integer = 0 To СотрудникиBindingSource.Count - 1
СотрудникиBindingSource.Position = i
If Имя_пользователяTextBox.Text = Имя_пользователяTextBox1.Text And
ПарольTextBox.Text = ПарольTextBox1.Text Then
If Уровень_доступаTextBox.Text = "Оператор" Then
Form1.СотрудникиToolStripMenuItem.Enabled = False
Form1.ЗаявкиСобытияToolStripMenuItem.Enabled = False
Form1.МестоДислокацииToolStripMenuItem.Enabled = False
Form1.ПроектыToolStripMenuItem.Enabled = False
Form1.ОтчетыToolStripMenuItem.Enabled = False
Form12.Статус_посещенияComboBox.Enabled = False
End If
If Уровень_доступаTextBox.Text = "Специалист" Then
Form1.ФизическиеЛицаToolStripMenuItem.Enabled = False
Form1.ЮридическиеЛицаToolStripMenuItem.Enabled = False
Form1.СотрудникиToolStripMenuItem.Enabled = False
Form1.МестоДислокацииToolStripMenuItem.Enabled = False
End If
Уровень_доступаTextBox1.Text = Уровень_доступаTextBox.Text
Hide()
Form1.Visible = True
End If
Next
End Sub
End Class
Форма 14. О проекте
Public Class Form14
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles
PictureBox1.Click
Close()
End Sub
Private Sub Form14_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
Форма 15. История обслуживания клиента
Public Class Form15
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 Form15_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.База_посещений". При необходимости она может быть перемещена
или удалена.
Me.База_посещенийTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.База_посещений)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Физические_лица". При необходимости она может быть перемещена
или удалена.
Me.Физические_лицаTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Физические_лица)
Фамилия_заявителяTextBox.Text = ""
Имя_заявителяTextBox.Text = ""
Отчество_заявителяTextBox.Text = ""
93
Дата_рождения_заявителяDateTimePicker.Value = Date.Now.Date
End Sub
Private Sub Form15_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
Form2.Visible = True
Form2.TextBox1.Text = "15"
End Sub
Private Sub ПечатьToolStripButton1_Click(sender As Object, e As EventArgs) Handles
ПечатьToolStripButton1.Click
Dim oExcel As Object
'Dim oBook As Object
Dim oSheet As Object
Dim номер As Integer = 12
Dim ii As Integer = 0
'квитанция
oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.open(CurDir() + "\" + "Otchet1.xlsx")
'oBook = oExcel.Workbooks.add
oSheet = oExcel.Worksheets(1)
oSheet.Range("D8").Value = Date.Now.Date
oSheet.Range("D9").Value = Фамилия_заявителяTextBox.Text + " " +
Имя_заявителяTextBox.Text + " " + Отчество_заявителяTextBox.Text
For i As Integer = 0 To База_посещенийDataGridView.Rows.Count - 2
ii = i + 1
oSheet.Range("A" + номер.ToString).Value = ii
oSheet.Range("B" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(2).Value.ToString
oSheet.Range("C" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(3).Value.ToString
oSheet.Range("D" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(4).Value.ToString
oSheet.Range("E" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(5).Value.ToString
oSheet.Range("F" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(6).Value.ToString
номер = номер + 1
Next
oExcel.Visible = True
End Sub
End Class
Форма 16. Динамика обслуживания клиента
Public Class Form16
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 Form16_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.Сотрудники". При необходимости она может быть перемещена или
удалена.
Me.СотрудникиTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.Сотрудники)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.База_посещений". При необходимости она может быть перемещена
или удалена.
Me.База_посещенийTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.База_посещений)
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs)
Handles BindingNavigatorAddNewItem.Click
94
Form6.Visible = True
Form6.TextBox1.Text = "16"
End Sub
Private Sub Form16_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form1.Enabled = True
End Sub
Private Sub ПечатьToolStripButton_Click(sender As Object, e As EventArgs) Handles
ПечатьToolStripButton.Click
Dim oExcel As Object
'Dim oBook As Object
Dim oSheet As Object
Dim номер As Integer = 15
Dim ii As Integer = 0
'квитанция
oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.open(CurDir() + "\" + "Otchet2.xlsx")
'oBook = oExcel.Workbooks.add
oSheet = oExcel.Worksheets(1)
oSheet.Range("D9").Value = Date.Now.Date
oSheet.Range("D10").Value = ФИО_сотрудникаTextBox.Text
oSheet.Range("D11").Value = ОтделTextBox.Text
oSheet.Range("D12").Value = Место_дислокацииComboBox.Text
For i As Integer = 0 To База_посещенийDataGridView.Rows.Count - 2
ii = i + 1
oSheet.Range("A" + номер.ToString).Value = ii
oSheet.Range("B" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(1).Value.ToString
oSheet.Range("C" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(2).Value.ToString
oSheet.Range("D" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(3).Value.ToString + " " +
База_посещенийDataGridView.Rows(i).Cells(4).Value.ToString + " " +
База_посещенийDataGridView.Rows(i).Cells(5).Value.ToString
oSheet.Range("E" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(6).Value.ToString
oSheet.Range("F" + номер.ToString).Value =
База_посещенийDataGridView.Rows(i).Cells(7).Value.ToString
номер = номер + 1
Next
oExcel.Visible = True
End Sub
End Class
Форма 17. Анализ обработки посещений клиентов
Public Class Form17
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 База_посещенийBindingNavigatorSaveItem_Click_1(sender As Object, e As
EventArgs)
Me.Validate()
Me.База_посещенийBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
End Sub
Private Sub Form17_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.База_посещений". При необходимости она может быть перемещена
или удалена.
Me.База_посещенийTableAdapter.Fill(Me.Uchet_poseshaemostiDataSet.База_посещений)
Form9.Visible = True
For i As Integer = 0 To Form9.ЗаявкиDataGridView.Rows.Count - 2
95
DataGridView1.Rows.Add()
DataGridView1.Rows(DataGridView1.Rows.Count - 2).Cells(1).Value =
Form9.ЗаявкиDataGridView.Rows(i).Cells(1).Value
Next
Form9.Close()
Form10.Visible = True
For i As Integer = 0 To Form10.ПроектыDataGridView.Rows.Count - 2
DataGridView1.Rows.Add()
If Form10.ПроектыDataGridView.Rows(i).Cells(6).Value.ToString = "Открыт" Then
DataGridView1.Rows(DataGridView1.Rows.Count - 2).Cells(1).Value =
Form10.ПроектыDataGridView.Rows(i).Cells(2).Value
Next
Form10.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
DataGridView1.Rows.Clear()
Form9.Visible = True
For i As Integer = 0 To Form9.ЗаявкиDataGridView.Rows.Count - 2
DataGridView1.Rows.Add()
DataGridView1.Rows(DataGridView1.Rows.Count - 2).Cells(1).Value =
Form9.ЗаявкиDataGridView.Rows(i).Cells(1).Value
Next
Form9.Close()
Form10.Visible = True
For i As Integer = 0 To Form10.ПроектыDataGridView.Rows.Count - 2
DataGridView1.Rows.Add()
If Form10.ПроектыDataGridView.Rows(i).Cells(6).Value.ToString = "Открыт" Then
DataGridView1.Rows(DataGridView1.Rows.Count - 2).Cells(1).Value =
Form10.ПроектыDataGridView.Rows(i).Cells(2).Value
Next
Form10.Close()
Dim a As Integer = 0
For i As Integer = 0 To База_посещенийBindingSource.Count - 1
База_посещенийBindingSource.Position = i
For j As Integer = 0 To DataGridView1.Rows.Count - 2
If Наименование_заявкиComboBox.Text =
DataGridView1.Rows(j).Cells(1).Value And
Дата_заявкиDateTimePicker.Value.Date >=
DateTimePicker1.Value.Date And
Дата_заявкиDateTimePicker.Value.Date <=
DateTimePicker2.Value.Date Then
If Статус_посещенияComboBox.Text = "Открыта" Then
If DataGridView1.Rows(j).Cells(2).Value Is DBNull.Value Then
DataGridView1.Rows(j).Cells(2).Value = 0
a = DataGridView1.Rows(j).Cells(2).Value
a = a + 1
DataGridView1.Rows(j).Cells(2).Value = a
End If
If Статус_посещенияComboBox.Text = "Отказано" Then
If DataGridView1.Rows(j).Cells(3).Value Is DBNull.Value Then
DataGridView1.Rows(j).Cells(3).Value = 0
a = DataGridView1.Rows(j).Cells(3).Value
a = a + 1
DataGridView1.Rows(j).Cells(3).Value = a
End If
If Статус_посещенияComboBox.Text = "Согласовано" Then
If DataGridView1.Rows(j).Cells(4).Value Is DBNull.Value Then
DataGridView1.Rows(j).Cells(4).Value = 0
a = DataGridView1.Rows(j).Cells(4).Value
a = a + 1
DataGridView1.Rows(j).Cells(4).Value = a
End If
If Статус_посещенияComboBox.Text = "Закрыта" Then
96
If DataGridView1.Rows(j).Cells(5).Value Is DBNull.Value Then
DataGridView1.Rows(j).Cells(5).Value = 0
a = DataGridView1.Rows(j).Cells(5).Value
a = a + 1
DataGridView1.Rows(j).Cells(5).Value = a
End If
If Статус_посещенияComboBox.Text = "Ошибка/Отмена" Then
If DataGridView1.Rows(j).Cells(6).Value Is DBNull.Value Then
DataGridView1.Rows(j).Cells(6).Value = 0
a = DataGridView1.Rows(j).Cells(6).Value
a = a + 1
DataGridView1.Rows(j).Cells(6).Value = a
End If
If Статус_посещенияComboBox.Text = "Отложена" Then
If DataGridView1.Rows(j).Cells(7).Value Is DBNull.Value Then
DataGridView1.Rows(j).Cells(7).Value = 0
a = DataGridView1.Rows(j).Cells(7).Value
a = a + 1
DataGridView1.Rows(j).Cells(7).Value = a
End If
End If
Next
Next
End Sub
Private Sub Form17_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form1.Enabled = True
End Sub
Private Sub ПечатьToolStripButton_Click(sender As Object, e As EventArgs) Handles
ПечатьToolStripButton.Click
Dim oExcel As Object
'Dim oBook As Object
Dim oSheet As Object
Dim номер As Integer = 13
Dim номер2 As Integer = 0
Dim ii As Integer = 0
Dim formul As String = ""
'квитанция
oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.open(CurDir() + "\" + "Otchet3.xlsx")
'oBook = oExcel.Workbooks.add
oSheet = oExcel.Worksheets(1)
oSheet.Range("D8").Value = Date.Now.Date
oSheet.Range("D9").Value = DateTimePicker1.Value
oSheet.Range("G9").Value = DateTimePicker2.Value
For i As Integer = 0 To DataGridView1.Rows.Count - 2
ii = i + 1
oSheet.Range("A" + номер.ToString).Value = ii
oSheet.Range("B" + номер.ToString).Value =
DataGridView1.Rows(i).Cells(1).Value
oSheet.Range("D" + номер.ToString).Value =
DataGridView1.Rows(i).Cells(2).Value
oSheet.Range("E" + номер.ToString).Value =
DataGridView1.Rows(i).Cells(3).Value
oSheet.Range("F" + номер.ToString).Value =
DataGridView1.Rows(i).Cells(4).Value
oSheet.Range("G" + номер.ToString).Value =
DataGridView1.Rows(i).Cells(5).Value
oSheet.Range("H" + номер.ToString).Value =
DataGridView1.Rows(i).Cells(6).Value
oSheet.Range("I" + номер.ToString).Value =
DataGridView1.Rows(i).Cells(7).Value
номер = номер + 1
Источник: https://baza.diplomsite.ru/previewfile/2409

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

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