Автоматизация потребительского кредита в коммерческом банке

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

В последнее время достаточно широкое применение в практике зарубежных банков нашли кредиты с «шаровым» платежом, когда предусматривается крупный итоговый («шаровой») платеж в счет погашения основного долга. Разновидностями такого рода кредитов являются кредиты, предполагающие:

в течение кредитного периода выплату только процентов, а в конце срока «шаровой» платеж в счет погашения долга;

частичную амортизацию кредита с итоговым «шаровым» платежом, то есть в течение кредитного срока уплачиваются проценты и частично погашается основной долг, а в конце срока вносится оставшаяся часть долга;

замораживание процентных выплат до конца срока кредита, по окончании срока выплачивается вся сумма кредита и начисленный сложный процент.

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

Индексируемые инструменты кредитования были разработаны для стран с высокой инфляцией. Среди таких инструментов следует назвать кредит с индексацией непогашенной суммы долга и кредит с двойной индексацией /31/.

Кредит с индексацией долга предполагает корректировку непогашенной суммы долга на основе выбранного индекса. В качестве индекса берутся различные показатели в зависимости от ситуации в экономике, а также от источников и стоимости ресурсов, привлекаемых для выдачи кредитов, _ индекс потребительских цен, доллар США, индекс минимальной заработной платы, уровень инфляции и др. Такой инструмент позволяет производить погашение кредита одинаковыми платежами в реальных суммах при изменении номинальных величин платежей. Инфляционный риск при этом целиком переносится на заемщика. В то же время возрастает кредитный риск, так как рост индекса может опережать рост реального дохода заемщика.

Кредит с двойной индексацией позволяет более равномерно распределить риски между заемщиком и кредитором. Применяются два индекса:

платежи индексируются по какому-либо показателю дохода, обеспечивая тем самым возвратность кредита и его доступность;

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

Таким образом, в заранее оговоренное время (чем выше инфляция, тем чаще) меняется номинальная стоимость платежей с учетом изменений в индексе заработной платы, а номинальная стоимость непогашенного остатка долга изменяется с учетом динамики индекса инфляции.

Разновидностью кредита с двойной индексацией является кредит с регулируемой отсрочкой платежа, который предполагает применение двух процентных ставок. Одна процентная ставка должна обеспечить прибыльность кредитных организаций для банка, а другая - сделать кредит доступным для заемщика. Первая ставка, более высокая, называется «Контрактной ставкой» т определяет размер платежа, который сделает кредитование рентабельным для банка и который клиент должен был бы в принципе выплачивать банку. Размер этого процента регулярно рассчитывается на основе ставки процента на межбанковском рынке кредитов.

Однако в действительности регулярные ежемесячные платежи по кредиту заемщик делает по достаточно низкой ставке, которая называется «платежной». Разница между величиной, которую клиент должен банку по контрактной ставке, и тем, что он платит по платежной ставке, регулярно прибавляется к сумме основного долга заемщика. Величина ежемесячного платежа заемщика периодически пересчитывается исходя из возросшей суммы задолженности таким образом, чтобы к концу срока клиент погасил ее полностью. Можно сказать, что платежи по полной «контрактной» процентной ставке взимаются в более поздний период.

В то же время использование кредитных инструментов (в частности, инструмент с регулируемой отсрочкой платежей) с индексацией основной суммы долга сопряжено с проблемой роста кредитной задолженности или «негативной амортизации», что увеличивает риск ликвидности, который означает, что приток наличных средств в банк может оказаться недостаточным по сравнению с величиной платежей по требованиям вкладчиков (включая платежи по процентам). Очевидно, что риск ликвидности выше для тех банков, пассивы которых сконцентрированы в краткосрочных депозитах, а активы - в долгосрочных кредитах.

Поскольку существует множество различных видов кредита (некоторые из них предусматривают равновеликие выплаты, в то время как другие - переменные платежи) и поскольку сумма залога по ним может быть различна, необходимо с должным вниманием и осторожностью относится к определению сумм и времени осуществления платежей при оценке риска и требуемой ставки.

ГЛАВА 3. ПРОЕКТНАЯ ЧАСТЬ. АВТОМАТИЗАЦИЯ ПОТРЕБИТЕЛЬСКОГО КРЕДИТА В КОММЕРЧЕСКОМ БАНКЕ

3.1 Выбор среды программирования

C++Builder 6 -это мощная система визуального объектно-ориентированного программирования, позволяющая решать множество задач, в частности:

* Создавать законченные приложения для Windows самой различной направленности, от чисто вычислительных и логических, до графических и мультимедиа.

* Быстро создавать (даже начинающим программистам) профессионально выглядящий оконный интерфейс для любых приложений, написанных на любом языке. В частности, с помощью C++Builder можно объединить в единую систему с удобным современным интерфейсом имеющиеся на предприятии прикладные программы DOS, Windows и др. Интерфейс удовлетворяет всем требованиям Windows и автоматически настраивается на ту систему, которая установлена на компьютере пользователя, поскольку использует многие функции, процедуры, библиотеки Windows.

* Создавать мощные системы работы с локальными и удаленными базами данных любых типов. При этом имеются средства автономной отладки приложений с последующим выходом в сеть.

