--

　　-- 包头定义

　　--

　　CREATE OR REPLACE PACKAGE srcmake AS

　　PROCEDURE maktab;

　　PROCEDURE makview;

　　PROCEDURE makseq;

　　PROCEDURE makcon(tabName VARCHAR2);

　　END srcmake;

　　/

　　--

　　-- 包体定义

　　--

　　CREATE OR REPLACE PACKAGE BODY srcmake AS

　　--

　　-- 处理超过255个字符的行的输出

　　--

　　PROCEDURE dealline(initStr VARCHAR2) IS

　　lineCount INTEGER;

　　i INTEGER;

　　BEGIN

　　lineCount := ceil(length(initStr)/255);

　　FOR i IN 1..lineCount LOOP

　　dbms_output.put_line(substr(initStr,1 + 255 * (i - 1),255));

　　END LOOP;

　　END dealline;

　　--

　　-- 生成创建表的SQL文件

　　--

　　PROCEDURE maktab IS

　　tempStr varchar2(4000);

　　countNum integer;

　　i integer;

　　BEGIN

　　dbms_output.enable(9E38);

　　-- 输出sql文件说明信息

　　dbms_output.put_line('REM create table''s sql');

　　dbms_output.put_line('REM database user name:'||user);

　　dbms_output.put_line('REM outputTime:'||sysdate);

　　-- 查询用户的所有的表

　　FOR curtab IN(

　　SELECT a.table_name table_name,a.tablespace_name,b.comments comments

　　FROM user_tables A,user_tab_comments b

　　WHERE a.table_name = b.table_name AND b.table_type = 'TABLE'

　　ORDER BY a.table_name)

　　LOOP

　　-- 输出表信息

　　dbms_output.put_line(chr(10)||'DROP TABLE '||curtab.table_name||';');

　　dbms_output.put_line('-- 表名：'||curtab.table_name);

　　dbms_output.put_line('-- 备注：'||curtab.comments);

　　dbms_output.put_line('CREATE TABLE '||curtab.table_name||'(');

　　SELECT count(column_name) INTO countNum FROM user_tab_columns

　　WHERE table_name = curtab.table_name;

　　i := 0;

　　-- 查询表所有的列

　　FOR curcol IN(

　　SELECT a.*,b.comments

　　FROM user_tab_columns a,user_col_comments b

　　WHERE a.table_name = curtab.table_name AND a.table_name = b.table_name

　　AND a.column_name = b.column_name ORDER BY column_id)

　　LOOP

　　tempStr := chr(9)||rpad(curcol.column_name,31,' ')||curcol.data_type;

　　-- 以下类型需要指定长度

　　IF curcol.data_type IN('VARCHAR2','CHAR','VARCHAR','RAW') THEN

　　tempStr := tempStr||'('||curcol.data_length||')';

　　-- 数字类型存在精度问题

　　ELSIF curcol.data_type = 'NUMBER' THEN

　　IF curcol.data_precision IS NOT NULL THEN

　　tempStr := tempStr||'('||curcol.data_precision;

　　IF curcol.data_scale IS NOT NULL THEN

　　tempStr := tempStr||','||curcol.data_scale||')';

　　ELSE

　　tempStr := tempStr||')';

　　END IF;

　　ELSIF curcol.data_scale = 0 THEN

　　tempStr := tempStr||'(38)';

　　END IF;

　　END IF;

　　-- LONG,LONG RAW,CLOB,NLOB,BLOB,ROWID类型不需指定长度

　　IF curcol.nullable = 'N' THEN

　　-- 指定非空标志

　　tempStr := tempStr||' NOT NULL';

　　END IF;

　　i := i + 1;

　　-- 最后一列不需逗号

　　IF i != countNum THEN

　　tempStr := tempStr||',';

　　END IF;

　　-- 输出列的信息

　　IF curcol.comments IS NOT NULL THEN

　　dbms_output.put_line(rpad(tempStr,60,' ')||'-- '||curcol.comments);

　　ELSE

　　dbms_output.put_line(tempStr);

　　END IF;

　　END LOOP;

　　-- 输出表空间信息

　　dbms_output.put_line(') TABLESPACE '||curtab.tablespace_name||';');

　　-- 输出表约束

　　makcon(curtab.table_name);

　　END LOOP;

　　dbms_output.put_line(chr(10)||chr(10));

　　END maktab;

　　--

　　-- 生成表的约束(primary key,foreign key)

