22) Типы объектов в PL / SQL

CREATE TYPE emp_object AS OBJECT(
emp_no NUMBER,
emp_name VARCHAR2(50),
salary NUMBER,
manager NUMBER,
CONSTRUCTOR FUNCTION emp_object(p_emp_no NUMBER,p_emp_name VARCHAR2(50),
p_salary NUMBER)RETURN SELF AS RESULT),
MEMBER PROCEDURE insert_records,
MEMBER PROCEDURE display_records)NOT FINAL;
/

Объяснение кода:

• Строка кода 1-9 : создание типа объекта emp_object с 4 атрибутами и 3 членами. Он содержит определение конструкторов только с 3 параметрами. Он был объявлен как «НЕ ФИНАЛ», поэтому это родительский тип.

Шаг 2) Создайте тип SUB под типом SUPER.

CREATE OR REPLACE TYPE sub_emp_object 
UNDER emp_object
(default_manager NUMBER,MEMBER PROCEDURE insert_default_mgr);
/


CREATE OR REPLACE TYPE BODY sub_emp_object 
AS
MEMBER PROCEDURE insert_default_mgr 
IS
BEGIN
INSERT INTO emp
VALUES(emp_no,emp_name:salary,manager):
END;
END;
/

Объяснение кода:

• Строка кода 10-13 : создание объекта sub_emp_object как унаследованного типа с дополнительным атрибутом default_manager и объявлением процедуры члена.
• Строка кода 14 : создание тела для унаследованного типа объекта.
• Строка кода 1 6 -21 : определение процедуры-члена, которая вставляет записи в таблицу «emp» со значениями из типа объекта «SUPER», за исключением значения менеджера. Для значения менеджера используется «default_manager» из типа «SUB».

Шаг 3) Создание анонимного блока для вызова типа SUB

DECLARE
guru_emp_det sub_emp_object;
BEGIN
guru_emp_det:= sub_emp_object(1007,'RRR',20000,1000,1002);
guru_emp_det.insert_default_mgr;
COMMIT;
END;
/

Объяснение кода:

• Строка кода 25 : объявление ‘guru_emp_det’ как типа ‘sub_emp_object’.
• Строка кода 27 : инициализация объекта неявным конструктором. Конструктор имеет 5 параметров (4 атрибута от типа PARENT и 2 атрибута от типа SUB). Последний параметр (1002) определяет значение для атрибута default_manager
• Строка кода 28 : Вызов члена ‘insert_default_mgr’ для вставки записей с идентификатором менеджера по умолчанию, переданным в конструктор.

Равенство объектов PL / SQL

CREATE TYPE BODY<object_type_name_ 1>AS OBJECT
(
  ORDER MEMBER FUNCTION match(<parameter> object_type_name_ 1)
  RETURN INTEGER IS		
  BEGIN
    IF <attribute_name>parameter <attribute_name>THEN
      RETURN -1; --any negative number will do
    ELSIF id>c.id THEN
      RETURN 1; —any positive number will do
    ELSE
      RETURN 0;
    END IF;
  END;
  .
  .
);
/

Синтаксис Объяснение:

• Приведенный выше синтаксис показывает функцию ORDER, которую необходимо включить в тело типа для проверки на равенство.
• Параметр для этой функции должен быть экземпляром объекта того же типа.
• Вышеупомянутая функция может быть вызвана как «obj_instance_1.match (obj_instance_2)», и это выражение вернет числовое значение, как показано, где obj_instance_1 и obj_instance_2 являются экземпляром object_type_name.

Пример 1 : В следующем примере мы увидим, как сравнивать два объекта. Мы собираемся создать два экземпляра и сравнить между ними атрибут «зарплата». Мы собираемся сделать два шага.

• Шаг 1: Создание типа объекта и тела.
• Шаг 2: Создание анонимного блока для вызова сравнить экземпляр объекта.

Шаг 1) Создание типа объекта и тела.

CREATE TYPE emp_object_equality AS OBJECT(
salary NUMBER,
ORDER MEMBER FUNCTION equals(c emp_object_equality)RETURN INTEGER);
/

CREATE TYPE BODY emp_object_equality AS
ORDER MEMBER FUNCTION equals(c emp_object_equality)RETURN INTEGER 
IS
BEGIN‭	‬
IF salary<c.salary
THEN RETURN -1;
ELSIF salary>c.salary
THEN RETURN 1;
ELSE
RETURN 0;
END IF:‭	‬
END;
END;
/

Объяснение кода:

• Строка кода 1-4: создание типа объекта emp_object_equality с 1 атрибутом и 1 элементом.
• Строка кода 6-16 : определение функции ORDER, которая сравнивает атрибут salary экземпляра SELF и типа экземпляра параметра. Возвращает отрицательный результат, если зарплата SELF меньше, или положительная, если зарплата SELF больше, и 0, если зарплата равна.

Вывод кода:

Тип создан

Шаг 2) Создание анонимного блока для вызова сравнить экземпляр объекта.

DECLARE
l_obj_l emp_object_equality;
l_obj_2 emp_object_equality;
BEGIN
l_obj_l:=emp_object_equality(15000); 
l_obj_2:=emp_object_equality(17000);
IF l_obj_1.equalS(l_obj_2)>0
THEN
Dbms_output.put_line(’Salary of first instance is greater’):
ELSIF l_obj_l.equalS(l_obj_2)<0
THEN
Dbms_output.put_line(’Salary of second instance is greater’); 
ELSE
Dbms_output.put_line(’Salaries are equal’);
END IF;
END;
/

Вывод

Salary of second instance is greater

Объяснение кода:

• Строка кода 20 : Объявление l_obj_1 типа emp_object_equality.
• Строка кода 21 : Объявление l_obj_2 типа emp_object_equality.
• Строка кода 23 : Инициализация l_obj_1 со значением зарплаты как «15000»
• Строка кода 24 : Инициализация l_obj_1 со значением оклада ‘17000’
• Строка кода 25-33 : Распечатать сообщение на основе номера возврата из функции ORDER.

Резюме

В этой главе мы увидели тип объекта и его свойства. Мы также обсудили конструкторы, члены, атрибуты, наследование и равенство в объектах PL / SQL.