use master
go
if object_id('sp_CreateIndexForFK') Is not nullDrop Proc sp_CreateIndexForFK
Go
/********************************************************************************************
%% Author        : Andy
%% Create Date    : 2012-12-26
%% Description    : 在具有外键约束的列创建索引V1.0
********************************************************************************************/
create proc sp_CreateIndexForFK
As
begindeclare @sql                    nvarchar(4000),@parent_object            sysname,@referenced_object        sysname,@constraint_object_id    int,@index_name            sysnamedeclare cur_x cursor for select a.object_id,object_name(a.parent_object_id)    as parent_object,object_name(a.referenced_object_id) as referenced_object from sys.foreign_keys awhere  exists(select 1 from sys.foreign_key_columns xleft join sys.index_columns y on y.object_id=x.parent_object_idand y.column_id=x.parent_column_idwhere y.index_id is nulland x.constraint_object_id=a.object_id)order by parent_object                            open cur_xfetch next from cur_x into @constraint_object_id,@parent_object,@referenced_objectwhile @@fetch_status = 0beginset @index_name='ix_'+@parent_object+'_'+@referenced_objectset @sql='create nonclustered index ['+@index_name+'] on '+quotename(@parent_object)+'('+(select stuff((select ','+quotename(b.name)from sys.foreign_key_columns ainner join sys.columns b on b.object_id=a.parent_object_idand b.column_id=a.parent_column_idwhere a.constraint_object_id=@constraint_object_idfor xml path('')),1,1,''))+');'exec sp_executesql @sql    print N'在表('+@parent_object+N')，已创建索引:'+@index_name fetch next from cur_x into @constraint_object_id,@parent_object,@referenced_objectendclose cur_xdeallocate cur_x end
go
exec sp_ms_marksystemobject 'sp_CreateIndexForFK' --标识为系统对象
go