При выполнении курсового проекта по дисциплине «Информационные технологии» была построена DFD процесса «Учёт сигналов телемеханики» (Приложение 2). На этом этапе он был декомпозирован на 4 подпроцесса;
1. Выдать данные о несовпадающих сигналах
2. Принять заявку
3. Выдать данные о сигналах
4. Найти заявку
Произведя анализ входных и выходных потоков, был составлен словарь данных, на основании которого в конечном итоге мы получили сначала концептуальную, а затем логическую модели БД (курсовой проект по дисциплине «Управление данными»). Физическая модель, созданная при выполнении данного проекта, поддерживает бизнес-логику данного процесса.
Для ввода новых данных по характеристикам сигналов составляется специальная заявка (Приложение 3). В выполнении данной операции участвует 12 хранимых процедур. Внесение заявки в базу данных выполняется в рамках одной сериализуемой транзакции. Такой уровень изоляции был выбран для обеспечения лучшей изоляции обрабатываемых данных во время транзакции. Учитывая то, что заявки выполняются намного реже просмотра данных, это оправданное решение. Если во время какой-либо из процедур произошёл сбой, она откатывает транзакцию.
Ниже они изображены на диаграмме в той последовательности, в которой вызываются.
 |
Сперва хранимее процедуры GetTITRSignalsOnPLC и GetTUTSSignalsOnPLC возвращают администратору СПТЗ список сигналов соответствующих данному ПЛК.
CREATE proc GetTITRSignalsOnPLC
@NameRNU VARCHAR(50),
@NumberPLC INT
AS
DECLARE @ID_PLC INT
exec @ID_PLC = FindPLC @NameRNU, @NumberPLC, 0
SELECT NameDataType, NameSignal, MEKAdress, MaxEnginGrade, MinEnginGrade, MaxPhysicGrade, MinPhysicGrade, IsTISignal
FROM (SELECT *
FROM TITRSignals s
WHERE s.ID_PLC = @ID_PLC AND isDeleted != 1) s INNER JOIN DataTypes d
ON s.ID_DataType = d.ID_DataType
Затем, используя предоставленный клиентским приложением интерфейс, пользователь назначает изменяемым сигналам примечания. Стартует транзакция внесения заявки в БД.
Сначала вносятся данные по заявке.
CREATE PROCEDURE InsertRequest
@Prefix CHAR(2),
@Number BIGINT,
@WriteDate DATETIME,
@ID_Request BIGINT OUT
AS
DECLARE @ID_SPTZAdminLogin INT;
SELECT @ID_SPTZAdminLogin = ID_SPTZAdminLogin
FROM SPTZAdminsLogins
WHERE NameLogin = SUSER_NAME()
IF @ID_SPTZAdminLogin IS NULL BEGIN
INSERT INTO SPTZAdminsLogins (NameLogin) VALUES
(SUSER_NAME())
SET @ID_SPTZAdminLogin = @@IDENTITY
END
IF EXISTS(SELECT ID_Request FROM Requests
WHERE Prefix = @Prefix AND Number = @Number)
BEGIN
raiserror('Заявка с таким номером и префиксом уже существует в базе данных!', 15, 1)
RETURN
END
INSERT INTO Requests (Prefix, Number, WriteDate, ExecDate,
ID_SPTZAdminLogin)
VALUES (@Prefix,@Number, @WriteDate, GETDATE(),
@ID_SPTZAdminLogin)
SET @ID_Request = @@IDENTITY
Эта процедура возвращает приложению, её вызвавшему ID заявки, по которому оно далее может добавлять, редактировать, удалять сигналы.
В целях предотвращения намеренной подмены даты исполнения заявки на стороне клиента, данная процедура делает подзапрос к процедуре GetCurrentDateTime.
CREATE PROCEDURE GetCurrentDateTime @CurrDateTime DATETIME OUT
AS
SET @CurrDateTime = GETDATE()
Столь небольшой участок кода был выделен в отдельную процедуру из-за того, что он вызывается и со стороны клиентского приложения.
Следующим этапом с использованием InsertTITRSignal, InsertTUTSSignal добавляются сигналы в базу данных, UpdateTITRSignal, UpdateTUTSSignal – обновляются, DeleteSignal – удаляются.
Ниже приведён код некоторых из этих процедур:
REATE PROCEDURE InsertTITRSignal
@NameDataType VARCHAR(20),
@NameSignal VARCHAR(50),
@MEKAdress SMALLINT,
@MaxEnginGrade INT,
@MinEnginGrade INT,
@MaxPhysicGrade INT,
@MinPhysicGrade INT,
@Comment VARCHAR(300) = NULL,
@NameRNU VARCHAR(50),
@NamePLC VARCHAR(50),
@NumberPLC INT,
@ID_Request BIGINT,
@IsTISignal BIT
AS
DECLARE @ID_PLC INT
EXEC @ID_PLC = FindPLCWithInsUpd @NameRNU,
@NamePLC,@NumberPLC
DECLARE @TITRSigCount INT
SELECT @TITRSigCount = COUNT(ID_TITRSignal)
FROM TITRSignals
WHERE ID_PLC = @ID_PLC AND MEKAdress = @MEKAdress AND
IsDeleted = 0
DECLARE @TUTSSigCount INT
SELECT @TUTSSigCount = COUNT(ID_TUTSSignal)
FROM TUTSSignals
WHERE ID_PLC = @ID_PLC AND MEKAdress = @MEKAdress AND
IsDeleted = 0
IF (@TITRSigCount + @TUTSSigCount) > 0 BEGIN
raiserror('Сигнал с Адресом МЭК %d, принадлежащий ПЛК №%d из РНУ %s уже содержится в базе данных! Вставка невозможна.', 16, 1, @MEKAdress, @NumberPLC, @NameRNU)
RETURN
END
DECLARE @ID_DataType INT
EXEC @ID_DataType = FindDataTypeWithInsUpd @NameDataType
INSERT INTO TITRSignals (NameSignal, MEKAdress,
MaxEnginGrade, MinEnginGrade, MaxPhysicGrade,
MinPhysicGrade, Comment, IsDeleted, ID_PLC,
ID_DataType, ID_Request, IsTISignal)
VALUES(@NameSignal,@MEKAdress, @MaxEnginGrade,
@MinEnginGrade, @MaxPhysicGrade,
@MinPhysicGrade, @Comment, 0, @ID_PLC, @ID_DataType,
@ID_Request, @IsTISignal)
CREATE PROCEDURE UpdateTITRSignal
@NameDataType VARCHAR(20),
@NameSignal VARCHAR(50),
@MEKAdress SMALLINT,
@MaxEnginGrade INT,
@MinEnginGrade INT,
@MaxPhysicGrade INT,
@MinPhysicGrade INT,
@Comment VARCHAR(300) = NULL,
@NameRNU VARCHAR(50),
@NamePLC VARCHAR(50),
@NumberPLC INT,
@ID_Request INT,
@IsTISignal BIT
AS
DECLARE @ID_PLC INT
EXEC @ID_PLC = FindPLC @NameRNU, @NumberPLC, 1
IF @ID_PLC = 0 RETURN
DECLARE @ID_ExRequest INT
SELECT @ID_ExRequest = ID_Request
FROM TITRSignals
WHERE MEKAdress = @MEKAdress AND @ID_PLC = ID_PLC AND IsDeleted = 0 AND
IsTISignal = @IsTISignal
IF COUNT(@ID_ExRequest) = 0 BEGIN
raiserror('Обновляемый сигнал с Адресом МЭК %d, принадлежащий ПЛК №%d из РНУ %s не содержится в базе данных', @MEKAdress, @NumberPLC, @NameRNU, 16, 1)
RETURN
END
IF COUNT(@ID_ExRequest) > 1 BEGIN
raiserror('№%d из РНУ %s принадлежит больше одного сигнала с Адресом МЭК %d! Нарушена целостность базы данных', @MEKAdress, @NumberPLC, @NameRNU, 16, 1)
RETURN
END
DECLARE @ExWriteDate SMALLDATETIME
SELECT @ExWriteDate = WriteDate
FROM Requests
WHERE ID_Request = @ID_ExRequest
DECLARE @WriteDate SMALLDATETIME
SELECT @WriteDate = WriteDate
FROM Requests
WHERE ID_Request = @ID_Request
IF DATEDIFF(day, @WriteDate, @ExWriteDate) > 0
BEGIN
raiserror('Характеристики сигнала с Адресом МЭК %d, принадлежащий ПЛК №%d из РНУ %s изменялись по более новой заявке', 16, 1, @MEKAdress, @NumberPLC, @NameRNU)
END
ELSE
BEGIN
DECLARE @ID_DataType INT
EXEC @ID_DataType = FindDataTypeWithInsUpd @NameDataType
UPDATE TITRSignals SET NameSignal = @NameSignal, MEKAdress = @MEKAdress,
MaxEnginGrade = @MaxEnginGrade, MinEnginGrade = MinEnginGrade, MaxPhysicGrade = @MaxPhysicGrade,MinPhysicGrade = @MinPhysicGrade, Comment = @Comment, ID_DataType = @ID_DataType,
ID_Request = @ID_Request
WHERE MEKAdress = @MEKAdress AND @ID_PLC = ID_PLC AND
IsDeleted = 0 AND IsTISignal = @IsTISignal
END
Процедура InsertTITRSignal использует подпрограмму FindPLCWithInsUp, которая возвращает ID ПЛК с заданным номерам, принадлежащий определённому РНУ. Если РНУ или ПЛК не существует, то он создаются. Тоже самое делает и FindDataTypeWithInsUpd, только с типом данных. В этом заключается одно из преимуществ подхода, избранного для автоматизации бизнес-процесса. Все словари заполняются автоматически. Также предусмотрены триггеры очистки словарей от данных, которые не используются в данный момент ни одной записью дочерних отношений.
Для иллюстрации всего вышесказанного приведём код одной из процедур:
CREATE PROCEDURE FindDataTypeWithInsUpd
@NameDataType VARCHAR(20)
AS
BEGIN
DECLARE @ID_DataType INT
SELECT @ID_DataType = ID_DataType
FROM DataTypes
WHERE NameDataType = @NameDataType
IF @ID_DataType IS NULL BEGIN
INSERT INTO DataTypes (NameDataType) VALUES
(@NameDataType)
SET @ID_DataType = @@IDENTITY
END
RETURN @ID_DataType
END
При вводе данных по характеристикам сигналов может возникнуть такая ситуация, что какой-либо сигналов обновляется по заявке, имеющей дату составления более раннюю, чем заявка, по которой редактировался сигнал, уже хранящийся в базе данных. Разумеется, такое изменение не может быть внесено. В таком случае процедура UpdateTITRSignal откатывает всю транзакцию и даёт пользователю возможность исправить ошибку в базе данных SCADA RealFlex, в которую данные неправильные изменения уже были внесены, а затем повторить всё заново. Конечно, такое развитие событий маловероятно, но предусмотреть его всё-таки стоит.
На этом ввод заявки и сопутствующих данных завершается.
Далее рассмотрим, как формируется единственный выходной документ бизнес-процесса «Учёт сигналов телемеханики»: Данные по характеристикам сигналов ПЛК (Приложение 4). В этом участвуют 5 хранимых процедур и вызываются в следующей последовательности:
Пользователь выбирает название РНУ, затем номер ПЛК, ему принадлежащего и в конечном итоге процедуры FetchtTITRSignalsOnPLC и FetchtTUTSSignalsOnPLC возвращают данные по характеристикам затребованных сигналов. В выходной форме сигналы делятся на 4 группы по типу, каждая группа располагается на отдельном листе. Эти хранимые процедуры обеспечивают выборку каждой группы сигналов по отдельности. Таким образом, клиентскому приложению нет необходимости разделять сигналы самостоятельно. Кроме того на каждом листе сигналы сортируются по полю «Адрес МЭК» в возрастающем порядке. Такая форма наиболее удобна для телемехаников.
Почему физическая модель БД включает 4 на первый взгляд по сути одинаковые хранимые процедуры: FetchtTITRSignalsOnPLC, FetchtTUTSSignalsOnPLC, GetTITRSignalsOnPLC, GetTUTSSignalsOnPLC? Отличие первых двух от других заключается в том, что они не предусматривают возможности выборки сигналов только какого-либо одного типа, а особенности организации представления данных в клиентском приложении этого требуют, поэтому были написаны ещё две функции. Вот код одной из них:
CREATE PROC FetchtTITRSignalsOnPLC
@NameRNU VARCHAR(50),
@NumberPLC INT,
@isTISignal BIT
AS
DECLARE @ID_PLC INT
exec @ID_PLC = FindPLC @NameRNU, @NumberPLC, 1
IF @ID_PLC = 0 RETURN
SELECT NameSignal [Наименование сигнала], NameDataType
[Тип данных], MEKAdress [Адрес МЭК], MaxEnginGrade
[Max инж. ранг], MinEnginGrade [Min инж. ранг],
MaxPhysicGrade [Max физ. ранг], MinPhysicGrade
[Min физ. ранг], Comment [Примечания]
FROM (SELECT *
FROM TITRSignals s
WHERE s.ID_PLC = @ID_PLC AND
isDeleted != 1 AND isTISignal = @isTISignal) s
INNER JOIN DataTypes d
ON s.ID_DataType = d.ID_DataType
ORDER BY MEKAdress ASC
Помимо ввода данных по заявке и генерации выходной формы физическая модель БД также обеспечивает доступ к данным о последней заявке, по которой в характеристики определённого сигнала вносились изменения. Реализуется это с помощью следующей хранимой процедуры:
ALTER PROCEDURE [dbo].[GetRequestOnSignalFields]
@NameRNU VARCHAR(50),
@NumberPLC INT,
@MEKAdress SMALLINT,
@Prefix CHAR(2) OUT,
@Number INT OUT,
@WriteDate SMALLDATETIME OUT,
@ExecDate SMALLDATETIME OUT,
@LoginName VARCHAR(256) OUT
AS
BEGIN
BEGIN TRAN
DECLARE @ID_PLC INT
@ID_Signal INT
DECLARE @ID_Request INT
DECLARE @ID_SPTZAdminLogin INT
EXEC @ID_PLC = FindPLC @NameRNU, @NumberPLC, 1
IF @ID_PLC = 0 BEGIN
RETURN
END
SELECT @ID_Signal = ID_TITRSignal, @ID_Request = ID_Request
FROM TITRSignals
WHERE ID_PLC = @ID_PLC AND MEKAdress = @MEKAdress
IF COUNT(@ID_Signal) = 0 BEGIN
SELECT @ID_Signal = ID_TUTSSignal, @ID_Request = ID_Request
FROM TUTSSignals
WHERE ID_PLC = @ID_PLC AND MEKAdress = @MEKAdress
END
IF COUNT(@ID_Signal) > 1 BEGIN
raiserror('В базе данных хранится несколько сигналов с Адресом МЭК = %d,
принадлежащих ПЛК №%d из РНУ %s не содержится в базе данных!
Нарушено ограничение целостности базы данных!', 15, 1, @MEKAdress, @NumberPLC, @NameRNU)
RETURN
END
IF COUNT(@ID_Signal) = 1 BEGIN
SELECT @Prefix = Prefix, @Number = Number, @WriteDate = WriteDate,
@ExecDate = ExecDate,
@ID_SPTZAdminLogin = ID_SPTZAdminLogin
FROM Requests
WHERE ID_Request = @ID_Request
SELECT @LoginName = NameLogin
FROM SPTZAdminsLogins
WHERE ID_SPTZAdminLogin = @ID_SPTZAdminLogin
END
ELSE BEGIN
raiserror('Сигнал с Адресом МЭК = %d, принадлежащий ПЛК №%d из РНУ %s не содержится в базе данных!', 15, 1, @MEKAdress, @NumberPLC, @NameRNU)
END
END
Таким образом, реализованная физическая модель базы данных поддерживает бизнес-логику процесса и обеспечивает ввод данных из входных форм, а также формирование выходных документов.
Дата: 2019-05-29, просмотров: 207.