* Создавать многозвенные распределенные приложения, основанные на различных технологиях.

* Создавать приложения, которые управляют другими приложениями, в частности, такими программами Microsoft Office, как Word, Excel и др.

* Создавать кросс-платформенные приложения, которые можно компилировать и эксплуатировать как в Windows, так и в системе Linux.

* Создавать приложения различных классов для работы в Интернет и в интранет.

* Создавать профессиональные программы установки для приложений Windows, учитывающие всю специфику и все требования Windows.

* И многое, многое другое, включая создание отчетов, справочных систем, библиотек DLL, компонентов ActiveX и т.п.

C++Builder -- чрезвычайно быстро развивающаяся система, так как ее создатели постоянно отслеживают все тенденции информационных технологий. Новые версии выпускаются ежегодно /28/.

Прежде всего, надо отметить старшую сестру C++Builder -- Delphi. Это тоже система визуального объектно-ориентированного программирования, которая появилась несколько раньше C++Builder. Внешне Delphi является точной копией C++Builder, имеет тот же набор компонентов, те же страницы библиотеки, тот же инструментарий. Но Delphi использует не язык C++, а язык Object Pascal. Новые версии C++Builder выходят параллельно с версиями Delphi, но сдвинутые во времени примерно на полгода. При этом новые версии Delphi обычно содержат много нового, а версии C++Builder реализуют то, что введено в очередной версии Delphi, и добавляют нечто новое, что в дальнейшем будет добавлено в очередной версии Delphi.

Язык C++ пока несколько более мощный, чем Object Pascal. К тому же

в C++ наработаны более обширные библиотеки функций. Так что некоторые, сравнительно сложные задачи проще решать с помощью C++Builder /28/.

3.2 Реализация базы данных

При разработке программного продукта «Автоматизация кредитных операций» были использованы ADO-технологии.

Чтобы облегчить работу с OLE DB, был создан дополнительный прикладной уровень, который получил название ADO (ActiveX Data Objects). Работать с ADO существенно проще, чем с OLE DB. Технология ADO предназначена для прикладных программистов.Компания Borland также решила заменить технологию BDE новой технологией под названием dbExpress. Следует отметить, что ADO по своим возможностям и идеологии в большей степени напоминает BDE. Как BDE, так и ADO поддерживают навигацию, манипулирование наборами данных, обработку транзакций, кэшируемые обновления (в ADO они называются batch updates (пакетные обновления)). Иными словами, концептуально и идеологически ADO и BDE являются похожими технологиями /29/.

Провайдеры ADO.

Провайдеры ADO обеспечивают соединение приложения, использующего данные через ADO, с источником данных (сервером SQL, локальной СУБД, файловой системой и т. Д.). Для каждого типа хранилища данных должен существовать провайдер ADO.

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

Список установленных в данной операционной системе провайдеров доступен для выбора при установке соединения через компонент TADOConnection.

При инсталляции ActiveX Data Objects 2.1 в операционной системе устанавливаются следующие стандартные провайдеры.

Microsoft Jet OLE DB Provider обеспечивает соединение с данными СУБД Access при посредстве технологии ADO.

Microsoft OLE DB Provider for ODBC drivers обеспечивает доступ к данным, которые уже «прописаны» при помощи драйверов ODBC. Однако реальное использование столь экзотичных вариантов соединений представляется проблематичным. Драйверы ODBC и так славятся своей медлительностью, поэтому дополнительный слой сервисов здесь ни к чему.

Microsoft OLE DB Provider for Oracle обеспечивает соединение с сервером Oracle.

Microsoft OLE DB Provider for SQL Server обеспечивает соединение с сервером MS SQL Server.

Компоненты страницы ADO.

Компонент dbGo	Описание	Эквивалент из комплекта BDE
ADOConnection	Подключение к базе данных	База данных
ADOCommand	Исполняет команду SQL	Нет эквивалента
ADODataSet	Многоцелевой наследник TdataSet	Нет эквивалента
ADOTable	Инкапсулирует таблицу	Table
ADOQuery	Инкапсулирует SQL SELECT	Query
ADOStoredProc	Инкапсулирует сохраненную процедуру (stored procedure)	StoredProc
RDSConnection	Подключение Remote Data Services	Нет эквивалента

3.2.1 Реализация ADO в Cbuilder

Механизм доступа к данным через ADO и многочисленные объекты, и интерфейсы реализованы в VCL Cbuilder в виде набора компонентов, расположенных на странице ADO.

Компонент TADOConnection вобрал возможности перечислителя, источника данных и сессии с возможностями обслуживания транзакций.

Текстовые команды ADO реализованы в компоненте TADocommand.

Наборы рядов (нотация Microsoft) можно получить при помощи компонентов TADOTable, TADOQuery, TADOStoredproc. Каждый из них реализует способ доступа к конкретному типу представления данных в хранилище. Далее по тексту применительно к компонентам Delphi совокупность возвращаемых из хранилища данных строк будем называть набором записей, что соответствует документации Inprise и стилю изложения предыдущих глав.

Набор свойств и методов компонентов ADO обеспечивает реализацию всех необходимых приложению БД функций. Способы использования компонентов ADO немногим отличаются от стандартных компонентов VCL доступа к данным /30/.

