57
Расположение Locations Varchar 50
Размеры Sizes Varchar 50
Вес Weigths Numeric (4,2)
Количество Cnt Int Not null
Таблица 2.15
Описание полей «Cabel»
Наименование
поля
Идентификатор
поля
Тип поля Длина поля Прочее
Идентификатор
ID Int PK
Система Systems Int FK, not null
Индекс Indexx Varchar 50 Not null
Маркировка Mark Varchar 50
Длина Lengths Numeric (4,2) Not null
Описание Descriptions Varchar 50
Таблица 2.16
Описание полей «Link»
Наименование
поля
Идентификатор
поля
Тип поля Длина поля Прочее
Идентификатор
ID Int PK
Кабель Cabel Int FK, not null
Оборудование Hardware Int FK, not null
Тип связи TypeLink Int Not null
Таблица 2.17
Описание полей «Graph»
Наименование
поля
Идентификатор
поля
Тип поля Длина поля Прочее
Идентификатор
ID Int PK
Проект Project Int FK, not null
Работа Works Int FK, not null
Исполнитель Worker Int FK
Оборудование Hardware Int FK
58
Фундамент Foundament Int FK
Кабель Cabel Int FK
Дата начала DateStart Datetime Not null
Окончено Finish Bit
Дата
окончания
DateFinish Datetime
Сдано OverClient Bit
Дата сдачи DateOver Datetime
На рисунке 2.7 представлена IDEF1X диаграмма уровня FA.
Рис. 2.7. Диаграмма базы данных IDEF1X уровня FA
Построение данной модели позволяет сформировать базу данных в СУБД
MS SQL Server 2017. На рисунке 2.8 представлена схема данных полученной
базы данных для АИС документооборота филиала компании АО
«Связьтранснефть».
Client
ID
Address
Phone
Name
Direction
ID
Name
Project
ID
Client (FK)
Direction (FK)
Stat (FK)
Name
DateStart
Finish
DateFinish
Graph
ID
Wo rker (FK)
Wo rks (FK)
Project (FK)
Hardware (FK)
Foundament (FK)
DateStart
Finish
DateFinish
OverClient
DateOver
Cnt
Cabel (FK)
Worker
ID
Name
BirthDate
Sex
Job
Works
ID
Name
Perform
ID
Wo rker (FK)
Wo rks (FK)
Systems
ID
Project (FK)
Name
Foundame nt
ID
Hardware (FK)
Indexx
Location
Sizes
We ights
Cnt
Link
ID
Hardware (FK)
Cabel (FK)
TypeLink
Stat
ID
Name
Finish
Hardware
ID
Systems (FK)
Name
Indexx
Weghts
Cnt
Cabel
ID
Indexx
Mark
Descriptions
Lengths
System (FK)
59
Рис. 2.8. Схема данных
2.3.3 Структурная схема пакета (дерево вызова программных модулей)
Работа АИС документооборота включает несколько уровней
программного обеспечения. На рис. 2.9 представлена структура программного
обеспечения АИС.
60
Сервер под управлением
ОС семейства Windows
СУБД MS SQL
База данных
Интерфейс для работы с
БД
Модуль данных,
основанный на ADO
ПК под управлением ОС
семейства Windows
Рис. 2.9. Структура программного обеспечения
АИС документооборота компании АО «Связьтранснефть» включает в себя
следующие модули:
uMain;
uGrid;
uOneRecord;
uReport;
uDM.
Схема взаимодействия модулей показана на рисунке 2.10.
61
uGrid
uOneRecord uReport
uDM
uMain
Рис. 2.10. Схема взаимодействия программных модулей
2.3.4 Описание программных модулей
В таблице 2.18 представлено описание программных модулей.
Таблица 2.18
Программные модули АИС документооборота
Модуль Описание
uMain Главный модуль системы, позволяющий работать со списком
проектов и содержаний главное меню.
uGrid Модуль, который позволяет работать с данными в табличном виде.
Обработка данных в таблицах: Client, Direction, Stat, Works,
Worker, Perform, Project, Systems, Hardware, Cabel, Link, Graph.
uOneRecord
Модуль, который позволяет обрабатывать данные в единичной
записи. Таблица Foundament.
uReport Модуль формирования отчётностей.
uDM Модуль данных для связи с базой данных.
Далее, подробнее рассмотрен модуль uDM, так как именно этот модуль
отвечает за связь с базой данных. В приложении А представлен исходный код
данного модуля. На рисунке 2.11 представлен скриншот модуля в среде
62
разработки.
Рис. 2.11. Модуль uDM в среде RAD Studio Delphi
В таблице 2.19 представлено описание компонентов, используемых для
работы данного модуля.
Таблица 2.19
Описание компонентов модуля uDM
Компонент Описание
MainConnect Компонент класса TADOConnection, предназначен для
связи с базой данных по технологии ADO.
tblClient
Компоненты класса TADOTable, предназначены для
работы с таблицами базы данных.
tblDirection
tblStat
tblWorks
tblWorker
tblPerform
tblProject
tblSystems
63
Компонент Описание
tblHardware
tblFoundation
tblCabel
tblLink
tblHard1
tblHard2
tblGraph
tblViewWorker
tblViewHardware
tblViewFoundament
tblViewCabel
qryReport Компонент класса TADOQuery, предназначен для
выполнения запросов к базе данных на языке SQL.
qryStatFilter
qryClientFilter
qryDirectionFilter
dsClient
Компоненты класса TDataSource, требуются для связи
между визуальными компонентами и компонентами
данных.
dsDirection
dsStat
dsWorks
dsWorker
dsPerform
dsProject
dsSystems
dsHarware
dsFoundament
dsCabel
dsLink
dsHard1
dsHard2
dsGraph
64
Компонент Описание
dsViewWorker
dsViewHardware
dsViewFoundament
dsViewCabel
dsStatFilter
dsClientFilter
dsDirectionFilter
Для формирования отчётностей разработаны запросы к базе данных.
Для журнала оборудования разработан следующий запрос:
«select
h.Indexx as [Индекс]
, h.Weights as [Вес]
, w.Name as [Работа]
, wr.Name as [Исполнитель]
, (case when isnull(g.Finish,0)=1 then g.DateFinish else '' end) as
[Дата окончания]
, (case when isnull(g.OverClient,0)=1 then g.DateOver else '' end) as
[Дата сдачи]
from Hardware h
inner join Systems s on s.ID=h.Systems
inner join Graph g on g.Hardware=h.ID
inner join Works w on w.ID=g.Works
left join Worker wr on wr.ID=g.Worker
where s.Project=:ProjectID».
Для журнала фундамента разработан запрос:
«select
f.Indexx as [Индекс]
, f.Weights as [Вес]
, h.Indexx as [Индекс оборудования]
, w.Name as [Работа]
65
, wr.Name as [Исполнитель]
, (case when isnull(g.Finish,0)=1 then g.DateFinish else '' end) as
[Дата окончания]
, (case when isnull(g.OverClient,0)=1 then g.DateOver else '' end) as
[Дата сдачи]
from Foundament f
inner join Hardware h on h.ID=f.Hardware
inner join Systems s on s.ID=h.Systems
inner join Graph g on g.Foundament=f.ID
inner join Works w on w.ID=g.Works
left join Worker wr on wr.ID=g.Worker
where s.Project=:ProjectID».
Для кабельного журнала разработан запрос:
« select
c.Indexx as [Индекс]
, c.Mark as [Маркировка]
, c.Lengths as [Длина]
, c.Descriptions as [Описание]
, h1.Indexx as [Индекс оборудования 1]
, h2.Indexx as [Индекс оборудования 2]
, w.Name as [Работа]
, wr.Name as [Исполнитель]
, (case when isnull(g.Finish,0)=1 then g.DateFinish else '' end) as
[Дата окончания]
, (case when isnull(g.OverClient,0)=1 then g.DateOver else '' end) as
[Дата сдачи]
from Cabel c
inner join Systems s on s.ID=c.Systems
inner join Link l1 on (l1.Cabel=c.ID) and (l1.TypeLink=0)
inner join Hardware h1 on h1.ID=l1.Hardware
inner join Link l2 on (l2.Cabel=c.ID) and (l2.TypeLink=1)
inner join Hardware h2 on h2.ID=l2.Hardware
66
inner join Graph g on g.Cabel=c.ID
inner join Works w on w.ID=g.Works
left join Worker wr on wr.ID=g.Worker
where s.Project=:ProjectID».
Для отчёта о проектах по заказчику разработан запрос:
«select
p.Name as [Проект]
, p.DateStart as [Дата начала]
, d.Name as [Направление]
, c.Name as [Заказчик]
, s.Name as [Статус]
,(case when isNull(p.Finish,0)=0 then p.DateFinish else '' end) as
[Дата окончания]
from Project p
inner join Client c on c.ID=p.Client
inner join Stat s on s.ID=p.Stat
inner join Direction d on d.ID=p.Direction
where p.Client=:ClientID».
Для отчёта о проектах за период разработан запрос:
«select
p.Name as [Проект]
, p.DateStart as [Дата начала]
, d.Name as [Направление]
, c.Name as [Клиент]
, s.Name as [Статус]
,(case when isNull(p.Finish,0)=0 then p.DateFinish else '' end) as
[Дата окончания]
from Project p
inner join Client c on c.ID=p.Client
inner join Stat s on s.ID=p.Stat
inner join Direction d on d.ID=p.Direction
where p.DateStart between :sDate and :eDate».