Разработка базы данных для программного комплекса «Клиент-Банк»

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

5. Финансово-экономическое обоснование разработки ИСДля оценки экономической эффективности ИС «Клиент-Банк» направление расчета — сравнение созданной системы с существующей, так как известны недостатки существующей системы, в таблице 5.1 приведено сопоставление этих систем. Таблица 5.1Сопоставление существующей и созданной системы

Недостатки существующей системы

Устранение недостатков в существующей системе

Нет возможности просмотреть кредитную историю клиента

Есть возможность просмотра кредитной истории клиента — все выплаченные кредиты, выплачиваемые в данный момент кредиты, информацию о просрочках в платежах по кредитам. Возможность отправки заявки на кредит без заполнения данных о клиенте, если информация о нем уже есть в базе. Отсутствие возможности автоматического формирования SQL-запроса, отправка информации виде отдельного текстового сообщения, а не записи БДПредусмотрен специальный интерфейс ввода, автоматическая передача информации на сервер, виде записи БДОтсутствие возможности поиска информации о клиенте по различным признакам

Возможность поиска информации, за счет готового набора запросов и панели поиска

Устранение недостатков существующей системы приведет к уменьшению числа отказов, а, следовательно, к увеличению прибыли банка. Косвенный эффект от внедрения ИС «Клиент-Банк» заключается в привлечении большего числа клиентов, путем снижения числа отказов из-за большого времени обслуживания. Благодаря устранению недостатков в существующей системе, время обслуживания уменьшается: нет необходимости вносить информацию о клиенте, если он уже брал кредит в банке (экономия — 10−25 мин); нет необходимости отправлять новую заявку, если изменились какие-либо данные (экономия — 15−40 мин).Прямой эффект:

1) абсолютное снижение трудовых затрат (Т) в часах за год: Т = Т0 — Т1, где Т0 — трудовые затраты в часах за год на оформление заявок существующей системой; Т1 — трудовые затраты в часах за год на оформление заявок с использованием ИС «Кредит-Банк». Так как в году 231 рабочий день (отпуск 30 дней, 21 рабочий день в месяц), в среднем сотрудникам торговой точки приходится оформлять 10 заявок в день, в среднем от момента заполнения анкеты до подписания договора проходит 40 минут (0,65 часа), следовательно, Т0=231*10*0,65=1501,5 часов, так как из 10 клиентов в среднем 5 являются постоянными клиентами банка, следовательно, процедура оформления сокращается до 20 минут (0,35 часа), тогда

Т1=231*5*0,65+231*5*0,35=1155 часов

Т=1501,5−1155=346,5 часов2) коэффициент относительного снижения трудовых затрат (КТ):КТ =Т / T0 * 100%=23%3) индекс снижения трудовых затрат или повышение производительности труда (YT):YT = T0 /T1=1,3Абсолютное снижение стоимостных затрат: C=Т*СМЧСМЧ=ЗП/Т, где СМЧ — стоимость машинного часа, ЗП — затраты на заработную плату персонала в год (руб.), Т — время функционирования системы в год (часов). При расчетах стоимости машинного часа пренебрежем затратами на: амортизационные отчисления, затраты на электроэнергию, затраты на текущий ремонт и обслуживание, затраты на технические носители информации, накладные расходы по эксплуатации — так как они значительно меньше затрат на заработную плату и остаются постоянными при эксплуатации имеющейся системы и созданной ИС (парк техники и обслуживающий персонал остаются прежними, изменяется только программное обеспечение), поэтому учтем только затраты на заработную плату. Оклад сотрудника 20 000 руб./месяц, тогда

ЗП=20 000*12=240 000 рублей

Т=Т0=1501,5 часов

СМЧ=240 000/1501,5=160 руб./час

Тогда C=346,5*160=55 440 руб./год

Коэффициент относительного снижения стоимостных затрат:

КC=55 440/(1501,5*160)=0,23Индекс снижения стоимостных затрат: YC=(1501,5*160)/(1155*160)=1,3Период окупаемости Ток = КП /C, где КП — затраты на создание проекта, при расчетах этого показателя не будем брать в учет: амортизационные затраты, затраты на электроэнергию, так как данные затраты значительно меньше затрат на заработную плату программистов. Заработная плата программиста 40 000 руб./месяц, тогда часовая ставка:

