Проектування інформаційної системи підтримки проведення кредитних операцій

1. Кнопка «Коефіцієнт маневреності власних коштів» - викликає звіт «КМ», який

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

2. Кнопка «Коефіцієнт загальної ліквідності» - викликає звіт «КП», який містить

значення коефіцієнта  загальної ліквідності на початок  та на кінець звітного періоду.

3. Кнопка «Коефіцієнт миттєвої ліквідності» - викликає звіт «КЛ1» який містить

значення коефіцієнта  миттєвої ліквідності на початок  та на кінець звітного періоду.

4. Кнопка «Коефіцієнт поточної ліквідності» - викликає звіт «КЛ2», який містить

значення коефіцієнта  поточної ліквідності на початок  та на кінець звітного періоду.

5. Кнопка «Коефіцієнт незалежності» - викликає звіт «КН», який містить значення

коефіцієнта незалежності на початок та на кінець звітного періоду.

6. Кнопка «Забезпечення наступних витрат і платежів» - викликає відповідну форму,

що містить вибіркові дані таблиці «Баланс (пасив)» на початок та на кінець звітного періоду.

7. Кнопка «Звіт про фінансові результати» - викликає відповідну форму , що містить 

дані таблиці «Звіт  про фінансові результати» на початок та на кінець звітного періоду.

8. Кнопка «Витрати майбутніх періодів» - викликає відповідну форму , що містить

вибіркові дані таблиці «Баланс (актив) » на початок та на кінець звітного періоду.

9. Кнопка «Довгострокові зобов’язання» - викликає відповідну форму , що містить

вибіркові дані таблиці «Баланс (пасив)» на початок та на кінець звітного періоду.

10. Кнопка «Поточні зобов’язання» - викликає відповідну форму, що містить вибіркові

дані таблиці «Баланс (пасив)» на початок та на кінець звітного періоду.

11. Кнопка «Оборотні активи» - викликає відповідну форму, що містить вибіркові дані

таблиці «Баланс (актив)»  на початок та на кінець звітного періоду.

12. Кнопка «Необоротні активи» - викликає відповідну форму, що містить вибіркові

дані таблиці «Баланс (актив)» на початок та на кінець звітного періоду.

13. Кнопка «Власний капітал» - викликає відповідну форму, що містить вибіркові дані

таблиці «Баланс (пасив)»  на початок та на кінець звітного періоду.

14. Кнопка «Інформація про програму» - викликає форму, що містить інформацію про

дану базу даних.

15. Кнопка «Вийти з програми» - відбувається вихід з програми.
16. Кнопка «Інформація про розробника» - викликає форму, що містить інформацію

про розробника інформаційної  ситеми.

 

6.2 Рекомендовані технічні засоби

 

Процесор – Intel з частотою 1,9 ГГц і більше.

Обсяг вільної зовнішньої пам’яті  - не менше 20 Мб.

Оперативна пам’ять –  1 Гб і більше.

Пам’ять відеоадаптера –  50 Мб і більше.

Операційна система –  ОС, що підтримують версію Access 2007.

DVD+/-RW

Принтер – будь-яка модель.

Сканер – будь-яка модель.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ВИСНОВОК

 

В результаті виконання курсового  проекту була розроблена інформаційна автоматизована система, яка дозволяє розраховувати основні показники  кредитоспроможності позичальника. Робота з програмою здійснюється з головної форми шляхом натискання кнопок, для виклику відповідних  форм.

Програма призначена для  використання в банківських установах, а також в навчальних закладах відповідних рівнів в навчальних цілях. Автоматизована система дозволяє розраховувати показники кредитоспроможності, переглядати та змінювати дані, що подаються юридичною особою, яка  бажає отримати кредит. При тестуванні програмного продукту помилок не виявлено.

Дана інформаційна система  значно спрощує роботу працівників  кредитного відділу. Дозволяє зекономити час та ресурси на виконання певних функцій, передбачених програмою. В  зв’язку з цим відбувається економія грошових ресурсів.

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

Основними факторами, які впливають на впровадження інформаційних систем, є потреби  організацій та користувачів, а також  наявність відповідних засобів  для їх формування. Найсуттєвіше на розвиток інформаційних систем вплинули досягнення в галузі комп’ютерної техніки та телекомунікаційних мереж.

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

Автоматизація процесів розрахунків дозволяє суттєво  зменшити ресурси на виконання тих  чи інших операцій.

 

 

 

 

 

 

 

                                  СПИСОК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ 
 
