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

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

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

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

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

Колледж

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

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

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

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

Одинцово 2016

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

Содержание

• Введение
• 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