Банковские услуги на VBA.NET

Задание:

Разработать программное средство для подбора оптимального набора банковских услуг:

• Организовать ведение базы данных, содержащей информацию о клиентах банка, сотрудниках, услугах.
• Осуществить подбор банковских услуг с учетом различных факторов: доход, гражданство, срок.
• Предсмотреть расчет суммы кредита и ежимесячных платежей.
• Печать заявления на получение кредита и оформления вклада.
• Обеспечить широкие возможности просмотра и поиска необходимо пользователю информации.
• Предоставить возможность сортировки данных по различным критериям.
• Создать отчеты по интересующей пользователя информации, в том числе и статистической с возможностью выбора аналитики и оцениваемых параметров.
• Организовать возможность экспорта в файлы Microsoft Office интересующей пользователя информации.
• Создать справочную систему приложения.
• Обеспечить организацию интерфейса приложения средствами создания меню, кнопочных форм, панелей инструментов.

Программа выполнена в приятных синих тонах на мотив Технобанка, с уникальным икон паком!

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

Содержимое папки Data (bin/Debug/Data):

• DB - папка с исходным SQL кодом, для создания базы данных и её заполнения
• Doc - Сгенерированные проектом отчёты
• Help - папка с файлом справки о проекте, а также проектом Help and Manual для изменения файла справки
• Ico - папка со всеми иконками проекта
• ConnectSettings.cfg - файл хранящий строку подключениия к СУБД (системе управления базами данных)

Для проекта было разработано три класса: cSQLConnection.vb, cExport.vb, cProcedures.vb.

Класс cSQLConnection.vb:

• Соединение с базой данной
• Закрытие соединения
• Запросы к базе данных
• Выгрузка данных в таблицу
• Агрегатные запросы
• Выгрузка столбца с данными в выпадающий список

Класс cExport.vb:

• Печать таблицы в Excel

Класс cProcedures.vb:

• Удаление записи из таблицы

Пример кода:

'Вкладка типы услуг

    'Добавить/изменить запись
    Private Sub bAddTypeService_Click(sender As Object, e As EventArgs) Handles bAddTypeService.Click

        'Проверка на заполненность полей
        If (tbTypeServiceName.Text.Equals("") Or tbTypeServiceDesc.Text.Equals("")) Then

            MsgBox("Не все поля заполнены!", 0 + vbInformation, "Сообщение")

        Else

            'Проверка добавляем ли, True - Добавляем
            If (bAdd = True) Then

                'Добавляем новую запись
                connSQL.bQueryToBoolean("INSERT INTO TYPE_SERVICE (vName, vDescription) VALUES ('" + tbTypeServiceName.Text + "','" + tbTypeServiceDesc.Text + "')")

            Else
                Dim i As Integer = DataGridViewTypeService.CurrentRow.Index
                Dim iIdNow As Integer = Convert.ToInt32(DataGridViewTypeService(0, i).Value)

                'Добавляем новую запись
                connSQL.bQueryToBoolean("UPDATE TYPE_SERVICE SET vName = '" + tbTypeServiceName.Text + "', vDescription = '" + tbTypeServiceDesc.Text + "' WHERE iIdTypeService = " & iIdNow)

                PanelTypeService.Visible = False
                'Очистка полей ввода
                tbTypeServiceName.Clear()
                tbTypeServiceDesc.Clear()

            End If

            'Прогрузка таблицы
            connSQL.LoadTable("TYPE_SERVICE", "SELECT iIdTypeService AS 'ID записи', vName AS 'Название услуги', vDescription AS 'Описание услуги' FROM TYPE_SERVICE", connSQL.binSourceTypeService, DataGridViewTypeService, bNavigatorBankServices)

        End If

    End Sub

Перед первым запуском проекта требуется внимательно изучить файл инструкции Настройки.docx. 

Содержание архива

• Исходный код на VBA.NET для Visual Studio

• Исходный код на SQL для MS SQL Server

• Файл инструкции по установке и настройке