如何将两个Oracle SQL对象类型与通用基本超类进行比较

Question

例：

1. Figure_t基类（超级类）
2. 图_t下的sphere_t
3. Figure_t下的pyramid_t
4. 两者都有音量。
5. 如何使用地图或订单功能进行对象比较？

我正在做的是使用超类中的map成员函数进行体积比较。 我尝试过/不重写子类中的地图功能，但仍然没有运气。 如果我两次创建相同的对象，则可以进行比较，但是如果我创建不同的对象，则无法进行比较。

在下面的示例中，我仅粘贴了球体，因为球体和金字塔都几乎相同。

这是我的超级班：

CREATE OR REPLACE TYPE figure_t AS OBJECT (
    v_volume   NUMBER,
    v_area      NUMBER,
    MAP MEMBER FUNCTION compare RETURN NUMBER, PRAGMA restrict_references ( compare, wnds, trust )
);
/

CREATE OR REPLACE TYPE BODY figure_t AS
    MAP MEMBER FUNCTION compare RETURN NUMBER IS
    BEGIN
        RETURN v_volume;
    END;

END;
/

ALTER TYPE figure_t NOT FINAL
    CASCADE;
/

然后，这是我的子类型：

CREATE OR REPLACE TYPE sphere_t UNDER figure_t (
    v_radio NUMBER,
    CONSTRUCTOR FUNCTION sphere_t (
           radio NUMBER
       ) RETURN SELF AS RESULT,
    MEMBER FUNCTION get_volume RETURN NUMBER,
    MEMBER FUNCTION get_area RETURN NUMBER,
    OVERRIDING MAP MEMBER FUNCTION compare RETURN NUMBER
);
/

CREATE OR REPLACE TYPE BODY sphere_t AS
    CONSTRUCTOR FUNCTION sphere_t (
        radio NUMBER
    ) RETURN SELF AS RESULT IS
    BEGIN
        self.v_radio := radio;
        self.v_volume := ( 4 / 3 ) * 3.141592654 * power(radio, 3);

        self.v_area := 4 * 3.141592654 * power(radio, 2);
        return;
    END;

    MEMBER FUNCTION get_volume RETURN NUMBER IS
    BEGIN
        RETURN v_volume;
    END;

    MEMBER FUNCTION get_area RETURN NUMBER IS
    BEGIN
        RETURN v_area;
    END;

OVERRIDING
    MAP MEMBER FUNCTION compare RETURN NUMBER IS
    BEGIN
        RETURN self.v_volume;
    END;

END;
/

为了进行比较，它看起来像：

DECLARE
    sphere_v   sphere_t;
    pyramid_v   pyramid_t;
BEGIN
    pyramid_v := pyramid_t(120, 90, 30);
    sphere_v := sphere_t(10);
    IF ( sphere_v != pyramid_v ) THEN
        dbms_output.put_line('NOT EQUAL');
    END IF;
END;

由于数字具有共同的超类，因此应该有一种比较的方法。

Answer 1

由于数字具有共同的超类，因此应该有一种比较的方法

不确定您想要在这里实现什么。 还有您在比较中使用的pyramid_t定义是什么。

如果（sphere_v！= pyramid_v）然后

上面的情况对我来说很困难，因为情况总是如此。

当你做sphere_v := sphere_t(10); 意味着您试图使sphere_t所有返回值都返回sphere_v 。 因此，如果您可以分别比较Sphere和pyramid的体积和面积，那就太好了。 参见下面的演示，您如何获得这些价值：

DECLARE
    sphere_v   sphere_t;
   -- pyramid_v   pyramid_t;

BEGIN               
    sphere_v := sphere_t(10);

    dbms_output.put_line('Input Radio     -->'||sphere_v.v_radio);
    dbms_output.put_line('Volume of Sphere-->'||sphere_v.v_volume);
    dbms_output.put_line('Area Of Sphere  -->'||sphere_v.v_area);

  --Similarly you can take the values of `volume` and `area` 
  --of pyramid and get it compared with that of Sphere.

  -- pyramid_v := pyramid_t(120, 90, 30); 
  --  dbms_output.put_line('Input Radio Pyramid -->'||pyramid_v.v_radio);
  --  dbms_output.put_line('Volume of Pyramid    -->'||pyramid_v.v_volume);
  --  dbms_output.put_line('Area Of Pyramid      -->'||pyramid_v.v_area);

  -- If sphere_v.v_volume = pyramid_v.v_volume then
  --   dbms_output.put_line('Equal');
  -- Else 
  --   dbms_output.put_line('Not Equal'); 

END;

假设： pyramid_t也具有相同的对象pyramid_t定义，并具有体积和面积计算。

Answer 2

由于数字具有共同的超类，因此应该有一种比较的方法。

有一种方法，只是不明显。

当类型完全相同时，例如相同子类型的两个实例，我们可以隐式调用map函数。 因此，我们可以像这样比较两个领域：

 IF ( sphere_1 != sphere_2 ) THEN ...

但是，要比较两个不同的子类型，我们需要调用父映射函数，并且要实现这一点，我们必须明确地引用它：

 IF ( sphere_v.compare() != pyramid_v.compare() ) THEN ...

是的，这很笨拙。 但是Oracle是RDBMS而不是ORDBMS（无论他们声称在8.0天的版本中是什么）。