Разработка программного модуля ипотечного кредитования банковской информационной системы

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

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык русский
Дата добавления 17.05.2016
Размер файла 848,7 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Автономная некоммерческая образовательная

организация высшего образования

«Одинцовский гуманитарный университет»

Колледж

КУРСОВАЯ РАБОТА

по дисциплине «Разработка, внедрение и адаптация программного обеспечения отраслевой направленности»

Тема: «Разработка программного модуля ипотечного кредитования банковской информационной системы»

Таганцев Евгений Александрович

Одинцово 2016

Календарный план выполнения курсовой работы

№ п/п

Наименование этапа работы

Срок выполнения

Дата выполнения

Примечание

1.

Оформление и согласование календарного плана выполнения курсовой работы

18.01.2016

2.

Проведение информационного обследования

23.11.2015

3.

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

07.12.2015

4.

Создание базы данных программного модуля

22.02.2016

5.

Создание интерфейса пользователя

25.01.2016

6.

Создание выходных документов программного модуля

15.02.2016

7.

Разработка кода программного модуля

18.01.2016

8.

Разработка руководства системного программиста

21.03.2016

9.

Разработка руководства оператора

21.03.2016

10.

Оформление курсовой работы

04.04.2016

11.

Допуск к защите курсовой работы

04.04.2016

12.

Защита курсовой работы

Дата защиты курсового проекта определяется руководителем

