DM自定义数据类型

自定义类型
用户使用CREATE TYPE语句可以定义记录类型、对象类型、命名的数组类型、集合类型等，如果在对象类型中声明了过程或方法，可以使用CREATE TYPE BODY定义这些过程和方法。

创建类型可以使用CREATE TYPE语句创建记录类型、对象类型、数组和集合类型。
语法格式
CREATE [OR REPLACE] TYPE [< 模式名>.]< 类型名>[WITH ENCRYPTioN] [< 调用权限子句>] AS|IS < 记录类型定义子句>|< 对象类型定义子句>
|< 数组类型定义子句>|< 集合类型定义子句>
[< 调用权限子句>]::= AUTHID DEFINER
| AUTHID CURRENT_USER
< 对象类型定义子句> ::= OBJECT [UNDER [< 模式名>.]< 父类型名>] (< 对象定义>,{< 对象定义>})[[NOT] FINAL] [[NOT] INSTANTIABLE]
< 对象定义> ::= < 变量列表定义>|< 过程声明>|< 函数声明>|< 构造函数声明>
< 过程声明> ::= [< 方法继承属性>][STATIC|MEMBER] PROCEDURE < 过程名> < 参数列表>
< 函数声明> ::= [< 方法继承属性>][MAP] [STATIC|MEMBER] FUNCTION < 函数名> < 参数列表> RETURN < 返回值数据类型>[DETERMINISTIC]
[PIPELINED]
< 方法继承属性> ::= < 重载属性> | | < 重载属性>
< 重载属性> ::= [NOT] OVERRDING
::= FINAL | NOT FINAL | INSTANTIABLE | NOT INSTANTIABLE
< 构造函数声明> ::= CONSTRUCTOR FUNCTION < 函数名> < 参数列表> RETURN SELF AS RESULT
< 记录类型定义子句> ::= RECORD(变量列表定义)
< 数组类型定义子句> ::= ARRAY < 数据类型>' [' [< 常量表达式>]{,[< 常量表达式>]}']'
< 集合类型定义子句> ::= < 数组集合定义子句>|< 嵌套表定义子句>|< 索引表定义子句>
< 数组集合定义子句> ::= VARRAY(< 常量表达式>) OF < 数据类型>
< 嵌套表定义子句> ::= TABLE OF < 数据类型>
< 索引表定义子句> ::= TABLE OF < 数据类型> [INDEX BY < 数据类型>]

使用说明
1． 对象类型中过程和函数的声明都是前向声明，类型定义中不包括任何实现代码；达梦系统中对象类型与类是等价的。
2． 对象类型中过程和函数可以声明为STATIC类型，表明为静态过程或函数；也可以声明为MEMBER，表明为成员过程或函数，非STATIC且非构造函数的方法缺省为成员方法。MAP表示将对象类型的实例映射为标量数值，只能用于成员函数；
3． 关于对象类型的继承，参考12.1节中类继承的相关说明；
4． WITH ENCRYPTION 选项，指定是否对自定义类型定义进行加密；
5． 记录类型的定义格式与对象类型类似，但记录类型中不能有过程和函数声明；
6． 在< 数组类型定义子句>的数组长度定义的[]内添加’,’可以定义多维数组。若指定了常量表达式，则定义的是静态数组，其数组长度是固定的。若没有指定常量表达式，则定义的是动态数组，其数组长度是在使用时指定。理论上DM支持静态数组的每一个维度的最大长度为65534，动态数组的每一个维度的最大长度为2147483646，但是数组最大长度同时受系统内部空间大小的限制，如果超出堆栈/堆的空间限制，系统会报错。
7． 数组集合类型中的常量表达式定义了其最大容量，其数组元素数据类型可以是基础类型，也可以是自定义数据类型。
8． 嵌套表类型和索引表类型没有元素个数限制，元素数据类型可以是基础数据类型也可以是其它自定义类型或是对象、记录、静态数组，但是不能是动态数组；第二个则是索引表的下标类型，目前仅支持INTEGER/INT和VARCHAR两种类型，分别代表整数下标和字符串下标。对于VARCHAR类型，长度不能超过1024。

所需权限
1. 使用该语句的用户必须是DBA或具有CREATE TYPE数据库权限的用户。
2.可以用关键字AUTHID DEFINER |AUTHID CURRENT_USER指定自定义类型的调用者权限，若为DEFINER，则采用自定义类型定义者权限，若为CURRENT_USER则为当前用户权限，默认为定义者权限。

