Описание таблиц представлено на рисунках ниже.
Рис. 13 Таблица Клиент Рис. 14 Таблица Заявка
Рис. 15 Таблица Пользователь Рис. 16 Таблица Справочник Отделение
Рис. 17 Таблица Справочник Услуга
Остальные таблицы, такие, как: Справочник Улица; Справочник Тип Клиента;
Справочник Статус; Справочник Тип пользователя; Справочник Населенный пункт;
Справочник Приоритет; Справочник Должность; Имеют в своем составе только код
записи и наименование соответствующего атрибута.
70
Рис. 18 Информационная модель нового варианта организации
информационной системы
Область «Информационные системы» отображает процесс конфигурирования
ИС в части ввода пользователей ИС, которые необходимы в рамках задачи для того,
чтобы можно было зафиксировать информацию о принявшей заявке на кредит
сотруднике. Форма «Управление пользователями» предполагает выполнение двух
видов операций:
- редактирование справочника прав пользователей (ролей);
- редактирование справочника пользователей.
Область 2 отображает то, что из базы ИС в рамках моделируемой задачи
используются два справочника и три таблицы.
Область 3 отображает собственно процесс ввода платежа.
Область 4 отображает то, что моделируемая ИС предоставляет на выходе:
- клиент получает результатный документ, содержащий параметры заявки на
кредит, либо его оплаты;
71
- компания получает отчетную документацию по состоянию договор и
задачам прогнозирования.
2.3.3. Структурная схема пакета (дерево вызова программных
модулей)
На рисунке 18 приведена структурная схема проекта.
Программные модули
Серверный
компонент
TdmServer
TdssmRemoteData
Клиентский
компонент
TdmData
SQLConnection
TClientDataSet
TDataSetDrovider
TDataSource
Рис. 19 Структурная схема пакета ИС
72
2.3.4. Описание программных модулей
Разрабатываемая система должна содержать в себе следующие модули:
- модуль авторизации;
- модуль работы со справочниками;
- модуль ввода данных;
- модуль получения отчетов;
- модуль поиска.
В модуле авторизации должны быть реализованы следующие функции:
- Доступ пользователя к главной странице системы после корректного
ввода пароля и логина;
- Вывод сообщения об ошибке ввода пароля и логина с предложением
повторить ввод.
В данном модуле должны быть реализованы следующие функции:
- Ввод данных в справочники;
- Проверка вводимых данных на корректность по типам;
- Вывод в виде экранной формы состава справочника;
- Редактирование состава справочника.
В модуле ввода данных должны быть реализованы следующие функции:
- Возможность ввода данных с помощью экранной формы;
- Проверка вводимых данных на их корректность.
В модуле получения отчетов должны быть реализованы следующие функции:
- Возможность получения отчета в соответствии с заданными
параметрами:
- Формирование необходимых аналитических отчетов
В модуле поиска должна присутствовать функция, позволяющая
осуществлять поиск по справочникам, существующим в системе.
Программная система состоит из следующих уровней: клиент; сервер
приложений; сервер базы данных.
Клиент — это интерфейсный компонент, который представляет первый
уровень, собственно приложение для конечного пользователя. Первый уровень не
имеет прямых связей с базой данных и бизнес-логики.
73
Сервер приложений располагается на втором уровне. На втором уровне
сосредоточена большая часть бизнес-логики.
Сервер базы данных обеспечивает хранение данных и выносится на третий
уровень.
Сервер приложений. Сервер приложений разработан при помощи технологии
Delphi XE2 DataSnap. Передача данных между клиентом и сервером осуществляется
через протокол TCP. Сервер приложений взаимодействует с базой данных через
СУБД Microsoft SQL Express. Подключение к базе данных выполняется через
технологию ADO. В структуре сервера можно выделить две основные части: Модуль
управления сервером (TdmServer) и модуль предоставления данных
(TdssmRemoteData). Описание модулей приведено ниже.
Таблица 9
Структура сервера приложений
№
Название модуля
Описание
Функции
1
TdmServer
Содержит компоненты для
подключения к системе
управления базами данных
(через ADO) и компоненты
для организации сервера
приложений (передача
данных выполняется через
протокол TCP). Также
содержит в своем составе
модуль для получения
рекомендаций по заявкам.
Подключение к СУБД.
Управление сервером
приложений (установка
соединений с
клиентскими
приложениями,
аутентификация
пользователей,
передача данных
клиентам).
Выдача рекомендаций.
2
TdssmRemoteData
Модуль системы, который
определяет доступные
клиенту данные и
функциональность
системы. Экземпляр
данного модуля создается
для каждого
подключенного клиента.
Авторизация.
Предоставление
данных;
Предоставление
функциональности;
Модуль управления сервером. При инициализации данного модуля
автоматически выполняется инициализация соединения с базой данных. Параметры
соединения содержаться в файле Params.ini. Если соединение с базой данных по
каким-то причинам не удалось установить, то сервер выдаст сообщение о
невозможности дальнейшей работы, т.е. успешное подключение к базе данных
обязательное условии запуска сервера.
74
Рис. 20 Состав модуля TdmServer
Как уже отмечалось, сервер передает данные по протоколу TCP (за это
отвечает компонент DSTCPServerTransport) [27, с. 172]. Потому, для сервера должен
быть задан порт прослушивания. В нашем случае он имеет значение 5000.
При подключении, на сервере создается отдельный поток. Клиент в
обязательном порядке передает данные для аутентификации (логин и пароль),
проверку которых выполняет компонент DSAuthenticationManager.
В случае успешного прохождения процедуры аутентификации, для передачи
данных между сервером и клиентом, DSServer создаст интерфейс взаимодействия.
Этим интерфейсом является экземпляр класса TdssmRemoteData.
В случае ошибки аутентификации сервер вызывает исключение и уничтожает
поток, который был создан для данного подключения.
Таблица 10
Описание класса «TdmServer»
Область
видимости
Поле/метод
Описание
public
adoConnection:
TADOConnection;
Компонент, отмечающий за
соединение с базой данных
через технологию ADO.
DSServer: TDSServer;
Компонент, организующий
работу сервера DataSnap.
DSTCPServerTransport:
TDSTCPServerTransport;
Компонент передачи данных
между сервером и клиентом.
DSServerClass:
TDSServerClass;
Компонент, определяющий
класс, функциональность
которого будет доступна
подключенным к серверу
клиентам.
75
Продолжение таблицы 10
Область
видимости
Поле/метод
Описание
public
DSAuthenticationManager:
TDSAuthenticationManager;
Менеджер аутентификации.
RecommendationController :
TRecommendationController;
Компонент для получения
рекомендаций.
function GetUserKey (Login,
Password : String; var Blocked
: Boolean) : Integer;
Функция для получения
идентификатора пользователя
по его логину и паролю.
Интерфейс взаимодействия. Как было сказано выше, экземпляр класса
TdssmRemoteData создается после успешной аутентификации и служит для
предоставления клиентскому приложению определенных данных и
функциональности сервера.
Рис. 21 Состав модуля TdssmRemoteData
Цепочка передачи данных между клиентом и сервером выглядит так:
1. Компонент подключения к БД (TADOConnection);
2. Набор данных (TADOTable или TADOQuery);
76
3. Провайдер набора данных (TDataSetProvider);
4. Компонент клиентского соединения (TSQLConnection);
5. Клиентский компонент соединения с провайдером данных
(TDSProviderConnection);
6. Клиентский набор данных (TClientDataSet).
Пункты 1, 2, 3 – выполняются на стороне сервера, а пункты 4, 5, 6 – на стороне
клиента. Компоненты класса TDataSetProvider служат для определения прав доступа
и настройки параметров передачи данных клиенту. В его настройках можно указать
такие параметры как: доступность набора данных для клиента, режим «только
чтение», запрет редактирования, запрет вставки, запрет удаления и т.д.
Таблица11
Описание класса «TdssmRemoteData»
Область
видимости
Поле/метод
Описание
private
itRequest: TADOTable;
Внутренний набор данных
«Заявка». Используется
сервером для редактирования
данных таблицы «Заявка».
FCurrentUserKey : Integer;
Идентификатор пользователя.
FCurrentUserTypeKey :
Integer;
Идентификатор типа
пользователя.
FDate1 : TDateTime;
Дата начала периода (для
периодических отчетов).
FDate2 : TDateTime;
Дата окончания периода (для
периодических отчетов).
procedure GetAccess
(UserTypeID : Integer);
Метод настройки прав доступа
для пользователя (в
зависимости от его типа).
procedure AccesDenied;
Метод вызова исключения в
случае отсутствии доступа.
public
qUserInfo: TADOQuery;
Набор данных «Информация о
пользователе» (доступен всем
пользователям прошедшим
аутентификацию).
dspUserInfo:
TDataSetProvider;
Провайдер набора данных
qUserInfo.
tFunction: TADOTable;
Набор данных «Должность»
(доступен пользователям из
группы «Администраторы»).
dspFunction:
TDataSetProvider;
Провайдер набора данных
tFunction.
77
Продолжение таблицы 11
Область
видимости
Поле/метод
Описание
public
tDefect: TADOTable;
Набор данных «Неисправность»
(доступен всем пользователям
прошедшим аутентификацию).
dspDefect: TDataSetProvider;
Провайдер набора данных
tDefect.
tDepartment: TADOTable;
Набор данных «Отделение»
(доступен пользователям из
группы «Администраторы»).
dspDepartment:
TDataSetProvider;
Провайдер набора данных
tDepartment.
tUserType: TADOTable;
Набор данных «Тип
пользователя» (доступен
пользователям из группы
«Администраторы»).
dspUserType:
TDataSetProvider;
Провайдер набора данных
tUserType.
tUser: TADOTable;
Набор данных «Пользователь»
(доступен пользователям из
группы «Администраторы»).
dspUser: TDataSetProvider;
Провайдер набора данных
tUser.
tOpenRequest: TADOTable;
Набор данных «Открытые
заявки» (доступен
пользователям из группы
«Администраторы»).
dspOpenRequest:
TDataSetProvider;
Провайдер набора данных
tOpenRequest.
tClosedRequest: TADOTable;
Набор данных «Закрытые
заявки» (доступен
пользователям из группы
«Администраторы»).
dspClosedRequest:
TDataSetProvider;
Провайдер набора данных
tClosedRequest.
tArchive: TADOTable;
Набор данных «Архив»
(доступен пользователям из
группы «Администраторы»).
dspArchive: TDataSetProvider;
Провайдер набора данных
tArchive.
tParams: TADOTable;
Набор данных «Параметры»
(доступен пользователям из
группы «Администраторы»).
dspParams: TDataSetProvider;
Провайдер набора данных
tParams.
tDefectCount: TADOTable;
Набор данных «Количество
неисправностей» (доступен
пользователям из группы
«Администраторы»).
78
Продолжение таблицы 11
Область
видимости
Поле/метод
Описание
public
dspDefectCount:
TDataSetProvider;
Провайдер набора данных
tDefectCount.
cdsYearReport:
TClientDataSet;
Набор данных «Годовой отчет»
(доступен пользователям из
группы «Администраторы»).
dspYearReport:
TDataSetProvider;
Провайдер набора данных
cdsYearReport.
qRequestClose: TADOQuery;
Набор данных «Отчет по
закрытым заявкам» (доступен
пользователям из группы
«Администраторы»).
dspRequestClose:
TDataSetProvider;
Провайдер набора данных
qRequestClose.
qRequestOpen: TADOQuery;
Набор данных «Отчет по
открытым заявкам» (доступен
пользователям из группы
«Администраторы»).
dspRequestOpen:
TDataSetProvider;
Провайдер набора данных
qRequestOpen.
tRequest: TADOQuery;
Набор данных «Заявка»
(доступен пользователям из
группы «Администраторы»).
dspRequest:
TDataSetProvider;
Провайдер набора данных
tRequest.
procedure RequestAdd
(DefectID : Integer; Info :
String);
Метод добавления заявки
(доступен всем пользователям
прошедшим аутентификацию).
procedure RequestEdit
(RequestID : Integer; Info :
String; Date : TDateTime; V1 :
Double; V2 : Double; WorkInfo
: String; UserFailure :
Boolean);
Метод редактирования заявки
(доступен пользователям из
группы «Администраторы»).
procedure RequestClose
(RequestID : Integer; Info :
String; Date : TDateTime; V1 :
Double; V2 : Double; WorkInfo
: String; UserFailure :
Boolean);
Метод закрытия заявки
(доступен пользователям из
группы «Администраторы»).
procedure RequestReopen
(RequestID : Integer);
Метод перевода закрытой
заявки в открытую (доступен
пользователям из группы
«Администраторы»).
procedure RequestToArchive
(RequestID : Integer);
Метод перевода закрытой
заявки в архив (доступен
пользователям из группы
«Администраторы»).