Однако при необходимости разработчик может использовать все возможности интерфейсов ADO, обращаясь к ним через совокупность объектов ADO. Ссылки на объекты имеются в компонентах (см. ниже).

Механизм соединения с хранилищем данных ADO

Компоненты доступа к данным ADO могут использовать два варианта подключения к хранилищу данных. Это стандартный метод ADO и стандартный метод Cbuilder.

В первом случае компоненты используют свойство connectionString для прямого обращения к хранилищу данных. Во втором случае используется специальный компонент TADOconnection, который обеспечивает расширенное управление соединением и позволяет обращаться к данным нескольким компонентам одновременно.

Свойство Connectionstring предназначено для хранения информации о соединении с объектом ADO. В нем через точку с запятой перечисляются все необходимые параметры. Как минимум это должны быть имена провайдера соединения или удаленного сервера:

Connectionstring:='Remote Server=ServerName;Provider=ProviderName';

При необходимости указываются путь к удаленному провайдеру:

Connectionstring:='Remote Provider=ProviderName';

и параметры, необходимые провайдеру:

'User Name=UserName;Password=Password'

Каждый компонент, обращающийся к хранилищу данных ADO самостоятельно, задавая параметры соединения в свойстве Connectionstring, открывает собственное соединение. Чем больше приложение содержит компонентов ADO, тем больше соединений может быть открыто одновременно.

Поэтому целесообразно реализовать механизм соединения ADO через специальный компонент -- TADOconnection. Этот компонент открывает соединение, также заданное свойством Connectionstring (см. выше) и предоставляет разработчику дополнительные средства управления соединением.

Компонент TADOConnection

Компонент TADOconnection предназначен для управления соединением с объектами хранилища данных ADO. Он обеспечивает доступ к хранилищу данных компонентам ADO, инкапсулирующим набор данных (см. ниже).

Применение этого компонента дает разработчику ряд преимуществ.

Все компоненты доступа к данным ADO обращаются к хранилищу данных через одно соединение

Возможность напрямую задать объект провайдера соединения

Доступ к объекту соединения ADO

Возможность выполнять команды ADO

Выполнение транзакций

Расширенное управление соединением при помощи методов-обработчиков событий.

Соединение с хранилищем данных ADO устанавливается при помощи свойства Connectionstring (см. выше) И свойства Connection или методов Open и close по аналогии со стандартным компонентом Tdatabase. При необходимости провайдер соединения ADO определяется напрямую свойством provider. Если соединение по какой-либо причине не удается установить, в свойстве DefaultDatabase задается имя еще одного объекта соединения ADO.

При открытии соединения необходимо вводить имя пользователя и его пароль. Появление стандартного диалогового окна для этого управляется свойством Loginprompt (рис. 4.1.а). Без этого диалога для ввода параметров можно использовать свойство connectionstring (см. выше) или метод-обработчик onLogin.



Рис. 4.1.а форма настройки соединения ADO

Для выбора провайдера ADO и хранилища данных можно воспользоваться формой, которая вызывается двойным щелчком на компоненте, перенесенном на форму, или щелкнув на кнопке в поле редактирования свойства connectionstring в Инспекторе объектов /28/.

Здесь можно настроить соединение через свойство Connectionstring (переключатель Use Connection String) или загрузить параметры соединения из файла с расширением udl (переключатель Use Data Link File).

Файл udl (листинг 3.1.а) представляет собой обычный текстовый файл, в котором указывается название параметра и через знак равенства его значение. Параметры разделяются точкой с запятой.

[oledb] ; Everything after this line is an OLE DB initstring

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files Vcoinmon Files\Borland Shared\Data\DBDEMOS.mdb

При нажатии кнопки Build появляется диалоговое окно, в котором можно настроить параметры соединения вручную.

Первая страница позволяет выбрать провайдер для конкретного типа источника данных из числа провайдеров, установленных в системе (рис. 4.1.б).



Рис.4.1.б. Диалоговое окно настройки параметров соединения на странице выбора провайдера



Рис. 4.1.в. Диалоговое окно настройки параметров соединения на странице выбора источника данных

Состав элементов управления следующих страниц зависит от типа источника данных. Рассмотрим процесс настройки на примере демонстрационной БД MS Access.

Страница Connection позволяет задать полный путь к файлу базы данных (расширение MDB) и имя и пароль пользователя (рис. 4.1.в).



Рис. 4.1.г. Диалоговое окно настройки параметров соединения на странице дополнительных параметров

Страница Advanced задает дополнительные параметры соединения. В зависимости от типа хранилища данных, некоторые элементы этой страницы могут быть недоступны (рис. 4.1.г).

Список Impersonation level определяет возможности клиентов при подключении в соответствии с полномочиями их ролей. В списке могут быть выбраны следующие значения:

Anonymous -- роль клиента недоступна серверу;

Identify -- роль клиента опознается сервером, но доступ к системным объектам заблокирован;

Impersonate -- процесс сервера может быть представлен защищенным контекстом клиента;

Delegate -- процесс сервера может быть представлен защищенным контекстом клиента, при этом сервер может осуществлять другие подключения.

Список Protection level позволяет задать уровень защиты данных. В списке могут быть выбраны следующие значения:

None -- подтверждение не требуется;

