如何在PL/SQL中创建枚举类型？

Question

例如,我想创建自己的布尔类型并将其称为Bool.我怎么做？

或者是交通信号灯的类型,即其中只有红色,黄色,绿色(当然为空).

Answer 1

我不认为ABCade提供的解决方案是完全正确的.我们假设这样的过程:

procedure TestEnum(enum_in lights);

有什么价值enum_in？红色？黄色？绿色？

我提出另一个解决方案 这是包的例子

CREATE OR REPLACE PACKAGE pkg_test_enum IS

  SUBTYPE TLight IS BINARY_INTEGER RANGE 0..2;
  Red CONSTANT TLight := 0;
  Yellow CONSTANT TLight := 1;
  Green CONSTANT TLight := 2;

  --get sting name for my "enum" type
  FUNCTION GetLightValueName(enum_in TLight) RETURN VARCHAR2;

  PROCEDURE EnumTest(enum_in TLight);

END pkg_test_enum;


CREATE OR REPLACE PACKAGE BODY pkg_test_enum IS 
  FUNCTION GetLightValueName(enum_in TLight) 
  RETURN VARCHAR2
  IS
    ResultValue VARCHAR2(6);
  BEGIN
    CASE enum_in 
      WHEN Red THEN ResultValue := 'Red';
      WHEN Green THEN ResultValue := 'Green';
      WHEN Yellow THEN ResultValue := 'Yellow';
      ELSE ResultValue := '';
    END CASE;
    RETURN ResultValue;
  END GetLightValueName;


  PROCEDURE EnumTest(enum_in TLight)
  IS
  BEGIN
    --do stuff
    NULL;
  END EnumTest;
END pkg_test_enum;

我现在可以TLight在不同的包中使用.我现在可以测试enum_in预定义值或null.

这是用法示例

begin
  pkg_test_enum.EnumTest(pkg_test_enum.Red);
end;

此外,你可以使这种类型不可空.

SUBTYPE TLight IS BINARY_INTEGER RANGE 0..2 NOT NULL;

Answer 2

我能想到的最接近的想法是：

create or replace type lights as object
(
  red varchar2(8),
  yellow varchar2(8),
  green varchar2(8),
constructor function lights return self as result
)

和身体：

create or replace type body lights is
constructor function lights return self as result is
begin
  self.red = 'red';
  self.yellow = 'yellow';
  self.green = 'green';
  return;
end;
end;

然后在代码中就可以使用它：

declare
l lights := new lights;
begin
   dbms_output.put_line(l.red);
end;

Answer 3

该博客描述了一种使用常量值来做到这一点的方法

除了常量之外，博客还定义了有效颜色的子类型。

SQL> declare
  2  RED constant number(1):=1;
  3  GREEN constant number(1):=2;
  4  BLUE constant number(1):=3;
  5  YELLOW constant number(1):=4;
  6  --
  7  VIOLET constant number(1):=7;
  8  --
  9  subtype colors is binary_integer range 1..4;
 10  --
 11  pv_var colors;
 12  --
 13  function test_a (pv_var1 in colors) return colors
 14  is
 15  begin
 16     if(pv_var1 = YELLOW) then
 17             return(BLUE);
 18     else
 19             return(RED);
 20     end if;
 21  end;
 22  --