Дата актуальности: 06.07.2009

FlexiObjDB
Объектно-ориентированное на предметную область 
долговременное хранилище информации.

 Хранимая процедура: USER_EXIST

Назначение: 
 Проверяет, существует ли Пользователь с заданным ID в контексте множества Пользователей базы данных (USERS_LIST).
Используется для контроля данных.
На уровне сервера используется в триггерах  "before insert" и "before update" практически всех таблиц.

Входные параметры: ID тестируемого Пользователя.
Выходные параметры:  >0 - Пользователь существует , 0 - нет.

Текст процедуры :

ALTER PROCEDURE USER_EXIST (IDUSER VARCHAR(40) CHARACTER SET WIN1251) RETURNS (YES INTEGER) AS DECLARE VARIABLE ID VARCHAR(40); BEGIN /* Проверить существование Пользователя в контексте множества Пользователей базы данных (USERS_LIST) */ YES = 0; IF (:IDUSER IS NULL) THEN IDUSER = ''; IF (:IDUSER <> '') THEN BEGIN SELECT ID_THIS FROM USERS_LIST WHERE ID_THIS = :IDUSER INTO :ID; IF (:ID IS NULL) THEN ID = ''; IF (:ID = :IDUSER) THEN YES = 1; END SUSPEND; END

______________________________________
(c) Sergey Popov,  респ.Коми,  г.Усинск,(2009)

http://flexiobjdb.narod.ru