разработка АИС клиентского обслуживания на примере ЗАО Банка "Русский Стандарт"+ пояснительная записка.

Ответственный за формирование и ведение справочников является Администратор АИС. Начальное заполнение справочников системы происходит на этапе внедрения в эксплуатацию. Обновление справочников регламентировано и предусмотрено по мере появления необходимости в добавлении или изменении справочной информации.
Репликация позволяет организовать многопользовательский режим работы с БД, когда не существует локальной связи между компьютерами пользователей. Этап репликации связан с периодическим обновлением информации от автосалонов. В каждом автосалоне будет использоваться модуль АИС, посредством которого имеется возможность вносить информацию о предложениях автомобилей и о рекламных акциях, проходящих в автосалоне. АИС для автосалонов будет работать с частичной репликой основной БД. Частичные реплики будут периодически отсылаться Администратор АИС Call-центра банка, который будет производить репликацию БД – обновление информации в основной реплике о предложениях и акциях автосалонов. Чтобы настроить процесс репликации, Администратор АИС в процессе внедрения системы создаст основную реплику БД и частичные реплики для каждого автосалона-партнера банка «Русский стандарт». Частичной называется реплика, содержащая лишь некоторое подмножество данных из одной или нескольких реплицированных таблиц. Создание реплик и управление процессом репликации будет осуществляться Администратором системы посредством Диспетчера репликацией, который входит в состав пакета Microsoft Office Developer. Диспетчер репликации облегчает планирование топологии репликации и настройку расписания синхронизации набора реплик. С его помощью можно задать расписание синхронизации, не написав ни строчки программного кода. Кроме того, он представляет собой удобное средство для анализа данных о выполненных операциях синхронизации набора реплик. [16, с. 391].
Пересылаемые по электронной почте частичные реплики БД от автосалонов сохраняются администратором в специальной защищенной папке на сервере Call-центра. Настроенный механизм синхронизации реплик позволит актуализировать БД с небольшими временными и трудовыми затратами Администратора АИС.
Этап ввода первичной информации заключается в регистрации оператором Call-центра заявок пользователей на получение информации по программам автокредитования. В автосалонах на этапе ввода первичной информации будут заполняться таблицы «Предложения» и «Акции». Этот этап будет осуществляться на протяжении всего срока эксплуатации АИС и инициируется поступлением первичной информации.
Этап получения результативной информации связан с предыдущим этапом. Здесь происходит формирование отчетных документов по запросу пользователей. Операторы Call-центра будут регистрировать в АИС требования заявителей и получать сформированные отчеты, которые можно будет сохранить в файл и отправить заявителю по электронной почте для анализа.
Основное иерархическое меню АИС позволяет пользователю реализовать различные функции. При выборе необходимого пункта меню, пользователь в предлагаемую экранную форму будет осуществлять ввод информации, выбирать необходимые параметры, формировать отчеты и сохранять результаты. Из каждой экранной формы предусмотрен возврат в основное меню. Чтобы избежать ошибок в работе с системой предусмотрены подсказки, ограничения на формат ввода данных, контроль вводимых данных. На любое некорректное действие пользователя будет выдаваться сообщение о произведенной ошибке с подсказкой конкретных и однозначных действий. Пример сообщения об ошибке при попытке ввести строковое значение в поле, предназначенное для ввода цифрового значения, представлен на Рис. 3.32.

Рис. 3.32 Сообщение об ошибке
Схемы технологического процесса сбора, передачи, обработки и выдачи информации представлены в п. 3.3.2.

3.3.2 Схема технологического процесса сбора, передачи, обработки и выдачи информации
Схема технологического процесса сбора, передачи, обработки и выдачи информации в АИС для Call-центра банка «Русский стандарт» представлена на


Рис. 3.33 Технологические схемы сбора, передачи, обработки и выдачи информации




Рис. 3.33 Продолжение

Рис. 3.33 Продолжение


Рис. 3.33 Окончание3.4. Программное обеспечение комплекса задач
3.4.1. Общие положения
Автоматизация проекта включает в себя создание базы данных для хранения информации и разработка пользовательского интерфейса для работы с данной информацией. В качестве СУБД для создания БД была выбрана Microsoft Access 2003. Реализация пользовательского интерфейса производилась средствами Borland Delphi 7.
Microsoft Access является одной из самых популярных систем управления базами данных, используется как для организации локальной БД, так и для многопользовательской БД на базе технологии файл-сервер. Access обеспечивает хранение, сортировку и поиск данных для множества приложений. СУБД Access поддерживает значительную часть стандарта языка SQL, а также стандарт Microsoft ODBC, обеспечивающий общий интерфейс для доступа к разнотипным базам данных SQL, таким как Microsoft SQL Server, Oracle и Informix. Access предоставляет удобные возможности для организации процесса репликации БД.
Delphi — одна из самых мощных систем, позволяющих на самом современном уровне создавать как отдельные прикладные программы Windows, так и разветвленные комплексы, предназначенные для работы в корпоративных сетях и в Интернет.
Основным достоинством Borland Delphi является то, что он поддерживает возможности визуального программирования для разработки пользовательского интерфейса. Во время проектирования формы и размещения на ней компонентов Delphi автоматически формирует коды программы, включая в нее соответствующие фрагменты, описывающие данный компонент. А затем в соответствующих диалоговых окнах пользователь может изменить заданные по умолчанию значения каких-то свойств этих компонентов и, при необходимости, написать обработчики каких-то событий. То есть проектирование сводится, фактически, к размещению компонентов на форме, заданию некоторых их свойств и написанию, при необходимости, обработчиков событий. Благодаря визуальному объектно-ориентированному программированию была создана технология, получившая название быстрая разработка приложений, по-английски RAD — Rapid Application Development. Эта технология характерна для нового поколения систем программирования, к которому относится и Delphi. Delphi базируется на языке Object Pascal. [ 7, с. 27].
Для работы с БД в реализации проекта использовалась технология ActiveX Data Objects (ADO), которая поддерживается Delphi. ADO — это пользовательский интерфейс к любым типам данных, включая реляционные и не реляционные базы данных, электронную почту, системные, текстовые и графические файлы. Связь с данными осуществляется посредством так называемой технологии OLE DB. [11, с. 450].
Для создания отчетных форм будет использоваться современный генератор отчетов FastReport 4. Он предоставляет широкий выбор объектов отчета (текст, изображение, диаграмма, штрихкод и пр.) и средств форматирования данных. Данный генератор высокой скоростью формирования отчетов, малым размером, не требует дополнительных DLL и органично встраивается в .EXE-приложение. [37].
Для работы АИС клиентского обслуживания по программам автокредитования банка «Русский стандарт» на рабочем месте операторов Call-центра необходим персональный компьютер, подключенный к локальной сети, операционная система Windows, установленный пакет прикладных программ Microsoft Office 2003 и доступ к электронной почте. Все рабочие места пользователей уже оснащены необходимым программным и аппаратным обеспечением.

3.4.2. Структурная схема пакета (дерево вызова процедур и программ)
Программный комплекс АИС клиентского обслуживания по программам автокредитования банка «Русский стандарт» для операторов Call-центра состоит из 15 модулей, для автосалонов – из 5 модулей. Описание программных модулей, их назначения и связь с таблицами БД представлена в табл. 3.21.

Таблица 3.21
Описание программных модулей
№ п/п Название модуля Описание модуля Связь с таблицами БД АИС для операторов Call-центра банка 1 UnitPass Модуль для идентификации пользователей и установления уровня доступа «Операторы» 2 UnitMain Модуль главного меню АИС «Операторы» 3 UnitZayvka Модуль для регистрации заявки на получение информации «Заявки», «Выбор», «Операторы», «Способ подачи» 4 UnitProsZ Модуль для просмотри и фильтрации заявок «Заявки», «Операторы», «Способ подачи» 5 UnitPredl Модуль для просмотра предложений автосалонов «Автосалон», «Субъекты РФ», «Города», «Предложения», «Марки авто», «Модели авто», «Типы авто», «Страны» 6 UnitAkc Модуль для просмотра акций автосалонов «Автосалон», «Субъекты РФ», «Города», «Акции» 7 UnitVibProg Модуль для выбора программы автокредитования по требованиям заявителя «Автокредитование» 8 UnitPlat Модуль для расчета параметров кредита и составления предварительного графика расчета платежей «Автокредитование» 9 UnitPoiskSal Модуль для формирования отчета по предложениям автосалона в ценовом диапазоне «Автосалон», «Субъекты РФ», «Города», «Марки авто», «Модели авто», «Типы авто», «Предложения» 10 UnitPoiskAvto Модуль для формирования отчета по автосалонам, предлагающим конкретную модель автомобиля «Автосалон», «Субъекты РФ», «Города», «Марки авто», «Модели авто», «Типы авто», «Предложения» 11 UnitPoiskAkc Модуль для формирования отчета по акциям автосалонов города «Автосалон», «Субъекты РФ», «Города», «Акции» 12 UnitProg Модуль для ведения справочника «Программы автокредитования» «Автокредитование» 13 UnitAvto Модуль для ведения справочника «Модели автомобилей» «Марки авто», «Модели авто» 14 UnitMarAvto Модуль для ведения справочника «Марки автомобилей» «Марки авто», «Страны» 15 UnitSalon Модуль для ведения справочника «Автосалоны» «Автосалон», «Субъекты РФ», «Города» АИС для автосалонов UnitPassA Модуль для идентификации пользователей и установления уровня доступа «Автосалон» UnitMainA Модуль главного меню АИС «Автосалон» UnitPredlA Модуль для просмотра и изменения информации о предложениях автосалона «Автосалон», «Предложения», «Марки авто», «Модели авто», «Типы авто», «Страны» UnitDobPredl Модуль для добавления предложений автосалона «Автосалон», «Предложения», «Марки авто», «Модели авто», «Типы авто», «Страны» UnitAkcA Модуль для добавления, изменения и удаления информации об акциях автосалона «Автосалон», «Акции»
Дерево вызова программных модулей АИС для Call-центра банка представлено на Рис. 3.34. Основным модулем является модуль UnitMain. Вызов остальных модулей осуществляется посредством выбора соответствующего пункта иерархического меню.

