TSQL语句实现清空数据库数据的代码，保留原有表形式和各种约束

/**********************************************************************/
   ----------------------清空数据库数据的SQL代码--------------
/**********************************************************************/
------------------------------------------------------
use TSZongHe_new   --选择你要清空的数据库

-------------------------------------------------------
-------------禁用本库中所有表的外键约束-----
-------------------------------------------------------
DECLARE Employee_Cursor CURSOR FOR
select name from sysobjects where xtype='u' and (not name LIKE 'dtproperties') order by [name] asc;
declare @tablename varchar(300);
declare @str varchar(1000);
declare @rst int;
--SET @MyVariable = MyCursor
OPEN Employee_Cursor;
FETCH NEXT FROM Employee_Cursor into @tablename;
WHILE @@FETCH_STATUS = 0
    BEGIN
    select @str = 'ALTER TABLE '+ @tablename + ' NOCHECK CONSTRAINT ALL';
    EXECUTE(@str);
       FETCH NEXT FROM Employee_Cursor into @tablename;
    END
CLOSE Employee_Cursor;
DEALLOCATE Employee_Cursor;
GO

----------------------------------------------------
--------------删除本库中所有表数据----------
----------------------------------------------------
DECLARE Employee_Cursor CURSOR FOR
select name from sysobjects where xtype='u' and (not name LIKE 'dtproperties') 
-------------------------------------------------------------------------------------------
--如果你想清空库中所有表的话，就不需要下段这部分代码
-------------------------------------------------------------------------------------------
and (name not in ('PageRights','ModuleInfo','RoleModuleRight','RoleInfo','UserInfo',
'PersonnelInfo','SystemDirectory','MarriageState','TechnicalPostInfo','EducationInfo',
'PlaceInfo ','DepartmentInfo ','FoodStandard','FieldsValue','PublicResShare','StyleInfo',
'DocumentTypeInfo','AddressKindInfo','PayTypeInfo','FoodStandard','CityInfo','HotelType',
'FootQuomodoInfo','HotelGradeInfo','PlaceArea','TravelAgencySortInfo','BusTypeInfo'))
--------------------------------------------------------------------------------------------
--如果你想保留某些表数据的话，可以加上下面这段代码，当然表名根据自己的情况写
--------------------------------------------------------------------------------------------
order by [name] asc;
declare @tablename varchar(300);
declare @str varchar(1000);
declare @rst int;
--SET @MyVariable = MyCursor
OPEN Employee_Cursor;
FETCH NEXT FROM Employee_Cursor into @tablename;
WHILE @@FETCH_STATUS = 0
    BEGIN
    select @str = 'Delete '+ @tablename ;
    EXECUTE(@str);
       FETCH NEXT FROM Employee_Cursor into @tablename;
    END
CLOSE Employee_Cursor;
DEALLOCATE Employee_Cursor;
GO

----------------------------------------------------
-------------恢复本库中所有表的外键约束--
----------------------------------------------------
DECLARE Employee_Cursor CURSOR FOR
select name from sysobjects where xtype='u' and (not name LIKE 'dtproperties') order by [name] asc;
declare @tablename varchar(300);
declare @str varchar(1000);
declare @rst int;
--SET @MyVariable = MyCursor
OPEN Employee_Cursor;
FETCH NEXT FROM Employee_Cursor into @tablename;
WHILE @@FETCH_STATUS = 0
    BEGIN
    select @str = 'ALTER TABLE '+ @tablename + ' CHECK CONSTRAINT ALL';
    EXECUTE(@str);
       FETCH NEXT FROM Employee_Cursor into @tablename;
    END
CLOSE Employee_Cursor;
DEALLOCATE Employee_Cursor;
GO
/****************************************************/