Файл: Автоматизация обработки обращений в службу технической поддержки в ООО «РТ-Информ».pdf

№

Название модуля

Описание

Функции

1

TdmServer

Содержит компоненты для подключения к системе управления базами данных (через ADO) и компоненты для организации сервера приложений (передача данных выполняется через протокол TCP). Также содержит в своем составе модуль для получения рекомендаций по заявкам.

Подключение к СУБД.

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

Выдача рекомендаций.

2

TdssmRemoteData

Модуль системы, который определяет доступные клиенту данные и функциональность системы. Экземпляр данного модуля создается для каждого подключенного клиента.

Авторизация.

Предоставление данных;

Предоставление функциональности;

Область видимости

Поле/метод

Описание

public

adoConnection: TADOConnection;

Компонент, отмечающий за соединение с базой данных через технологию ADO.

DSServer: TDSServer;

Компонент, организующий работу сервера DataSnap.

DSTCPServerTransport: TDSTCPServerTransport;

Компонент передачи данных между сервером и клиентом.

DSServerClass: TDSServerClass;

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

DSAuthenticationManager: TDSAuthenticationManager;

Менеджер аутентификации.

RecommendationController : TRecommendationController;

Компонент для получения рекомендаций.

function GetUserKey (Login, Password : String; var Blocked : Boolean) : Integer;

Функция для получения идентификатора пользователя по его логину и паролю.

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.

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;

Набор данных «Количество неисправностей» (доступен пользователям из группы «Администраторы»).

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);

Метод перевода закрытой заявки в архив (доступен пользователям из группы «Администраторы»).

procedure CreateYearReport (Date : TDateTime);

Метод для создания годового отчета (доступен пользователям из группы «Администраторы»).

procedure SetDates (Date1, Date2 : TDateTime);

Метод, необходимый для создания отчетов за период (доступен пользователям из группы «Администраторы»).

procedure DeleteAllRequest (Psw : string);

Метод очистки базы данных (доступен пользователям из группы «Администраторы»). Перед выполнением очистки выполняется проверка пользовательского пароля.

function GetDate : TDateTime;

Метод получения системного времени сервера (доступен всем пользователям прошедшим аутентификацию).

function GetCurrentUserTypeKey : Integer;

Метод получения идентификатора пользователя (доступен всем пользователям прошедшим аутентификацию).

function GetRecommendation (RequestID : Integer) : String;

Метод получения рекомендации по указанному идентификатору заявки (доступен пользователям из группы «Администраторы»).

Область видимости

Поле/метод

Описание

private

Connection : TADOConnection;

Ссылка на компонент соединения с базой данных.

Request : TRequest;

Объект, отвечающий за вычисление информации по заявкам.

ZLimit : Integer;

Пороговое значение для Z-массива.

PLimit : Integer;

Пороговое значение для P-массива.

NSize : Integer;

Размерность N-массива.

ZSize : Integer;

Размерность Z-массива.

PSize : Integer;

Размерность P-массива.

N : array of Double;

Массив допустимых пределов;

Z : array of Double;

Массив показателей, который отражает ненадежность устройства.

P : array of Double;

Массив показателей, который отражает некомпетентность пользователя.

List : TStringList;

Рекомендации.

function GetQuery (SQL : String) : TADOQuery;

Метод для получения результатов произвольного запроса к БД.

procedure LoadN (DefectID : Integer);

Метод загрузки массива допустимых пределов.

procedure LoadRequest (RequestID : Integer);

Метод загрузка информации о заявке.

procedure LoadZ;

Метод вычисления Z-массива.

procedure LoadP;

Метод вычисления P-массива.

procedure LoadParams;

Метод загрузки параметров;

procedure GetResults;

Метод анализа Z и P массивов.

public

constructor Create (Connection : TADOConnection);

Конструктор класса.

destructor Destroy;

Деструктор класса.

function GetRecommendation (RequestID : Integer) : String;

Функция получения рекомендации по выбранной заявке.

private

Loaded : Boolean

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

Connection : TADOConnection;

Ссылка на компонент соединения с базой данных.

Request : TADOQuery;

Запрос к базе данных, который содержит данные, о загруженной заявке.

