SQL Server搭建模拟环境进行测试

接触数据库早期写的东西，初学者可以看看。 一、接口部分


SET ANSI_NULLS ON


GO


SET QUOTED_IDENTIFIER ON


GO


IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[PrMatch_Construct]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)


BEGIN


EXEC dbo.sp_executesql @statement = N'-- =============================================


-- Author: <whbo>


-- Create date: <061222>


-- Description: <模拟大赛测试环境>


-- =============================================


create proc [dbo].[PrMatch_Construct]


@strTabName varchar(32),--表名


@i int,--迭代子


@intMax int--最大迭代


as


set nocount on


begin


declare @sql varchar(1024)


while (@i<=@intMax)


begin


set @sql = ''create table ''+@strTabName+cast(@i as varchar)+''(UserID int,Amount int)''


exec(@sql)


if (@@Error<>0) print @i


set @i = @i + 1


end


end'


END


GO


SET ANSI_NULLS ON


GO


SET QUOTED_IDENTIFIER ON


GO


IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[PrMatch_AddRecord]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)


BEGIN


EXEC dbo.sp_executesql @statement = N'


-- =============================================


-- Author: <whbo>


-- Create date: <061222>


-- Description: <模拟大赛添加测试数据>


-- =============================================


CREATE proc [dbo].[PrMatch_AddRecord]


@strTabName varchar(32),--表名


@i int,--迭代子


@intMax int--最大迭代


as


set nocount on


begin


declare @sql varchar(1024)


while (@i<=@intMax)


begin


set @sql = ''insert into ''+@strTabName+cast(@i as varchar) +


''(UserID ,Amount)''+


'' select 100,1 ''+''union select 101,2 ''+''union select 101,3''


exec(@sql)


if (@@Error<>0) print @i


set @i = @i + 1


end


end


'


END


GO


SET ANSI_NULLS ON


GO


SET QUOTED_IDENTIFIER ON


GO


IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[PrMatch_CheckEnvironment]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)


BEGIN


EXEC dbo.sp_executesql @statement = N'


-- =============================================


-- Author: <whbo>


-- Create date: <061222>


-- Description: <模拟大赛检查环境>


-- =============================================


CREATE proc [dbo].[PrMatch_CheckEnvironment]


@strTabName varchar(32),--表名


@i int,--迭代子


@intMax int--最大迭代


--@strErrMsg varchar(120) output


as


set nocount on


begin


declare @sql varchar(1024)


while (@i<=@intMax)


begin


set @sql =''if not exists(select 1 from sysobjects where name = ''''''+


@strTabName+cast(@i as varchar)+


'''''') print ''''错误：''+@strTabName+


cast(@i as varchar)+''缺少''''''


exec(@sql)


set @i = @i + 1


end


end


'


END


GO


SET ANSI_NULLS ON


GO


SET QUOTED_IDENTIFIER ON


GO


IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[PrMatch_DropEnvironment]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)


BEGIN


EXEC dbo.sp_executesql @statement = N'-- =============================================


-- Author: <whbo>


-- Create date: <061222>


-- Description: <模拟大赛测试环境删除>


-- =============================================


create proc [dbo].[PrMatch_DropEnvironment]


@strTabName varchar(32),--表名


@i int,--迭代子


@intMax int--最大迭代


as


set nocount on


begin


declare @sql varchar(1024)


while (@i <=@intMax)


begin


set @sql = ''drop table ''+@strTabName+cast(@i as varchar)


exec(@sql)


set @i = @i+1


end


end'


END


GO


SET ANSI_NULLS ON


GO


SET QUOTED_IDENTIFIER ON


GO


IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[PrMatch_UpdateRecord]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)


BEGIN


EXEC dbo.sp_executesql @statement = N'


-- =============================================


-- Author: <whbo>


-- Create date: <061222>


-- Description: <模拟大赛更新数据>


-- =============================================


CREATE proc [dbo].[PrMatch_UpdateRecord]


@dtmBgnDate datetime --大赛开始日期


as


set nocount on


begin


--update userlist


if @dtmBgnDate is null


begin print ''请输入大赛开始日期！'' return end


if not exists(select 1 from sysobjects where name = ''UserList'')


begin print ''TABLE :UserList Not Exists!'' return end


if not exists(select 1 from sysobjects where name = ''UserLogin'')


begin print ''TABLE :UserLogin Not Exists!'' return end




update userlist set now_money=100000, --当前帐户余额


dyn_money=100000, --昨日帐户市值


fdyn_money=100000, --周一帐户市值


cnum=0, --平仓次数


volume=0, --成交量


smax_surplus=0 --单笔获利最高


if (@@Error=0) print ''TABLE : UserList Updated! Counts : ''+cast(@@RowCount as varchar)


--update userlogin


update userlogin set initTime=@dtmBgnDate


if (@@Error=0) print ''TABLE : UserLogin Updated! Counts : ''+cast(@@RowCount as varchar)


end


'


END


GO


SET ANSI_NULLS ON


GO


SET QUOTED_IDENTIFIER ON


GO


IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[PrMatch_DelRecord]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)


BEGIN


EXEC dbo.sp_executesql @statement = N'




-- =============================================


-- Author: <whbo>


-- Create date: <061222>


-- Description: <模拟大赛删除测试数据>


-- =============================================


CREATE proc [dbo].[PrMatch_DelRecord]


@strTabName varchar(32),--表名


@i int,--迭代子


@intMax int--最大迭代


as


set nocount on


begin


declare @sql varchar(1024)


while (@i <=@intMax)


begin


set @sql = ''delete from ''+@strTabName+cast(@i as varchar)


exec(@sql)


if (@@Error<>0) print @i


set @i = @i + 1


end


--Limit_History,Limit


if exists(select 1 from sysobjects where name =''limit'')


delete from Limit


if exists(select 1 from sysobjects where name =''limit_history'')


begin


delete from Limit_History


--Restore Limit_History`s identity seed to 0


DBCC CHECKIDENT(Limit_History,reseed,0)


end


end




'


END



二、调用方式


use xupan


--构造测试环境


--exec PrMatch_Construct 'no_close',0,99


--添加测试数据


--exec PrMatch_AddRecord 'no_close',0,99


--检测环境


exec PrMatch_CheckEnvironment 'no_close',0,99


exec PrMatch_CheckEnvironment 'closed',0,99


--数据删除


exec PrMatch_DelRecord 'no_close',0,99


exec PrMatch_DelRecord 'closed',0,99


--数据更新


declare @dtmBgnDate smalldatetime --大赛开始时间


set @dtmBgnDate=Getdate()


exec PrMatch_UpdateRecord @dtmBgnDate


--删除测试环境


--exec PrMatch_DropEnvironment 'no_close',0,99





三、处理名称相关表的方法（a


--取得closed0到closed99满足条件的数据


declare @sql varchar(8000)


declare @i int,@strTabName varchar(32)


set @i=0


set @sql=''


while (@i<=99)


begin


set @strTabName='Closed'+cast(@i as varchar)


select @sql=@sql+'select * from '+@strTabName+' where ctime<=''2007-02-01 9:00:00'''+' union'+char(10)+char(13)


set @i=@i+1


end




select @sql=left(@sql,len(@sql)-7)


--print @sql


exec(@sql)

（b）


sp_msforeachtable @command1='print ''?''',


@command2='select * from ? where ctime>''2007-02-01 9:00:00''',


@whereand=' and name like ''closed%'' '