Connect -- подтверждение необходимо только при подключении;

Call - подтверждение источника данных при каждом запросе;

Pkt -- подтверждение получения от клиента всех данных;

Pkt Integrity - подтверждение получения от клиента всех данных с соблюдением целостности;

Pkt Privacy - подтверждение получения от клиента всех данных с соблюдением целостности и защита шифрованием.

В поле Connect timeout можно задать время ожидания соединения в секундах. По истечении этого времени процесс прерывается.

Рис.4.1.д. Диалоговое окно настройки параметров соединения на странице просмотра настроек

Список Access permissions задает права доступа к отдельным видам выполняемых операций. В списке можно выбрать следующие значения:

Read -- только чтение;

ReadWrite -- чтение и запись;

Share Deny None -- полный доступ всем на чтение и запись;

Share Deny Read -- чтение запрещено всем;

Share Deny Write -- запись запрещена всем;

Share Exclusive -- чтение и запись запрещена всем;

Write -- только запись.

Страница All позволяет просмотреть и при необходимости изменить все сделанные настройки для выбранного провайдера (рис. 4.1.д). После подтверждения сделанных в диалоговом окне настроек из них формируется значение свойства ConnectionString.

Соединение может быть синхронным и асинхронным. Этот параметр определяется cвойством ConnectOptions.

Свойство:

type TconnectMode = (cmUnknown, cmRead, cmWrite, cmReadWrite, cmShareDenyRead, cmShareDenyWrite, cmShareExclusive, cmShareDenyNone);

property Mode: TconnectMode;

задает доступные для соединения операции:

cmUnknown -- разрешение неизвестно или не может быть установлено;

cmRead -- разрешение на чтение;

cmwrite -- разрешение на запись;

cmReadWrite -- разрешение на чтение и запись;

cmShareDenyRead -- разрешение на чтение для других соединений запрещено;

cmShareDenyWrite -- разрешение на запись для других соединений запрещено;

cmShareExclusive -- разрешение на открытие для других соединений запрещено;

cmShareDenyNone -- открытие других соединений с разрешениями запрещено.

3.3 Описание компонентов

Button - кнопка

Edit -поле ввода и редактирования

CheckBox - опция выбора Истина/Ложь

ComboBox - поле выбора

Memo - многостроковое поле ввода и редактирования

RadioButton - опция выбора Истина

PageControl - компонента перехода по страницам

MainMenu - компонента создания меню

TreeView - компонента дерева

DBNavigator - компонента ввода, редактирования и удаления данных в таблицу

DataSource - компонента связи с таблицей

DBGrid - компонента отражения данных из таблицы

DBEdit - компонента отражения одной данной из таблицы

DBLookupComboBox - компонента отражения данных из родителькой таблицы в дочерней

DBComboBox - компонента выбора данных

3.4 Разработка программного продукта «Автоматизация потребительского кредита в коммерческом банке»

3.4.1 Создание главной формы программы

В программной группе «Программы» выбрать приложение «C++ Builder 6», затем пункт меню «C++ Builder 6» /1/.

Создать NewForm, ее свойства «Caption» назвать «Автоматизация потребительского кредита в коммерческом банке»» и «Name» - fGlavForma.

На форму установить следующие компоненты:

cо страницы «Standard» одну компоненту MainMenu;

cо страницы «Win 32» одну компоненту PageControl.

Устанавливаем текущей компоненту MainMenu, создаем строки меню, для этого двойным нажатием на правой кнопки мыши открываем следующее окно.

Рис 4.2 Конструктор меню

В пункт меню «Справочная информация» напишем обработчик события открытия формы «Клиенты».

void __fastcall TfGlavForma::N2Click(TObject *Sender)

{

fKlient->Show();

}

В компоненте PageControl создаем страницы, нажатием правой кнопкой мыши на компоненте выбираем команду NewPage

На форму установить компоненты, расположенные на следующих страницах:

Страница «ADO»



№ п/п	Компонента	Количество
1.	ADOTable	3
2.	ADOConnection	1

Страница «Data Access»

№ п/п	Компонента	Количество
1.	DataSource	3

Страница «DataControls»

№ п/п	Компонента	Количество
1.	DBNavigator	3
2.	DBGrid	5

В компоненте PageControl свойства TabSheet1 устанавливаем «Клиенты», TabSheet2- «Заявление на кредит», TabSheet3-«Кредитные договора».

Устанавливаем связь между компонентами.

ADOTable1 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Klient, свойство Name- ADOKlient, свойство Active- True.

ADOTable2 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - KreditDogovor, свойство Name- ADOKreditDogovor, свойство Active- True.

ADOTable3 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Zayavka, свойство Name- ADOZayavka, свойство Active- True.

DataSource1-свойство DataSet установим ADOKlient, свойство Name переименуем на DSKlient.

DataSource2-свойство DataSet установим ADOKreditDogovor, свойство Name переименуем на DSKreditDogovor.

DataSource3-свойство DataSet установим ADOZayavka, свойство Name переименуем на DSZayavka.

Оформляем вкладку «Клиенты», для этого выносим на форму каждое поле таблицы Klient, следующим образом, двойным нажатием правой кнопки мыши на компоненте ADOKlient открываем окно fGlavForma.ADOKlient, в открывшемся окне левой кнопкой мыши выбираем команду Add all fields, в окне отразятся все поля таблицы.