1.    Вінер Н. Бази даних, М.: Наука, 1993 
2.    Стефанюк В.Л. Інформаційні системи і їх застосування. – К., 1999. 
3.    Обчислювальна техніка і її застосування. – Москва, 2000. 
4.    Дейт К. Введение в системы баз данных. 6-е изд. – К.: Диалектика, 1998. 
5.    Мартин Дж. Организация баз данных в вычислительных системах. Мир. 1980. 
6.    Ульман Дж. Основы систем баз данных. Финансы и статистика. 1983. 
7.    Афанасьєв М.В.,Телишевська Л.І.,Рудика В.І.. Оцінка ефективності організаційно-технічних заходів.Навч.посібник. - Харків.:  ІНЖЕК,2003.

8.    Кузнєцов М.С. Оцінка ефективності інформаційних систем. Навч.посібник. – Дніпропетровськ.:НМетАУ,2007.

9.   Економіка підприємства: Підручник / За заг. ред. С.Ф. По кропивного. – Вид. 2-ге., перероб. та доп. – К.: КНЕУ, 2000. – 528 с., іл.

10.    Чери С., Готлоб Г., Танке Л. Логическое программирование и базы данных. Мир. 1992.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ДОДАТОК А

 

 

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

 

Рис.2. Інформація про програму

Рис.3. Інформація про розробника

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ДОДАТОК Б

 

 

Рис. 1. Схема даних

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ДОДАТОК В

 

ПРОЦЕДУРИ ОПИСУ ФУНКЦІЙ  ЕЛЕМЕНТІВ УПРАВЛІННЯ ЕКРАННИХ ФОРМ

 

Форма «Кредитоспроможність позичальника (юридичної особи) »

 

Обробка події натискання кнопки «Витрати майбутніх періодів»

 

Private Sub Кнопка2_Click()

On Error GoTo Err_Кнопка2_Click

 

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1042) & ChrW(1080) & ChrW(1090) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1080) & ChrW(32) & ChrW(1084) & ChrW(1072) & ChrW(1081) & ChrW(1073) & ChrW(1091) & ChrW(1090) & ChrW(1085) & ChrW(1110) & ChrW(1093) & ChrW(32) & ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1110) & ChrW(1086) & ChrW(1076) & ChrW(1110) & ChrW(1074)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка2_Click:

    Exit Sub

 

Err_Кнопка2_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка2_Click

   

End Sub

 

Обробка події натискання кнопки «Власний капітал»

 

Private Sub Кнопка3_Click()

On Error GoTo Err_Кнопка3_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1042) & ChrW(1083) & ChrW(1072) & ChrW(1089) & ChrW(1085) & ChrW(1080) & ChrW(1081) & ChrW(32) & ChrW(1082) & ChrW(1072) & ChrW(1087) & ChrW(1110) & ChrW(1090) & ChrW(1072) & ChrW(1083)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка3_Click:

    Exit Sub

 

Err_Кнопка3_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка3_Click

   

End Sub

 

Обробка події натискання кнопки «Довгострокові зобов’язання»

 

Private Sub Кнопка4_Click()

On Error GoTo Err_Кнопка4_Click

 

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1044) & ChrW(1086) & ChrW(1074) & ChrW(1075) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1082) & ChrW(1086) & ChrW(1074) & ChrW(1110) & ChrW(32) & ChrW(1079) & ChrW(1086) & ChrW(1073) & ChrW(1086) & ChrW(1074) & ChrW(39) & ChrW(1103) & ChrW(1079) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1103)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка4_Click:

    Exit Sub

Err_Кнопка4_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка4_Click

   

End Sub

 

Обробка події натискання кнопки «Доходи майбутніх періодів»

 

Private Sub Кнопка5_Click()

On Error GoTo Err_Кнопка5_Click

 

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1044) & ChrW(1086) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(32) & ChrW(1084) & ChrW(1072) & ChrW(1081) & ChrW(1073) & ChrW(1091) & ChrW(1090) & ChrW(1085) & ChrW(1110) & ChrW(1093) & ChrW(32) & ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1110) & ChrW(1086) & ChrW(1076) & ChrW(1110) & ChrW(1074)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка5_Click:

    Exit Sub

 

Err_Кнопка5_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка5_Click

   

End Sub

 

