Инфраструктура интервальных деревьев - История изменений

Evgeny в 12:38, 17 апреля 2012

2012-04-17T12:38:42Z

Evgeny в 12:13, 17 апреля 2012

2012-04-17T12:13:17Z

SYSDBA: /* См. также */

2012-04-17T11:23:34Z

‎См. также

SYSDBA в 13:00, 9 апреля 2012

2012-04-09T13:00:15Z

SYSDBA: /* См. также */

2012-04-06T12:02:46Z

‎См. также

SYSDBA: /* Проверка целостности дерева */

2012-04-03T17:50:08Z

‎Проверка целостности дерева

SYSDBA: /* Проверка целостности дерева */

2012-04-03T17:41:18Z

‎Проверка целостности дерева

SYSDBA: /* Проверка целостности дерева */

2012-04-03T17:18:28Z

‎Проверка целостности дерева

SYSDBA: /* См. также */

2011-04-30T11:54:47Z

‎См. также

SYSDBA: /* Прочие метаданные */

2011-04-30T11:51:36Z

‎Прочие метаданные

@@ Строка 476: / Строка 476: @@
 * [[Инфраструктура таблицы с идентификатором]]
 * [[Инфраструктура таблицы простое дерево]]
 * [http://gsbelarus.com/gs/modules.php?name=News&file=article&sid=314 Деревья в SQL]
 * {{Issue_Template|num=1709}}

@@ Строка 475: / Строка 475: @@
 * [[Инфраструктура простой таблицы с идентификатором]]
 * [[Инфраструктура таблицы с идентификатором]]
 * [http://gsbelarus.com/gs/modules.php?name=News&file=article&sid=314 Деревья в SQL]
 * {{Issue_Template|num=1709}}

@@ Строка 474: / Строка 474: @@
 * [[Инфраструктура простой таблицы с идентификатором]]
 * [http://gsbelarus.com/gs/modules.php?name=News&file=article&sid=314 Деревья в SQL]
 * {{Issue_Template|num=1709}}

@@ Строка 473: / Строка 473: @@
 ==== См. также ====
 * [http://gsbelarus.com/gs/modules.php?name=News&file=article&sid=314 Деревья в SQL]
 * {{Issue_Template|num=1709}}

@@ Строка 479: / Строка 479: @@
 __NOTOC__
 [[Category:Учебный курс]]
 [[Category:База данных]]

@@ Строка 439: / Строка 439: @@
    /* Проверка дублирования левых границ */
    IF (:LBGTRB IS NULL) THEN
-     EXECUTE STATEMENT 'SELECT FIRST 1 a.lb FROM ' || :TN || ' a JOIN ' || :TN || ' b ON a.lb = b.lb AND a.id <> b.id'
+     EXECUTE STATEMENT 'SELECT FIRST 1 a.lb FROM ' || :TN ||
        INTO :DBLLB;
    /* Проверка перекрытия интервалов по левым границам */
    IF (:DBLLB IS NULL) THEN
-     EXECUTE STATEMENT 'SELECT FIRST 1 a.id, b.id FROM ' || :TN || ' a JOIN ' || :TN || ' b ON a.lb < b.lb AND a.rb >= b.lb AND a.rb < b.rb'
+     EXECUTE STATEMENT 'SELECT FIRST 1 a.id, b.id FROM ' || :TN ||
        INTO :LBOVERL1, :LBOVERL2;
    /* Проверка перекрытия интервалов по правым границам */
    IF (:LBOVERL1 IS NULL) THEN
-     EXECUTE STATEMENT 'SELECT FIRST 1 a.id, b.id FROM ' || :TN || ' a JOIN ' || :TN || ' b ON a.lb > b.lb AND a.lb <= b.rb AND a.rb > b.rb'
+     EXECUTE STATEMENT 'SELECT FIRST 1 a.id, b.id FROM ' || :TN ||
        INTO :RBOVERL1, :RBOVERL2;
    /* Проверка размера родительского интервала */
    IF (:RBOVERL1 IS NULL) THEN
-     EXECUTE STATEMENT 'SELECT FIRST 1 a.id, b.id FROM ' || :TN || ' a JOIN ' || :TN || ' b ON a.parent = b.id AND a.lb <= b.lb AND a.rb >= b.rb'
+     EXECUTE STATEMENT 'SELECT FIRST 1 a.id, b.id FROM ' || :TN ||
        INTO :PRNTSM1, :PRNTSM2;
@@ Строка 460: / Строка 464: @@
 END
 </syntaxhighlight>
 ==== Создание метаданных интервального дерева ====

← Предыдущая		Версия 17:41, 3 апреля 2012
Строка 417:		Строка 417:

	Для корректного дерева все пять запросов вернут пустые наборы данных. Восстановить целостность можно выполнением процедуры перестроения дерева.		Для корректного дерева все пять запросов вернут пустые наборы данных. Восстановить целостность можно выполнением процедуры перестроения дерева.
		+
		+	Вместо последовательного выполнения отдельных запросов можно воспользоваться приведенным ниже параметризованным оператором EXECUTE BLOCK на вход которого передается имя тестируемой таблицы:
		+
		+	<syntaxhighlight lang="SQL">
		+	EXECUTE BLOCK (TN VARCHAR(31) = :TABLE_NAME)
		+	RETURNS (
		+	LBGTRB INTEGER,
		+	DBLLB INTEGER,
		+	LBOVERL1 INTEGER,
		+	LBOVERL2 INTEGER,
		+	RBOVERL1 INTEGER,
		+	RBOVERL2 INTEGER,
		+	PRNTSM1 INTEGER,
		+	PRNTSM2 INTEGER)
		+	AS
		+	BEGIN
		+	/* Проверка границ */
		+	EXECUTE STATEMENT 'SELECT FIRST 1 a.lb FROM ' \|\| :TN \|\| ' a WHERE a.lb > a.rb'
		+	INTO :LBGTRB;
		+
		+	/* Проверка дублирования левых границ */
		+	IF (:LBGTRB IS NULL) THEN
		+	EXECUTE STATEMENT 'SELECT FIRST 1 a.lb FROM ' \|\| :TN \|\| ' a JOIN ' \|\| :TN \|\| ' b ON a.lb = b.lb AND a.id <> b.id'
		+	INTO :DBLLB;
		+
		+	/* Проверка перекрытия интервалов по левым границам */
		+	IF (:DBLLB IS NULL) THEN
		+	EXECUTE STATEMENT 'SELECT FIRST 1 a.id, b.id FROM ' \|\| :TN \|\| ' a JOIN ' \|\| :TN \|\| ' b ON a.lb < b.lb AND a.rb >= b.lb AND a.rb < b.rb'
		+	INTO :LBOVERL1, :LBOVERL2;
		+
		+	/* Проверка перекрытия интервалов по правым границам */
		+	IF (:LBOVERL1 IS NULL) THEN
		+	EXECUTE STATEMENT 'SELECT FIRST 1 a.id, b.id FROM ' \|\| :TN \|\| ' a JOIN ' \|\| :TN \|\| ' b ON a.lb > b.lb AND a.lb <= b.rb AND a.rb > b.rb'
		+	INTO :RBOVERL1, :RBOVERL2;
		+
		+	/* Проверка размера родительского интервала */
		+	IF (:RBOVERL1 IS NULL) THEN
		+	EXECUTE STATEMENT 'SELECT FIRST 1 a.id, b.id FROM ' \|\| :TN \|\| ' a JOIN ' \|\| :TN \|\| ' b ON a.parent = b.id AND a.lb <= b.lb AND a.rb >= b.rb'
		+	INTO :PRNTSM1, :PRNTSM2;
		+
		+	SUSPEND;
		+	END
		+	</syntaxhighlight>

	==== Создание метаданных интервального дерева ====		==== Создание метаданных интервального дерева ====

@@ Строка 410: / Строка 410: @@
 /* Проверка перекрытия интервалов по правым границам */
 SELECT a.id || ',' || b.id FROM GD_CONTACT a JOIN GD_CONTACT b ON a.lb > b.lb AND a.lb <= b.rb AND a.rb > b.rb
 </syntaxhighlight>
-Для корректного дерева все четыре запроса вернут пустые наборы данных. Восстановить целостность можно выполнением процедуры перестроения дерева.
+Для корректного дерева все пять запросов вернут пустые наборы данных. Восстановить целостность можно выполнением процедуры перестроения дерева.
 ==== Создание метаданных интервального дерева ====

← Предыдущая		Версия 11:54, 30 апреля 2011
Строка 413:		Строка 413:

	Для корректного дерева все четыре запроса вернут пустые наборы данных. Восстановить целостность можно выполнением процедуры перестроения дерева.		Для корректного дерева все четыре запроса вернут пустые наборы данных. Восстановить целостность можно выполнением процедуры перестроения дерева.
		+
		+	==== Создание метаданных интервального дерева ====
		+
		+	За работу с метаданными интервального дерева отвечают процедуры из модуля [[gdcLBRBTreeMetadata\|gdcLBRBTreeMetadata.pas]].

	==== См. также ====		==== См. также ====

@@ Строка 352: / Строка 352: @@
 === Прочие метаданные ===
 <syntaxhighlight lang="SQL">
 ALTER TABLE GD_CONTACT ADD CONSTRAINT GD_CHK_CONTACT_TR_LMT CHECK (lb <= rb);
 CREATE EXCEPTION TREE_E_INVALID_PARENT 'Invalid parent specified';
 CREATE INDEX GD_X_CONTACT_LB ON GD_CONTACT (LB);
 CREATE DESCENDING INDEX GD_X_CONTACT_RB ON GD_CONTACT (RB);