--
-- ArrangeDB.SQL 重整数据库
--
-- CopyRights @2003.12.29 Digital China Management System Co., Ltd.
--
-- 重整流程：把所有用户表增加 clustered 索引，这样SQLSERVER会重整表，然后
--再删除索引
--
-- 使用时机：日常维护，建议每周做一次重整。
--
-- 注意事项：做完后请做数据库收缩，更新统计，重新索引，及完整性检查
--drop table #dcms_index_info
--要用到的临时表
create table #dcms_index_info
(
index_name sysname,
index_description varchar(210),
index_keys varchar(2078)
)
--设置环境
set NOCOUNT ON
--程序开始：变量
declare @sql varchar(500)
declare @TableName varchar(20)
declare @ErrorSave int
--用所有的用户表处理
declare Cursor1 Cursor
for
select name from sysobjects where xtype='U' order by name
open Cursor1
fetch next from Cursor1 into @TableName
while @@fetch_status = 0
begin
--为了检测表中是不是有CREATE_DATE这个列，易飞的表中都有，如果没有就跳过，不过处理
--应该还有更好的方法，我暂时这样用了。不想用sp_columns因为不想建表，慢就慢点吧
if COLUMNPROPERTY(OBJECT_ID(@TableName),'CREATE_DATE','PRECISION') is not null
begin
print 'process table ' + @TableName
--取得当前表的索引信息
delete #dcms_index_info
set @sql = ' sp_helpindex ''' + @TableName + ''' '
insert into #dcms_index_info exec (@sql)
--查找是不是已经有聚簇索引(clustered)，如果已经有了就不做，在易飞中有clustered索引是少数
select index_name from #dcms_index_info where index_description like 'clustered%'
if @@ROWCOUNT = 0
begin
set @sql = ' create clustered index DcTempIndex001 on ' + @TableName + ' ( CREATE_DATE ) '
exec (@sql)
set @sql = ' DROP index ' + @TableName + '.DcTempIndex001 '
exec (@sql)
end
end
fetch next from Cursor1 into @TableName
end
drop table #dcms_index_info
close Cursor1
deallocate Cursor1