这是本文的第二部分，描述了用于处理系统目录的用户定义函数：pg_class，pg_attribute，pg_constraints等。
本文的这一部分讨论
返回约束和索引特征的函数。
本文的前半部分提供了有关功能实现的评论。 第二个是函数的源代码。 对于只对源文本感兴趣的读者，我们建议立即继续阅读
附录 。
另请参阅
记录PostgreSQL数据库的功能。 第一部分 ;
记录PostgreSQL数据库的功能。 第三部分 。
记录PostgreSQL数据库的功能。 最后（第四部分） 。
admtf_Table_Constraintes数据库表限制列表及其特征
admtf_Table_Constraintes函数返回数据库表及其特征的约束列表（CONSTRAINT）。 可以在此处查看和下载源代码 ， 这是不使用游标的函数的版本 。
该函数将源表的名称（
a_TableName ）和在其中创建表的方案的名称（
a_SchemaName ）作为参数。
特定约束的描述是pg_class中的记录（将其描述为物理关系）与pg_constraint中的记录（包含有关约束的特定特征的数据）的组合。
图中操作员的源代码SELECT tbl.OID,con.conname,con.contype,con.conkey,reftbl.OID, reftbl.relname,con.confkey,con.consrc FROM pg_constraint con INNER JOIN pg_namespace nsp ON con.connamespace=nsp.oid LEFT OUTER JOIN pg_class tbl ON con.conrelid=tbl.oid LEFT OUTER JOIN pg_class reftbl ON con.confrelid=reftbl.oid WHERE LOWER(nsp.nspname)=LOWER(a_SchemaName) AND LOWER(tbl.relname)=LOWER(a_TableOID) ORDER BY con.contype DESC,con.conname;
从pg_constraint目录条目中检索主要数据（限制的名称和类型）。 每个约束的特征都从同一目录中提取，以OID表（ conrelid ， confrelid ）或参与约束的属性序列号数组（ conkey ， confkey ）的形式表示。
该函数以表名和属性的形式返回约束特征。 在这种情况下，通过名称（OID）从pg_class目录条目中提取表名，并通过表标识符和属性序列号从pg_attribute目录条目中提取属性名。 因为 由于序列号以数组（列表）的形式存储在主目录中，因此在函数内部使用循环来形成属性名称列表。
该函数返回一个特殊特征-用于检查表条目中字段值的规则（CHECK限制）。 该特征作为文本值存储在pg_constraint目录的consrc字段中。
表7.执行函数admtf_Table_Constraintes（“ public”，“ Street”）的结果。
图中表格的文本版本| 职称 | 型式 | 源表属性 | 外部表的名称 | 外部表的属性 | 验证规则 |
|---|
| xpkstreet | p | wcrccode，localityid，streetid | | | |
| fk_street_locality | ˚F | wcrccode，localityid | 地区 | wcrccode，localityid | |
| fk_street_streettype | ˚F | streettypeacrm | 街道型 | streettypeacrm | |
| ck_street_streetname | ç | 街道名 | | | （（街道名称）::文本！〜*'[az]'::文本） |
| ck_street_streettypeacrm | ç | streettypeacrm | | | （（streettypeacrm）:: bpchar！〜*'[az]'::文本） |
没有光标的版本
我预见到该函数主版本中有关游标使用的问题和评论。
我不会回答-口味和颜色没有同志。 但是我会给出一个没有光标的函数版本。 不使用光标的函数实现版本可以在此处查看和下载 。
主要困难在于根据表之一的数组的属性类型中的值来组织表的联接（JOIN）。 在这种情况下，此类数组为conkey和confkey 。
SELECT c.conname,c.contype,c.conkey::SMALLINT[], GENERATE_SUBSCRIPTS(c.conkey, 1) as No FROM pg_constraint c WHERE c.conname='fk_street_locality' ORDER BY No;
为了解决这个问题，PostgrSQL包含一些函数，这些函数返回指向数组元素的指针的值表。 在我们的例子中，将使用generate_subscripts函数。 它不仅会生成大量指向作为参数传递给它的数组位置的指针，而且还会根据数组中元素的数量将包含该数组的一条记录变成几条记录。 该表的每个记录都包含一个唯一值-数组的位置。
表8.使用generate_subscripts传播原始字符串。| 限制名称 | 型式 | 属性编号数组 | 指向数组位置的指针 |
|---|
| fk_street_locality | ˚F | {1,2} | 1个 |
| fk_street_locality | ˚F | {1,2} | 2 |
图中操作员的源代码 SELECT con.conname AS ConstraintName,con.contype::VARCHAR(2) AS ConstraintType, STRING_AGG(attr.attname, ', 'ORDER BY con.No) AS r_ConstraintKeyNames, reftbl.relname AS RefTableName, STRING_AGG(rattr.attname,', 'ORDER BY con.No) AS r_RefTableKeyNames, con.consrc AS ConstraintSource FROM (SELECT c.oid, c.conrelid,c.confrelid,c.conname,c.contype, c.conkey::SMALLINT[],c.consrc, c.confkey::SMALLINT[], generate_subscripts(c.conkey, 1) as No FROM pg_constraint c) con INNER JOIN pg_class tbl ON con.conrelid=tbl.oid INNER JOIN pg_attribute attr ON attr.attrelid=tbl.oid AND attr.attnum=con.conkey[con.No] INNER JOIN pg_namespace nsp ON tbl.relnamespace=nsp.oid LEFT OUTER JOIN pg_class reftbl ON con.confrelid=reftbl.oid LEFT OUTER JOIN pg_attribute rattr ON rattr.attrelid=reftbl.oid AND rattr.attnum=con.confkey[con.No] WHERE LOWER(nsp.nspname)=LOWER(a_SchemaName) AND LOWER(tbl.relname)=LOWER(a_TableName) GROUP BY con.conname,con.contype,reftbl.relname,con.consrc ORDER BY con.contype DESC,con.conname;
通过在attr.attrelid = tbl.oid AND attr.attnum = con.conkey [con.No]的条件下从表中提取属性名称，可以将该表连接到pg_attribute属性目录 。
现在剩下的工作是通过对记录进行分组来删除不必要的记录，并从属性名称中创建一个字符串。
使用聚集函数STRING_AGG执行创建行，在该函数中必须指定排序选项（ORDER BY），否则属性的顺序可能与索引中属性的声明顺序不一致 。
两个功能版本的执行时间一致。 在结果表中输出数据花费了20毫秒。
Admtf_Table_Indexes数据库表索引的功能列表及其特征
admtf_Table_Indexes函数返回数据库表及其特征的索引列表（INDEX）。 可以在此处查看和下载源代码 ， 这是不使用游标的函数的版本 。
该函数将源表的名称（
a_TableName ）和在其中创建表的方案的名称（
a_SchemaName ）作为参数。
图中操作员的源代码 SELECT tbl.oid,inxcls.relname,inxam.amname,inx.indisunique,inx.indisprimary, inx.indkey::SMALLINT[],inx.indoption::SMALLINT[],inxam.amcanorder FROM pg_index inx INNER JOIN pg_class inxcls ON inx.indexrelid=inxcls.oid INNER JOIN pg_namespace inxnsp ON inxcls.relnamespace=inxnsp.oid INNER JOIN pg_am inxam ON inxcls.relam=inxam.oid INNER JOIN pg_class tbl ON inx.indrelid=tbl.oid INNER JOIN pg_namespace nsp ON tbl.relnamespace=nsp.oid WHERE LOWER(nsp.nspname)=LOWER(a_SchemaName) AND LOWER(tbl.relname)=LOWER(a_TableOID) ORDER BY inxam.amname, inxcls.relname;
单个索引的描述是pg_class中的记录（将其描述为物理关系）和pg_index中的记录（包含有关索引的特定特征的数据）的组合。 另外，有关索引访问方法的信息存储在pg_am系统目录中。
CASE inxam.amcanorder WHEN true THEN CASE inx.indoption[inx.No] & 1 WHEN 1 THEN ' DESC' ELSE ' ASC' END ELSE '' END;
提取索引唯一性的属性（ indisunique ），根据主键的描述（ indisprimary ）构造索引的标志以及表属性的序列号数组，并根据这些值从pg_index目录条目中提取索引（ indkey ）的值和排序属性值的顺序的标志在索引（ indoption ）中。
从描述pg_am索引的访问方法的目录条目中， 提取索引中包含的数据的适用性属性（ amcanorder ）和索引（ amname ）的访问方法的名称或类型。
换句话说，amcanorder属性指示是否可以为索引中包含的属性的值建立排序顺序。 如果amcanorder = true ，则可以指定排序顺序，否则可以不指定。 从同一图中可以看到indoption数组的值的含义-如果该值的二进制形式的右位包含1B，则相应属性的值按降序排序，否则-升序。
包含在索引中的属性名称列表以及属性值顺序的符号是使用循环在函数内部形成的。
表9.执行admtf_Table_Indexes函数（“ public”，“ Street”）的结果。
图中表格的文本版本| 索引名称 | 方法 | ？ 独特的 | ？ 主键 | 索引中的属性 |
|---|
| xie1street | 树 | ˚F | ˚F | wcrccode ASC，localidid ASC，streettypeacrm ASC，街道名称ASC |
| xie2stree | 树 | ˚F | ˚F | wcrccode ASC，localidid ASC，街道名称ASC |
| xie3street | 树 | ˚F | ˚F | 街道名称ASC |
| xie9street | 树 | ˚F | ˚F | wcrccode ASC，localidid ASC，街道名称DESC |
| xpkstreet | 树 | Ť | Ť | wcrccode ASC，localidid ASC，streetid ASC |
| xts1street | 杜松子酒 | ˚F | ˚F | streettsvector |
| xts2street | 杜松子酒 | ˚F | ˚F | streettsvector |
没有光标的版本
创建没有游标的函数版本的方法与上一节所述完全相同：
- 使用generate_subscripts复制记录；
- 随后的记录分组；
- 使用STRING_AGG函数和ORDER BY选项创建索引属性列表。
图中操作员的源代码 SELECT inxcls.relname AS r_IndexName ,inxam.amname AS r_IndexType, inx.indisunique AS r_isUnique,inx.indisprimary AS r_isPrimary, STRING_AGG(attr.attname|| CASE inxam.amcanorder WHEN true THEN CASE inx.indoption[inx.No] & 1 WHEN 1 THEN ' DESC' ELSE ' ASC' END ELSE '' END, c_Delimiter ORDER BY inx.No) FROM (SELECT i.indrelid, i.indexrelid,i.indisunique,i.indisprimary, i.indkey::SMALLINT[],i.indoption::SMALLINT[], generate_subscripts(i.indkey, 1) as No FROM pg_index i) inx INNER JOIN pg_class inxcls ON inx.indexrelid=inxcls.oid INNER JOIN pg_am inxam ON inxcls.relam=inxam.oid INNER JOIN pg_class tbl ON inx.indrelid=tbl.oid INNER JOIN pg_namespace nsp ON tbl.relnamespace=nsp.oid INNER JOIN pg_attribute attr ON attr.attrelid=tbl.OID AND attr.attnum=inx.indkey[inx.No] WHERE LOWER(nsp.nspname)=LOWER(a_SchemaName) AND LOWER(tbl.relname)=LOWER(a_TableName) GROUP BY inxcls.relname,inxam.amname,inx.indisunique,inx.indisprimary ORDER BY inxcls.relname;
两个功能版本的执行时间一致，我花了20毫秒将结果表中的数据输出。
因此，我将不再产生函数版本，因为 那些希望可以按照自己的喜好进行更改或与我联系的人，我将免费发送修改后的版本 。
另请参见本文的 第一 ， 第三和第四部分。
附录1.脚本
创建admtf_Table_Constraintes函数
有关功能源代码的注释，请参见此处。函数源代码 BEGIN TRANSACTION; DROP FUNCTION IF EXISTS admtf_Table_Constraintes (a_SchemaName NAME, a_TableName NAME); CREATE OR REPLACE FUNCTION admtf_Table_Constraintes (a_SchemaName name default 'public', a_TableName name default NULL ) RETURNS TABLE (r_ConstraintName NAME,r_ConstraintType NAME,r_ConstraintKeyNames Text,r_RefTableName NAME,r_RefTableKeyNames Text,r_ConstraintSource Text) AS $BODY$ DECLARE v_Scale INTEGER; v_ConstraintRec RECORD; v_TableOID INTEGER; v_ConstraintOID INTEGER; v_ConstraintKeyNos SMALLINT[]; v_ConstraintName name; v_ConstraintType name; v_isUnique BOOLEAN; v_isPrimary BOOLEAN; v_AttributeNum INTEGER; v_AttributeName name; v_ConstraintKeyNames TEXT; v_RefTableOID INTEGER; v_RefTableName name; v_RefTableKeyNos SMALLINT[]; v_RefTableKeyNames TEXT; v_ConstraintSource TEXT; c_Delimiter CONSTANT VARCHAR(2):=',';
创建没有游标的admtf_Table_Constraintes版本
有关功能源代码的注释，请参见此处。函数源代码 BEGIN TRANSACTION; DROP FUNCTION IF EXISTS admtf_Table_Constraintes (a_SchemaName NAME, a_TableName NAME); CREATE OR REPLACE FUNCTION admtf_Table_Constraintes (a_SchemaName name default 'public', a_TableName name default NULL ) RETURNS TABLE (r_ConstraintName NAME,r_ConstraintType NAME,r_ConstraintKeyNames Text,r_RefTableName NAME,r_RefTableKeyNames Text,r_ConstraintSource Text) AS $BODY$ DECLARE v_Scale INTEGER; v_ConstraintRec RECORD; v_TableOID INTEGER; v_ConstraintOID INTEGER; v_ConstraintKeyNos SMALLINT[]; v_ConstraintName name; v_ConstraintType name; v_isUnique BOOLEAN; v_isPrimary BOOLEAN; v_AttributeNum INTEGER; v_AttributeName name; v_ConstraintKeyNames TEXT; v_RefTableOID INTEGER; v_RefTableName name; v_RefTableKeyNos SMALLINT[]; v_RefTableKeyNames TEXT; v_ConstraintSource TEXT; c_Delimiter CONSTANT VARCHAR(2):=',';
创建admtf_Table_Indexes函数
有关功能源代码的注释，请参见此处。函数源代码 BEGIN TRANSACTION; DROP FUNCTION IF EXISTS admtf_Table_Indexes (a_SchemaName NAME, a_TableName NAME); CREATE OR REPLACE FUNCTION admtf_Table_Indexes (a_SchemaName NAME default 'public', a_TableName NAME default NULL ) RETURNS TABLE (r_IndexName NAME,r_IndexType NAME,r_isUnique BOOLEAN,r_isPrimary BOOLEAN, r_IndexKeyNames Text) AS $BODY$ DECLARE c_IndexKind CONSTANT CHAR:='i'; v_IndexRec RECORD; v_Scale INTEGER; v_TableOID INTEGER; v_IndexOID INTEGER; v_IndexKeyNos SMALLINT[]; v_IndexName NAME; v_IndexAMName NAME; v_isUnique BOOLEAN; v_isPrimary BOOLEAN; v_AttributeNum INTEGER; v_AttributeName NAME; v_IndexKeyNames TEXT; c_Delimiter CONSTANT VARCHAR(2):=',';
创建没有游标的admtf_Table_Indexes版本
. BEGIN TRANSACTION; DROP FUNCTION IF EXISTS admtf_Table_Indexes (a_SchemaName NAME, a_TableName NAME); CREATE OR REPLACE FUNCTION admtf_Table_Indexes (a_SchemaName NAME default 'public', a_TableName NAME default NULL ) RETURNS TABLE (r_IndexName NAME,r_IndexType NAME,r_isUnique BOOLEAN,r_isPrimary BOOLEAN, r_IndexKeyNames Text) AS $BODY$ DECLARE c_IndexKind CONSTANT CHAR:='i'; c_Delimiter CONSTANT VARCHAR(2):=', ';
另请参阅
PostgreSQL. ;PostgreSQL. .PostgreSQL. ( ) .