Главная » Просмотр файлов » Пояснительная записка - Федоренко АВ 943 группа Хабаовск 2015

Пояснительная записка - Федоренко АВ 943 группа Хабаовск 2015 (1218829), страница 5

Файл №1218829 Пояснительная записка - Федоренко АВ 943 группа Хабаовск 2015 (Автоматизация процесса проверки фрод-инцидентов для ПАО) 5 страницаПояснительная записка - Федоренко АВ 943 группа Хабаовск 2015 (1218829) страница 52020-10-05СтудИзба
Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 5)

cmd.ActiveConnection = cn

cmd.CommandType = adCmdText

Dim user_name As String

Set objA = CreateObjectfWScript.Network

user_name = "orient\" & objA.UserName & ""

str = "select distinct CaseId from [check].[dbo].[ORFI_APPL_USER] where [user]="' & user_name & and ((select count(Active) from [check].[dbo].[ORFI_APPL_USER] where [user]="’ & user_name & ”')=(select count(Active) from [check].[dbo].[ORFI_APPL_USER] where [user]="' & user_name & ‘” and Active=1))"

cmd.CommandText = cmd.CommandText & str

Set rstRecordset.ActiveConnection = cn

rstRecordset.Open cmd

cmd.Execute

Do While Not rstRecordset.EOF

UserForm7.ComboBoxl.Addltem(rstRecorset.Fields("Case_id").Value)

rstRecordset.MoveNext

Loop

End Sub

Как видно из данного примера, весь код разбит на 6 логических участков. Сперва необходимо объявить переменные для создания подключения к базе данных. Так как в данной рабочей форме всего одно обращение к БД, то подключение можно создать внутри функции инициализации рабочей формы. В дальнейшем при разработке основной рабочей формы гораздо целесообразнее создать отдельную публичную функцию для открытия подключения к базе данных. Это позволит значительно сократить количество используемой памяти, а так же структурировать программный код [21].

После того, как создано подключение необходимо получить логин пользователя. Для этого используем встроенную функцию «CreateObjectfWScript.Network », с помощью которой можно получить имя пользователя, зарегистрированного во внутренней банковской сети. Далее необходимо в переменную, отвечающую за SQL команду передать запрос, который выберет номера кейсов, которые доступны для загрузки.

Далее отправим запрос на выполнение команды, предварительно указав, что результат выполнения должен записаться в переменную rstRecordset. Затем при помощи цикла While помещаем значения переменной в выпадающий список рабочей формы.

После выполнения данного программного кода откроется окно, которое показано на рисунке 10.

Рисунок 10 – Окно формы по добавлению нового кейса

Когда кейс для загрузки выбран необходимо нажать кнопку «Выбрать». После срабатывает код на добавление проверки в рабочую форму.

Private Sub CommandButtonl_Click()

Dim i As Integer i = 4

Do While (Cells(i, 1) <> "")

i = i + 1

Loop

sqlca = "select * from [check].[dbo].[CHECK_REESTR] where (Check_status=4 or Check_status=2 or Check_status=3 or Check_status is NULL) and case_id=" & ComboBoxl.Value & " order by 1 and ORFI_user="' & user_name & '"

cmd.CommandText = cmd.CommandText & sqlca

Set rstRecordset.ActiveConnection=cn

rstRecordset.Open cmd

cmd.Execute

If Err.Number = 0 Then

Sheets("Реестр").range("A" & i & "").CopyFromRecordset

rstRecordset

End If

Sheets("Реестр").range("B" & i -1 & ":DE" & i -1 & "").Select

With

.Selection.Borders(xlEdgeBottom)

.XLineStyle = xlContinuous

.Weight = xlMedium

End With

Unload Me

End Sub

В результате рабочая форма закроется, а в файле Excel загрузится информация о кейсе (рисунок 11).

Рисунок 11 – Загруженный кейс в Excel книгу

Для того, чтобы приступить к выполнению проверки сотрудник должен указать щелчком левой кнопкой мыши ту строчку с заявкой, по которой планируется проводиться проверка и нажать сочетание клавиш «Ctrl+Q». Данный метод запуска программы был выбран не случайно. По мере проектирования и тестирования с фокус группой были предложены различные варианты запуска: отдельная кнопка, двойной клик по ячейке или сочетание клавиш. И в результате тестов оказалось, что для пользователей наиболее удобным вариантом является сочетание клавиш.

Рабочая форма сотрудника ОРФИ представляет собой окно программы, разбитое на определенные блоки. Каждый блок имеет набор реакций, выставляемых при обработке заявки.

Создание формы осуществлялось при помощи встроенного в Excel редактора Microsoft Visual Basic for Application [22]. В этом редакторе при помощи стандартного набора инструментов была разработана и настроена главная рабочая форма (рисунок 12).

Рисунок 12 – Проектирование рабочей формы ОРФИ

Очень важную роль в организации проверки играет функция загрузки данной рабочей формы. Согласно техническому заданию необходимо сделать так, чтобы при добавлении в процесс проверки определенных блоков или новых видов реакции, эти элементы добавлялись в рабочую форму автоматически. Таким образом при инициализации окна программы было принято решение реализовать динамическую загрузку блоков и выпадающих списков [22]. Ниже представлена часть программного кода, которая выполняет данную функцию.

Private Sub UserForm_lnitialize()

open_form = 1

rangeinit = ActiveCell.row

Actual_Request = Cells(ActiveCell.row, 2)

Run check_on_prev

actual = 1

CheckBoxl.Value = Sheets("Form_setting").Cells(5, l).Value

TextBoxl6.Text = Sheets("Реестр").Cells(ActiveCell.row,2)

Run next_or_prev_block()

form_box = 2

Label1.Caption=ThisWorkbook.Sheets("Form").Cells(form_box, 8).Value

For i = 2 To ThisWorkbook.Sheets("list").Cells(Rows.Count,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).End(xlUp).row

ComboBoxl.Addltem ThisWorkbook.Sheets("list").Cells(i,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).Value

Next

form_box = 4

Label2.Caption=ThisWorkbook.Sheets("Form").Cells(form_box, 8).Value

For i = 2 To ThisWorkbook.Sheets("list").Cells(Rows.Count,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).End(xlUp).row

ComboBox2.Addltem ThisWorkbook.Sheets("list").Cells(i,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).Value

Next

For i = 2 To ThisWorkbook.Sheets("list").Cells(Rows.Count,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).End(xlUp).row

ComboBox3.Addltem ThisWorkbook.Sheets("list").Cells(i,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).Value

Next

form_box = 8

Label4.Caption=ThisWorkbook.Sheets("Form").Cells(form_box, 8).Value

For i = 2 To ThisWorkbook.Sheets("list").Cells(Rows.Count,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).End(xlUp).row

ComboBox4.Addltem ThisWorkbook.Sheets("list").Cells(i,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).Value

Next

form_box = 10

Label41.Caption=ThisWorkbook.Sheets("Form").Cells(form_box, 8).Value

For i = 2 To ThisWorkbook.Sheets("list").Cells(Rows.Count,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).End(xlUp).row

ComboBox35.Addltem ThisWorkbook.Sheets("list").Cells(i,ThisWorkbook.Sheets("Form").Cells(form_boX, 5).Value).Value

Next

form_box = 12

Label6.Caption=ThisWorkbook.Sheets("Form").Cells(form_box, 8).Value

For i = 2 To ThisWorkbook.Sheets("list").Cells(Rows.Count,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).End(xlUp).row

ComboBox6.Addltem ThisWorkbook.Sheets("list").Cells(i,ThisWorkbook.Sheets("Form").Cells(form_box, 5).Value).Value

Next

Run LOAD_VALUES()

Call Go_TextBox

Run alarmer(Cells(ActiveCell.row, l).Value)

...

...

End Sub

Как видно из продемонстрированного участка кода, информация о выпадающих списках загружается динамически. При каждом открытии приложения [23]. Таким образом, если поступает задача на добавление новой реакции по определенному блоку, администратору достаточно занести нужную информацию в базу данных и выпадающие списки обновятся автоматически при следующем запуске программы. Следует добавить, что такая функция реализована для всего комплекса клиентских программных приложений бизнес-процесса.

Ключевую роль в процессе проверки занимает прозвон телефонов клиента, контактных лиц и т.д. Благодаря именно этой функции сотрудник ОРФИ устанавливает информацию о клиенте, статусе заявки, причинах просрочки (если имеется) и т.д. Всего в рамках процесса проверки ОРФИ должны быть реализованы формы для прозвона следующих видов телефонов:

  1. логический телефон;

  2. личный номер клиента;

  3. домашний телефон клиента;

  4. анкетный рабочий телефон работодателя;

  5. телефон контактных лиц;

  6. дополнительный телефон.

Каждый тип телефонов имеет определенный диапазон возможный реакций, а так же прозвон каждого типа имеет свой собственный сценарий. Кроме того, у пользователя согласно техническому заданию должны быть реализована функция добавления нескольких телефонов и результатов по одному типу.

Для реализации данной задачи была разработана одна универсальная форма, которая в зависимости от выбранного типа телефона загружала необходимую информацию. Так же в рамках данной формы была реализована динамическое добавление элементов. Это позволило упростить логику работы программы, тем самым снизив время работы программы [22].

Когда сотрудник в основной форме выбирает определенный вид телефона срабатывает программный код, продемонстрированный ниже.

If UserForm1.phone_type = 1 Then UserForm3. Caption = "Логический

телефон"

End If

If UserForm1.phone_type = 2 Then UserForm3.Caption = "Мобильный телефон"

End If

If UserForm1.phone_type = 3 Then UserForm3.Caption = "Домашний телефон"

End If

If UserForm1.phone_type = 4 Then UserForm3.Caption = "Рабочий телефон"

End If

If UserForm1.phone_type = 5 Then UserForm3.Caption = "Телефон контактных лиц"

End If

If UserForm1.phone_type = 6 Then UserForm3.Caption = "Дополнительный телефон"

Характеристики

Тип файла
Документ
Размер
4,68 Mb
Высшее учебное заведение

Список файлов ВКР

Свежие статьи
Популярно сейчас
А знаете ли Вы, что из года в год задания практически не меняются? Математика, преподаваемая в учебных заведениях, никак не менялась минимум 30 лет. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Да! На равне с готовыми студенческими работами у нас продаются услуги. Цены на услуги видны сразу, то есть Вам нужно только указать параметры и сразу можно оплачивать.
Отзывы студентов
Ставлю 10/10
Все нравится, очень удобный сайт, помогает в учебе. Кроме этого, можно заработать самому, выставляя готовые учебные материалы на продажу здесь. Рейтинги и отзывы на преподавателей очень помогают сориентироваться в начале нового семестра. Спасибо за такую функцию. Ставлю максимальную оценку.
Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.
Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.
Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.
Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.
Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.
Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.
Всё и так отлично
Всё очень удобно. Особенно круто, что есть система бонусов и можно выводить остатки денег. Очень много качественных бесплатных файлов.
Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.
Отличный помощник
Отличный сайт с кучей полезных файлов, позволяющий найти много методичек / учебников / отзывов о вузах и преподователях.
Отлично помогает студентам в любой момент для решения трудных и незамедлительных задач
Хотелось бы больше конкретной информации о преподавателях. А так в принципе хороший сайт, всегда им пользуюсь и ни разу не было желания прекратить. Хороший сайт для помощи студентам, удобный и приятный интерфейс. Из недостатков можно выделить только отсутствия небольшого количества файлов.
Спасибо за шикарный сайт
Великолепный сайт на котором студент за не большие деньги может найти помощь с дз, проектами курсовыми, лабораторными, а также узнать отзывы на преподавателей и бесплатно скачать пособия.
Популярные преподаватели
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
6565
Авторов
на СтудИзбе
298
Средний доход
с одного платного файла
Обучение Подробнее