Рис 4.3 Окно полей таблицы

Свойство DataSource компоненты DBGrid устанавливаем DSKlient.

Свойство DataSource компоненты DBNavigator устанавливаем DSKlient.

Вкладка должна иметь следующий вид.



Рис 4.4 Вкладка «Клиенты»

Оформляем вкладку «Заявление на кредит», для этого выносим на форму каждое поле таблицы Zayavka, следующим образом, двойным нажатием правой кнопки мыши на компоненте ADO Zayavka открываем окно fGlavForma.ADO Zayavka, в открывшемся окне левой кнопкой мыши выбираем команду Add all fields, в окне отразятся все поля таблицы.



Рис.4.5 Окно полей таблицы Zayavka

Свойство DataSource компоненты DBGrid устанавливаем DSZayavka.

Свойство DataSource компоненты DBNavigator устанавливаем DSZayavka.

Вкладка должна иметь следующий вид.



Рис 4.6 Вкладка «Заявление на кредит»

Оформляем вкладку «Кредитные договора», для этого выносим на форму каждое поле таблицы KreditDogovor, следующим образом, двойным нажатием правой кнопки мыши на компоненте ADO KreditDogovor открываем окно fGlavForma.ADO KreditDogovor, в открывшемся окне левой кнопкой мыши выбираем команду Add all fields, в окне отразятся все поля таблицы.



Рис 4.7 Окно полей таблицы KreditDogovor

Свойство DataSource компоненты DBGrid устанавливаем DSZayavka.

Свойство DataSource компоненты DBNavigator устанавливаем DSZayavka.

Вкладка должна иметь следующий вид.



Рис 4.8 Вкладка «Кредитные договора»

Форму сохраняем под именем GlavForma.pas.без сохранения проекта.

3.4.2 Разработка формы «Поиск записей» в документе. «Заявление на потребительский кредит»

Создаем новую форму New Form, в его свойствах укажем следующее: св-во Caption Поиск записей, Name- fPoick.

На форму установить следующие компоненты:

Страница «Standard»

№	Компонента	Количество
1.	Button	2
2.	ComboBox	1
3.	MaskEdit	1
4.	Edit	2

Выделяем компоненту Button1 и в его свойстве Caption укажите «НАЙТИ», а в Button2- Очистить поиск записей.

Выделяем компоненту ComboBox1 и в его свойстве Items составим список полей таблицы, по которым будет осуществляться поиск записей.

Рис 4.9 Окно поиска записей

Выделяем компоненту MaskEdit1 и в его свойстве EditMask создадим маску для поля дата договора, выбрав Date.

Рис 4.10 Окно маски ввода

Выделив компоненту Button1, в Object Inspertor на странице Events вызовите событие OnClick двойным нажатием правой кнопкой мыши.

При поиске записей работает метод Locate- поиск по произвольным полям.

В метод Locate необходимо передать список полей, по которым будет идти поиск (параметр KeyFields, имена полей разделяются точкой с запятой), их требуемые значения (параметр KeyValues, значения разделяются запятой) и настройки поиска (параметр options) /28/.

В случае успеха поиска курсор набора данных устанавливается на найденной записи, а метод возвращает значение True.

Обработчик события для поиска записей следующий:

void __fastcall TfPoick::Button1Click(TObject *Sender)

{

TLocateOptions SearchOptions;

SearchOptions;

if (ComboBox1->Text=="Заемщик")

fZavka->ADOZavka->Locate("FIO",Edit1->Text,SearchOptions);

if (ComboBox1->Text=="Дата")

fZavka->ADOZavka->Locate("Data",MaskEdit1->Text,SearchOptions);

if (ComboBox1->Text=="№ Заявления")

fZavka->ADOZavka->Locate("Nomer",Edit2->Text,SearchOptions);

fPoick->Close();

}

Форму сохранить под именем Poick.pas.

автоматизация потребительский кредит коммерческий банк

3.4.3 Разработка формы «Клиенты»

В программной группе «Программы» выбрать приложение «C++Builder 6 », затем пункт меню «C++Builder 6».

Создать NewForm, ее свойства «Caption» назвать «Клиенты» и «Name» - fKlient.

На форму установить следующие компоненты:

cо страницы «ADO» 1 компонента ADOConnection, ADOTable 6 штук;

cо страницы «DataAccess» 6 компонентов DataSource;

cо страницы «DataControls» 1 компоненту DBNavigator;

cо страницы «Standard» 1 компоненту GroupBox.

Устанавливаем текущей компоненту ADOConnection, выделяем свойство

ConnectionString, при нажатии ***, открывается окно

Рис 4.11 Построитель связи

Form1.ADOConnectionConnectionString, в открывшемся окне нажимаем кнопу «Build».

В открывшемся окне во вкладке «Поставщик данных» выбираем Microsoft JET 4.0 OLE

DB Provider, во вкладке «Подключение» укажите имя базы данных Access, затем нажимаете кнопу «Проверить подключение» и по умолчанию нажимаем кнопки «ОК».

Свойство Login Promt указываем False, для того чтобы во время выполнения программы не открывалось окно сообщения пользователя и пароля.