ЗПчас=40 000/21*8=238 руб./часtПРТ=240 часов — затраты труда на проектирование и разработку ПП (включает в себя затраты труда на подготовку описания задачи, затраты труда на изучение и постановку задачи, затраты труда на разработку алгоритмов решения задачи, затраты труда на программирование по блок-схеме, затраты труда на отладку программы, затраты труда на подготовку документации по ПП).КП= ЗПчас* tПРТ=238*240=57 120 рублей. Тогда Ток=57 120/55440=1,03 года, то есть внедряемая ИС «Кредит-Банк» окупится через 1 год 1 месяц. На рис. 5.1−5.3 изображены сравнительные диаграммы по основным расчетным показателям.Рис. 5.1 — Сравнение трудовых затрат существующей и созданной системы

Рис. 5.2 — Сравнение стоимостных затрат существующей и созданной системы

Рис. 5.3 — Сравнение стоимостных затрат на ПП и абсолютного снижения стоимостных затрат

Таким образом, внедрение ИС «Кредит-Банк» можно считать целесообразным, так как в ней устранены недостатки существующей системы, что ее внедрение приведет к уменьшению времени обслуживания клиентов, а, следовательно, к уменьшению числа отказов. ИС окупит себя через 1 год 1 месяц, такой период окупаемости приемлем. Заключение

В ходе курсового проектирования был разработана ИС «Кредит-Банк», позволяющая автоматизировать процесс внесения заявления на кредит и анкетныхданных клиента в БД. Результаты работы позволили уменьшить время выполнения процедуры отправки заявления на кредит и анкеты от клиента менеджеру по кредитованию на рассмотрение, а также снизить нагрузку на сотрудников банка. Для корректной работы системы была создана структура информационного фонда системы. Работоспособность программы проверена. В первой главе курсового проекта осуществлено изучение предметной области, а именно: изучение процесса оформления кредита в банке, место этапа отправки заявления на кредит и анкеты клиента менеджеру по кредитованию в данном процессе. В ходе анализа существующей системы, был выявлен недостаток, заключающийся в отсутствии структурированного ИФ для хранения информации о клиентах и заявках, отсутствии эффективного механизма поиска информации о клиенте. Во второй главе были даны проектные решения по информационному обеспечению, а именно создана БД ИС «Клиент-Банк». В третьей главе работы описана программная реализация БД. В четвертой главе дано описание программной реализации системы. В заключительной главе дано финансово-экономическое обоснование разработки и внедрения ИС «Клиент-Банк». Выявленный на предпроектной стадии недостаток существующей системы был устранен в созданной системе, специалист заполняет электронные формы анкет и отправляет информацию на сервер в виде записи БД, а не отдельным файлом. Полученные результаты полностью соответствуют поставленному заданию на курсовое проектирование. Цель работы можно считать достигнутой. Полученные результаты предполагается использовать в деятельности банка при осуществлении оформления кредитов. Дальнейшее развитие программного модуля возможно в следующем направлении: создание системы автоматизированной оценки кредитоспособности физического лица и внедрение телекоммуникационной составляющей для предоставления отчетов начальнику направления о работе отделов в других городах. Список использованной литературы

РожновВ.С., Либерман

В.Б., Умнова

Э.А., Автоматизированные системы обработки учетно-аналитической информации — М.: Финансы и статистика, 2002 — 252с. Атре Ш. Структурный подход к организации баз данных. — М.: Финансы и статистика, 2003 — 320 с. Балабанов И. Т. Основы финансового менеджмента: Учеб. пособие.

М.: Финансы и статистика, 2002 — 340 с. Вейскас Д. Эффективная работа с Access. СПб., BHV, 2004. — 320 с. Гурвиц Г. А. Разработка приложения в среде клиент-сервер, ДВГУПС 2005 — 204 с. Джексон Г. Проектирование реляционных баз данных. — М.: Мир, 2004 — 440 с. Карминский А. М., Нестеров П. В. Информатика в современном бизнесе.

М.: Финансы и статистика, 2002; 228 с. Кириллов В. В. Структурированный язык запросов (SQL). — СПб.: ИТМО, 2004 — 80 с. Котляров В. П. Основы тестирования программного обеспечения. Интернет-университет информационных технологий — Изд-во INTUIT.ru, 2006 — 145 с. Мартин Дж.

