Разработка программного модуля ипотечного кредитования банковской информационной системы
Моделирование предметной области. Состав программного модуля. Разработка логической структуры единой базы данных банковской информационной системы "БИС". Создание экранных форм для ввода и корректировки информации. Разработка интерфейса пользователя.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 17.05.2016 |
| Размер файла | 1,8 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Автономная некоммерческая образовательная организация высшего образования
«Одинцовский гуманитарный университет»
Колледж
КУРСОВАЯ РАБОТА
по дисциплине «Разработка, внедрение и адаптация программного обеспечения отраслевой направленности»
Тема: «Разработка программного модуля ипотечного кредитования банковской информационной системы»
Выполнил: студент 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. Ипотечное кредитование.
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 «Схема базы данных»
В программном модуле используются следующие таблицы и поля единой базы данных.
Таблица «Contracts» (Рис. 2)
Рис. 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 |
Приложение 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
Программный код модуля ипотечного кредитования
Программный код главного меню.
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.ur
Подобные документы
Выбор методологии проектирования и разработка информационной системы "Расчёт зарплаты" для предприятия ОАО РТП "Авторемонтник". Архитектурное проектирование базы данных информационной системы и разработка её интерфейса. Тестирование программного модуля.
дипломная работа [2,3 M], добавлен 25.05.2014Анализ предметной области, главных функций организации. Разработка макета внутренней структуры программного обеспечения информационной системы в виде диаграммы классов. Составление схемы базы данных. Разработка интерфейса и руководства пользователя.
курсовая работа [866,3 K], добавлен 02.06.2015Анализ предметной области. Средства и технологии разработки программного обеспечения. Требования к аппаратным и операционным ресурсам. Создание навигационного меню. Структура данных таблиц. Разработка интерфейса модуля. Сортировка и фильтрация данных.
дипломная работа [3,7 M], добавлен 12.05.2018Описание разрабатываемой программы с точки зрения пользователя и программиста. Поэтапная разработка программной системы. Создание базы данных в Access. Разработка структуры классов. Создание структуры для хранения данных. Проектирование интерфейса.
курсовая работа [1,4 M], добавлен 07.08.2013Проектирование базы данных, информационной подсистемы PLC-Tester, модуля тестирования и web-приложения. Разработка логической структуры программного продукта и общие требования к техническому обеспечению. Запуск программы и описание тестовых прогонов.
дипломная работа [3,2 M], добавлен 30.06.2011Структурная диаграмма программного модуля. Разработка схемы программного модуля и пользовательского интерфейса. Реализация программного модуля: код программы; описание использованных операторов и функций. Вид пользовательской формы с заполненной матрицей.
курсовая работа [215,3 K], добавлен 01.09.2010Системный анализ предметной области. Построение концептуальной и даталогичной модели базы данных. Физическое проектирование базы данных. Описание функциональной модели системы управления базами данных. Разработка экранных форм ввода-вывода и отчета.
курсовая работа [1,1 M], добавлен 09.12.2014Анализ предметной области. Обеспечение качества проектной документации. Построение инфологической (концептуальной) модели предметной области. Проектирование физической структуры базы данных. Разработка интерфейса, организация ввода и поиска данных.
курсовая работа [2,5 M], добавлен 10.01.2016Проектирование программного модуля: сбор исходных материалов; описание входных и выходных данных; выбор программного обеспечения. Описание типов данных и реализация интерфейса программы. Тестирование программного модуля и разработка справочной системы.
курсовая работа [81,7 K], добавлен 18.08.2014Проектирование структуры информационной базы и разработка программного комплекса, позволяющего автоматизировать процесс учета налогоплательщиков. Разработка конфигурации и создание интерфейса базы данных, форм и отчетов в программе "1С Предприятие".
дипломная работа [3,2 M], добавлен 21.06.2015