Устанавливаем связь между компонентами.

ADOTable1 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Klient, свойство Name- ADOTableKlient, свойство Active- True.

ADOTable2 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Strana, свойство Name- ADOTableStrana, свойство Active- True.

ADOTable3 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - City, свойство Name- ADOTableCity, свойство Active- True.

Рис 4.12 Окно пути связи с базой данных

ADOTable4 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Oblast, свойство Name- ADOTableOblast, свойство Active- True.

ADOTable5 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы -Raion, свойство Name- ADOTableRaion, свойство Active- True.

DataSource1-свойство DataSet установим ADOTableKlient, свойство Name переименуем на DSKlient.

DataSource2-свойство DataSet установим ADOTableStrana, свойство Name переименуем на DSStrana.

DataSource3-свойство DataSet установим ADOTableCity, свойство Name переименуем на DSCity.

DataSource4-свойство DataSet установим ADOTableOblast, свойство Name переименуем на DSOblast.

DataSource5-свойство DataSet установим ADOTableRaion, свойство Name переименуем на DSRaion.

Создаем поля выбора, для этого на форму установим со страницы DataControls четыре штук компонентов DBLookupComboBox.

Устанавливаем связь между компонентами для поля выбора:

DBLookupComboBox1- свойство DataSource установим DSKlient, свойство DataField KodStrana, свойство ListSource установим DSStrana, свойство ListField установим Strana, свойство KeyField установим KodStrana.

DBLookupComboBox2- свойство DataSource установим DSKlient, свойство DataField KodCity, свойство ListSource установим DSCity, свойство ListField установим City, свойство KeyField установим KodCity.

DBLookupComboBox3- свойство DataSource установим DSKlient, свойство DataField KodOblast, свойство ListSource установим DSOblast, свойство ListField установим Oblast, свойство KeyField установим KodObast.

DBLookupComboBox4- свойство DataSource установим DSKlient, свойство DataField KodRaion, свойство ListSource установим DSRaion, свойство ListField установим Raion, свойство KeyField установим KodRaion.

Оформляем форму «Клиенты», для этого выносим на форму каждое поле таблицы Klient следующим образом, двойным нажатием правой кнопки мыши на компоненте ADOTableKlient открываем окно fKlient.ADOTableKlient, в открывшемся окне левой кнопкой мыши выбираем команду Add all fields, в окне отразятся все поля таблицы.

Нажав на выбранное поле, не отпуская правой кнопки мыши переносим на форму поле таблицы.

Свойство DataSource компоненты DBNavigator устанавливаем DSKlient.

Свойство Caption компоненты GroupBox напишем «Адрес».

Форму сохраняем под именем Klient.pas.без сохранения проекта.

Форма должна иметь следующий вид.

Рис 4.13 Форма «Клиенты»

3.4.4 Разработка документа «Заявление на потребительский кредит»

Создаем новую форму New Form, в его свойствах укажем следующее: св-во Caption «Заявление на потребительский кредит», Name- fZavka.

На форму установить следующие компоненты:

Страница «ADO»

№ п/п	Компонента	Количество
1.	ADOTable	4
2.	ADOConnection	1

Страница «Data Access»

№ п/п	Компонента	Количество
1.	DataSource	4

Страница «DataControls»

№ п/п	Компонента	Количество
1.	DBNavigator	1
2.	DBLookupComboBox	3

Страница «Standard»

№ п/п	Компонента	Количество
1.	MainMenu	1
2.	CheckBox	1

Устанавливаем связь между компонентами.

ADOTable1 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Zajavka, свойство Name- ADOZavka, свойство Active- True.

ADOTable2 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Srok, свойство Name- ADOSrok, свойство Active- True.

ADOTable3 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Valuta, свойство Name- ADOValuta, свойство Active- True.

ADOTable4 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Vid, свойство Name- ADOVid, свойство Active- True.

DataSource1-свойство DataSet установим ADOZavka, свойство Name переименуем на DSZavka.

DataSource2-свойство DataSet установим ADOSrok, свойство Name переименуем на DSSrok.

DataSource3-свойство DataSet установим ADOValuta, свойство Name переименуем на DSValuta.

DataSource4-свойство DataSet установим ADOVid, свойство Name переименуем на DSVid.

Создаем поля выбора, для этого на форму установим со страницы DataControls три штуки компонентов DBLookupComboBox.

Устанавливаем связь между компонентами для поля выбора:

DBLookupComboBox1- свойство DataSource установим DSZavka, свойство DataField KodSrok, свойство ListSource установим DSSrok, свойство ListField установим Srok, свойство KeyField установим KodSrok.

DBLookupComboBox2- свойство DataSource установим DSZavka, свойство DataField KodValuta, свойство ListSource установим DSValuta, свойство ListField установим Valuta, свойство KeyField установим KodValuta.

DBLookupComboBox3- свойство DataSource установим DSZavka, свойство DataField KodVid, свойство ListSource установим DSVid, свойство ListField установим Vid, свойство KeyField установим KodVid.

Оформляем форму «Заявление на потребительский кредит», для этого выносим на форму каждое поле таблицы Zayavka следующим образом, двойным нажатием правой кнопки мыши на компоненте ADOZavka открываем окно fZavka.ADOZavka, в открывшемся окне левой кнопкой мыши выбираем команду Add all fields, в окне отразятся все поля таблицы.

