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% ''   '