Рис. 3.34 Дерево вызова программных модулей АИС для Call-центра банка
Дерево вызова программных модулей АИС для автосалонов-партнеров банка представлено на Рис. 3.35.

Рис. 3.35 Дерево вызова программных модулей АИС для автосалонов

3.4.3. Описание программных модулей
В рамках дипломного проекта не представляется возможным подробно описать работу всех программных модулей проекта автоматизации, поэтому остановимся на описании алгоритма работы одного из основных модулей – «Расчет платежей» (UnitPlat). Этот модуль интересен тем, что в нем осуществляются расчеты показателей. Формализация расчетов данного модуля представлена в п. 3.2.1.
Вызов этого модуля может быть осуществлен из главного меню АИС для Call-центра банка, либо из модуля «Выбор программы автокредитования». Экранная форма для расчета параметров кредита и составления предварительного графика платежей представлена на Рис. 3.23.
Работа модуля представим в виде блок-схемы (Рис. 3.36). Опишем приведенный алгоритм. При необходимости рассчитать сумму кредита для приобретения автомобиля по программе автокредитования банка «Русский стандарт» необходимо вызвать п. меню «Расчет платежей». На экране появится форма, в которой имеется зона для введения запросных показателей и зона для вывода расчетных показателей. В запросной зоне необходимо выбрать из списка интересующую программу автокредитования, ввести стоимость автомобиля, стоимость первоначального взноса и указать срок кредитования. Программа отслеживает правильность ввода числовых показателей, а также проверяет, чтобы сумма первоначально взноса была не менее, чем предусмотрено по программе автокредитования. Для расчета показателей необходимо нажать на кнопку «Рассчитать». В результате расчетов формируется таблица «График платежей», количество строк которой равно сроку кредитования. В этой таблице на каждый месяц кредита рассчитывается сумма платежа и остатка. После формирования таблицы рассчитывается общая сумма платежей и сумма переплаты по кредиту. При необходимости можно сформировать отчет «Параметры кредита и предварительный график платежей» и сохранить его в файл для последующей отправки заявителю по электронной почте. Если работа с формой закончена, необходимо нажать на кнопку «Выход». Работа с модулем будет закончена, а на экране появится главное меню.


Рис. 3.36 Алгоритм работы модуля UnitPlat


3.5. Схема взаимосвязи программных модулей и информационных файлов
Схема взаимосвязи программных модулей и информационных файлов отражает взаимосвязь программного и информационного обеспечения поставленного комплекса задач. Представим схему взаимосвязи программных модулей с таблицами БД в процессе решения основной задачи при работе с АИС клиентского обслуживания по программам автокредитования банка «Русский стандарт» - регистрации заявки и поиск информации по требованиям заявителя (Рис. 3.37).

Рис. 3.37 Схема взаимосвязи программных модулей и таблиц БД при решении задачи регистрации заявки и поиска информации для заявителя
На следующей схеме отобразим взаимосвязь программных модулей и таблиц частичных реплик БД при решении задач ввода и изменения информации в автосалонах-партнерах банка «Русский стандарт» о предложениях автомобилей и рекламных акциях (Рис. 3.38).


Рис. 3.38 Схема взаимосвязи программных модулей и таблиц БД при решении задачи актуализации информации от автосалонов
3.6. Выбор и обоснование технических средств
Техническое обеспечение (ТО) представляет собой комплекс технических средств (технические средства сбора, регистрации, передачи, обработки, отображения, тиражирования информации, оргтехника и др.), обеспечивающих работу ИТ. Центральное место среди всех технических средств занимает персональный компьютер. [21, с. 23].
Для решения задач автоматизации клиентского обслуживания банка по программам автокредитования необходимо рассмотреть техническое обеспечение операторов Call-центра банка и автосалонов-партнеров, а также технические средства для организации связи между банком и автосалонами.
Техническая архитектура Call-центра банка «Русский стандарт» уже сформирована, все рабочие места операторов оснащены современными компьютерами, объединенными в локальную сеть. При построении локальной сети банка использовалась технология с выделенным сервером («клиент-сервер»). В таких сетях выделяются один или несколько компьютеров, называемых серверами, задача которых состоит в быстрой и эффективной обработке большого числа запросов других компьютеров - клиентов. В качестве технологии локальной сети используется Ethernet 10Base-T с топологией типа звезда, в которой каждый узел подключался отдельным кабелем к центральному устройству концентратору, а далее к коммутатору. Коммутация решает проблему разгрузки сети двумя способами: разделяет сеть на сегменты и повышает производительность за счет предоставления полной полосы пропускания сети двум взаимодействующим устройствам. Преимущество этой технологии заключается в простоте, надежности и легкостью поддержки, а также возможности масштабирования сетей. Используемое сетевое оборудование производства компании Cisco.
В Call-центре к локальной сети подключено около 60 компьютеров с примерными техническими характеристиками: Intel P4 1,4 ГГц, оперативная память 512 Мб, жесткий диск 100 Гб. В качестве серверов используются более мощные компьютеры с процессором Intel P4 2,8 ГГц, с большим объемом оперативной памяти (до 2 Гб) и объемом жесткого диска до 1000 Гб. На сервере будет установлен файл БД, а на компьютерах операторов и администратора АИС – клиентская часть программы. Также в Call-центре имеется необходимое периферийное оборудование: IP-телефоны с гарнитурой, сетевой принтер, факсы, сканеры, копиры.
В локальной сети банка имеется выделенный сегмент доступа в сеть Интернет, который предназначен для обеспечения безопасного использования сотрудниками ресурсов глобальной сети. Этот сегмент используется для предотвращения попыток несанкционированного доступа из сети Интернет к локальной сети компании, защиты от вирусных атак, для контроля доступа сотрудников в сеть Интернет в соответствии с правами доступа. Посредством этого сетевого сегмента также организован доступ к электронной почте. Следовательно, имеется возможность для получения и отправки электронной почты (отчетов для заявителей на получение информации по программам автокредитования и частичных реплик БД для актуализации информации от автосалонов).
Требование к техническому обеспечению автосалонов для функционирования АИС минимальны: для комфортной работы необходим персональный компьютер с примерными характеристиками Intel P4 1,1 ГГц, оперативная память 256 Мб и около 10 Мбайт свободного пространства на жестком диске. Для автосалонов также необходим выход в Internet и доступ к электронной почте. Техническая архитектура всех автосалонов-партнеров банка «Русский стандарт» удовлетворяет описанным требованиям.
Таким образом, техническая архитектура для реализации АИС клиентского обслуживания по программам автокредитования полностью сформирована как на базе Call-центра банка, так и на базе автосалонов-партнеров банка «Русский стандарт». Необходимость в дополнительных инвестициях на технические средства и организацию линий связи отсутствует.