　　-- parameter:tabName表名称

　　PROCEDURE makcon(tabName VARCHAR2) IS

　　tempStr VARCHAR2(4000);

　　tempColStr VARCHAR2(2000);

　　BEGIN

　　FOR curcon IN(

　　SELECT owner,constraint_name name,constraint_type type,

　　r_constraint_name rname,delete_rule,r_owner,table_name

　　FROM user_constraints WHERE table_name = tabName AND constraint_type IN('P','R','U'))

　　LOOP

　　-- 输出约束信息

　　tempStr := 'ALTER TABLE '||tabName||' ADD CONSTRAINTS '||curcon.name;

　　FOR curcol IN(SELECT column_name FROM user_cons_columns

　　WHERE constraint_name = curcon.name) LOOP

　　tempColStr := tempColStr||curcol.column_name||',';

　　END LOOP;

　　tempColStr := substr(tempColStr,0,length(tempColStr) - 1);

　　-- 输出约束的列信息

　　IF curcon.type = 'P' THEN -- 主键

　　tempStr := tempStr||' PRIMARY KEY('||tempColStr||');';

　　ELSIF curcon.type = 'R' THEN -- 外键

　　tempStr := tempStr||' FOREIGN KEY('||tempColStr||') '||chr(10);

　　tempStr := tempStr||'

　　REFERENCES '||curcon.r_owner||'.'||curcon.table_name||'('||tempColStr||') ';

　　tempStr := tempStr||curcon.delete_rule||';';

　　ELSIF curcon.type = 'U' THEN -- 唯一约束

　　tempStr := tempStr||' UNIQUE('||tempColStr||');';

　　END IF;

　　dbms_output.put_line(tempStr);

　　END LOOP;

　　END makcon;

　　--

　　-- 生成创建视图的SQL文件

　　--

　　PROCEDURE makview IS

　　i INTEGER;

　　BEGIN

　　dbms_output.enable(9E38);

　　-- 输出sql文件说明信息

　　dbms_output.put_line(chr(10)||chr(10)||'REM create view''s sql');

　　dbms_output.put_line('REM database user name:'||user);

　　dbms_output.put_line('REM outputTime:'||sysdate);

　　-- 查询用户的所有的表

　　FOR curview IN(

　　SELECT a.view_name,a.text,b.comments comments

　　FROM user_views A,user_tab_comments b

　　WHERE a.view_name = b.table_name AND b.table_type = 'VIEW'

　　ORDER BY a.view_name)

　　LOOP

　　-- 输出表信息

　　dbms_output.put_line(chr(10)||'DROP VIEW '||curview.view_name||';');

　　dbms_output.put_line('-- 视图名：'||curview.view_name);

　　dbms_output.put_line('-- 备注：'||curview.comments);

　　dbms_output.put_line('CREATE VIEW '||curview.view_name||' AS ');

　　dealline(curview.text||';');

　　END LOOP;

　　dbms_output.put_line(chr(10)||chr(10));

　　END makview;

　　--

　　-- 生成创建序列的SQL文件

　　--

　　PROCEDURE makseq IS

　　tempStr VARCHAR2(4000);

　　BEGIN

　　dbms_output.enable(9E38);

　　-- 输出sql文件说明信息

　　dbms_output.put_line('REM create sequence''s sql');

　　dbms_output.put_line('REM database user name:'||user);

　　dbms_output.put_line('REM outputTime:'||sysdate);

　　-- 查询用户的所有的表

　　FOR curseq IN(select * from seq) LOOP

　　dbms_output.put_line('DROP SEQUENCE '||curseq.sequence_name||';');

　　tempStr := 'CREATE SEQUENCE '||curseq.sequence_name;

　　IF curseq.min_value IS NULL THEN

　　tempStr := tempStr||' NOMINVALUE ';

　　ELSE

　　tempStr := tempStr||' MINVALUE '||curseq.min_value;

　　END IF;

　　IF curseq.max_value IS NULL THEN

　　tempStr := tempStr||' NOMAXVALUE ';

　　ELSE

　　tempStr := tempStr||' MAXVALUE '||curseq.max_value;

　　END IF;

　　tempStr := tempStr||' INCREMENT_BY '||curseq.increment_by;

　　tempStr := tempStr||' STRART_WITH '||curseq.last_number;

　　IF curseq.cycle_flag = 'Y' THEN

　　tempStr := tempStr||' CYCLE