66
Авторизация
1. Клиент
1.1 Добавить
1.2 Удалить
1.3 Редактировать
1.4. Обновить
1.5 Сохранить
Выход
Основные функции:
1.Клиент
2.Оборудование
3.Заказ
4.Анализ
5.Справочник
6.Выход
5. Справочник
1. Телефоны
2. Модели
3. Бренды
4.Запчасти
5. Неисправность
2. Оборудование
2.1 Добавить
2.2 Удалить
2.3 Редактировать
2.4. Обновить
2.5 Сохранить
3. Заказ
3.1 Добавить
3.2 Удалить
3.3 Редактировать
3.4. Обновить
3.5 Сохранить
5.1-5.5 Операции
1 Добавить
2. Обновить
3 Сохранить
4.Анализ
4.1-4.3 Операции
1 Выбор периода
2 Печать
3 Диаграмма
Рисунок 2.6 Сценарий диалога для инженера
Авторизация
1. Клиент
1.1 Добавить
1.2 Удалить
1.3 Редактировать
1.4. Обновить
1.5 Сохранить
Выход
Основные функции:
1.Клиент
2.Оборудование
3.Заказ
4.Анализ
5.Справочник
6.Пользователь
7.Выход
5. Справочник
1. Телефоны
2. Модели
3. Бренды
4.Запчасти
5. Неисправность
2. Оборудование
2.1 Добавить
2.2 Удалить
2.3 Редактировать
2.4. Обновить
2.5 Сохранить
3. Заказ
3.1 Добавить
3.2 Удалить
3.3 Редактировать
3.4. Обновить
3.5 Сохранить
5.1-5.5 Операции
1 Добавить
2 Удалить
3 Редактировать
4. Обновить
5 Сохранить
6.Пользователь
6.1 Добавить
6.2 Удалить
6.3 Редактировать
6.4. Обновить
6.5 Сохранить
6.6 Назначить права доступа
4.Анализ
4.1-4.3 Операции
1 Выбор периода
2 Печать
3 Диаграмма
Рисунок 2.7 Сценарий диалога для администратора
2.3.2. Характеристика базы данных
Схема связи Таблиц базы данных представлена на Рисунке 2.8.
67
Рисунок 2.8 Схема связи Таблиц базы данных
Характеристика Таблиц базы данных представлена на Рисунках ниже.
Рисунок 2.9 Таблица Client
Рисунок 2.10 Таблица Access
68
Рисунок 2.11 Таблица Brands
Рисунок 2.12 Таблица Defect
Рисунок 2.13 Таблица Mobile
Рисунок 2.14 Таблица Model
Рисунок 2.15 Таблица Order
69
Рисунок 2.16 Таблица OrderDefect
Рисунок 2.17 Таблица Order_spare_part
Рисунок 2.18 Таблица Spare_part
Рисунок 2.19 Таблица Staff
70
Рисунок 2.20 Таблица Staff_function
Рисунок 2.21 Таблица Staff_type
2.3.3. Структурная схема пакета (дерево вызова программных модулей)
Структурная схема пакета ИС приведена на Рисунке 2.22.
71
Программные модули
Серверный
компонент
TdmServer
TdssmRemoteData
Клиентский
компонент
TdmData
SQLConnection
TClientDataSet
TDataSetDrovider
TDataSource
Рисунок 2.22 Структурная схема пакета ЭИС
Программная система состоит из следующих уровней: клиент; сервер
приложений; сервер базы данных (Рисунок 2.23).
72
Клиент
Сервер приложение
Сервер баз данных
Рисунок 2.23 Структура программной системы
Клиент это интерфейсный компонент, который представляет первый
уровень, собственно приложение для конечного пользователя. Первый уровень не
имеет прямых связей с базой данных и бизнес-логики.
Сервер приложений располагается на втором уровне. На втором уровне
сосредоточена большая часть бизнес-логики. Сервер базы данных обеспечивает
хранение данных и выносится на третий уровень.
Сервер приложений разработан при помощи технологии Delphi XE2
DataSnap. Передача данных между клиентом и сервером осуществляется через
протокол TCP.
Сервер приложений взаимодействует с базой данных через СУБД MS
Access. Подключение к базе данных выполняется через технологию ADO.
В структуре сервера можно выделить две основные части: Модуль
управления сервером (TdmServer) и модуль предоставления данных
(TdssmRemoteData). Описание модулей приведено в Таблице 2.5.
Таблица 2.5
Структура сервера приложений
№
Название модуля
Описание
Функции
1
TdmServer
Содержит компоненты для
подключения к системе
управления базами данных
(через ADO) и компоненты
для организации сервера
приложений (передача данных
выполняется через протокол
TCP).
Подключение к СУБД.
Управление сервером
приложений (установка
соединений с клиентскими
приложениями,
аутентификация
пользователей, передача
данных клиентам).
2
TdssmRemoteData
Модуль системы, который
определяет доступные клиенту
Авторизация.
Предоставление данных;
73
данные и функциональность
системы. Экземпляр данного
модуля создается для каждого
подключенного клиента.
Предоставление
функциональности;
Основой клиентской части является модуль TdmData. Модуль выполняет
следующие функции: соединение с сервером; управление предоставленными
сервером наборами данных; получение доступа к функциональности сервера
(создание проекции интерфейса взаимодействия «TdssmRemoteData»).
2.3.4. Описание программных модулей
Модуль управления сервером
При инициализации данного модуля автоматически выполняется
инициализация соединения с базой данных. Параметры соединения содержаться в
файле Settings.ini. Если соединение с базой данных по каким-то причинам не
удалось установить, то сервер выдаст сообщение о невозможности дальнейшей
работы, т.е. успешное подключение к базе данных обязательное условии запуска
сервера.
Рисунок 2.24 Состав модуля TdmServer
74
Cервер передает данные по протоколу TCP (за это отвечает компонент
DSTCPServerTransport). Потому, для сервера должен быть задан порт
прослушивания. В нашем случае он имеет значение 5000.
При подключении, на сервере создается отдельный поток. Клиент в
обязательном порядке передает данные для выполнения аутентификации (логин и
пароль), проверку которых выполняет компонент DSAuthenticationManager. В
случае успешного прохождения процедуры аутентификации, для передачи данных
между сервером и клиентом, DSServer создаст интерфейс взаимодействия. Этим
интерфейсом является экземпляр класса TdssmRemoteData.
В случае ошибки аутентификации сервер вызывает исключение и
уничтожает поток, который был создан для данного подключения.
Рисунок 2.25 Состав класса TdmServer
Таблица 2.6
Поля класса
public TADOConnection
adoConnection
Компонент соединения с базой данных
через ADO
public TDSAuthenticationManager
DSAuthenticationManager
Компонент аутентификации
public TDSServer
DSServer
Компонент управления сервера
public TDSServerClass
DSServerClass
75
Компонент определения серверного класса
public TDSTCPServerTransport
DSTCPServerTransport
Транспорт сервера (как будут передаваться
данные)
internal TIniFile
FSettings
Компонент для работы с файлом настроек
Таблица 2.7
Методы класса
public Sub
DataModuleCreate(Sender: TObject)
Обработчик события "Создание модуля данных"
public Sub
DSAuthenticationManagerUserAuthenticate(Sender: TObject;
Protocol: string; Context: string; User: string; Password: string; valid:
Boolean; UserRoles: TStrings)
Обработчик события "Аутентификация"
public Sub
DSServerClassGetClass(DSServerClass: TDSServerClass;
PersistentClass: TPersistentClass)
Обработчик события "Получить серверный класс"
public Sub
DSTCPServerTransportConnect(Event: TDSTCPConnectEventObject)
Обработчик события "Присоединение клиента"
public Sub
DSTCPServerTransportDisconnect(Event:
TDSTCPDisconnectEventObject)
Обработчик события "Отсоединение клиента"
public function
TADOQuery
GetQuery(SQL: String)
Функция получения набора данных через произвольный SQL
запрос
public function
TADOTable
GetTable(TableName: String)
Функция получения набора данных по имени таблицы (запроса)
public function
Integer
GetUserKey(Login: String; Password: String; Blocked: Boolean;
UserType: Integer)
Функция поиска идентификатора пользователя по логину и
паролю
Интерфейс взаимодействия
Как было сказано выше, экземпляр класса TdssmRemoteData создается после
успешной аутентификации и служит для предоставления клиентскому приложению
определенных данных и функциональности сервера.