Планирование развития автоматизированных систем. — М.: Финансы и статистика, 2004 — 196 с. Мейер М. Теория реляционных баз данных.

— М.: Мир, 2007 — 608 с. Мишенин А. Н. Теория экономических информационных систем. — М.: Финансы и статистика, 2002 — 248 с. Куницына Л. Е. Информационные технологии и системы в экономике: Методический комплекс.

Ростов-на-Дону: РГЭА, 1998;175сМамаев Е. В. Microsoft SQL Server 2005, СПБ.: Питер 2001 — 1280 с. Маргелов В. В., API-интерфейсы доступа к базам данных, М., Byte-reviews, М., 2003 — 316 с. Мелюхин И. Электронные деньги и банковские операции в компьютерных сетях // Мировая экономика и международные отношения. — 2006; 125Паршенцев А. А. Проблема и перспективы развития электронных магазинов // Маркетинг в России и за рубежом. — 2005 — 89Приложения (Код программы) unitmain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SUIButton, StdCtrls, SUIComboBox, Mask, SUIEdit, SUIImagePanel, SUIPageControl, SUITabControl, ExtCtrls, SUIForm, Grids, DBGrids, SUIDBCtrls, DB, ADODB;type TForm1 = class (TForm) suiForm1: TsuiForm; suiPageControl1: TsuiPageControl; suiTabSheet1: TsuiTabSheet; suiTabSheet2: TsuiTabSheet; suiPanel4: TsuiPanel; suiPanel5: TsuiPanel; suiDBGrid1: TsuiDBGrid; suiDBGrid2: TsuiDBGrid; suiDBGrid3: TsuiDBGrid; suiPanel6: TsuiPanel; suiButton4: TsuiButton; suiButton5: TsuiButton; suiButton6: TsuiButton; suiButton7: TsuiButton; suiEdit16: TsuiEdit; suiButton8: TsuiButton; suiButton9: TsuiButton; suiEdit17: TsuiEdit; ADOConnection1: TADOConnection;klient: TDataSource;predpr: TDataSource;zayavka: TDataSource;tklient: TADOTable;tpredpr: TADOTable;tzayavka: TADOTable; suiButton10: TsuiButton; suiCheckBox1: TsuiCheckBox; suiCheckBox2: TsuiCheckBox; suiPageControl2: TsuiPageControl; suiTabSheet3: TsuiTabSheet; suiTabSheet4: TsuiTabSheet; suiTabSheet5: TsuiTabSheet; suiPanel1: TsuiPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; suiEdit1: TsuiEdit; suiEdit2: TsuiEdit; suiEdit4: TsuiEdit; suiEdit5: TsuiEdit; suiEdit6: TsuiEdit; suiEdit7: TsuiEdit; suiComboBox1: TsuiComboBox; suiEdit8: TsuiEdit; suiButton1: TsuiButton; suiPanel3: TsuiPanel; Label4: TLabel; Label5: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; suiMaskEdit2: TsuiMaskEdit; suiEdit3: TsuiEdit; suiEdit9: TsuiEdit; suiEdit10: TsuiEdit; suiComboBox2: TsuiComboBox; suiButton2: TsuiButton; suiEdit11: TsuiEdit; suiPanel2: TsuiPanel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; suiEdit12: TsuiEdit; suiEdit13: TsuiEdit; suiEdit14: TsuiEdit; suiEdit15: TsuiEdit; suiComboBox3: TsuiComboBox; suiButton3: TsuiButton; suiEdit18: TsuiEdit; suiDBGrid4: TsuiDBGrid; suiDBGrid5: TsuiDBGrid; suiDBGrid6: TsuiDBGrid; suiButton11: TsuiButton;procedure suiButton1Click (Sender: TObject);procedure suiButton2Click (Sender: TObject);procedure suiButton3Click (Sender: TObject);procedureFormCreate (Sender: TObject);procedure suiButton4Click (Sender: TObject);procedure suiButton5Click (Sender: TObject);procedure suiButton6Click (Sender: TObject);procedure suiButton10Click (Sender: TObject);procedure suiButton7Click (Sender: TObject);procedure suiButton8Click (Sender: TObject);procedure suiButton9Click (Sender: TObject);procedure suiButton11Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form1: TForm1;fl:boolean;implementation{$R *.dfm}procedure TForm1. suiButton1Click (Sender: TObject);begintrytklient.Append;tklient.FieldByName ('nomer').AsString:=suiEdit1.Text;tklient.FieldByName ('fam').AsString:=suiEdit2.Text;tklient.FieldByName ('name').AsString:=suiEdit4.Text;tklient.FieldByName ('otch').AsString:=suiEdit5.Text;tklient.FieldByName ('telefon').AsString:=suiEdit8.Text;tklient.FieldByName ('mail').AsString:=suiEdit6.Text;tklient.FieldByName ('naimen').AsString:=suiEdit8.Text;tklient.FieldByName ('form').AsString:=suiCombobox1.Text; tklient. postexceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end; suiButton2. Enabled:=true;end;procedure TForm1. suiButton2Click (Sender: TObject);begintrytpredpr.Append;tpredpr.FieldByName ('nomer').AsString:=suiEdit1.Text;tpredpr.FieldByName ('id').AsString:=suiEdit11.Text;tpredpr.FieldByName ('dohod').AsString:=suiMaskEdit2.Text;tpredpr.FieldByName ('kredit').AsString:=suiComboBox2.Text;tpredpr.FieldByName ('adr').AsString:=suiEdit3.Text;tpredpr.FieldByName ('srok').AsString:=suiEdit10.Text;tpredpr.FieldByName ('stoimost').AsString:=suiEdit8.Text; tpredpr. postexceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end; suiButton3. Enabled:=true;end;procedure TForm1. suiButton3Click (Sender: TObject);begintrytzayavka.Append;tzayavka.FieldByName ('nomer').AsString:=suiEdit1.Text;tzayavka.FieldByName ('kod_zayvki').AsString:=suiEdit12.Text;tzayavka.FieldByName ('summa').AsString:=suiEdit18.Text;tzayavka.FieldByName ('data_podachi').AsString:=suiEdit14.Text;tzayavka.FieldByName ('status').AsString:='рассмотрение';tzayavka.FieldByName ('srok').AsString:=suiEdit13.Text;tzayavka.FieldByName ('cel').AsString:=suiEdit15.Text;tzayavka.FieldByName ('zalog').AsString:=suiComboBox3.Text; tzayavka. postexceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end; suiButton2. Enabled:=false; suiButton3. Enabled:=false;end;procedure TForm1. FormCreate (Sender: TObject);begin//suiButton2.Enabled:=false;//suiButton3.Enabled:=false;fl:=true;end;procedure TForm1. suiButton4Click (Sender: TObject);begintzayavka.Edit;tzayavka.FieldByName ('status').AsString:='утверждена'; tzayavka. post;end;procedure TForm1. suiButton5Click (Sender: TObject);begintzayavka.Edit;tzayavka.FieldByName ('status').AsString:='отклонена'; tzayavka. post;end;procedure TForm1. suiButton6Click (Sender: TObject);begintrytzayavka.Delete;exceptMessageDlg ('Нарушениеправилассылочнойцелостности!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton10Click (Sender: TObject);begintzayavka.Edit;tzayavka.FieldByName ('status').AsString:='оплачено'; tzayavka. post;end;procedure TForm1. suiButton7Click (Sender: TObject);beginif fl=true thenbegintzayavka. Filter:='nomer='+tklient.fieldvalues['nomer']; tzayavka. Filtered:=true;fl:=false; suiButton7. Caption:='Показатьвсе'endelsebegintzayavka.Filtered:=false;fl:=true; suiButton7. Caption:='Кредитнаяистория'end;end;procedure TForm1. suiButton8Click (Sender: TObject);beginif suiCheckBox1. Checked thenbegintklient.Filter:='fam='''+suiEdit16.text+'''';tklient.Filtered:=true;end;if suiCheckBox2. Checked thenbegintklient.Filter:='naimen='''+suiEdit17.text+'''';tklient.Filtered:=true;end;end;procedure TForm1. suiButton9Click (Sender: TObject);begintklient.Filtered:=false;end;procedure TForm1. suiButton11Click (Sender: TObject);begintklient.Delete;end;end.