Разработка программного модуля ипотечного кредитования банковской информационной системы
Автономная
некоммерческая образовательная организация высшего образования
«Одинцовский
гуманитарный университет»
Колледж
КУРСОВАЯ
РАБОТА
по дисциплине
«Разработка, внедрение и адаптация программного обеспечения отраслевой
направленности»
Тема: «Разработка
программного модуля ипотечного кредитования банковской информационной системы»
Выполнил: студент 4 курса группы
И-4.1
Таганцев Евгений Александрович
Руководитель работы
доцент кафедры прикладной информатики
кандидат технических наук
Павловский Игорь Станиславович
Одинцово 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.
|
Защита курсовой работы
|
|
|
Дата защиты курсового
проекта определяется руководителем
|
Студент группы И-4.1 ______________ Таганцев Е.А.
Введение
Модуль создается в целях автоматизации ипотечного кредитования.
Основными задачами разработки программного модуля являются автоматизация
следующих процессов:
· Заключение договора.
· Выдача ипотечного кредита.
· Погашение кредита.
1. «Информационное обследование банковской операции»
база
данные банковский интерфейс
1. Ипотечное кредитование.
. Исполнитель банковской операции, сотрудник отдела выдачи кредитов банка
(кредитор)
. Действия исполнителя, связанные с выполнением выбранной банковской
операции:
•Заключение договора
•Выдача долгосрочного кредита
•Погашение кредита
. Состав входных данных для выполнения каждого действия
Входные данные
|
Формат данных
|
Источник данных
|
Заключение договора
|
Фамилия
|
текстовый
|
Паспорт
|
|
Дата заключения договора
|
дата
|
Клиент
|
|
Сумма
|
числовой
|
|
Выдача долгосрочного
кредита
|
Номер договора
|
числовой
|
Договор
|
|
Сумма платежа
|
|
|
|
Процент
|
процентный
|
|
|
Дата оплаты
|
дата
|
|
Погашение кредита
|
Фамилия
|
текстовый
|
Паспорт
|
|
Номер договора
|
числовой
|
Договор
|
|
Сумма
|
|
|
|
Переплата по кредиту
|
|
|
. Состав выходных данных после выполнения каждого действия
Действие пользователя
|
Выходные данные
|
Формат данных
|
Форма представления данных
|
Заключение договора
|
Фамилия
|
текстовый
|
Договор
|
|
Дата заключения договора
|
дата
|
|
|
Номер договора
|
числовой
|
|
|
Сумма
|
|
|
|
Процент по кредиту
|
процентный
|
|
Выдача долгосрочного
кредита
|
Номер договора
|
числовой
|
Квитанция о выдачи кредита
|
|
Сумма
|
|
|
|
Процент по кредиту
|
процентный
|
|
|
Сумма кредита с учетом
процента
|
числовой
|
|
|
Дата оплаты
|
дата
|
|
Погашение кредита
|
Фамилия
|
текстовый
|
Чек/Квитанция об уплате
ипотечного кредита
|
|
Номер договора
|
числовой
|
|
|
Сумма
|
|
|
|
Переплата по кредиту
|
|
|
. Расчетная формула для вычисления выходных данных на основании входных
данных:
= (S*p) / (1-(1+p)^(1-m))
- размер аннуитетного платежа;- сумма кредита;- 1/12 годовой процентной
ставки, выраженная в сотых долях;
^ - означает в степени;- срок кредита, в месяцах.
2. Моделирование предметной области
. Разработка технического задания на создание программного модуля
Техническое задание на создание программного модуля ипотечного
кредитования банковской информационной системы разработано в соответствии с
требованиями ГОСТ 34.602-89 Техническое задание на создание автоматизированной
системы.
Основными разделами технического задания являются:
. Общие сведения.
. Цели и назначение создания программы.
. Требования к программе.
. Требования к программной документации.
5. Этапы и сроки разработки программы.
Разработанное техническое задание представлено в приложении 1.
4. Разработка
базы данных программного модуля
Для хранения данных программный модуль использует единую базу данных
банковской информационной системы. Структура базы данных представлена на
рисунке 1.
Рис. 1 «Схема базы данных»
В программном модуле используются следующие таблицы и поля единой базы
данных.
Таблица «Contracts» (Рис. 2)
Рис. 2
«Contracts»
Рис. 3 «BankTransactions»
. Разработка интерфейса пользователя
Интерфейс пользователя программного модуля представлен 6 формами. Формы
изображены на рисунках (Рис. 1-4).
Главная форма программного модуля предназначена для навигации по главному
меню программы и выбору функционала. (Рис. 1)
Рис. 1 Главная форма
Форма «Заключение договора» предназначена для оформления договора. (Рис.
2)
Рис. 2 Форма «Заключение договора»
Форма «Выдача ипотечного кредита» предназначена для выдачи ипотечного
кредита и занесение данных о выдачи в базу данных. (Рис. 3)
Рис. 3 Форма «Выдача ипотечного кредита»
Форма «Погашение ипотечного кредита» предназначена для погашения
ипотечного кредита и занесение данных о погашении в базу данных. (Рис. 4)
Рис. 4 Форма «Погашение ипотечного кредита»
. Выходные документы программного модуля
Выходные документы программного модуля представлены двумя формами. Формы
выходных документов изображены на рисунках 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»
Функция предназначена для загрузки данных в таблицу.
. Разработка
программной документации
В соответствии с Техническим заданием на создание программного модуля
ипотечного кредитования разработаны следующие программные документы:
. Руководство оператора.
. Руководство системного программиста.
Указанные программные документы разработаны в соответствии с требованиями
ГОСТ 19.503-79 ЕСПД. Руководство системного программиста и ГОСТ 19.505-79 ЕСПД.
Руководство оператора.
Программные документы приведены в приложении 2, 3.
Заключение
В результате выполнения курсовой работы были выполнены задачи:
. Заключение договора;
. Выдача ипотечного кредита;
. Погашение ипотечного кредита;
В процессе разработки программного модуля изучено программирование в Microsoft Visual Studio 2010 на языке Visual Basic, получено множество новых знаний в сфере разработки
программного обеспечения, приобретены знания некоторых новых функций.
Таким образом, цель была достигнута, было использовано много различных
функций. Получено много новой информации и умений.
Список
используемой литературы
1. ГОСТ
19.503-79 ЕСПД. Руководство системного программиста.
2. ГОСТ
19.505-79 ЕСПД. Руководство оператора.
. ГОСТ
34.602-89 Техническое задание на создание автоматизированной системы.
. Виктор
Зиборов "Visual Basic 2010 на примерах" Издательство: БХВ-Петербург
Год издания: 2010.
. Никита
Культин "Visual Basic освой на примерах " Издательство:BHV Год
издания: 2014.
. Л.
А. Демидова, А. Н. Пылькин - Программирование в среде VBA, 2011.
. Джон
Коннэлл Visual Basic 6. Введение в программирование баз данных, 2012.
. Шелее
М. Qt4.5. Профессиональное
программирование на С++. - СПб.: БХБ-Петербург, 2010. - 896 с.
Приложение 1
Техническое
задание на создание программного модуля
1. Общие сведения
.1. Наименование программы
Краткое наименование программы - Модуль ипотечного кредитования (далее -
Модуль).
.2. Основание для проведения работ
Основанием для разработки является Задание на проектирование Банковской
информационной системы «БИС».
.3.Наименование организаций - Заказчика и Разработчика
.3.1. Заказчик
АНОО ВО «Одинцовский гуманитарный университет»
Адрес фактический: г. Одинцово, ул. Ново-Спортивная, д.3
Телефон/Факс: +7(495) 545-59-85
.3.2. Разработчик
Студент группы кИ-4.1 факультета до вузовской подготовки АНОО ВО
«Одинцовский гуманитарный университет» Таганцев Евгений Александрович.
.4. Плановые сроки начала и окончания работы
Сроки исполнения: 09.12.2015 - 21.12.2015
.5. Порядок оформления и предъявления результатов работ
Работы по созданию Модуля производятся и принимаются поэтапно. По
окончании каждого из этапов Разработчик сдает Заказчику соответствующие
отчетные документы этапа, состав которых определен Договором.
. Цели и назначение создания программы
.1. Цели создания программы
Модуль создается в целях автоматизации ипотечного кредитования.
.2. Назначение программы
Указанная цель достигается решением с использованием Модуля следующих
задач:
· Заключение договора;
· Выдача ипотечного кредита;
· Погашение кредита.
.3. Пользователи программы
Модуль разрабатывается в интересах отдела по работе с ипотечными
кредитами (далее - ЦК).
Пользователем Модуля является кредитный менеджер.
. Требования к программе
.1. Требования к функционированию программы
Модуль функционирует в следующих режимах:
Ø подготовка исходных данных;
Ø заключение договора с клиентом;
Ø выдача ипотечного кредита клиенту;
Ø погашение ипотечного кредита клиентом.
Подготовка исходной информации осуществляется сотрудниками ЦК путем
опроса клиентов с использованием технических средств связи. Исходные данные
могут готовиться в виде текстовых документов на бумажной основе. Перед вводом в
единую базу данных содержание и правильность данных анализируется
пользователем.
Ввод информации в единую базу данных осуществляется пользователями Модуля
в процессе его эксплуатации. Для ввода информации пользователь выбирает
соответствующего клиента, высвечивается экранная форма. Порядок заполнения
экранной формы приводится в Руководстве оператору. Корректировка данных
производится сотрудниками ЦК, ответственными за достоверность информации в
единой базе данных с использованием этой же экранной формы.
Просмотр информации о договоре осуществляется с использованием той же
экранной формы, которая применяется при вводе и корректировки информации в
единой базе данных.
Для получения чека/квитанции осуществляется выбор того или иного договора
в соответствующей экранной форме. Сформированные договора могут выдаваться:
на монитор компьютера в виде выходных документов;
на принтер в виде распечаток выходных документов.
.2. Требования к техническому обеспечению
Модуль функционирует на персональном компьютере под управлением
операционной системы версии Microsoft Windows 7 и выше с поддержкой всех соглашений, установленных для данных
операционных систем. Компьютер включен в состав локальной вычислительной сети
(далее - ЛВС) банка «БИТ».
Техническими средствами ввода и вывода информации на рабочих местах
пользователей являются типовые технические средства ЛВС.
.3. Требования к программному обеспечению
Разработка программного обеспечения Модуля выполняется с использованием
средств Microsoft Visual Studio 2010.
Программное обеспечение должно обеспечивать:
быструю загрузку данных и отображение пользовательского экрана на
мониторе компьютера;
формирование и корректировку состава и содержания информации в единой
базе данных;
отображение информации на рабочих местах пользователей в удобном для
просмотра виде.
Взаимодействие пользователя с Модулем осуществляется в
меню-ориентированном режиме. Меню, подсказки и средства программного контроля
вводимой информации, реализуемые в Модуле, должны обеспечивать удобство работы
пользователя. Состав меню Модуля согласовывается с Заказчиком и Разработчиком
на стадии его проектирования.
При функционировании Модуля должно быть предусмотрено доведение до
пользователя предупреждений об обнаруженных ошибках (несанкционированных
действиях), которые могут привести к искажению информации. Указанные
предупреждения должны осуществляться путем формирования соответствующих
сообщений на русском языке.
.4. Требования к информационному обеспечению
.4.1. Исходные данные
Исходные данные предназначены для разработки логической структуры единой
базы данных банковской информационной системы «БИС». Состав исходных данных
Модуля приведен в Приложении 1.
Целостность единой базы данных должна поддерживаться программным
обеспечением SQL Server 2008.
.4.2. Входная информация
Входная информация вводится в виде входных экранных форм. Примерные
экранные формы Модуля приведены в Приложении 2.
Окончательный вид экранных форм согласовывается Разработчиком с
Заказчиком на стадии проектирования Модуля.
.4.3. Выходная информация
Выходная информация Модуля отображается в виде чека/квитанции, которые
содержат данные о выдаче или погашении ипотечного кредита.
Примерные формы выходной информации приведены в Приложении 3.
Окончательный вид форм выходной информации согласовывается разработчиком
с заказчиком на стадии проектирования Модуля.
. Требования к программной документации
Программная документация Модуля включает:
руководство системного программиста;
руководство оператора.
Программная документация должна быть оформлена согласно требованиям ГОСТ
19.106-78.
. Этапы и сроки разработки программы
Разработка Модуля должна быть реализована в сроки, указанные в таблице 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
|
Приложение 2
Состав
исходных данных программы
Наименование сущности
|
Наименование атрибута
|
Характеристика атрибута
|
Банковские счета
|
Номер счета
|
Текст длиной до 20 символов
|
Договоры
|
Дата договора Сумма
договора Срок кредитования (действия договора) Вид банковской операции
Предмет договора (выдача кредита на …) Процентная ставка
|
Текст длиной до 30 символов
Текст длиной до 30 символов Текст длиной до 20 символов Текст длиной до 30
символов Текст длиной до 20 символов Текст длиной до 20 символов
|
Банковские транзакции
|
Номер договора Сумма Вид
банковской транзакции Дата исполнения Номер счета Вид валюты
|
Текст длиной до 30 символов
Текст длиной до 10 символов Тест длиной до 30 символов Текст длиной до 20
символов Текст длиной до 20 символов Текст длиной до 20 символов
|
Клиенты
|
Наименование
Организации/ФИО Тип клиента Адрес Контактный телефон
|
Текст длиной до 255
символов Текст длиной до 20 символов Текст длиной до 20 символов Текст длиной
до 20 символов
|
Приложение 3
Формы входной
информации
Главная форма
Форма для заключения договора
Форма для выдачи ипотечного кредита
Форма для погашения ипотечного кредита
Приложение 4
Квитанция или чек о выдачи ипотечного кредита
Предмет договора
|
Покупка квартиры
|
ФИО получателя платежа
|
Максимов Валерий Петрович
|
Сумма
|
21000000 млн
|
Дата получения
|
30.12.2015
|
Номер договора
|
001
|
Квитанция или чек о погашении ипотечного кредита
Предмет договора
|
Покупка квартиры
|
ФИО плательщика
|
Максимов Валерий Петрович
|
21000000 млн
|
Процент по кредиту
|
5200000 млн
|
Дата окончания
|
30.12.2025
|
Номер договора
|
001
|
Приложение 5
Программный
код модуля ипотечного кредитования
Программный код главного меню.
Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
Sub
Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click.Show()Sub
Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs)
Sub
Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click.Show()Sub
Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click.Show()Sub
Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
EndSubClass
Программный код формы «Заключение договора»
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
newContractsRow As BankDataSet.ContractsRow '//Подключение к строкам таблици
= BankDataSet.Contracts.NewContractsRow().Contract_Date =
DateTimePicker1.Text '//Выбор элемента из ComboBox1 (передает id элемента).Contract_Limits = TextBox2.Text '//Ручной ввод в TextBox.id_Tip_Bank_Operation =
ComboBox4.SelectedValue.Contract_Details = TextBox3.Text.Contract_Sum =
TextBox1.Text.id_Tip_Valut = ComboBox2.SelectedValue.Contract_Commission =
TextBox6.Text.id_Client =
ComboBox1.SelectedValue.Contracts.Rows.Add(newContractsRow) '//Создание новой строки.Update(BankDataSet.Contracts) '//Сохранение изменений БД
Close() '//Закрытие формыSub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.Contracts". При необходимости она может быть перемещена
или удалена..ContractsTableAdapter.Fill(Me.BankDataSet.Contracts)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.TipValut". При необходимости она может быть перемещена
или удалена..TipValutTableAdapter.Fill(Me.BankDataSet.TipValut)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.BankOperations". При необходимости она может быть
перемещена или
удалена..BankOperationsTableAdapter.Fill(Me.BankDataSet.BankOperations)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.TipClients". При необходимости она может быть перемещена
или удалена..TipClientsTableAdapter.Fill(Me.BankDataSet.TipClients)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.Clients". При необходимости она может быть перемещена
или удалена..ClientsTableAdapter.Fill(Me.BankDataSet.Clients)
End SubSub Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button2.Click
Close()SubClass
Программный код формы «Выдача ипотечного кредита»
Public Class Form3
Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs)
Sub
Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.ClicknewBankTransactionsRow As
BankDataSet.BankTransactionsRow '//Подключение к строкам
таблици
= BankDataSet.BankTransactions.NewBankTransactionsRow()._Date
= DateTimePicker1.Text '//Выбор элемента из ComboBox1 (передает id элемента).id_Contract =
ComboBox1.SelectedValue '//Ручной ввод в
TextBox.id_Tip_Bank_Transaction = ComboBox2.SelectedValue.id_Bank_Account =
ComboBox3.SelectedValue.Sum_Valut = TextBox7.Text.id_Tip_Valut =
ComboBox4.SelectedValue.Transaction_Sum_Itog =
Label7.Text.BankTransactions.Rows.Add(newBankTransactionsRow) '//Создание новой строки.Update(BankDataSet.BankTransactions)
'//Сохранение изменений БДSub
Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs)Sub
Sub Form3_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.BankTransactions". При необходимости она может быть
перемещена или
удалена..BankTransactionsTableAdapter.Fill(Me.BankDataSet.BankTransactions)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.BankAccounts". При необходимости она может быть
перемещена или
удалена..BankAccountsTableAdapter.Fill(Me.BankDataSet.BankAccounts)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.TipBankTransaction". При необходимости она может быть
перемещена или
удалена..TipBankTransactionTableAdapter.Fill(Me.BankDataSet.TipBankTransaction)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.TipValut". При необходимости она может быть перемещена
или удалена..TipValutTableAdapter.Fill(Me.BankDataSet.TipValut)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.Contracts". При необходимости она может быть перемещена
или удалена..ContractsTableAdapter.Fill(Me.BankDataSet.Contracts)
TextBox7.Text = Label7.TextSubSub TextBox7_KeyPress(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox7.KeyPressAsc(e.KeyChar) <> 8 ThenAsc(e.KeyChar) >= 48
And Asc(e.KeyChar) <= 57 Then.Handled = TrueIfIfSubSub Button2_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click()Sub
Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click.Show()Sub
Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Clickb As Integer = TextBox7.Text.Text =
bSubClass
Программный код формы «Погашение ипотечного кредита»
Public Class Form4
Sub Form4_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.BankTransactions". При необходимости она может быть
перемещена или удалена..BankTransactionsTableAdapter.Fill(Me.BankDataSet.BankTransactions)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.TipValut". При необходимости она может быть перемещена
или удалена..TipValutTableAdapter.Fill(Me.BankDataSet.TipValut)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.BankAccounts". При необходимости она может быть
перемещена или
удалена..BankAccountsTableAdapter.Fill(Me.BankDataSet.BankAccounts)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.TipBankTransaction". При необходимости она может быть
перемещена или
удалена..TipBankTransactionTableAdapter.Fill(Me.BankDataSet.TipBankTransaction)
'TODO: данная строка кода позволяет загрузить данные в таблицу
"BankDataSet.Contracts". При необходимости она может быть перемещена
или удалена..ContractsTableAdapter.Fill(Me.BankDataSet.Contracts)
End Sub
Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.ClicknewBankTransactionsRow As BankDataSet.BankTransactionsRow
'//Подключение к строкам таблици
= BankDataSet.BankTransactions.NewBankTransactionsRow()._Date
= DateTimePicker1.Text '//Выбор элемента из ComboBox1 (передает id элемента).id_Contract =
ComboBox1.SelectedValue '//Ручной ввод в
TextBox.id_Tip_Bank_Transaction = ComboBox2.SelectedValue.id_Bank_Account =
ComboBox3.SelectedValue.Sum_Valut = TextBox1.Text.id_Tip_Valut =
ComboBox4.SelectedValue.Transaction_Sum_Itog = Label4.Text
BankDataSet.BankTransactions.Rows.Add(newBankTransactionsRow) '//Создание
новой строки
BankTransactionsTableAdapter.Update(BankDataSet.BankTransactions)
= BankDataSet.BankTransactions.NewBankTransactionsRow()._Date
= DateTimePicker1.Text '//Выбор элемента из ComboBox1 (передает id элемента).id_Contract = ComboBox1.SelectedValue
'//Ручной ввод в TextBox.id_Tip_Bank_Transaction =
ComboBox2.SelectedValue.id_Bank_Account = ComboBox5.SelectedValue.Sum_Valut =
TextBox2.Text.id_Tip_Valut = ComboBox4.SelectedValue.Transaction_Sum_Itog =
Label4.Text.BankTransactions.Rows.Add(newBankTransactionsRow) '//Создание новой строки.Update(BankDataSet.BankTransactions)
'//Сохранение изменений БД
'//Сохранение изменений БД
Sub
Private Sub TextBox1_KeyPress(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress,
TextBox2.KeyPressAsc(e.KeyChar) <> 8 ThenAsc(e.KeyChar) >= 48 And
Asc(e.KeyChar) <= 57 Then.Handled = TrueIfIfSubSub
FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs).BankTransactionsTableAdapter.FillBy(Me.BankDataSet.BankTransactions)ex
As System.Exception.Windows.Forms.MessageBox.Show(ex.Message)Try
Sub
Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click()Sub
Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click.Show()Sub
Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Clickb As Integer = TextBox1.Texta As Integer
= TextBox2.Text.Text = b + aSub
Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles TextBox2.TextChanged
Программный код формы «Предосмотр чека о выдачи ипотечного кредита»
Public Class Form6exl As ObjectSub Button1_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles Button1.Click=
CreateObject("excel.application").visible =
True.workbooks.add().range("A1").value = "Дата выдачи кредита".range("A2").value =
"Номер договора".range("A3").value = "Тип банк. транзакции".range("A4").value =
"Номер счета"
exl.range("A5").value = "Сумма по договору"
exl.range("A6").value = "Валюта".range("A7").value =
"Итого".range("D1").value
= Form3.DateTimePicker1.Text.range("D2").value = Form3.ComboBox1.Text.range("D3").value
= Form3.ComboBox2.Text.range("D4").value =
Form3.ComboBox3.Text.range("D5").value =
Form3.TextBox7.Text.range("D6").value =
Form3.ComboBox4.Text.range("D7").value = Form3.Label7.TextSubSub
Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load.Text = Form3.Label2.Text.Text = Form3.Label4.Text.Text =
Form3.Label8.Text.Text = Form3.Label3.Text.Text = Form3.Label9.Text.Text =
Form3.Label5.Text.Text = Form3.Label6.Text.Text = Form3.DateTimePicker1.Text.Text
= Form3.ComboBox1.Text.Text = Form3.ComboBox2.Text.Text =
Form3.ComboBox3.Text.Text = Form3.TextBox7.Text.Text =
Form3.ComboBox4.Text.Text = Form3.Label7.Text
Sub
Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Close()SubClass
Программный код формы «Предосмотр чека о погашении ипотечного кредита»
Public Class Form7exl As ObjectSub Button1_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles Button1.Click=
CreateObject("excel.application").visible =
True.workbooks.add().range("A1").value = "Дата погашения кредита".range("A2").value =
"Номер договора".range("A3").value = "Тип банк. транзакции".range("A4").value =
"Номер счета".range("A5").value = "Сумма транзакции".range("A6").value = "Номер счета".range("A7").value
= "Сумма
%".range("A8").value = "Валюта".range("A9").value = "Итого".range("D1").value =
Form4.DateTimePicker1.Text.range("D2").value =
Form4.ComboBox1.Text.range("D3").value = Form4.ComboBox2.Text.range("D4").value
= Form4.ComboBox3.Text.range("D5").value =
Form4.TextBox1.Text.range("D6").value =
Form4.ComboBox5.Text.range("D7").value =
Form4.TextBox2.Text.range("D8").value = Form4.ComboBox4.Text.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.Text = Form4.Label7.Text.Text =
Form4.Label5.Text.Text = Form4.Label9.Text.Text = Form4.Label11.Text.Text =
Form4.Label10.Text.Text = Form4.Label3.Text.Text = Form4.Label8.Text.Text =
Form4.Label12.Text.Text = Form4.Label13.Text.Text =
Form4.DateTimePicker1.Text.Text = Form4.ComboBox1.Text.Text =
Form4.ComboBox2.Text.Text = Form4.ComboBox3.Text.Text =
Form4.TextBox1.Text.Text = Form4.ComboBox5.Text.Text = Form4.TextBox2.Text.Text
= Form4.ComboBox4.Text.Text = Form4.Label4.TextSubClass