1、创建函数pgsql_type：

CREATE OR REPLACE FUNCTION public.pgsql_type(a_type character varying)
 RETURNS character varying
 LANGUAGE plpgsql
AS $function$  
DECLARE  
     v_type varchar;  
BEGIN  
     IF a_type='int8' THEN  
          v_type:='bigint';  
     ELSIF a_type='int4' THEN  
          v_type:='integer';  
     ELSIF a_type='int2' THEN  
          v_type:='smallint';  
     ELSIF a_type='bpchar' THEN  
          v_type:='char';  
     ELSE  
          v_type:=a_type;  
     END IF;  
     RETURN v_type;  
END;  
$function$
;
ALTER  FUNCTION public.pgsql_type(a_type character varying)
 OWNER TO sysdba;

3、创建类型tablestruct：

CREATE TYPE public.tablestruct AS (
fields_key_name character varying(100) COLLATE pg_catalog."default",
fields_name character varying(200) COLLATE pg_catalog."default",
fields_type character varying(20) COLLATE pg_catalog."default",
fields_length bigint,
fields_not_null character varying(10) COLLATE pg_catalog."default",
fields_default character varying(500) COLLATE pg_catalog."default",
fields_comment character varying(1000) COLLATE pg_catalog."default"
);
ALTER TYPE public.tablestruct
OWNER TO sysdba;

4、创建table_msg：

CREATE OR REPLACE FUNCTION public.table_msg(a_table_name character varying)
 RETURNS SETOF public.tablestruct
 LANGUAGE plpgsql
AS $function$  
DECLARE  
    v_ret public.tablestruct;  
BEGIN  
    FOR v_ret IN SELECT * FROM public.table_msg('public',a_table_name) LOOP  
        RETURN NEXT v_ret;  
    END LOOP;  
    RETURN;  
END;  
$function$
;
ALTER  FUNCTION public.table_msg(a_table_name character varying)
 OWNER TO sysdba;
CREATE OR REPLACE FUNCTION public.table_msg(a_schema_name character varying, a_table_name character varying)
 RETURNS SETOF public.tablestruct
 LANGUAGE plpgsql
AS $function$  
DECLARE  
     v_ret public.tablestruct;  
     v_oid oid;  
     v_sql varchar;  
     v_rec RECORD;  
     v_key varchar;  
BEGIN  
     SELECT  
           pg_class.oid  INTO v_oid  
     FROM  
           pg_class  
           INNER JOIN pg_namespace ON (pg_class.relnamespace = pg_namespace.oid AND lower(pg_namespace.nspname) = a_schema_name)  
     WHERE  
           pg_class.relname=a_table_name;  
     IF NOT FOUND THEN  
         RETURN;  
     END IF;  
  
     v_sql='  
     SELECT  
           pg_attribute.attname AS fields_name,  
           pg_attribute.attnum AS fields_index,  
           public.pgsql_type(pg_type.typname::varchar) AS fields_type,  
           pg_attribute.atttypmod-4 as fields_length,  
           CASE WHEN pg_attribute.attnotnull  THEN ''not null''  
           ELSE ''''  
           END AS fields_not_null,  
           pg_get_expr(pg_attrdef.adbin, pg_attrdef.adrelid) AS fields_default,  
           pg_description.description AS fields_comment  
     FROM  
           pg_attribute  
           INNER JOIN pg_class  ON pg_attribute.attrelid = pg_class.oid  
           INNER JOIN pg_type   ON pg_attribute.atttypid = pg_type.oid  
           LEFT OUTER JOIN pg_attrdef ON pg_attrdef.adrelid = pg_class.oid AND pg_attrdef.adnum = pg_attribute.attnum  
           LEFT OUTER JOIN pg_description ON pg_description.objoid = pg_class.oid AND pg_description.objsubid = pg_attribute.attnum  
     WHERE  
           pg_attribute.attnum > 0  
           AND attisdropped <> ''t''  
           AND pg_class.oid = ' || v_oid || '  
     ORDER BY pg_attribute.attnum' ;  
  
     FOR v_rec IN EXECUTE v_sql LOOP  
         v_ret.fields_name=v_rec.fields_name;  
         v_ret.fields_type=v_rec.fields_type;  
         IF v_rec.fields_length > 0 THEN  
            v_ret.fields_length:=v_rec.fields_length;  
         ELSE  
            v_ret.fields_length:=NULL;  
         END IF;  
         v_ret.fields_not_null=v_rec.fields_not_null;  
         v_ret.fields_default=v_rec.fields_default;  
         v_ret.fields_comment=v_rec.fields_comment;  
         SELECT constraint_name INTO v_key FROM information_schema.key_column_usage WHERE table_schema=a_schema_name AND table_name=a_table_name AND column_name=v_rec.fields_name;  
         IF FOUND THEN  
            v_ret.fields_key_name=v_key;  
         ELSE  
            v_ret.fields_key_name='';  
         END IF;  
         RETURN NEXT v_ret;  
     END LOOP;  
     RETURN ;  
END;  
$function$
;
ALTER  FUNCTION public.table_msg(a_schema_name character varying, a_table_name character varying)
 OWNER TO sysdba;

5、重载一个函数table_msg：