Экономическое обоснование проекта
Эффективность ИС — это степень ее соответствия своему назначению. Большинство методов оценки эффективности проектов автоматизации предполагают необходимость оценки доходной и затратной части проектов.
Экономическая эффективность проекта (Э) складывается из двух составляющих:
Косвенного эффекта, который, например, характеризуется увеличением прибыли, привлечением большего числа клиентов, снижением уровня брака в производстве, уменьшение количества рекламаций, получаемых от клиентов, снижение затрат на сырье и материалы, уменьшение сумм штрафов, неустоек и т. д.
Прямого эффекта, который характеризуется снижением трудовых, стоимостных показателей. [21].
Основной эффект от внедрения АИС клиентского обслуживания банка «Русский стандарт» по программам автокредитования будет косвенный. Он будет связан с привлечением большего числа клиентов за счет качественного информирования, что в результате приведет к увеличению прибыли и рентабельности банка.
До предлагаемой автоматизации функции предлагаемой АИС в полном объеме не выполнялись: клиентам предлагали только основную информацию по программам автокредитования. Оценка прямого эффекта в данном случае может быть произведена путем сопоставления предлагаемого варианта организации АИС с использованием технологии репликации БД и с вариантом централизованной организации АИС. Основой для получения результативной информации является информация о предложениях автомобилей и о рекламных акциях автосалонов-партнеров банка. Эта информация может вноситься в АИС и актуализироваться непосредственно сотрудниками Call-центра банка на основе данных, получаемых от автосалонов (централизованный способ организации), либо с использованием процесса репликации, когда внесение информации осуществляется сотрудниками автосалонов в частичные реплики БД, а Администратор АИС в Call-центре периодически организует процесс синхронизации реплик. Учитывая, что количество автосалонов-партнеров банка по всей велико и продолжает расти, трудовые, а следовательно, и стоимостные затраты на использование централизованного метода могут быть очень велики.
При оценке прямой эффективности в стоимостных единицах измерения рассчитываются две группы показателей – показатель снижения трудовых затрат и показатель снижения стоимостных затрат. Сравнение будут производиться по технологическим процессам:
Первоначальное заполнение БД о предложениях автосалонов;
Актуализация информации по предложениям автосалонов;
Актуализация информации по рекламным акциям автосалонов.
При расчете эффективности применяют оценку, сравнение и выбор по соотношению уровня производительности того или иного варианта процесса и значению величин показателей трудовых и стоимостных затрат на проектирование и эксплуатацию этих процессов.
Рассмотрим методику расчета прямого эффекта. При расчет прямого эффекта рассчитывают абсолютные и относительные показатели оценки экономической эффективности.
К группе абсолютных показателей относят:
показатели, оценивающие величину трудоемкости обработки информации за год по базовому (т.е. тому варианту, который берется за основу для сравнения) и предлагаемым вариантам (Т0) и (Тj);
показатели, оценивающие величину эксплуатационных стоимостных затрат за год по базовому и предлагаемому вариантам (С0) и (Сj);
показатель оценки снижения трудовых затрат за год ((T), который рассчитывается по формуле
(T = Т0 - Тj (1)
показатель снижения стоимостных затрат за год ((С), который можно рассчитать по формуле
(С = С0 - Сj (2)
Группа относительных показателей оценки эффективности технологических процессов включает:
коэффициент снижения трудовых затрат за год (Кт), показывающий, на какую долю или какой процент снижаются затраты предлагаемого варианта по сравнению с базовым, который рассчитывается по формуле:
Кт = (Т/Т0 * 100% (3)
индекс снижения трудовых затрат (Iт), показывающий, во сколько раз снижаются трудовые затраты предлагаемого варианта по сравнению с базовым, и рассчитываемый по формуле
Iт = Т0/Тj (4)
коэффициент снижения стоимостных затрат за год (Кс), который рассчитывается по формуле:
Кс = (С/Сj * 100% (5)
индекс снижения стоимостных затрат (Iс), рассчитываемый по формуле:
Iс = С0/Сj (6)
В свою очередь, показатель трудовых затрат на j-й технологический процесс (Тj) рассчитывается по формуле
Tj = (tij (7)
где tij - показатель трудовых затрат на i-ю операцию j-го технологического процесса, который можно рассчитать по формуле
tij= Qij/Nj (8)
где Qij - объем работ, выполненных на i-ой операции по j-му технологическому процессу;
Ni - норма выработки на i-й операции.
Показатель стоимостных затрат на работу системы (С) представляет собой сумму затрат по следующим статьям затрат: на заработную плату; на амортизацию; на материалы; накладные расходы.
Этот показатель рассчитывается по формуле:
Сj = (Cij, (9)
где Сij - показатель стоимостных затрат на i-ю операцию j-го технологического процесса, в состав которого включаются следующие компоненты:
Сij = Сз/п + Снр +Са + См, (10)
где: Сз/п - затраты на заработную плату оператора, которые можно рассчитать по формуле
C з/п = tij * ri (11)
где tij -трудоемкость выполнения i-й операции j-го технологического процесса;
ri - тарифная ставка j-й операции.
Снр - затраты на накладные расходы, рассчитываемые как производная величина от затрат на заработную плату:
С нр =С з/п *К нр , (12)
где К нр - величина коэффициента накладных расходов, принимаемая, как правило, в размере 0,6 - 0,7 от величины С з/п;
Са - величина амортизационных отчислений на используемую технику, рассчитываемая по формуле:
Са = tij * ai , (13)
где ai - норма амортизационных отчислений;
См - затраты на материалы за год (например, на бумагу, носители информации).
На основании проведенных расчетов находится приведенный показатель годовой экономии (Эг) по формуле:
Эг = (С0 + Ен * К0) – (Сj + Ен * Кj) (14)
где Кj и Ко - капитальные затраты, включающие в себя затраты на следующие направления:
на приобретение вычислительной техники;
на покупку программного обеспечения;
на освоение программного обеспечения;
на проектирование и отладку проекта.
Ен - норма прибыли (нормативная прибыльность). Показывает, какую часть единовременных затрат мы должны включить в общие затраты, чтобы их вернуть за определенный срок. Величина Е в рыночных условиях не должна быть меньше годовой банковской процентной ставки надежного банка (ставки рефинансирования).
Помимо вышеприведенных показателей эффективности проектировщики рассчитывают также показатель срока окупаемости капитальных затрат (Ток), представляющий собой отношение капитальных затрат к экономии стоимостных затрат:
Ток = (К1-К0)/ (С (15)
Расчетный коэффициент эффективности Ер является обратной величиной сроку окупаемости и рассчитывается по формуле:
Ер=1/Ток (16)
Благодаря данному показателю можно определить долю окупаемости дополнительных капитальных вложений за год.
По совокупности вышеприведенных показателей выбирается наиболее эффективный вариант. [21, с. 154].
Далее представим расчеты показателей экономической эффективности внедрения АИС клиентского обслуживания по программам автокредитования. Информация по расчету стоимостных и трудовых показателей по этим технологическим процессам при базовом и проектном варианте ИС за год представлена в табл. 4.1.
Таблица 3.1
Характеристика затрат на обработку информации по базовому (или проектному) варианту
№ п/п Наименование технологического процесса решения комплекса задач Вариант ИС Ед. изм. Объем работы в год Норма выработки (опер/в час.) Трудоемкость (гр5: гр6) Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш. часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты [(гр8+
гр9+ гр10) *гр7] для старой ИС операций Стоимостные затраты [(гр8+гр/9 +гр10 )*гр.7] для новой ИС 1 2 3 4 5 6 7 8 9 10 11 12 1 Ввод информации о предложениях автосалонов Централизо-ванная АИС Документ 1000 10 100,0 187,5 7,2 93,8 28 845,0   Распреде-ленная АИС Документ 1000 100 10,0 262,5 7,2 131,3   4 009,5 2 Актуализация информации о предложениях автосалонов Централизо-ванная АИС Документ 52000 20 2 600,0 187,5 7,2 93,8 749 970,0   Распреде-ленная АИС Документ 52000 100 520,0 262,5 7,2 131,3   208 494,0 3 Актуализация информации об акциях автосалонов Централизо-ванная АИС Документ 5200 20 260,0 187,5 7,2 93,8 74 997,0   Распреде-ленная АИС Документ 5200 100 52,0 262,5 7,2 131,3   20 849,4 Трудовые затраты в централизованном варианте АИС 2 960,0 Итоговые стоимостные затраты: 853 812,0 233 352,9 Трудовые затраты в распределенном варианте АИС 582,0 За основную единицу информации в каждом процессе принято количество автосалонов: от этого зависит количество входных документов по предложениям и акциям автосалонов. На сегодняшний день у банка «Русский стандарт» имеются договора на сотрудничество примерно с 1000 автосалонов по всей стране (гр. 5). По каждому из этих автосалонов первоначально (до момента ввода АИС в эксплуатацию) необходимо заполнить сведенья о предложениях автомобилей (гр. 6): сотрудник банка при централизованной организации АИС сможет в час внести информация примерно по 10 автосалонам, а используя механизм репликации за час можно обработать информацию минимум по 100 автосалонам (затраты на получение и синхронизацию реплик).
Предполагается еженедельная актуализация информации по данным автосалонов по предложениям и акциям. Учитывая, что в году 52 рабочие недели, количество входных документов от автосалонов будет оставлять 1000 * 52 = 52000 (гр. 5). При централизованном варианте предполагается, что за час оператор сможет актуализировать информацию по 20 автосалонам (гр. 6). Актуализация БД используя репликацию позволит обработать информацию по 100 автосалонам в час (гр. 6).
Трудоемкость операция (гр. 7) рассчитывается как отношение объема работ в год к норме выработке в час (гр. 5 : гр. 6).
Стоимостные затраты связаны в основном с часовой заработной платой пользователя, с учетом отчислений ЕСН (гр. 8). При централизованном варианте ввод информации осуществляется оператором с заработной платой 25 000 руб. в месяц. При предлагаемом варианте процесс репликации организуется Администратором АИС с заработной платой 35 000 руб. в месяц. Следовательно, среднечасовая заработная плата равна:
при централизованном варианте: (25 000+25 000*0,26)/21 день/8 час = 187,5 руб./ч.
при распределенном варианте: (35 000+35 000*0,26)/21 день/8 час = 262,5 руб./ч.
Амортизация оборудования (гр. 9) рассчитывалась исходя из остаточной стоимости рабочего места пользователей и срока амортизации. В этой статье также учитываются затрат на обслуживание технического обеспечения. По данным бухгалтерии это показатель в среднем равен 7,2 руб./час.
Часовая стоимость накладных расходов (гр. 10) зависит от часовой заработной платы пользователей и находится с коэффициентом 0,5 от заработной платы (по данным бухгалтерии).
Для расчета показателей эффективности необходимо также рассчитать сумму капитальных затрат на создание АИС. Капитальные (единовременные) затраты на создание АИС носят разовый характер. Свою стоимость они переносят на продукцию по частям за счет амортизационных отчислений. При расчете капитальных затрат выделяют следующие статьи затрат:
приобретение базового программного обеспечения: операционные системы, платформы БД;
оплата услуг по проектированию и запуску системы в эксплуатацию;
приобретение технических средств автоматизации (компьютеров и др. периферийных устройств) и монтаж локальных вычислительных сетей;
обеспечение связи для взаимодействия с удаленными территориями;
техническое сопровождение системы.
другие накладные расходы.
Капитальные затраты на создание рассматриваемого проекта автоматизации складываются из стоимости услуг разработчика на создание АИС, а также из стоимости технического обеспечения рабочего места пользователя. Базовое и инструментальное программное обеспечение давно используется в деятельности банка и уже окупилось. Техническое сопровождение будет осуществляться сотрудниками собственного ИТ-подразделения банка.
На разработку АИС с децентрализованной организацией технологического процесса сбора информации программист потратил 1,5 месяц рабочего времени, уделяя этой задаче около 50% своего рабочего времени. Разработка централизованного варианта с той же загрузкой программиста заняла бы около двух недель. Заработная плата программиста составляет 35 000 руб./мес. Затраты на техническое обеспечение равны стоимости персонального компьютера. Предполагается использование уже существующего технического обеспечения, используя его примерно на 20%. Остаточная стоимость компьютера Администратора АИС 32 000 руб., а компьютера оператора 18 000 руб.
Следовательно, произведем расчеты капитальных затрат для обоих вариантов:
Капитальные затраты при централизованном варианте:
К центр = (35000*1,26*1,5*1/2)+ 18 000*0,3 = 38 475 руб.
Капитальные затраты при распределенном варианте:
К распр = (35000*1,26*1,5*1,5/2)+ 32 000*0,3 = 75 750 руб.
Значение показателя Ен возьмем равным 20%.
Полученные результаты значений трудовых и стоимостных показателей, а также расчет абсолютных и относительных показателей эффективности сведены в табл. 4.2. Необходимо отметит, что полученные показатели характеризуют эффективность предлагаемого распределенного варианта организации АИС от возможного централизованного варианта организации АИС.
Таблица 4.2
Показатели эффективности проекта автоматизации
№ п/п Наименование показателя Расчетная формула Значение 1 Стоимостные затраты по базовому варианту ИС С0 853 812,0 2 Стоимостные затраты по новому варианту ИС С 233 352,9 3 Трудовые затраты по базовому варианту ИС Т0 2 960,0 4 Трудовые затраты по новому варианту ИС Т 582,0 5 Показатель снижения стоимостных затрат за год (С = С0 - Сj 620 459,1 6 Показатель оценки снижения трудовых затрат за год (T = Т0 - Тj 2378 7 Коэффициент снижения стоимостных затрат за год Кс = (С/С0 72,7 8 Индекс снижения стоимостных затрат Iс = С0/Сj 3,7 9 Коэффициент снижения трудовых затрат за год Кт = (Т/Т0 80,3 10 Индекс снижения трудовых затрат Iт = Т0/Тj 5,1 11 Показатель годовой экономии Эг = (С0 + Ен * К0) –
- (Сj + Ен * Кj) 613 004,1 12 Срок окупаемости капитальных затрат Ток = (К1-К0)/ DС 0,1 13 Расчетный коэффициент эффективности Ер=1/Ток 16,6
Большое значение показателей эффективности связано с тем, что при реализации децентрализованного варианта организации АИС значительная часть затрат на актуализацию данных возложена на автосалоны-партнеры банка «Русский стандарт». Еженедельно обновление информации для автосалона не является затруднительным и займет у сотрудника не более 20 минут. Автосалоны заинтересованы в предоставлении клиентам банка актуальной информации о своей деятельности, поэтому включат в функциональные обязанности своего сотрудника работу с предложенной АИС. Если же актуализацию информации о предложениях и акциях автосалонов проводить силами сотрудников Call-центра банка – необходимо будет выделить несколько человек, которые будут занимать только вводом данных. Учитывая, что информация, предлагаемая заявителям бесплатна, было бы экономически не выгодно предлагать потенциальным клиентам подобную услугу.
Приведенные расчеты показывают, что частично распределенный вариант организации АИС клиентского обслуживания банка «Русский стандарт» по программам автокредитования является более эффективным как по стоимостным, так и по трудовым показателям, чем централизованный вариант организации АИС. Трудовые затраты будут меньше, более, чем в 5 раз, а стоимостные затраты почти в 4 раза. Экономия при использовании частично распределенного варианта вместо централизованного варианта организации АИС составит около 600 тыс. руб. в год.
Срок окупаемости предлагаемого проекта по сравнению с централизованным вариантом АИС составляет около одного месяца. При этом расчетный коэффициент эффективности равен 16,6. Необходимо отметить, что срок окупаемости всего проекта автоматизации будет больше. В приведенных расчетах затрат не учитывались трудовые и стоимостные затраты операторов Call-центра банка работу с АИС, которые в первую очередь будут зависеть от количества заявителей. По предварительным прогнозам принято считать, что около 5% рабочего времени каждый оператор будет тратить на работу с предложенной АИС. Однако и общую прибыль от внедрения системы на данном этапе сложно оценить количественно. Необходимо учесть косвенный эффект, который связан с привлечением большего числа клиентов по программам автокредитования. Каждый новый клиент вносит свой вклад в прибыль банка. Основная цель предлагаемой АИС клиентского обслуживании по программам автокредитования связана с качественным информированием клиентов, что способствует увеличению клиентской базы.
Следовательно, эффективность проекта автоматизации подтверждена расчетами прямого и оценкой косвенного экономического эффекта.

Безопасность жизнедеятельности
Использование большого количества персональных компьютеров (ПК, ПЭВМ), создание информационных систем, увеличение числа лиц, непосредственно использующих компьютерные технологии, вызывает необходимость специальной подготовки людей для безопасной работы в сфере обработки информации. В настоящее время, как у нас, так и за рубежом разработаны и приняты к исполнению соответствующие санитарные нормы и правила, при соблюдении которых негативное воздействие на оператора ПК сводится к минимуму.
Законодательство Российской Федерации об охране труда состоит из соответствующих норм Конституции Российской Федерации, Основ законодательства Российской Федерации об охране труда и издаваемых в соответствии с ними законодательных и иных нормативных актив Российской Федерации. Основным законодательными актами охраны труда операторов ПК являются Федеральный закон «О санитарно-эпидемиологическом благополучии населения» от 30 марта 1999 года № 52-ФЗ, Положение о государственном санитарно-эпидемиологическом нормировании (утвержденное постановлением Правительства Российской Федерации от 24 июля 2000 года № 554), а также Санитарно-эпидемиологические правила и нормативы СанПиН 2.2.2/2.4.1340-03 «Гигиенические требования к персональным электронно-вычислительным машинам и организации работы».
Требования Санитарных правил направлены на предотвращение неблагоприятного влияния на здоровье человека вредных факторов производственной среды и трудового процесса при работе с ПЭВМ. Рабочие места с использованием ПЭВМ должны соответствовать требованиям настоящих Санитарных правил. [6].
Электрические сигналы цепей компьютера, обеспечивающие его работоспособность, являются источниками электромагнитного излучения. Излучение может вызываться непосредственно токами, протекающими через различные элементы компьютера, а может быть вызвано и взаимодействием электронных пучков с веществом. Примером последнего является взаимодействие пучка электронов с люминофором экрана в электронно-лучевой трубке, что приводит к возникновению электромагнитных излучений в оптическом (3.1012 - 3.1016 Гц) и рентгеновском (3.1016 - 3.1019 Гц) диапазонах частот.
Непосредственными излучателями являются все элементы компьютера, по которым протекает электрический ток, например, трансформаторы, дроссели, резисторы, конденсаторы, микросхемы и проводники, их соединяющие. Это электромагнитное излучение находится в радиочастотном (3 - 3.1012 Гц) диапазоне. [18, с. 357].
Электромагнитное излучение можно разделить на основное и побочное. Основным является излучение в видимой части оптического диапазона. Это излучение необходимо для работы компьютера, так как оно обеспечивает взаимодействие оператора с компьютером посредством экрана дисплея. Побочным является излучение в других частях оптического диапазона, а также в других диапазонах частот. Это излучение не является необходимым для работы компьютера, а лишь сопровождает ее.
Побочное электромагнитное излучение (ПЭМИ), с одной стороны, препятствует совместной работе компьютера с электронными и радиоэлектронными средствами. С другой стороны, оно способствует утечке информации, обрабатываемой компьютером, то есть появляется возможность с помощью радиоприемных устройств, что набирается на клавиатуре, выводится на дисплей, печатается принтером, записывается на магнитные диски или считывается с них. Наконец, ПЭМИ оказывает влияние на здоровье оператора.
ПЭМИ компьютера постоянно сопровождает работу оператора. Однако не все болезни оператора могут быть связаны с ПЭМИ, на некоторые из них более существенно влияют другие факторы. К числу таких заболеваний относятся глазные болезни, костно-мышечные заболевания и кожные болезни.
Костно-мышечные заболевания рук, спины, плеч и шеи имеют общее название синдром длительных статических нагрузок. Эти болезни связаны с работой на клавиатуре и «мышью», во время которой пользователь компьютера повторяет с высокой скоростью одни и те же движения, находясь в сидячем положении.
Кожные болезни, такие как сыпь на лице, вызываются статическим полем дисплея. Под действием этого поля частички пыли у экрана приобретают положительный заряд и устремляются к ближайшему заземленному предмету. Обычно им оказывается лицо пользователя, результатом может явиться непроходящая сыпь. [18, с. 361].
В производственных помещениях при выполнении основных или вспомогательных работ с использованием ПЭВМ уровни шума на рабочих местах не должны превышать предельно допустимых значений, установленных для данных видов работ в соответствии с действующими санитарно-эпидемиологическими нормативами. Шумящее оборудование (печатающие устройства, серверы и т.п.), уровни шума которого превышают нормативные, должно размещаться вне помещений с ПЭВМ.
Существуют требования к освещению на рабочих местах, оборудованных ПК. Искусственное освещение в помещениях для эксплуатации ПЭВМ должно осуществляться системой общего равномерного освещения. В производственных и административно-общественных помещениях, в случаях преимущественной работы с документами, следует применять системы комбинированного освещения (к общему освещению дополнительно устанавливаются светильники местного освещения, предназначенные для освещения зоны расположения документов). Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300 - 500 лк. Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300 - 500 лк. Освещение не должно создавать бликов на поверхности экрана. Освещенность поверхности экрана не должна быть более 300 лк. Освещение не должно создавать бликов на поверхности экрана. Освещенность Яркость светильников общего освещения в зоне углов излучения от 50 до 90 градусов с вертикалью в продольной и поперечной плоскостях должна составлять не более 200 кд/м2, защитный угол светильников должен быть не менее 40 градусов. [6].
При организации рабочего места операторов необходимо также учитывать эргономику рабочего места. С понятием эргономики связано с рациональной организацией рабочего места. При «правильной» работе возрастет не только скорость, но и качество работы.
Чтобы работа была комфортной и эффективной, необходимо позаботиться о внешних условиях. Основное — это освещение. Оно должно быть достаточно ярким (300...500 лк), но рассеянным. Стол надо располагать боком к окну, окно должно иметь жалюзи или плотные шторы (в случае попадания прямого солнечного света).
Много говорят о необходимости поддержания невысокой температуры на рабочем месте. В настоящее время исследователи считают, что оптимальной является температура 22...24°С зимой и 23...25 °С летом. Гораздо реже вспоминают о другом условии: разница температур на уровне пола и головы сидящего оператора не должна превышать трех градусов.
Влажность воздуха в помещении должна лежать в пределах 40... 60 %. Необходимо остерегаться сквозняков. Их на рабочем месте не должно быть, как и разного рода вентиляторов. Сквозняком российские стандарты считают перемещение воздуха со скоростью более 0,1 м/сек.
Основной параметр, влияющий на удобство работы — высота стола. Наука говорит о том, что оптимальное значение этой цифры 72,5 см. Но лучше, конечно, покупать стол с регулируемой высотой. Тогда можно более точно установить удобную для вас высоту. Под столом должно быть достаточно места для ног. Выбирая стол, обратите внимание, что под ним должны помещаться как вытянутые ноги (глубина не менее 65 см), так и закинутые одна на другую (высота пространства под столом не менее 60 см).
Стол должен иметь такие размеры, чтобы на нем можно было разместить монитор, клавиатуру и документы.
Кресло должно позволять телу принимать физиологически рациональную рабочую позу, при которой не нарушается циркуляция крови и не происходит других вредных воздействий. Кресло обязательно должно быть с подлокотниками и иметь возможность поворота, изменения высоты и угла наклона сиденья и спинки. Желательно иметь возможность регулировки высоты и расстояния между подлокотниками, расстояния от спинки до переднего края сиденья. Важно, чтобы все регулировки были независимыми, легко осуществимыми и имели надежную фиксацию.
Размер сиденья должен быть не менее 40 х 40 см. Угол его наклона варьируется от 15° вперед до 5° назад. Оптимальная высота сиденья от 40 до 55 см. Особые требования к спинке кресла: высота опорной поверхности 30±2 см, ширина не менее 38 см, радиус кривизны в горизонтальной плоскости 40 см, угол наклона от 0 до 30°, расстояние до переднего края сиденья от 26 до 40 см. Подлокотники должны быть не менее 25 см в длину, 5...7 см в ширину, находиться над сиденьем на высоте 25 ±3 см и на расстоянии от 35 до 50 см друг от друга. [18, с. 365].
Требования к эргономичности клавиатуры заключаются исключительно в том, что располагаться она должна на расстоянии 10...30 см от края стола или на специальной регулируемой по высоте подставке. В любом случае, если набирается много текстов, то стоит позаботиться о том, чтобы запястья не висели в воздухе.
Монитор должен стоять так, чтобы изображение было четко видно без необходимости поднимать или опускать голову. Монитор обязательно должен быть расположен ниже уровня глаз. При взгляде вверх быстро устает шея. Подставка монитора должна быть как можно ниже. Угол наблюдения должен составлять 0... 60°. Расстояние до монитора не менее 40 см.
Для улучшения условий труда операторов Call-центра предлагается провести мероприятия по улучшению освещенности помещения, по соблюдению требований эргономики рабочего места, а также установление пятиминутных перерывов каждые 2 часа для отдыха операторов. В зале можно повесить плакаты с упражнениями для глаз и спины, которые позволят быстро восстановить силы операторов ПК и служить для профилактики профессиональных заболеваний.
Заключение
Тема преддипломной практики связана с деятельностью объекта кредитной системы, а именно коммерческого банка «Русский стандарт». Банк «Русский стандарт» является лидером и первопроходцем в системе потребительского кредитования и кредитования среднего и малого бизнеса. Партнерами банка являются крупнейшие торговые сети, платежные системы, а также более тысячи автосалонов по всей России. Рынок автокредитования в России динамично развивается, представляя в настоящее время один из наиболее востребованных банковских продуктов. Это является следствием серьезной конкуренции банков на рынке автокредитования. Сегодня банки смягчают требования к заемщикам по предоставлению автокредитов, чем стремятся предоставить все более выгодные условия по оформлению кредитов и кредитным ставкам. Для банков данный вид кредитования считается наиболее надежным. Следовательно, для банка «Русский стандарт» большое значение имеет накопления клиентской базы по программам автокредитования.
До предлагаемой автоматизации происходило лишь поверхностное информирование клиентов до момента выбора конкретного автомобиля в автосалоне. Значимость консультационных услуг банка в условиях конкурентной борьбы за клиентов постоянно растет. Сама информационная поддержка потенциального клиента бесплатна, но качественные консультации помогают банку привлечь новых клиентов и в итоге выиграть на объеме основных операций. Подобные консультации могут представляться на базе справочно-информационного центра банка «Русский стандарт» (Call-центра). Для организации данного процесса в помощь операторам Call-центра в процессе дипломного проектирования была разработана АИС клиентского обслуживания по программам автокредитования. В АИС храниться информация по автосалонам, с которыми сотрудничает банк, по моделям автомобилей, которые можно приобрести в автосалоне, по скидкам и акциям автосалонов, по программам кредитования и процентным ставкам по кредитам.
В первой главе был произведен анализ банковской отрасли, представлена общая характеристика и анализ хозяйственной деятельности банка «Русский стандарт», а также произведена организационно-экономическая характеристика деятельности банка в области консультирования клиентов на базе Call-центра и обоснована перспективность рынка автокредитования для банковской сферы.
Во второй главе был построен процесс информирования клиентов по программам автокредитования с использованием АИС, выбран комплекса задач для автоматизации, произведено обоснование проектных решений по технологическому, программному и информационному обеспечению. Выбранные задачи автоматизации позволят накапливать БД по автосалонам, их предложениям и рекламным акциям, а также по программам автокредитования банка «Русский стандарт». Данная информация позволит предоставлять заявителям подробную информация по предложениям конкретного автосалона, по предложениям автомобиля в автосалонах города и по акциям автосалонов, предлагаемых в определенный промежуток времени.
Проектная часть дипломного проекта раскрывает вопросы, связанные с созданием и функционированием АИС клиентского обслуживания по программам автокредитования. В процессе проектирования информационного обеспечения была разработана инфологическая модель, модель БД, описаны используемые классификаторы и нормативно-справочная информация, определены характеристики входной и результативной информации. Для эффективной реализации поставленных задач было принято решение об использовании частично децентрализованной технологии организации АИС. Для этого используется процесс репликации БД. Репликация позволяет организовать многопользовательский режим работы с БД, когда не существует локальной связи между компьютерами пользователей. Этап репликации связан с периодическим обновлением информации от автосалонов. В каждом автосалоне будет использоваться модуль АИС, посредством которого имеется возможность вносить информацию о предложениях автомобилей и о рекламных акциях, проходящих в автосалоне. АИС для автосалонов будет работать с частичной репликой основной БД, которая периодически будет отсылаться в Call-центр для синхронизации с основной репликой БД. Регистрация заявок и формирование отчетной информации будет осуществляться в АИС для Call-центров банка. Предложенный подход позволит получать актуальную информацию от автосалонов и при этом экономить значительные трудовые и стоимостные ресурсы банка.
Обоснование экономической эффективности децентрализованной организации АИС представлено в четвертой главе дипломного проекта. Косвенный эффект от внедрения АИС связан с возможностью увеличения клиентской базы по программам автокредитования за счет предоставления качественных консультационных услуг.
Дальнейшее развитие и совершенствование АИС клиентского обслуживания по программам автокредитования связано с расширением возможностей по предоставлению информации по автомобилям и автосалонам, с построением новых форм отчетов. Также возможен переход на web-технологии с целью организации доступа к информации с сайта банка «Русский стандарт».
Список использованной литературы
Федеральный закон от 2 декабря 1990 г. N 395-1 "О банках и банковской деятельности" (в ред. от 21 июля 2005 г.)
Стратегия развития банковского сектора Российской Федерации на период до 2008 года.
Устав ЗАО «Банк Русский стандарт», утвержденный общим собранием акционеров от 09.04.2003 г.
Общероссийский классификатор объектов административно-территориального деления ОК 019-95 (ОКАТО). Утвержден постановлением Госстандарта РФ от 31.07.1995 № 413-ст.
Общероссийский классификатор стран мира OK (MK (ИСО 3166) 004-97) 025-2001 (ОКСМ). Утвержден постановлением Госстандарта РФ от 14 декабря 2001 г. № 529-ст.
Санитарно-эпидемиологические правила и нормативы СанПиН 2.2.2/2.4.1340-03. Гигиенические требования к персональным электронно-вычислительным машинам и организации работы.
Архангельский А.Я. Программирование в Delphi 7. — М.: ООО «Бином-Пресс», 2003 г. — 1152 с
Банки и банковское дело / Под ред. Балабанова И. Т. — СПб.: Питер, 2003. - 256 с.
Банковское дело: учебник/ под ред. д-ра экон. наук, проф. Г.Г. Коробовой. – М.: Экономистъ, 2006. – 766 с.
Батракова Л.Г. Экономический анализ деятельности коммерческого банка. – М.: Логос, 2005. – 368 с.
Гофман В.Э., Хомоненко А.Д. Работа с базами данных в Delphi. – СПБ.: БВХ-Петербург, 2003. – 624 с.
Жаровская Е.П. Банковское дело. – М.: Омега-Л, 2006. – 452 с.
Киселева И.А. Коммерческие банки: модели и информационные технологии в процедурах принятия решений. — М.: Едиториал УРСС, 2002. — 400 с.
Кредитные организации в России: правовой аспект/Отв. ред. Е.А. Павлодский. –М.: Волтерс Клувер, 2006 г. – 215 с.
Лаврушин О.И. Банковское дело: современная система кредитования: учебное пособие. - М.: КНОРУС, 2007. - 264 с.
Литвин П., Гетц К., Гунделои М. Разработка корпоративных приложений в Access 2002 для профессионалов.— СПб.: Питер; Киев: BHV. 2003. — 848 с.
Маклаков С.В. «Создание информационных систем с AllFunction Modeling Suite». – М.: ДИАЛОГ-МИФИ, 2003 – 432 с.
Михеева Е.В. Информационные технологии в профессиональной деятельности. – 2-е издание. – М.: Издательский центр «Академия», 2005. с. 365
Основы банковской деятельности (Банковское дело)/ Под ред. Тагирбекова К.Р. – М.: Издательский дом «ИНФРА-М», Издательство «Весь Мир», 2003. – 720 с.
Репин В.В., Елиферов В.Г. Процессный подход к управлению. Моделирование бизнес-процессов. – М.: РИА «Стандарты и качество», 2004. – 408 с.
Смирнова Г.Н. Проектирование экономических информационных систем: Учебник/ под ред. Г.Н. Смирнова, А.А. Сорокин, Ю.Ф. Тельнов. – М.: Финансы и статистика, 2003. – 512 с.
Тависеев А.М., Бычков В.П., Москвин В.А. Банковское дело: базовые операции для клиентов / Под ред. Тависеев А.М.. – М.: Финансы и статистика, 2005. – 304 с.
Тависеев А.М., Бычков В.П., Москвин В.А. и др. Банковское дело: дополнительные операции для клиентов / Под ред. Тависеев А.М.. – М.: Финансы и статистика, 2005. – 416 с.
Титоренко А.Г. Информационные системы в экономике. – М.: ЮНИТИ-ДАНА, 2008. – 463 с.
Тютюнник А.В. Реинжиниринг кредитных организаций. Управленческая аналитическая разработка - Издательская группа "БДЦ-Пресс", 2001 г. – 431 с.
Тютюнник А.В., Шевелев А.С. Информационные технологии в банке - Издательская группа "БДЦ-пресс", 2003 г.- 315 с.
Харитонова И. А. Самоучитель: Office Access 2003. — СПб.: Питер, 2004. — 464 с.
Черемных С.В. Моделирование и анализ систем. I DEF-технологии. - М.: Финансы и статистика, 2006. - 192 с.
Чижов Н.А. Управление клиентской базой банка: Практическое пособие. — М.: Издательство «Альфа-Пресс», 2007. — 284 с.
Алексеенко О. Как сделать так, чтобы звонок клиента не стал последним. // Статья журнала «БДМ. Банки и деловой мир», № 12, 2006 г. http://www.bdm.ru/arhiv/2006/12/58.htm
Воронина А. Через три года половину автомобилей россияне будут покупать в кредит. // Газета «Ведомости», 05.03.2008.
Официальный сайт ЗАО «Банк Русский стандарт» http://www.rs.ru
Официальный сайт Центрально банка России http://cbr.ru/
Информационный портал Банки.Ру http://www.banki.ru/
Информационный портал Банкир.Ру http://bankir.ru/
Сайт компании РосБизнесКонсалтинг http://www.rbc.ru/
Данные сайта разработчика генератора отчетов FastReport http://fast-report.com/ru
Приложение 1. Программный код модулей АИС
Программный код модуля UnitPass
//Авторизация
procedure TFrmPass.ButEnterClick(Sender: TObject);
begin
if LCBUser.Text <> '' then
begin
if EdPass.Text = QPassPass.Value then
begin
FrmMain.Show;
// Определение прав доступа
if QPassFIO.Value <> 'Администратор' Then
begin
FrmMain.N12.Enabled := false;
FrmMain.LabName.Caption := 'Оператор Call-центра: ' + QPassFIO.Value
end
else
FrmMain.LabName.Caption := QPassFIO.Value;
UnitMain.tab_oper := QPassTab_num.Value;
UnitMain.name_oper := QPassFIO.Value;
FrmPass.Visible := false;
end
else
begin
MessageDlg ('Пароль не верный. Попробуйте еще раз.', mtWarning, [mbOK], 0);
EdPass.Text := '';
EdPass.SetFocus;
end
end
else MessageDlg ('Необходимо выбрать имя пользователя из списка', mtInformation, [mbOk], 0);
end;
// Нажатие на кнопку "Отмена"
procedure TFrmPass.ButCanClick(Sender: TObject);
begin
FrmPass.Close;
end;

Программный код модуля UnitMain
var
FrmMain: TFrmMain;
tab_oper : String;
name_oper : String;
implementation
uses UnitPass, UnitProg, UnitAvto, UnitMarAvto, UnitSalon, UnitPredl, UnitVibProg, UnitZayvka, UnitPoiskSal, UnitAkc, UnitPoiskAvto, UnitPoiskAkc, UnitProsZ, UnitPlat;
{$R *.dfm}
// Выход из формы
procedure TFrmMain.N17Click(Sender: TObject);
begin
FrmPass.Close;
end;
// Установка связи с БД
procedure TFrmMain.FormShow(Sender: TObject);
begin
ADOConn.Connected := true;
end;
procedure TFrmMain.FormCreate(Sender: TObject);
begin
ADOConn.Connected := true;
end;
// Вызов формы справочника "Программы автокредитования"
procedure TFrmMain.N18Click(Sender: TObject);
begin
FrmSpravProg.Show;
end;
// Вызов формы справочника "Модели автмобилей"
procedure TFrmMain.N15Click(Sender: TObject);
begin
FrmSpravAvto.Show;
end;
// Вызов формы справочника "Марки автмобилей"
procedure TFrmMain.N14Click(Sender: TObject);
begin
FrmSpravMar.Show;
end;
// Вызов формы справочника "Автосалоны"
procedure TFrmMain.N13Click(Sender: TObject);
begin
FrmSalon.Show;
end;
// Вызов формы "Предложения автосалонов"
procedure TFrmMain.N8Click(Sender: TObject);
begin
FrmPredl.Show;
end;
// Вызов формы "Выбор программы автокредитования"
procedure TFrmMain.N6Click(Sender: TObject);
begin
FrmVibProg.Show;
end;
// Вызов формы "Поиск по автосалону"
procedure TFrmMain.N11Click(Sender: TObject);
begin
FrmPoiskSal.Show;
end;
// Вызов формы "Регистрация заявки"
procedure TFrmMain.N2Click(Sender: TObject);
begin
FrmZayvka.Show;
end;
// Вызов формы "Акции автосалонов"
procedure TFrmMain.N16Click(Sender: TObject);
begin
FrmAkc.Show;
end;
// Вызов формы "Поиска автомобиля в автосалонах"
procedure TFrmMain.N7Click(Sender: TObject);
begin
FrmPoiskAvto.Show;
end;
// Вызов формы "Поиск по акциям автосалонов"
procedure TFrmMain.N19Click(Sender: TObject);
begin
FrmPoiskAkc.Show;
end;
// Вызов формы "Просмотр заявок"
procedure TFrmMain.N3Click(Sender: TObject);
begin
FrmProsZ.Show;
end;
// Вызов формы "Расчет платежей"
procedure TFrmMain.N9Click(Sender: TObject);
begin
FrmPlat.Show;
end;
end.
Программный код модуля UnitZayvka
// Открытие формы
procedure TFrmZayvka.FormShow(Sender: TObject);
begin
QZayv.Insert;
EdDate.Text := DateToStr(Date); // Вывод текущей даты
EdFIO.Text := UnitMain.name_oper;
QZayvTab_num.Value := UnitMain.tab_oper; // Определение табельного новмера оператора
end;
// Выход из формы
procedure TFrmZayvka.ButExitClick(Sender: TObject);
begin
QZayv.Cancel;
FrmZayvka.Close;
end;
// Нажатие кнопки "Выбор программы автокредитования"
procedure TFrmZayvka.Button1Click(Sender: TObject);
begin
FrmVibProg.Show;
end;
// Нажатие кнопки "Новая заявка"
procedure TFrmZayvka.ButNewClick(Sender: TObject);
begin
QZayv.Post;
QZayv.Insert;
end;
// Нажатие кнопки "Поиск по автосалону"
procedure TFrmZayvka.Button4Click(Sender: TObject);
begin
FrmPoiskSal.Show;
end;
// Нажатие кнопки "Поиск по автомобилю"
procedure TFrmZayvka.Button3Click(Sender: TObject);
begin
FrmPoiskAvto.Show;
end;
// Нажатие кнопки "Поиск по акциям автосалона"
procedure TFrmZayvka.Button2Click(Sender: TObject);
begin
FrmPoiskAkc.Show;
end;
// Сохранение заявки
procedure TFrmZayvka.ButSaveClick(Sender: TObject);
begin
QZayv.Post;
end;
end.
Программный код модуля UnitPredl
// Открытие формы
procedure TFrmPredl.ButNewClick(Sender: TObject);
begin
FrmNewPred.Show;
end;
// Формирование списка автосалонов выбранного города
procedure TFrmPredl.DBLookupComboBox1Click(Sender: TObject);
begin
QSal.Close;
QSal.Parameters[0].Value := QGorKod_gor.Value;
QSal.Open;
QSal.Refresh;
end;
// Закрытие формы
procedure TFrmPredl.ButExitClick(Sender: TObject);
begin
FrmPredl.Close;
end;
// Формирование списка предложений автосалона
procedure TFrmPredl.DBLookupComboBox2Click(Sender: TObject);
begin
QPred.Close;
QPred.Parameters[0].Value := QSalKod_salon.Value;
QPred.Open;
end;
Программный код модуля UnitAkc
// Открытие формы
procedure TFrmAkc.FormShow(Sender: TObject);
begin
QReg.Open;
QSal.Close;
QAkc.Close;
ButSave.Enabled := False;
ButNew.Enabled := True;
ButDel.Enabled := True;
Panel2.Enabled := false;
end;
// Формирование списка городов
procedure TFrmAkc.LCBRegClick(Sender: TObject);
begin
QGor.Close;
QGor.Parameters[0].Value := QRegKod_reg.Value;
QGor.Open;
QGor.Refresh;
end;
// Формирование списка автосалонов
procedure TFrmAkc.LCBGorClick(Sender: TObject);
begin
QSal.Close;
QSal.Parameters[0].Value := QGorKod_gor.Value;
QSal.Open;
QSal.Refresh;
end;
// Закрытие формы
procedure TFrmAkc.ButExitClick(Sender: TObject);
begin
QAkc.Cancel;
FrmAkc.Close;
end;
// Поиск акций для автосалона
procedure TFrmAkc.ButSeeClick(Sender: TObject);
begin
QAkc.Close;
QAkc.Parameters[0].Value := QSalKod_salon.Value;
QAkc.Open;
QAkc.Refresh;
Panel2.Enabled := true;
// Если акций для автосалона не найдено - происходит добавление новой записи
if QAkc.RecordCount = 0 Then
begin
ButSave.Enabled := True;
ButNew.Enabled := False;
ButDel.Enabled := False;
end;
end;
// Перемещение по акциям
procedure TFrmAkc.ButSledClick(Sender: TObject);
begin
QAkc.Next;
end;
procedure TFrmAkc.ButPredClick(Sender: TObject);
begin
QAkc.Prior;
end;
Программный код модуля UnitVibProg
// Открытие формы
procedure TFrmVibProg.FormShow(Sender: TObject);
begin
LabProg.Visible := false;
LabKol.Visible := false;
EdSum.Text := '';
EdSrok.Text := '';
QProg.Close;
QProg.Parameters[0].Value := 0;
QProg.Parameters[1].Value := 0;
QProg.Open;
QProg.Refresh;
end;

procedure TFrmVibProg.ButSeeClick(Sender: TObject);
var s, sr : Integer;
begin
// Проверка правильности ввода суммы кредита
if TryStrToInt(EdSum.Text, s) = false then
begin
MessageDlg ('В поле "Сумма кредита" должно быть числовое значение', mtWarning, [mbOK], 0);
EdSum.Text := '';
EdSum.SetFocus;
exit
end;
// Проверка правильности ввода срока кредита
if TryStrToInt(EdSrok.Text, sr) = false then
begin
MessageDlg ('В поле "Срок кредита" должно быть числовое значение', mtWarning, [mbOK], 0);
EdSrok.Text := '';
EdSrok.SetFocus;
exit
end;
// Определение параметров запроса
QProg.Close;
QProg.Parameters[0].Value := s;
QProg.Parameters[1].Value := sr;
QProg.Open;
QProg.Refresh;
// Определение количества вариантов программ
LabProg.Visible := true;
LabKol.Caption := InttoStr(QProg.RecordCount);
LabKol.Visible := true;
end;
// Закрытие формы
procedure TFrmVibProg.ButExitClick(Sender: TObject);
begin
FrmVibProg.Close;
end;
//Перемещение по записям
procedure TFrmVibProg.ButSledClick(Sender: TObject);
begin
QProg.Next;
end;
procedure TFrmVibProg.ButPredClick(Sender: TObject);
begin
QProg.Prior;
end;
// Расчет платежей по программе
procedure TFrmVibProg.Button1Click(Sender: TObject);
begin
FrmPlat.Show;
FrmPlat.QProg.Locate('Kod_kred', QProgKod_kred.Value, [loCaseInsensitive]);
end;
Программный код модуля UnitPlat
// Функция для округления чисел
function RoundEx( X: Double; Precision : Integer ): Double;
var ScaledFractPart, Temp : Double;
begin
ScaledFractPart := Frac(X)*Precision;
Temp := Frac(ScaledFractPart);
ScaledFractPart := Int(ScaledFractPart);
if Temp >= 0.5 then ScaledFractPart := ScaledFractPart + 1;
if Temp <= -0.5 then ScaledFractPart := ScaledFractPart - 1;
RoundEx := Int(X) + ScaledFractPart/Precision;
end;
// Открытие формы
procedure TFrmPlat.FormShow(Sender: TObject);
var i, j : integer;
begin
QProg.Open;
EdSum.Text := '0';
EdVznos.Text := '0';
EdKred.Text := '';
EdPlat.Text := '';
EdPer.Text := '';
CBSrok.Text := '';
LabProc.Caption := '';
LabMin.Caption := '';
for i := 0 to (SGPlat.RowCount-1) do
for j := 0 to (SGPlat.ColCount-1) do
begin
SGPlat.Cells[j,i] := '';
end;
end;
procedure TFrmPlat.LCBProgClick(Sender: TObject);
begin
LabProc.Caption := FloatToStr(QProgStavka.Value);
end;
procedure TFrmPlat.EdSumExit(Sender: TObject);
begin
// Расчет суммы минимального первоначального взноса
LabMin.Caption := CurrToStr(StrToCurr(EdSum.Text)*QProgVznos.Value/100);
end;
// Закрытие формы
procedure TFrmPlat.ButExitClick(Sender: TObject);
begin
FrmPlat.Close;
end;
// Формирование таблицы расчетов
procedure TFrmPlat.ButSeeClick(Sender: TObject);
var i, sr : integer;
proc : double;
sumk, plat, ost, sumnak: Currency;
begin
sumk := Strtocurr(EdSum.Text) - Strtocurr(EdVznos.Text);
proc := QProgStavka.Value;
EdKred.Text := Currtostr(sumk);
sr := strtoint(CBSrok.Text);
SGPlat.RowCount := sr + 1;
SGPlat.Cells[0,0] := 'Период';
SGPlat.Cells[1,0] := 'Платеж, руб.';
SGPlat.Cells[2,0] := 'Остаток, руб.';
ost := sumk;
sumnak := 0;
for i := 1 to sr do
begin
SGPlat.Cells[0,i] := 'Месяц ' + inttostr(i);
plat := RoundEx(sumk/sr + (ost*30*proc/(365*100)), 100);
ost := RoundEx(ost - sumk/sr, 100);
sumnak := RoundEx(sumnak + plat, 100);
SGPlat.Cells[1,i] := currtostr(plat);
SGPlat.Cells[2,i] := currtostr(ost);
end;
EdPlat.Text := currtostr(sumnak);
EdPer.Text := currtostr(sumnak - sumk);
end;
// Формирование таблицы расчетов в отчете
procedure TFrmPlat.frxReportBeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if Sender is TfrxCrossView then
begin
Cross := TfrxCrossView(Sender);
for i := 1 to SGPlat.RowCount do
for j := 1 to SGPlat.ColCount do
Cross.AddValue([i], [j], [SGPlat.Cells[j - 1, i - 1]]);
end;
end;
// Формирование отчета
procedure TFrmPlat.Button2Click(Sender: TObject);
begin
frxReport.Variables['Prog'] := '''' + LCBProg.Text + '''';
frxReport.Variables['Stoim'] := StrToInt(EdSum.Text);
frxReport.Variables['Vznos'] := StrToInt(EdVznos.Text);
frxReport.Variables['Srok'] := StrToInt(CBSrok.Text);
frxReport.Variables['SumKred'] := StrToCurr(EdKred.Text);
frxReport.Variables['SumPlat'] := StrToCurr(EdPlat.Text);
frxReport.Variables['SumPer'] := StrToCurr(EdPer.Text);
frxReport.ShowReport();
end;
Программный код модуля UnitPoiskSal
// Формирование списка городов выбранного региона
procedure TFrmPoiskSal.LCBRegClick(Sender: TObject);
begin
QGor.Close;
QGor.Parameters[0].Value := QRegKod_reg.Value;
QGor.Open;
QGor.Refresh;
end;
// Формирование списка автосалонов выбранного города
procedure TFrmPoiskSal.LCBGorClick(Sender: TObject);
begin
QSal.Close;
QSal.Parameters[0].Value := QGorKod_gor.Value;
QSal.Open;
QSal.Refresh;
end;

procedure TFrmPoiskSal.ButSeeClick(Sender: TObject);
var s1, s2 : Integer;
begin
// Проверка правильности ввода стоимости автомобиля
if TryStrToInt(EdMin.Text, s1) = false then
begin
MessageDlg ('В поле "Стоимость автомобиля" должно быть числовое значение', mtWarning, [mbOK], 0);
EdMin.Text := '';
EdMin.SetFocus;
exit
end;
if TryStrToInt(EdMax.Text, s2) = false then
begin
MessageDlg ('В поле "Стоимость автомобиля" должно быть числовое значение', mtWarning, [mbOK], 0);
EdMax.Text := '';
EdMax.SetFocus;
exit
end;
if s1 > s2 then
begin
MessageDlg ('Минимальная стоимость автомобиля должна быть меньше максимальной', mtWarning, [mbOK], 0);
EdMin.Text := '';
EdMax.Text := '';
EdMin.SetFocus;
exit
end;
// Поиск предложений по выбранным параметрам
QPred.Close;
QPred.Parameters[0].Value := QSalKod_salon.Value;
QPred.Parameters[1].Value := s1;
QPred.Parameters[2].Value := s2;
QPred.Open;
//QPred.Refresh;
QPred.RecordCount;
end;
procedure TFrmPoiskSal.ButExitClick(Sender: TObject);
begin
FrmPoiskSal.Close;
end;
procedure TFrmPoiskSal.FormShow(Sender: TObject);
begin
QReg.Open;
end;
// Просмотр отчета
procedure TFrmPoiskSal.ButPrintClick(Sender: TObject);
begin
frxReport.Variables['SumMin'] := StrToInt(EdMin.Text);
frxReport.Variables['SumMax'] := StrToInt(EdMax.Text);
frxReport.ShowReport();
end;
Программный код модуля UnitPoiskAvto
// Формирование списка городов выбранного региона

procedure TFrmPoiskAvto.LCBRegClick(Sender: TObject);
begin
QGor.Close;
QGor.Parameters[0].Value := QRegKod_reg.Value;
QGor.Open;
QGor.Refresh;
end;

procedure TFrmPoiskAvto.ButExitClick(Sender: TObject);
begin
FrmPoiskAvto.Close;
end;

procedure TFrmPoiskAvto.LCBMarClick(Sender: TObject);
begin
QMod.Close;
QMod.Parameters[0].Value := QMarKod_mar.Value;
QMod.Open;
QMod.Refresh;
end;

procedure TFrmPoiskAvto.LCBGorClick(Sender: TObject);
begin
QSal.Close;
QSal.Parameters[0].Value := QGorKod_gor.Value;
QSal.Open;
QSal.Refresh;
end;

procedure TFrmPoiskAvto.ButSeeClick(Sender: TObject);
begin
QAvto.Close;
QAvto.Parameters[0].Value := QGorKod_gor.Value;
QAvto.Parameters[1].Value := QModKod_mod.Value;
QAvto.Parameters[2].Value := QKlassKod_tip.Value;
QAvto.Open;
end;
// Просмотр отчета
procedure TFrmPoiskAvto.Button2Click(Sender: TObject);
begin
frxReport.ShowReport();
end;
Программный код модуля UnitPoiskAkc
procedure TFrmPoiskAkc.ButSeeClick(Sender: TObject);
begin
// Поиск предложений по выбранным параметрам
QAkc.Close;
QAkc.Parameters[0].Value := QGorKod_gor.Value;
QAkc.Open;
end;

procedure TFrmPoiskAkc.FormShow(Sender: TObject);
begin
QReg.Open;
end;

procedure TFrmPoiskAkc.ButExitClick(Sender: TObject);
begin
FrmPoiskAkc.Close;
end;

procedure TFrmPoiskAkc.LCBRegClick(Sender: TObject);
begin
QGor.Close;
QGor.Parameters[0].Value := QRegKod_reg.Value;
QGor.Open;
QGor.Refresh;
end;
// Просмотр отчета
procedure TFrmPoiskAkc.Button2Click(Sender: TObject);
begin
frxReport.ShowReport();
end;
Программный код модуля UnitProg
// Выход в меню
procedure TFrmSpravProg.ButExitClick(Sender: TObject);
begin
QProg.Cancel;
FrmSpravProg.Close;
end;
// Изменение записи
procedure TFrmSpravProg.ButEditClick(Sender: TObject);
begin
QProg.Edit;
QProg.Post;
end;
// Новая запись
procedure TFrmSpravProg.ButNewClick(Sender: TObject);
begin
QProg.Insert;
ButSave.Enabled := True;
ButNew.Enabled := False;
ButPred.Enabled := False;
ButSled.Enabled := False;
ButEdit.Enabled := False;
ButDel.Enabled := False;
end;
// Сохранение новой записи
procedure TFrmSpravProg.ButSaveClick(Sender: TObject);
begin
QProg.Post;
ButSave.Enabled := False;
ButNew.Enabled := True;
ButPred.Enabled := True;
ButSled.Enabled := True;
ButEdit.Enabled := True;
ButDel.Enabled := True;
end;
// Открытие формы
procedure TFrmSpravProg.FormShow(Sender: TObject);
begin
QProg.Open;
ButSave.Enabled := False;
ButNew.Enabled := True;
ButPred.Enabled := True;
ButSled.Enabled := True;
ButEdit.Enabled := True;
ButDel.Enabled := True;
end;
// Следующая запись
procedure TFrmSpravProg.ButSledClick(Sender: TObject);
begin
QProg.Next;
end;
// Предыдущая запись
procedure TFrmSpravProg.ButPredClick(Sender: TObject);
begin
QProg.Prior;
end;
// Удаление записи
procedure TFrmSpravProg.ButDelClick(Sender: TObject);
begin
// Подтвеждение необходимости удаления
If MessageDlg ('Вы уверены, что необходимо удалить запись?', mtWarning, [mbOK, mbCancel], 0) = mrOK then
QProg.Delete;
end;
Программный код модуля UnitAvto
// Открытие формы
procedure TFrmSalon.FormShow(Sender: TObject);
begin
QSal.Open;
QReg.Open;
QGor.Open;
EdGor.Visible := true;
EdReg.Visible := true;
LCBGor.Visible := false;
LCBReg.Visible := false;
ButSave.Enabled := False;
ButNew.Enabled := True;
ButPred.Enabled := True;
ButSled.Enabled := True;
ButDel.Enabled := True;
end;
// Закрытие формы
procedure TFrmSalon.ButExitClick(Sender: TObject);
begin
FrmSalon.Close;
end;
// Формирование списка городов выбранного региона
procedure TFrmSalon.LCBRegClick(Sender: TObject);
begin
QGor.Close;
QGor.Parameters[0].Value := QRegKod_reg.Value;
QGor.Open;
QGor.Refresh;
end;
// Следующая запись
procedure TFrmSalon.ButSledClick(Sender: TObject);
begin
QSal.Next;
end;
// Предыдущая запись
procedure TFrmSalon.ButPredClick(Sender: TObject);
begin
QSal.Prior;
end;
// Сохранение новой записи
procedure TFrmSalon.ButSaveClick(Sender: TObject);
begin
QSal.Post;
EdGor.Visible := true;
EdReg.Visible := true;
LCBGor.Visible := false;
LCBReg.Visible := false;
ButSave.Enabled := False;
ButNew.Enabled := True;
ButPred.Enabled := True;
ButSled.Enabled := True;
ButDel.Enabled := True;
end;
// Новая запись
procedure TFrmSalon.ButNewClick(Sender: TObject);
begin
QSal.Insert;
EdGor.Visible := true;
EdReg.Visible := true;
LCBGor.Visible := false;
LCBReg.Visible := false;
ButSave.Enabled := True;
ButNew.Enabled := False;
ButPred.Enabled := False;
ButSled.Enabled := False;
ButDel.Enabled := False;
end;

procedure TFrmSalon.ButDelClick(Sender: TObject);
begin
// Подтвеждение необходимости удаления
If MessageDlg ('Вы уверены, что необходимо удалить запись?', mtWarning, [mbOK, mbCancel], 0) = mrOK then
QSal.Delete;
end;
Программный код модуля UnitMarAvto
// Открытие формы
procedure TFrmSpravMar.FormShow(Sender: TObject);
begin
QMar.Open;
QCoun.Open;
EDCoun.Visible := True;
//LCBCoun.Visible := False;
ButSave.Enabled := False;
ButNew.Enabled := True;
ButPred.Enabled := True;
ButSled.Enabled := True;
ButDel.Enabled := True;
end;
// Выход в меню
procedure TFrmSpravMar.ButExitClick(Sender: TObject);
begin
QMar.Cancel;
FrmSpravMar.Close;
end;
// Новая запись
procedure TFrmSpravMar.ButNewClick(Sender: TObject);
begin
QCoun.Refresh;
QMar.Insert;
EDCoun.Visible := False;
LCBCoun.Visible := True;
ButSave.Enabled := True;
ButNew.Enabled := False;
ButPred.Enabled := False;
ButSled.Enabled := False;
ButDel.Enabled := False;
end;
// Сохранение новой записи
procedure TFrmSpravMar.ButSaveClick(Sender: TObject);
begin
QMar.Post;
EDCoun.Visible := True;
//LCBCoun.Visible := False;
ButSave.Enabled := False;
ButNew.Enabled := True;
ButPred.Enabled := True;
ButSled.Enabled := True;
ButDel.Enabled := True;
end;
// Удаление записи
procedure TFrmSpravMar.ButDelClick(Sender: TObject);
begin
// Подтвеждение необходимости удаления
If MessageDlg ('Вы уверены, что необходимо удалить запись?', mtWarning, [mbOK, mbCancel], 0) = mrOK then
QMar.Delete;
end;
// Предыдущая запись
procedure TFrmSpravMar.ButPredClick(Sender: TObject);
begin
QMar.Prior;
end;
// Следующая запись
procedure TFrmSpravMar.ButSledClick(Sender: TObject);
begin
QMar.Next;
end;
Программный код модуля UnitSalon
// Открытие формы
procedure TFrmSpravAvto.FormShow(Sender: TObject);
begin
QMod.Open;
QMar.Open;
EdMar.Visible := True;
LCBMar.Visible := False;
ButSave.Enabled := False;
ButNew.Enabled := True;
ButPred.Enabled := True;
ButSled.Enabled := True;
ButDel.Enabled := True;
end;
// Выход в меню
procedure TFrmSpravAvto.ButExitClick(Sender: TObject);
begin
QMod.Cancel;
FrmSpravAvto.Close;
end;
// Новая запись
procedure TFrmSpravAvto.ButNewClick(Sender: TObject);
begin
QMod.Insert;
EdMar.Visible := False;
LCBMar.Visible := True;
ButSave.Enabled := True;
ButNew.Enabled := False;
ButPred.Enabled := False;
ButSled.Enabled := False;
ButDel.Enabled := False;
end;
// Сохранение новой записи
procedure TFrmSpravAvto.ButSaveClick(Sender: TObject);
begin
QMod.Post;
EdMar.Visible := True;
LCBMar.Visible := False;
ButSave.Enabled := False;
ButNew.Enabled := True;
ButPred.Enabled := True;
ButSled.Enabled := True;
ButDel.Enabled := True;
end;
// Следующая запись
procedure TFrmSpravAvto.ButSledClick(Sender: TObject);
begin
QMod.Next;
end;
// Предыдущая запись
procedure TFrmSpravAvto.ButPredClick(Sender: TObject);
begin
QMod.Prior;
end;
// Удаление записи
procedure TFrmSpravAvto.ButDelClick(Sender: TObject);
begin
// Подтвеждение необходимости удаления
If MessageDlg ('Вы уверены, что необходимо удалить запись?', mtWarning, [mbOK, mbCancel], 0) = mrOK then
QMod.Delete;
end;
Кредит на магнитной полосе. 11.12.2007, Московский Комсомолец
Секьюритизация (от англ. securities — «ценные бумаги») — финансовый термин, означающий одну из форм привлечения финансирования путём выпуска ценных бумаг, обеспеченных активами, генерирующими стабильные денежные потоки (например, портфель ипотечных кредитов, автокредитов, лизинговые активы, коммерческая недвижимость, генерирующая стабильный рентный доход и т. д.).
Экспресс оценка http://www.banks-rate.ru/
Афонин Д. Почему банк «Русский Стандарт» привлекает больше клиентов, чем его более известные конкуренты?// SmartMoney 29.01.07.









131