应用场合：数据表新增自增一主键能加快数据表的访问速度，而且是整形的索引速度最快。本程序适合在导入Oracle数据库时删除不存在主键的情况下运行。

代码说明：所有的表主键字段名都设置为ID,如果已存在ID字段，则判断是否是整形，如果不是就重命名字段为[表名ID]，然后新增ID，如果不存在则直接添加自增一ID的主键

操作说明：打开PQSQL连接数据库后直接执行下面的详细脚本代码运行即可，脚本有风险(会删除原来的索引跟主键约束)，请不要轻易在正式运行的数据库上直接执行

--Oracle使用游标为所有用户表添加主键语句

declare

addstring NVARCHAR2(2000):=' '; --定义添加字段变量

constring NVARCHAR2(2000):=' '; --定义索引变量

cursor mycursor is select * from user_tables where TABLESPACE_NAME='SZGABL' ORDER BY TABLE_NAME; --定义游标获取所所有用户数据表名称

begin

dbms_output.put_line('declare counter int :=0;begin ');

open mycursor; --打开游标

if mycursor%found then --游标的found属性判断是否有记录

--创建一个序列

--execute immediate addstring;

else

close mycursor;

dbms_output.put_line('end;');