Дипломная работа: Автоматизация учета посещений клиентов в "Фонд социального страхования Российской Федерации"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
77
Юридический_адрес
String
No
No
Почтовый_адрес
String
No
No
Расчетный_счет
String
No
No
Наименование_банка
String
No
No
Корреспондентский_счет
String
No
No
БИК
String
No
No
ОКПО
String
No
No
ОКАТО
String
No
No
ОКВЭД
String
No
No
ОКТМО
String
No
No
ОКОГУ
String
No
No
ОКФС
String
No
No
ОКОПФ
String
No
No
Электронный_адрес
String
No
No
Контактный_телефон
String
No
No
ФИО_руководителя
String
No
No
Место
дислокации
ID
AutoNumber
Yes
No
Номер_по_порядку
AutoNumber
No
No
Место_дислокации
String
No
No
Пол
ID
AutoNumber
Yes
No
жен.
String
No
No
муж.
String
No
No
Статус
ID
AutoNumber
Yes
No
Открыта
String
No
No
Закрыта
String
No
No
Отложено
String
No
No
Отказано
String
No
No
Согласовано
String
No
No
Ошибка
String
No
No
Уровень доступа
ID
AutoNumber
Yes
No
Оператор
String
No
No
Специалист
String
No
No
Администратор
String
No
No
Статус проекта
ID
AutoNumber
Yes
No
Открыт
String
No
No
Закрыт
String
No
No
78
Приложение 2
Экранные формы вывода выходной информации
Рисунок 1. Отчет «История обслуживания клиента»
79
Рисунок 2. Отчет «Динамика обслуживания клиентов (по отделам)»
80
Рисунок 3. Отчет «Анализ обработки заявок»
81
Приложение 3
Программный код
Форма 1. Учет посещаемости клиентов
Public Class Form1
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 Form1_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 База_посещенийBindingNavigatorSaveItem_Click_1(sender As Object, e As
EventArgs) Handles База_посещенийBindingNavigatorSaveItem.Click
Me.Validate()
Me.База_посещенийBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Uchet_poseshaemostiDataSet)
End Sub
Private Sub ФизическиеЛицаToolStripMenuItem_Click(sender As Object, e As EventArgs)
Handles ФизическиеЛицаToolStripMenuItem.Click
Form2.Visible = True
Enabled = False
End Sub
Private Sub ЮридическиеЛицаToolStripMenuItem_Click(sender As Object, e As EventArgs)
Handles ЮридическиеЛицаToolStripMenuItem.Click
Form4.Visible = True
Enabled = False
End Sub
Private Sub СотрудникиToolStripMenuItem_Click(sender As Object, e As EventArgs)
Handles СотрудникиToolStripMenuItem.Click
Form6.Visible = True
Enabled = False
End Sub
Private Sub МестоДислокацииToolStripMenuItem_Click(sender As Object, e As EventArgs)
Handles МестоДислокацииToolStripMenuItem.Click
Form7.Visible = True
Enabled = False
End Sub
Private Sub ЗаявкиСобытияToolStripMenuItem_Click(sender As Object, e As EventArgs)
Handles ЗаявкиСобытияToolStripMenuItem.Click
Form9.Visible = True
Enabled = False
End Sub
Private Sub ПроектыToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
ПроектыToolStripMenuItem.Click
Form10.Visible = True
Enabled = False
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs)
Handles BindingNavigatorAddNewItem.Click
Form12.Visible = True
Enabled = False
Источник: https://baza.diplomsite.ru/previewfile/2409