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

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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
97
Next
номер = номер + 1
oSheet.Range("B" + номер.ToString).Value = "ИТОГО:"
oSheet.Range("B" + номер.ToString).Font.Bold = True
oSheet.Range("B" + номер.ToString).Font.Italic = True
номер2 = номер - 1
oSheet.Range("D" + номер.ToString).Formula = "=SUM(D" + номер2.ToString + ":D13)"
oSheet.Range("E" + номер.ToString).Formula = "=SUM(E" + номер2.ToString + ":E13)"
oSheet.Range("F" + номер.ToString).Formula = "=SUM(F" + номер2.ToString + ":F13)"
oSheet.Range("G" + номер.ToString).Formula = "=SUM(G" + номер2.ToString + ":G13)"
oSheet.Range("H" + номер.ToString).Formula = "=SUM(H" + номер2.ToString + ":H13)"
oSheet.Range("I" + номер.ToString).Formula = "=SUM(I" + номер2.ToString + ":I13)"
'рисуем диаграмму
oSheet.Range("D" + номер.ToString + ":" + "I" + номер.ToString).select
oSheet.Shapes.AddChart.select
oSheet.Shapes("Диаграмма 2").Left = 0
oSheet.Shapes("Диаграмма 2").Top = 160
oSheet.Shapes("Диаграмма 2").Width = 495
oSheet.Shapes("Диаграмма 2").Height = 205
With oSheet.Application.ActiveChart
.SeriesCollection(1).XValues = "=Лист1!$D$12:$I$12"
'.ChartStyle = 261
.ChartType = 5
.ApplyLayout(6)
.ChartTitle.Text = "Анализ обработки заявок"
End With
oSheet.Range("A1").Select
oExcel.Visible = True
End Sub
End Class
Форма 18. Установка фильтра
Public Class Form18
Private Sub База_посещенийBindingNavigatorSaveItem_Click(sender As Object, e As
EventArgs)
End Sub
Private Sub Form18_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.База_посещений". При необходимости она может быть перемещена
или удалена.
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles
ToolStripButton1.Click
If CheckBox1.Checked = True Then
Form1.База_посещенийBindingSource.Filter = "Дата_заявки >= '" +
Дата_заявкиDateTimePicker.Text + "'" + " AND Дата_заявки <= '" + DateTimePicker1.Text +
"'" + " and Фамилия_заявителя like '" + Фамилия_заявителяTextBox.Text + "%" + "' And
Имя_заявителя LIKE '" + Имя_заявителяTextBox.Text + "%" + "' And Отчество_заявителя LIKE
'" + Отчество_заявителяTextBox.Text + "%" + "' And Статус_посещения LIKE '" +
Статус_посещенияComboBox.Text + "%" + "' And Номер_заявки LIKE '" +
Номер_заявкиTextBox.Text + "%'"
Else
Form1.База_посещенийBindingSource.Filter = "Фамилия_заявителя like '" +
Фамилия_заявителяTextBox.Text + "%" + "' And Имя_заявителя LIKE '" +
Имя_заявителяTextBox.Text + "%" + "' And Отчество_заявителя LIKE '" +
Отчество_заявителяTextBox.Text + "%" + "' And Статус_посещения LIKE '" +
Статус_посещенияComboBox.Text + "%" + "' And Номер_заявки LIKE '" +
Номер_заявкиTextBox.Text + "%'"
End If
Form1.Enabled = True
Form1.ToolStripButton1.Image = My.Resources.filter__1_
Hide()
Form1.Activate()
End Sub
98
Private Sub Form18_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Form1.Enabled = True
Form1.ToolStripButton1.Image = My.Resources.filter
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles
ToolStripButton2.Click
Form1.База_посещенийBindingSource.Filter = vbNullString
Close()
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles
CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Дата_заявкиDateTimePicker.Enabled = True
DateTimePicker1.Enabled = True
Else
Дата_заявкиDateTimePicker.Enabled = False
DateTimePicker1.Enabled = False
End If
End Sub
End Class
Настройка подключения к БД
<connectionStrings>
<add name="Uchet_poseshaemosti.My.MySettings.Uchet_poseshaemostiConnectionString"
connectionString="Data Source=192.168.3.5\SQLEXPRESS;Initial
Catalog=Uchet_poseshaemosti;Persist Security Info=True;User ID=sa;Password=cerebro20"
providerName="System.Data.SqlClient" />
connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
startup>
</configuration>

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)