Нажав на выбранное поле, не отпуская правой кнопки мыши переносим на форму поле таблицы.

Свойство DataSource компоненты DBNavigator устанавливаем DSZavka. Устанавливаем текущей компоненту MainMenu, создаем строки меню, для этого двойным нажатием на правой кнопки мыши открываем следующее окно.



Рис 4.14 Окно конструктора меню

В пункт меню «Отчет Заявление на потребительский кредит» напишем обработчик события открытия формы отчета.

void __fastcall TfZavka::N1Click(TObject *Sender)

{

fOtchetZavka->QuickRep1->Preview();

}

В пункт меню «Поиск записей» напишем обработчик события открытия формы поиска.

void __fastcall TfZavka::N2Click(TObject *Sender)

{

fPoick->Show();

}

Форму сохраняем под именем Zayavka.pas.без сохранения проекта.

Форма должна иметь следующий вид.



Рис 4.15 Форма «Заявление на потребителський кредит»

3.4.5 Разработка формы «Журнал кредитных договоров»

Создаем новую форму New Form, в его свойствах укажем следующее: св-во Caption «Журнал кредитных договоров», Name- fJurnalKDogovor.

На форму установить следующие компоненты:

Страница «ADO»

№ п/п	Компонента	Количество
1.	ADOTable	1

Страница «Data Access»

№ п/п	Компонента	Количество
1.	DataSource	1

Страница «DataControls»

№ п/п	Компонента	Количество
1.	DBGrid	1
2.	DBNavigator	1

Страница «Standard»

№ п/п	Компонента	Количество
1.	CheckBox	2
2.	Button	1

Устанавливаем связь между компонентами.

ADOTable1 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Credit, свойство Name- ADOTable1, свойство Active- True.

DataSource1-свойство DataSet установим ADOTable1, свойство Name переименуем на DSCredit.

DBGrid1- св-во DataSourse установим DSCredit.

DBNavigator- св-во DataSourse установим DSCredit.

Для отражения в компоненте DBGrid имена полей таблицы для этого необходимо двойным нажатием правой кнопки мыши на компоненте открыть окно.



Рис. 4.16 Окно редактора полей

В ней выбрать команду Add all fields для отражения всех полей таблицы.

Для удаления не нужных полей необходимо выделить поле и выбрать команду Delete Selected(Del).

Чтобы переименовать имена полей таблицы необходимо выделить имя поля и в Object Inspertor найти св-во Title и в его подсвойстве указать № Договора.

Рис. 4.17 Окно «Инспектора объектов»

Следующие имена полей переименутся таким образом:

CRED_DOC_SOGLASH-Дата, FIO- Валюта и т.д.

Выделяем компоненту CheckBox1 и в его свойстве Caption укажите «По клиенту, а CheckBox2 - По объекту.

Обработчик события OnClick для компонентов CheckBox и Button следующий:

void __fastcall TfJurnalKDogovor::CheckBox2Click(TObject *Sender)

{

ADOTable1->Filtered=false;

ADOTable1->Filter="FIO="+QuotedStr(Edit1->Text);

ADOTable1->Filtered=true;

fJurnalKDogovor->Height=517;

}

void __fastcall TfJurnalKDogovor::CheckBox3Click(TObject *Sender)

{

ADOTable1->Filtered=false;

ADOTable1->Filter="ZALOG_NAME="+QuotedStr(DBEdit1->Text);

ADOTable1->Filtered=true;

fJurnalKDogovor->Height=517;

}

void __fastcall TfJurnalKDogovor::Button1Click(TObject *Sender)

{

DBEdit1->Clear();

CheckBox2->Checked=false;

CheckBox3->Checked=false;

Edit1->Clear();

ADOTable1->Filtered=false;

fJurnalKDogovor->Height=323;

}

Эта процедура производит отмену фильтрации и очистку данных введенных в компоненты Edit.

Форма должна иметь следующий вид.

Рис. 4.18 Форма «Журнал кредитных договоров»

3.4.6 Разработка документа «Кредитный договор»

Создаем новую форму New Form, в его свойствах укажем следующее: св-во Caption «Кредитный договор», Name- fKredDogovor.

На форму установить следующие компоненты:

Страница «ADO»

№ п/п	Компонента	Количество
1.	ADOTable	4
2.	ADOConnection	1

Страница «Data Access»

№ п/п	Компонента	Количество
1.	DataSource	4

Страница «DataControls»

№ п/п	Компонента	Количество
1.	DBNavigator	1

Страница «Standard»

№ п/п	Компонента	Количество
1.	CheckBox	1
2.	Button	2
3.	ComboBox	1
4.	Edit	2
5.	CheckBox	1

Устанавливаем связь между компонентами.

ADOTable1 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Credit, свойство Name- ADOKDogovor, свойство Active- True.

ADOTable2 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Srok, свойство Name- ADOSrok, свойство Active- True.

ADOTable3 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Valuta, свойство Name- ADOValuta, свойство Active- True.

ADOTable4 - свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы - Klient, свойство Name- ADOKlient, свойство Active- True.

DataSource1-свойство DataSet установим ADOKDogovor, свойство Name переименуем на DSKDogovor.

