（2期） 数据库所有表批量增加字段

/*********************************************************************************************
Function：数据库所有表批量增加字段
Author：Bean
Date:2012-09-24
*********************************************************************************************/
--给系统所有主表增加 VMDTIME(修改时间) 和 VMDUSER(修改人) 两个字段
--前提:所有主表采用_1结尾(Landa V8机制)
declare @tbname varchar(100)									--定义表明 接收游标的值
declare mycursor cursor for										--定义游标
	--查询系统所有主表 
	select Name from sysobjects a						
	where xtype='u'										
		and right(name,2)='_1'
	and not exists 
	(
		select 1 from syscolumns b
		where b.id=object_id(a.name)
		and (b.name='VMDTIME' or b.name='VMDUSER' )
	)
open mycursor													--打开游标
fetch next from mycursor into @tbname							--获取数据
while @@fetch_status=0											--循环
Begin												
	exec('alter table '+@tbname+' add VMDTIME datetime')		--增加VMDTIME字段
	exec('alter table '+@tbname+' add VMDUSER varchar(100)')	--增加VMDUSER字段
	fetch next from mycursor into @tbname						--循环获取数据
End
close mycursor													--关闭游标
deallocate mycursor												--删除游标