创建类型体对于对象类型中声明的过程和函数，在类型体中进行实现。
语法格式
CREATE [OR REPLACE] TYPE BODY [< 模式名>.]< 类型名>[WITH ENCRYPTION] AS|IS < 对象类型体定义子句> END
< 对象类型体定义子句>::= < 对象类型体定义>,{< 对象类型体定义>}
< 对象类型体定义>::= < 过程实现>|< 函数实现>|< 构造函数实现>
< 过程实现> ::= [< 方法继承属性>][STATIC|MEMBER] PROCEDURE < 过程名> < 参数列表> AS|IS BEGIN < 实现体> END [过程名]
< 函数实现> ::= [< 方法继承属性>][MAP] [STATIC|MEMBER] FUNCTION < 函数名>< 参数列表> RETURN < 返回值数据类型>[DETERMINISTIC]
[PIPELINED] AS|IS BEGIN < 实现体> END [函数名]
< 方法继承属性> ::= < 重载属性> | | < 重载属性>
< 重载属性> ::= [NOT] OVERRDING
::= FINAL | NOT FINAL | INSTANTIABLE | NOT INSTANTIABLE
< 构造函数实现> ::= CONSTRUCTOR FUNCTION < 函数名> < 参数列表> RETURN SELF AS RESULT AS|IS BEGIN < 实现体> END [函数名]

使用说明
1． 对象类型体中的过程、函数定义必须和类型定义中的前向声明完全相同。包括过程的名字、参数定义列表的参数名和数据类型定义；

所需权限
使用该语句的用户必须是DBA或该类型对象的拥有者且具有CREATE TYPE数据库权限的用户。

重编译类型
重新对类型进行编译，如果重新编译失败，则将类型置为禁止状态。
重编功能主要用于检验类型的正确性。
语法格式
ALTER TYPE [< 模式名>.]< 类型名> COMPILE [DEBUG];
参数
1．< 模式名> 指明被重编译的类型所属的模式；
2．< 类型名> 指明被重编译的类型的名字；
3．[DEBUG] 可忽略。

所需权限
执行该操作的用户必须是类型的创建者，或者具有DBA权限。

删除类型
类型的删除分为类型删除和类型体的删除。对于拥有类型体的对象类型，删除类型会将类型体一起删除；删除类型体的话，类型本身依然存在。

删除类型使用DROP TYPE完成类型的删除。对于拥有类型体的对象类型，删除类型会将类型体一起删除。
语法格式
DROP TYPE [< 模式名>.]< 类型名>[RESTRICT | CASCADE];
使用说明
1．如果被删除的类型不属于当前模式，必须在语句中指明模式名；
2．如果一个拥有类型体的对象类型被删除，那么对应的类型体被自动删除。

所需权限
执行该操作的用户必须是该类型的拥有者，或者具有DBA权限。

删除类型体
使用DROP TYPE BODY删除一个对象类型的类型体。
语法格式
DROP TYPE BODY [< 模式名>.]< 类型名>[RESTRICT | CASCADE]; 使用说明
如果被删除的类型体不属于当前模式，必须在语句中指明模式名。

所需权限
执行该操作的用户必须是该类型的拥有者，或者具有DBA权限。

自定义类型的使用
使用规则
1. 对象类型与类等价，类的使用规则可详见第12章《类类型》；
2. 创建的记录类型、数组类型和集合类型，可以直接在DMsql程序语句块中使用，不必在语句块中声明类型，使用方式可参见10.1.1节部分；

3. 用户自定义数据类型可以作为其他用户自定义数据类型的元素类型或成员变量类型；
4. 只有对象类型可以直接作为表中列的数据类型；其他类型只能作为对象类型中成员变量的类型或类型中嵌套使用的数据类型。但含有索引表类型和游标类型的对象类型也不能作为表中列的数据类型。

应用实例
创建一个用来表示复数的对象类型，有实数部分和虚数部分，并实现了复数的加与减的操作。

SQL> CREATE TYPE COMPLEX AS OBJECT(
2     RPART REAL,
3     IPART REAL,
4     FUNCTION PLUS(X COMPLEX) RETURN COMPLEX,
5     FUNCTION LES(X COMPLEX) RETURN COMPLEX
6   );
7   /
executed successfully
used time: 53.553(ms). Execute id is 128
SQL> CREATE TYPE BODY COMPLEX AS
2     FUNCTION PLUS(X COMPLEX) RETURN COMPLEX IS
3     BEGIN
4      RETURN COMPLEX(RPART+X.RPART, IPART+X.IPART);
5     END;
6     FUNCTION LES(X COMPLEX) RETURN COMPLEX IS
7     BEGIN
8      RETURN COMPLEX(RPART-X.RPART, IPART-X.IPART);
9     END;
10  END;
11  /
executed successfully
used time: 14.330(ms). Execute id is 129.

建立表c_tab，表中的第二列的列类型为complex对象类型。

SQL> CREATE TABLE C_TAB(C1 INT, C2 COMPLEX);
executed successfully
used time: 16.381(ms). Execute id is 130.
SQL> INSERT INTO C_TAB VALUES(1, COMPLEX(2,3));
affect rows 1
used time: 1.508(ms). Execute id is 131.

向表c_tab中插入数据

SQL> INSERT INTO C_TAB VALUES(2, COMPLEX(4,2).PLUS(COMPLEX(2,3)));
affect rows 1
used time: 0.969(ms). Execute id is 132.
SQL> commit;
executed successfully
used time: 10.709(ms). Execute id is 133.
SQL> select * from c_tab;
LINEID     C1          C2
---------- ----------- -------------------
1          1           SYSDBA.COMPLEX(2,3)
2          2           SYSDBA.COMPLEX(6,5)
used time: 1.047(ms). Execute id is 134.