DataSource2-свойство DataSet установим ADOValuta, свойство Name переименуем на DSValuta.

DataSource3-свойство DataSet установим ADOSrok, свойство Name переименуем на DSSrok.

DataSource4-свойство DataSet установим ADOKlient, свойство Name переименуем на DSKlient.

Создаем поля выбора, для этого на форму установим со страницы DataControls четыре штуки компонентов DBLookupComboBox.

Устанавливаем связь между компонентами для поля выбора:

DBLookupComboBox1- свойство DataSource установим DSKDogovor, свойство DataField KodSrok, свойство ListSource установим DSSrok, свойство ListField установим Srok, свойство KeyField установим KodSrok.

DBLookupComboBox2- свойство DataSource установим DSKDogovor, свойство DataField KodValuta, свойство ListSource установим DSValuta, свойство ListField установим Valuta, свойство KeyField установим KodValuta.

DBLookupComboBox3- свойство DataSource установим DSKDogovor, свойство DataField KodKlient, свойство ListSource установим DSKlient, свойство ListField установим FIO, свойство KeyField установим KodKlient.

DBLookupComboBox4- свойство DataSource установим DSKDogovor, свойство DataField KodValuta, свойство ListSource установим DSValuta, свойство ListField установим Kurs, свойство KeyField установим KodValuta.

DBGrid- св-во DataSourse установим DSKDogovor.

DBNavigator- св-во DataSourse установим DSKDogovor.

Оформляем форму «Кредитный договор», для этого выносим на форму каждое поле таблицы Credit следующим образом, двойным нажатием правой кнопки мыши на компоненте ADOKDogovor открываем окно fKredDogovor.ADOKDogovor, в открывшемся окне левой кнопкой мыши выбираем команду Add all fields, в окне отразятся все поля таблицы.

В свойствах Caption компонентов Button напишем следующее:

«Найти» и «Очистить поиск записей».

В свойстве Caption компоненты CheckBox указать «Поиск записей».



Рис. 4.19 Форма «Кредитный Договор»

3.4.7 Разработка отчета «Заявление на потребительский кредит»

Создаем новую форму New Form, в его свойстве укажем следующее: Name- fOtchetZavka.

На форму установить следующие компоненты:

Страница «QReport»

№ п/п	Компонента	Количество
1.	QuickRep	1
2.	QRBand	2
3.	QRLabel	1

3.Для компоненты QRBand в свойстве BandType указать rbDetail, в свойстве Caption для компоненты QRLabel указать «Заявление на потребительский кредит».

4. Установить компоненты QRDBText в зависимости какие поля хотите отразить в отчете, а в частности для QRDBText1 в свойстве DataSet указать fZavka->ADOZavka, DataField- Nomer, таким же образом отразить остальные поля документа.

5.Форма должна иметь следующий вид.

Рис. 4.20 Отчет «Заявление на потребительский кредит»

3.6 Описание проекта программы «Автоматизация учета ипотечного кредитования в коммерческих банках»

Главная форма представляет собой экранный интерфейс.

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

Пункты меню составляются при помощи компоненты MainMenu при двойном нажатии правой кнопки мыши которого открывается окно «Конструктор меню».



Рис. 4.22 Строки меню

При нажатиях на строках меню работает событие мыши OnClick, который открывает формы, при этом применяется метод Show. Процедура следующая

void __fastcall TfGlavForma::N4Click(TObject *Sender)

{

fKredDogovor->Show();

}

Листинг модуля.

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "GlavForma.h"

#include "KredDogovor.h"

#include "Spravochniki.h"

#include "JurnalKredDogovor.h"

#include "PAkt.h"

#include "Filtr.h"

#include "JurnalAkt.h"

#include "Klient.h"

#include "Zajavka.h"

#include "OtchenZavka.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TfGlavForma *fGlavForma;

//---------------------------------------------------------------------------

__fastcall TfGlavForma::TfGlavForma(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TfGlavForma::N4Click(TObject *Sender)

{

fKredDogovor->Show();

}

//---------------------------------------------------------------------------

void __fastcall TfGlavForma::N7Click(TObject *Sender)

{

fSpravka->Show();

}

//---------------------------------------------------------------------------

void __fastcall TfGlavForma::N9Click(TObject *Sender)

{

fJurnalKDogovor->Show();

}

//---------------------------------------------------------------------------

void __fastcall TfGlavForma::N6Click(TObject *Sender)

{

fPAkt->Show();

}

//---------------------------------------------------------------------------

void __fastcall TfGlavForma::N10Click(TObject *Sender)

{

fJurnalAkt->Show();

}

//---------------------------------------------------------------------------

void __fastcall TfGlavForma::N8Click(TObject *Sender)

{

fKlient->Show();

}

//---------------------------------------------------------------------------

void __fastcall TfGlavForma::N5Click(TObject *Sender)

{

fZavka->Show();

}

//---------------------------------------------------------------------------

void __fastcall TfGlavForma::N12Click(TObject *Sender)

{

fOtchetZavka->QuickRep1->Preview();

}

//---------------------------------------------------------------------------

Главная форма состоит из строк меню:

Справочники состоит из справочной информации, которая посредством поля выбора используется в доку...