Содержание

  • Введение
  • 1. Информационное обследование предметной области
  • 2. Моделирование предметной области
  • 3. Разработка технического задания на создание программного модуля
  • 4. Разработка базы данных программного модуля
  • 5. Разработка интерфейса пользователя
  • 6. Выходные документы программного модуля
  • 7. Состав программного модуля
  • 8. Разработка программной документации
  • Заключение
  • Список используемой литературы
  • Приложение 1. Техническое задание на создание программного модуля
  • Приложение 2. Руководство системного программиста
  • Приложение 3. Руководство оператора
  • Приложение 4. Программный код модуля
  • Введение
  • Модуль создается в целях автоматизации ипотечного кредитования.
  • Основными задачами разработки программного модуля являются автоматизация следующих процессов:
  • · Заключение договора.
  • · Выдача ипотечного кредита.
  • · Погашение кредита.
  • 1. «Информационное обследование банковской операции»
  • 1. Ипотечное кредитование.
  • 2. Исполнитель банковской операции, сотрудник отдела выдачи кредитов банка (кредитор)
  • 3. Действия исполнителя, связанные с выполнением выбранной банковской операции:
  • *Заключение договора
  • *Выдача долгосрочного кредита
  • *Погашение кредита
  • 4. Состав входных данных для выполнения каждого действия:
  • Действие пользователя

    Входные данные

    Формат данных

    Источник данных

    Заключение договора

    Фамилия

    текстовый

    Паспорт

    Дата заключения договора

    дата

    Клиент

    Сумма

    числовой

    Выдача долгосрочного кредита

    Номер договора

    числовой

    Договор

    Сумма платежа

    Процент

    процентный

    Дата оплаты

    дата

    Погашение кредита

    Фамилия

    текстовый

    Паспорт

    Номер договора

    числовой

    Договор

    Сумма

    Переплата по кредиту

    • 5. Состав выходных данных после выполнения каждого действия:
    • Действие пользователя

      Выходные данные

      Формат данных

      Форма представления данных

      Заключение договора

      Фамилия

      текстовый

      Договор

      Дата заключения договора

      дата

      Номер договора

      числовой

      Сумма

      Процент по кредиту

      процентный

      Выдача долгосрочного кредита

      Номер договора

      числовой

      Квитанция о выдачи кредита

      Сумма

      Процент по кредиту

      процентный

      Сумма кредита с учетом процента

      числовой

      Дата оплаты

      дата

      Погашение кредита

      Фамилия

      текстовый

      Чек/Квитанция об уплате ипотечного кредита

      Номер договора

      числовой

      Сумма

      Переплата по кредиту

      • 6.Расчетная формула для вычисления выходных данных на основании входных данных:
      • X = (S*p) / (1-(1+p)^(1-m))
      • X - размер аннуитетного платежа;
      • S - сумма кредита;
      • p - 1/12 годовой процентной ставки, выраженная в сотых долях;
      • ^ - означает в степени;
      • m - срок кредита, в месяцах.
      • 2. Моделирование предметной области
      • 3. Разработка технического задания на создание программного модуля
      • Техническое задание на создание программного модуля ипотечного кредитования банковской информационной системы разработано в соответствии с требованиями ГОСТ 34.602-89 Техническое задание на создание автоматизированной системы.
      • Основными разделами технического задания являются:
      • 1. Общие сведения.
      • 2. Цели и назначение создания программы.
      • 3. Требования к программе.
      • 4. Требования к программной документации.
      • 5. Этапы и сроки разработки программы.
      • Разработанное техническое задание представлено в приложении 1.

      4. Разработка базы данных программного модуля

      Для хранения данных программный модуль использует единую базу данных банковской информационной системы. Структура базы данных представлена на рисунке 1.

      Рис. 1 «Схема базы данных»

      В программном модуле используются следующие таблицы и поля единой базы данных.

      Рис. 2 «Contracts»

      Рис. 3 «BankTransactions»

      5. Разработка интерфейса пользователя

      Интерфейс пользователя программного модуля представлен 6 формами. Формы изображены на рисунках (Рис. 1-4).

      Главная форма программного модуля предназначена для навигации по главному меню программы и выбору функционала. (Рис. 1)

      Рис. 1 Главная форма

      Форма «Заключение договора» предназначена для оформления договора. (Рис. 2)

      Рис. 2 Форма «Заключение договора»

      Форма «Выдача ипотечного кредита» предназначена для выдачи ипотечного кредита и занесение данных о выдачи в базу данных. (Рис. 3)

      Рис. 3 Форма «Выдача ипотечного кредита»

      Форма «Погашение ипотечного кредита» предназначена для погашения ипотечного кредита и занесение данных о погашении в базу данных. (Рис. 4)

      Рис. 4 Форма «Погашение ипотечного кредита»

      6. Выходные документы программного модуля

      Выходные документы программного модуля представлены двумя формами. Формы выходных документов изображены на рисунках 5, 6.

      Форма «Предварительный просмотр чека о выдачи ипотечного кредита» программного модуля предназначена для просмотра чека о выдачи ипотечного кредита. (Рис. 5)

      Рис. 5 Форма «Предварительный просмотр чека о выдачи ипотечного кредита»

      Форма «Предварительный просмотр чека о погашении ипотечного кредита» программного модуля предназначена для просмотра чека о погашении ипотечного кредита. (Рис. 6)

      Рис. 6 Форма «Предварительный просмотр чека о погашении ипотечного кредита»

      7. Состав программного модуля

      Программный модуль состоит из 35 процедур и функций. Программный код модуля представлен в приложении 4.

      Основными процедурами и функциями программного модуля являются:

      Функция «Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click»

      Функция предназначена для вывода чека в Microsoft Excel по нажатию кнопки.

      Функция «Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click»

      Функция предназначена для добавления строки в таблицу «банковская транзакция» общей базы данных по нажатию кнопки.

      Функция «Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load»

      Функция предназначена для загрузки данных в таблицу.

      8. Разработка программной документации

      В соответствии с Техническим заданием на создание программного модуля ипотечного кредитования разработаны следующие программные документы: программный информационный банковский моделирование

      1. Руководство оператора.

      2. Руководство системного программиста.

      Указанные программные документы разработаны в соответствии с требованиями ГОСТ 19.503-79 ЕСПД. Руководство системного программиста и ГОСТ 19.505-79 ЕСПД. Руководство оператора.

      Программные документы приведены в приложении 2, 3.

      Заключение

      В результате выполнения курсовой работы были выполнены задачи:

      1.Заключение договора;

      2.Выдача ипотечного кредита;

      3.Погашение ипотечного кредита;

      В процессе разработки программного модуля изучено программирование в Microsoft Visual Studio 2010 на языке Visual Basic, получено множество новых знаний в сфере разработки программного обеспечения, приобретены знания некоторых новых функций.

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

      Список используемой литературы

      1. ГОСТ 19.503-79 ЕСПД. Руководство системного программиста.

      2. ГОСТ 19.505-79 ЕСПД. Руководство оператора.

      3. ГОСТ 34.602-89 Техническое задание на создание автоматизированной системы.

      4. Виктор Зиборов "Visual Basic 2010 на примерах" Издательство: БХВ-Петербург Год издания: 2010.

      5. Никита Культин "Visual Basic освой на примерах " Издательство:BHV Год издания: 2014.

      6. Л. А. Демидова, А. Н. Пылькин - Программирование в среде VBA, 2011.

      7. Джон Коннэлл Visual Basic 6. Введение в программирование баз данных, 2012.

      8. Шелее М. Qt4.5. Профессиональное программирование на С++. - СПб.: БХБ-Петербург, 2010. - 896 с.

      Приложение 1

      Техническое задание на создание программного модуля

      1. Общие сведения

      1.1. Наименование программы

      Полное наименование программы - Модуль ипотечного кредитования банковской информационной системы «БИС».

      Краткое наименование программы - Модуль ипотечного кредитования (далее - Модуль).

      1.2. Основание для проведения работ

      Основанием для разработки является Задание на проектирование Банковской информационной системы «БИС».

      1.3.Наименование организаций - Заказчика и Разработчика

      1.3.1. Заказчик

      АНОО ВО «Одинцовский гуманитарный университет»

      Адрес фактический: г. Одинцово, ул. Ново-Спортивная, д.3

      Телефон/Факс: +7(495) 545-59-85

      1.3.2. Разработчик

      Студент группы кИ-4.1 факультета до вузовской подготовки АНОО ВО «Одинцовский гуманитарный университет» Таганцев Евгений Александрович.

      1.4. Плановые сроки начала и окончания работы

      Сроки исполнения: 09.12.2015 - 21.12.2015

      1.5. Порядок оформления и предъявления результатов работ

      Работы по созданию Модуля производятся и принимаются поэтапно. По окончании каждого из этапов Разработчик сдает Заказчику соответствующие отчетные документы этапа, состав которых определен Договором.

      2. Цели и назначение создания программы

      2.1. Цели создания программы

      Модуль создается в целях автоматизации ипотечного кредитования.

      2.2. Назначение программы

      Указанная цель достигается решением с использованием Модуля следующих задач:

      · Заключение договора;

      · Выдача ипотечного кредита;

      · Погашение кредита.

      2.3. Пользователи программы

      Модуль разрабатывается в интересах отдела по работе с ипотечными кредитами (далее - ЦК).

      Пользователем Модуля является кредитный менеджер.

      3. Требования к программе

      3.1. Требования к функционированию программы

      Модуль функционирует в следующих режимах:

      Ш подготовка исходных данных;

      Ш заключение договора с клиентом;

      Ш выдача ипотечного кредита клиенту;

      Ш погашение ипотечного кредита клиентом.

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

      Ввод информации в единую базу данных осуществляется пользователями Модуля в процессе его эксплуатации. Для ввода информации пользователь выбирает соответствующего клиента, высвечивается экранная форма. Порядок заполнения экранной формы приводится в Руководстве оператору. Корректировка данных производится сотрудниками ЦК, ответственными за достоверность информации в единой базе данных с использованием этой же экранной формы.

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

      Для получения чека/квитанции осуществляется выбор того или иного договора в соответствующей экранной форме. Сформированные договора могут выдаваться:

      на монитор компьютера в виде выходных документов;

      на принтер в виде распечаток выходных документов.

      3.2. Требования к техническому обеспечению

      Модуль функционирует на персональном компьютере под управлением операционной системы версии Microsoft Windows 7 и выше с поддержкой всех соглашений, установленных для данных операционных систем. Компьютер включен в состав локальной вычислительной сети (далее - ЛВС) банка «БИТ».

      Техническими средствами ввода и вывода информации на рабочих местах пользователей являются типовые технические средства ЛВС.

      3.3. Требования к программному обеспечению

      Разработка программного обеспечения Модуля выполняется с использованием средств Microsoft Visual Studio 2010.

      Программное обеспечение должно обеспечивать:

      быструю загрузку данных и отображение пользовательского экрана на мониторе компьютера;

      формирование и корректировку состава и содержания информации в единой базе данных;

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

      Взаимодействие пользователя с Модулем осуществляется в меню-ориентированном режиме. Меню, подсказки и средства программного контроля вводимой информации, реализуемые в Модуле, должны обеспечивать удобство работы пользователя. Состав меню Модуля согласовывается с Заказчиком и Разработчиком на стадии его проектирования.

      При функционировании Модуля должно быть предусмотрено доведение до пользователя предупреждений об обнаруженных ошибках (несанкционированных действиях), которые могут привести к искажению информации. Указанные предупреждения должны осуществляться путем формирования соответствующих сообщений на русском языке.

      3.4. Требования к информационному обеспечению

      3.4.1. Исходные данные

      Исходные данные предназначены для разработки логической структуры единой базы данных банковской информационной системы «БИС». Состав исходных данных Модуля приведен в Приложении 1.

      Целостность единой базы данных должна поддерживаться программным обеспечением SQL Server 2008.

      3.4.2. Входная информация

      Входная информация вводится в виде входных экранных форм. Примерные экранные формы Модуля приведены в Приложении 2.

      Окончательный вид экранных форм согласовывается Разработчиком с Заказчиком на стадии проектирования Модуля.

      3.4.3. Выходная информация

      Выходная информация Модуля отображается в виде чека/квитанции, которые содержат данные о выдаче или погашении ипотечного кредита.

      Примерные формы выходной информации приведены в Приложении 3.

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

      4. Требования к программной документации

      Программная документация Модуля включает:

      руководство системного программиста;

      руководство оператора.

      Программная документация должна быть оформлена согласно требованиям ГОСТ 19.106-78.

      5. Этапы и сроки разработки программы

      Разработка Модуля должна быть реализована в сроки, указанные в таблице 1.

      Таблица 1. Порядок разработки Модуля

      п/п

      Этапы и стадии разработки

      Сроки

      разработки

      1.

      Создание экранных форм для ввода и корректировки информации.

      01.02.2016

      2.

      Создание форм выходных документов (отчетов).

      15.02.2016

      3.

      Создание запросов на выборку информации из базы данных.

      22.02.2016

      4.

      Разработка программного кода

      07.03.2016

      5.

      Разработка программной документации

      21.03.2016

      6.

      Комплексная отладка Модуля в составе банковской информационной системы.

      04.04.2016

      7.

      Представление Модуля заказчику для приема.

      04.04.2016

      Техническое задание составил:

      Наименование

      организации,

      предприятия

      Должность исполнителя

      Фамилия и

      инициалы

      Подпись

      Дата

      Группа кИ-4.1

      АНОО ВО «Одинцовский гуманитарный университет»

      студент

      Таганцев Е.А

      01.02.2016

      СОсТав ИСходных данных программы

      Наименование сущности

      Наименование атрибута

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

      Банковские счета

      Номер счета

      Текст длиной до 20 символов

      Договоры

      Дата договора

      Сумма договора

      Срок кредитования (действия договора)

      Вид банковской операции

      Предмет договора (выдача кредита на …)

      Процентная ставка

      Текст длиной до 30 символов

      Текст длиной до 30 символов

      Текст длиной до 20 символов

      Текст длиной до 30 символов

      Текст длиной до 20 символов

      Текст длиной до 20 символов

      Банковские транзакции

      Номер договора

      Сумма

      Вид банковской транзакции

      Дата исполнения

      Номер счета

      Вид валюты

      Текст длиной до 30 символов

      Текст длиной до 10 символов

      Тест длиной до 30 символов

      Текст длиной до 20 символов

      Текст длиной до 20 символов

      Текст длиной до 20 символов

      Клиенты

      Наименование Организации/ФИО

      Тип клиента

      Адрес

      Контактный телефон

      Текст длиной до 255 символов

      Текст длиной до 20 символов

      Текст длиной до 20 символов

      Текст длиной до 20 символов

      Формы входной информации

      2. Главная форма

      3. Форма для заключения договора

      4. Форма для выдачи ипотечного кредита

      6. Форма для погашения ипотечного кредита

      7.

      Формы выходной информации

      5. Квитанция или чек о выдачи ипотечного кредита

      Предмет договора

      Покупка квартиры

      ФИО получателя платежа

      Максимов Валерий Петрович

      Сумма

      21000000 млн

      Дата получения

      30.12.2015

      Номер договора

      001

      6. Квитанция или чек о погашении ипотечного кредита

      Предмет договора

      Покупка квартиры

      ФИО плательщика

      Максимов Валерий Петрович

      Сумма

      21000000 млн

      Процент по кредиту

      5200000 млн

      Дата окончания

      30.12.2025

      Номер договора

      001

      Программный код модуля ипотечного кредитования

      Программный код главного меню.

      Public Class Form1

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      End Sub

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Form2.Show()

      End Sub

      Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

      End Sub

      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

      Form3.Show()

      End Sub

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

      Form4.Show()

      End Sub

      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

      End

      End Sub

      End Class

      Программный код формы «Заключение договора»

      Public Class Form2

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim newContractsRow As BankDataSet.ContractsRow '//Подключение к строкам таблици

      newContractsRow = BankDataSet.Contracts.NewContractsRow()

      newContractsRow.Contract_Date = DateTimePicker1.Text '//Выбор элемента из ComboBox1 (передает id элемента)

      newContractsRow.Contract_Limits = TextBox2.Text '//Ручной ввод в TextBox

      newContractsRow.id_Tip_Bank_Operation = ComboBox4.SelectedValue

      newContractsRow.Contract_Details = TextBox3.Text

      newContractsRow.Contract_Sum = TextBox1.Text

      newContractsRow.id_Tip_Valut = ComboBox2.SelectedValue

      newContractsRow.Contract_Commission = TextBox6.Text

      newContractsRow.id_Client = ComboBox1.SelectedValue

      BankDataSet.Contracts.Rows.Add(newContractsRow) '//Создание новой строки

      ContractsTableAdapter.Update(BankDataSet.Contracts) '//Сохранение изменений БД

      Close() '//Закрытие формы

      End Sub

      Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.Contracts". При необходимости она может быть перемещена или удалена.

      Me.ContractsTableAdapter.Fill(Me.BankDataSet.Contracts)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.TipValut". При необходимости она может быть перемещена или удалена.

      Me.TipValutTableAdapter.Fill(Me.BankDataSet.TipValut)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.BankOperations". При необходимости она может быть перемещена или удалена.

      Me.BankOperationsTableAdapter.Fill(Me.BankDataSet.BankOperations)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.TipClients". При необходимости она может быть перемещена или удалена.

      Me.TipClientsTableAdapter.Fill(Me.BankDataSet.TipClients)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.Clients". При необходимости она может быть перемещена или удалена.

      Me.ClientsTableAdapter.Fill(Me.BankDataSet.Clients)

      End Sub

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

      Close()

      End Sub

      End Class

      Программный код формы «Выдача ипотечного кредита»

      Public Class Form3

      Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

      End Sub

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim newBankTransactionsRow As BankDataSet.BankTransactionsRow '//Подключение к строкам таблици

      newBankTransactionsRow = BankDataSet.BankTransactions.NewBankTransactionsRow()

      newBankTransactionsRow._Date = DateTimePicker1.Text '//Выбор элемента из ComboBox1 (передает id элемента)

      newBankTransactionsRow.id_Contract = ComboBox1.SelectedValue '//Ручной ввод в TextBox

      newBankTransactionsRow.id_Tip_Bank_Transaction = ComboBox2.SelectedValue

      newBankTransactionsRow.id_Bank_Account = ComboBox3.SelectedValue

      newBankTransactionsRow.Sum_Valut = TextBox7.Text

      newBankTransactionsRow.id_Tip_Valut = ComboBox4.SelectedValue

      newBankTransactionsRow.Transaction_Sum_Itog = Label7.Text

      BankDataSet.BankTransactions.Rows.Add(newBankTransactionsRow) '//Создание новой строки

      BankTransactionsTableAdapter.Update(BankDataSet.BankTransactions) '//Сохранение изменений БД

      End Sub

      Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

      End Sub

      Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.BankTransactions". При необходимости она может быть перемещена или удалена.

      Me.BankTransactionsTableAdapter.Fill(Me.BankDataSet.BankTransactions)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.BankAccounts". При необходимости она может быть перемещена или удалена.

      Me.BankAccountsTableAdapter.Fill(Me.BankDataSet.BankAccounts)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.TipBankTransaction". При необходимости она может быть перемещена или удалена.

      Me.TipBankTransactionTableAdapter.Fill(Me.BankDataSet.TipBankTransaction)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.TipValut". При необходимости она может быть перемещена или удалена.

      Me.TipValutTableAdapter.Fill(Me.BankDataSet.TipValut)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.Contracts". При необходимости она может быть перемещена или удалена.

      Me.ContractsTableAdapter.Fill(Me.BankDataSet.Contracts)

      TextBox7.Text = Label7.Text

      End Sub

      Private Sub TextBox7_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress

      If Asc(e.KeyChar) <> 8 Then

      If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then

      Else

      e.Handled = True

      End If

      End If

      End Sub

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

      Close()

      End Sub

      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

      Form6.Show()

      End Sub

      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

      Dim b As Integer = TextBox7.Text

      Label7.Text = b

      End Sub

      End Class

      Программный код формы «Погашение ипотечного кредита»

      Public Class Form4

      Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.BankTransactions". При необходимости она может быть перемещена или удалена.

      Me.BankTransactionsTableAdapter.Fill(Me.BankDataSet.BankTransactions)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.TipValut". При необходимости она может быть перемещена или удалена.

      Me.TipValutTableAdapter.Fill(Me.BankDataSet.TipValut)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.BankAccounts". При необходимости она может быть перемещена или удалена.

      Me.BankAccountsTableAdapter.Fill(Me.BankDataSet.BankAccounts)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.TipBankTransaction". При необходимости она может быть перемещена или удалена.

      Me.TipBankTransactionTableAdapter.Fill(Me.BankDataSet.TipBankTransaction)

      'TODO: данная строка кода позволяет загрузить данные в таблицу "BankDataSet.Contracts". При необходимости она может быть перемещена или удалена.

      Me.ContractsTableAdapter.Fill(Me.BankDataSet.Contracts)

      End Sub

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim newBankTransactionsRow As BankDataSet.BankTransactionsRow '//Подключение к строкам таблици

      newBankTransactionsRow = BankDataSet.BankTransactions.NewBankTransactionsRow()

      newBankTransactionsRow._Date = DateTimePicker1.Text '//Выбор элемента из ComboBox1 (передает id элемента)

      newBankTransactionsRow.id_Contract = ComboBox1.SelectedValue '//Ручной ввод в TextBox

      newBankTransactionsRow.id_Tip_Bank_Transaction = ComboBox2.SelectedValue

      newBankTransactionsRow.id_Bank_Account = ComboBox3.SelectedValue

      newBankTransactionsRow.Sum_Valut = TextBox1.Text

      newBankTransactionsRow.id_Tip_Valut = ComboBox4.SelectedValue

      newBankTransactionsRow.Transaction_Sum_Itog = Label4.Text

      BankDataSet.BankTransactions.Rows.Add(newBankTransactionsRow) '//Создание новой строки

      BankTransactionsTableAdapter.Update(BankDataSet.BankTransactions)

      newBankTransactionsRow = BankDataSet.BankTransactions.NewBankTransactionsRow()

      newBankTransactionsRow._Date = DateTimePicker1.Text '//Выбор элемента из ComboBox1 (передает id элемента)

      newBankTransactionsRow.id_Contract = ComboBox1.SelectedValue '//Ручной ввод в TextBox

      newBankTransactionsRow.id_Tip_Bank_Transaction = ComboBox2.SelectedValue

      newBankTransactionsRow.id_Bank_Account = ComboBox5.SelectedValue

      newBankTransactionsRow.Sum_Valut = TextBox2.Text

      newBankTransactionsRow.id_Tip_Valut = ComboBox4.SelectedValue

      newBankTransactionsRow.Transaction_Sum_Itog = Label4.Text

      BankDataSet.BankTransactions.Rows.Add(newBankTransactionsRow) '//Создание новой строки

      BankTransactionsTableAdapter.Update(BankDataSet.BankTransactions) '//Сохранение изменений БД

      '//Сохранение изменений БД

      End Sub

      Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress

      If Asc(e.KeyChar) <> 8 Then

      If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then

      Else

      e.Handled = True

      End If

      End If

      End Sub

      Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

      Try

      Me.BankTransactionsTableAdapter.FillBy(Me.BankDataSet.BankTransactions)

      Catch ex As System.Exception

      System.Windows.Forms.MessageBox.Show(ex.Message)

      End Try

      End Sub

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

      Close()

      End Sub

      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

      Form7.Show()

      End Sub

      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

      Dim b As Integer = TextBox1.Text

      Dim a As Integer = TextBox2.Text

      Label4.Text = b + a

      End Sub

      Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

      End Sub

      End Class

      Программный код формы «Предосмотр чека о выдачи ипотечного кредита»

      Public Class Form6

      Dim exl As Object

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      exl = CreateObject("excel.application")

      exl.visible = True

      exl.workbooks.add()

      exl.range("A1").value = "Дата выдачи кредита"

      exl.range("A2").value = "Номер договора"

      exl.range("A3").value = "Тип банк. транзакции"

      exl.range("A4").value = "Номер счета"

      exl.range("A5").value = "Сумма по договору"

      exl.range("A6").value = "Валюта"

      exl.range("A7").value = "Итого"

      exl.range("D1").value = Form3.DateTimePicker1.Text

      exl.range("D2").value = Form3.ComboBox1.Text

      exl.range("D3").value = Form3.ComboBox2.Text

      exl.range("D4").value = Form3.ComboBox3.Text

      exl.range("D5").value = Form3.TextBox7.Text

      exl.range("D6").value = Form3.ComboBox4.Text

      exl.range("D7").value = Form3.Label7.Text

      End Sub

      Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Label3.Text = Form3.Label2.Text

      Label4.Text = Form3.Label4.Text

      Label5.Text = Form3.Label8.Text

      Label6.Text = Form3.Label3.Text

      Label7.Text = Form3.Label9.Text

      Label8.Text = Form3.Label5.Text

      Label9.Text = Form3.Label6.Text

      Label10.Text = Form3.DateTimePicker1.Text

      Label11.Text = Form3.ComboBox1.Text

      Label12.Text = Form3.ComboBox2.Text

      Label13.Text = Form3.ComboBox3.Text

      Label14.Text = Form3.TextBox7.Text

      Label15.Text = Form3.ComboBox4.Text

      Label16.Text = Form3.Label7.Text

      End Sub

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

      Close()

      End Sub

      End Class

      Программный код формы «Предосмотр чека о погашении ипотечного кредита»

      Public Class Form7

      Dim exl As Object

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      exl = CreateObject("excel.application")

      exl.visible = True

      exl.workbooks.add()

      exl.range("A1").value = "Дата погашения кредита"

      exl.range("A2").value = "Номер договора"

      exl.range("A3").value = "Тип банк. транзакции"

      exl.range("A4").value = "Номер счета"

      exl.range("A5").value = "Сумма транзакции"

      exl.range("A6").value = "Номер счета"

      exl.range("A7").value = "Сумма %"

      exl.range("A8").value = "Валюта"

      exl.range("A9").value = "Итого"

      exl.range("D1").value = Form4.DateTimePicker1.Text

      exl.range("D2").value = Form4.ComboBox1.Text

      exl.range("D3").value = Form4.ComboBox2.Text

      exl.range("D4").value = Form4.ComboBox3.Text

      exl.range("D5").value = Form4.TextBox1.Text

      exl.range("D6").value = Form4.ComboBox5.Text

      exl.range("D7").value = Form4.TextBox2.Text

      exl.range("D8").value = Form4.ComboBox4.Text

      exl.range("D9").value = Form4.Label4.Text

      End Sub

      Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Label2.Text = Form4.Label7.Text

      Label3.Text = Form4.Label5.Text

      Label4.Text = Form4.Label9.Text

      Label5.Text = Form4.Label11.Text

      Label6.Text = Form4.Label10.Text

      Label7.Text = Form4.Label3.Text

      Label8.Text = Form4.Label8.Text

      Label9.Text = Form4.Label12.Text

      Label10.Text = Form4.Label13.Text

      Label16.Text = Form4.DateTimePicker1.Text

      Label14.Text = Form4.ComboBox1.Text

      Label11.Text = Form4.ComboBox2.Text

      Label12.Text = Form4.ComboBox3.Text

      Label13.Text = Form4.TextBox1.Text

      Label15.Text = Form4.ComboBox5.Text

      Label17.Text = Form4.TextBox2.Text

      Label18.Text = Form4.ComboBox4.Text

      Label19.Text = Form4.Label4.Text

      End Sub

      End Class

      Размещено на Allbest.ru


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.