function GetQuery (SQL : String) : TADOQuery;

Функция для получения результатов произвольного запроса к БД.

function GetSimilarRequest (Date1, Date2 : TDateTime; Where : String = '') : TADOQuery;

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

procedure TestLoaded;

Функция создает исключение, если заявка не была загружена.

public

constructor Create (Connection : TADOConnection);

Конструктор класса.

destructor Destroy;

Деструктор класса.

procedure Load (RequestID : Integer);

Метод для загрузки информации по заданной заявке.

procedure Clear;

Метод для очистки данных.

function GetDefectID : Integer;

Метод получения кода неисправности загруженной заявки.

function GetUserID : Integer;

Метод получения кода пользователя, который добавил заявку.

function GetCostOfRepairs : Double;

Метод получения стоимости ремонта для загруженной заявки.

function GetCostOfSpareParts : Double;

Метод получения стоимости запчастей для загруженной заявки.

function GetDateOfRegistration : TDateTime;

Получить дату регистрации загруженной заявки.

function GetDefectCountFormMonth : Integer;

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

function GetDefectCountForm6Month : Integer;

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

function GetDefectCountForm12Month : Integer;

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

function GetDefectCashSumForm12Month : Double;

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

function GetUserFailureDefectCountForm3Month : Integer;

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

function GetUserFailureDefectCountForm6Month : Integer;

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

function GetUserFailureDefectCashSumForm12Month : Double;

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

public

SQLConnection: TSQLConnection;

Компонент соединения с сервером приложений;

DSProviderConnection: TDSProviderConnection;

Компонент соединения с

cdsUserInfo: TADOQuery;

Клиентский набор данных «Информация о пользователе».

dsUserInfo: TDataSetProvider;

Посредник набора данных cdsUserInfo.

cdsFunction: TADOTable;

Клиентский набор данных «Должность».

dsFunction: TDataSetProvider;

Посредник набора данных cdsFunction.

cdsDefect: TADOTable;

Клиентский набор данных «Неисправность».

dsDefect: TDataSetProvider;

Посредник набора данных cdsDefect.

cdsDepartment: TADOTable;

Клиентский набор данных «Отделение».

dsDepartment: TDataSetProvider;

Посредник набора данных cdsDepartment.

cdsUserType: TADOTable;

Клиентский набор данных «Тип пользователя».

dsUserType: TDataSetProvider;

Посредник набора данных cdsUserType.

cdsUser: TADOTable;

Клиентский набор данных «Пользователь».

dsUser: TDataSetProvider;

Посредник набора данных cdsUser.

cdsOpenRequest: TADOTable;

Клиентский набор данных «Открытые заявки».

dsOpenRequest: TDataSetProvider;

Посредник набора данных cdsOpenRequest.

cdsClosedRequest: TADOTable;

Клиентский набор данных «Закрытые заявки».

dsClosedRequest: TDataSetProvider;

Посредник набора данных cdsClosedRequest.

cdsArchive: TADOTable;

Клиентский набор данных «Архив».

dsArchive: TDataSetProvider;

Посредник набора данных cdsArchive.

cdsParams: TADOTable;

Клиентский набор данных «Параметры».

dsParams: TDataSetProvider;

Посредник набора данных cdsParams.

cdsDefectCount: TADOTable;

Клиентский набор данных «Количество неисправностей».

dsDefectCount: TDataSetProvider;

Посредник набора данных cdsDefectCount.

cdsYearReport: TClientDataSet;

Клиентский набор данных «Годовой отчет».

dsYearReport: TDataSetProvider;

Посредник набора данных cdsYearReport.

cdsReportRequestClose: TADOQuery;

Клиентский набор данных «Отчет по закрытым заявкам».

dsReportRequestClose: TDataSetProvider;

Посредник набора данных cdsRequestClose.

cdsReportRequestOpen: TADOQuery;

Клиентский набор данных «Отчет по открытым заявкам».

dsReportRequestOpen: TDataSetProvider;

Посредник набора данных cdsRequestOpen.

cdsRequest: TADOQuery;

Клиентский набор данных «Заявка».

dsRequest: TDataSetProvider;

Посредник набора данных cdsRequest.