Обробка події натискання кнопки «Забезпечення наступних  витрат і платежів»

 

Private Sub Кнопка6_Click()

On Error GoTo Err_Кнопка6_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1047) & ChrW(1072) & ChrW(1073) & ChrW(1077) & ChrW(1079) & ChrW(1087) & ChrW(1077) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1103) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1091) & ChrW(1087) & ChrW(1085) & ChrW(1080) & ChrW(1093) & ChrW(32) & ChrW(1074) & ChrW(1080) & ChrW(1090) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(32) & ChrW(1110) & ChrW(32) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1078) & ChrW(1110) & ChrW(1074)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка6_Click:

    Exit Sub

 

Err_Кнопка6_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка6_Click

   

End Sub

 

Обробка події натискання кнопки «Необоротні активи»

 

Private Sub Кнопка7_Click()

On Error GoTo Err_Кнопка7_Click

 

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1053) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1090) & ChrW(1085) & ChrW(1110) & ChrW(32) & ChrW(1072) & ChrW(1082) & ChrW(1090) & ChrW(1080) & ChrW(1074) & ChrW(1080)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка7_Click:

    Exit Sub

 

Err_Кнопка7_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка7_Click

   

End Sub

 

Обробка події натискання кнопки «Оборотні активи»

 

Private Sub Кнопка8_Click()

On Error GoTo Err_Кнопка8_Click

 

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1054) & ChrW(1073) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1090) & ChrW(1085) & ChrW(1110) & ChrW(32) & ChrW(1072) & ChrW(1082) & ChrW(1090) & ChrW(1080) & ChrW(1074) & ChrW(1080)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка8_Click:

    Exit Sub

 

Err_Кнопка8_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка8_Click

   

End Sub

 

Обробка події натискання кнопки «Поточні зобов’язання»

 

Private Sub Кнопка9_Click()

On Error GoTo Err_Кнопка9_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1055) & ChrW(1086) & ChrW(1090) & ChrW(1086) & ChrW(1095) & ChrW(1085) & ChrW(1110) & ChrW(32) & ChrW(1079) & ChrW(1086) & ChrW(1073) & ChrW(1086) & ChrW(1074) & ChrW(39) & ChrW(1103) & ChrW(1079) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1103)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка9_Click:

    Exit Sub

 

Err_Кнопка9_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка9_Click

   

End Sub

 

Обробка події натискання кнопки «Коефіцієнт миттєвої ліквідності»

 

Private Sub Кнопка10_Click()

On Error GoTo Err_Кнопка10_Click

 

    Dim stDocName As String

 

    stDocName = ChrW(1050) & ChrW(1051) & ChrW(49)

    DoCmd.OpenReport stDocName, acPreview

 

Exit_Кнопка10_Click:

    Exit Sub

 

Err_Кнопка10_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка10_Click

   

End Sub

 

Обробка події натискання кнопки «Коефіцієнт поточної ліквідності»

 

Private Sub Кнопка11_Click()

On Error GoTo Err_Кнопка11_Click

 

    Dim stDocName As String

 

    stDocName = ChrW(1050) & ChrW(1051) & ChrW(50)

    DoCmd.OpenReport stDocName, acPreview

 

Exit_Кнопка11_Click:

    Exit Sub

 

Err_Кнопка11_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка11_Click

   

End Sub

 

Обробка події натискання кнопки «Коефіцієнт маневреності власних  коштів»

 

Private Sub Кнопка12_Click()

On Error GoTo Err_Кнопка12_Click

 

    Dim stDocName As String

 

    stDocName = ChrW(1050) & ChrW(1052)

    DoCmd.OpenReport stDocName, acPreview

 

Exit_Кнопка12_Click:

    Exit Sub

 

Err_Кнопка12_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка12_Click

   

End Sub

 

Обробка події натискання кнопки «Коефіцієнт незалежності»

 

Private Sub Кнопка13_Click()

On Error GoTo Err_Кнопка13_Click

 

    Dim stDocName As String

 

    stDocName = ChrW(1050) & ChrW(1053)

    DoCmd.OpenReport stDocName, acPreview

 

Exit_Кнопка13_Click:

    Exit Sub

 

Err_Кнопка13_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка13_Click

   

End Sub

 

Обробка події натискання кнопки «Коефіцієнт загальної ліквідності»

 

Private Sub Кнопка14_Click()

On Error GoTo Err_Кнопка14_Click