根据表名自动生成I/S/U/D的SQL语句,用于MSSQL2000/2005/2008(downmoon)

网上流传的基本SQL生成语句(Inset/Selec/Update/Delete)方法多了，这里介绍一种，可以用于MSSQL 2000/2005/2008。

 第一步：生成测试数据库

SQL
/**/ /* ************自动生成存储过程演示   **************** */
/**/ /* ************主要生成以下四个脚本　Delete/Select/Insert/Update  **************** */
/**/ /* ************说明：仅用于MSSQL 2000/2005/2008  **************** */
/**/ /* ************tony 2009.06.06  Update **************** */
/**/ /* ************MSN:3w@live.cn  **************** */
/**/ /* ************自动生成存储过程演示   **************** */


/**/ /* ***********************创建测试数据库[TestProcedure]****************************** */
use  master
go

IF   EXISTS  ( SELECT  name  FROM  master.dbo.sysdatabases  WHERE  name  =  N ' TestProcedure ' )
     DROP   DATABASE   [ TestProcedure ]
GO

create   database   [ TestProcedure ]
go

use   [ TestProcedure ]
go

 第二步：生成主要存储过程

Code
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO


/**/ /* 生成一个Delete记录的存储过程*************************
tony 2009.06.06  Update
MSN:3w@live.cn
@sTableName　表名
@bExecute 是否执行　默认0不执行
*/
CREATE        PROC  CPP__SYS_MakeDeleteRecordProc
     @sTableName   varchar ( 128 ),
     @bExecute   bit   =   0
AS

IF  dbo.fnTableHasPrimaryKey( @sTableName )  =   0
  BEGIN
     RAISERROR  ( ' Procedure cannot be created on a table with no primary key. ' ,  10 ,  1 )
     RETURN
  END

DECLARE      @sProcText   varchar ( 8000 ),
     @sKeyFields   varchar ( 2000 ),
     @sWhereClause   varchar ( 2000 ),
     @sColumnName   varchar ( 128 ),
     @nColumnID   smallint ,
     @bPrimaryKeyColumn   bit ,
     @nAlternateType   int ,
     @nColumnLength   int ,
     @nColumnPrecision   int ,
     @nColumnScale   int ,
     @IsNullable   bit , 
     @IsIdentity   int ,
     @sTypeName   varchar ( 128 ),
     @sDefaultValue   varchar ( 4000 ),
     @sCRLF   char ( 2 ),
     @sTAB   char ( 1 )

SET      @sTAB   =   char ( 9 )
SET       @sCRLF   =   char ( 13 )  +   char ( 10 )

SET       @sProcText   =   ''
SET       @sKeyFields   =   ''
SET      @sWhereClause   =   ''

SET       @sProcText   =   @sProcText   +   ' IF EXISTS(SELECT * FROM sysobjects WHERE name =  '' AutoGenerateSys__ '   +   @sTableName   +   ' _Delete '' ) '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sTAB   +   ' DROP PROC AutoGenerateSys__ '   +   @sTableName   +   ' _Delete '   +   @sCRLF
IF   @bExecute   =   0
     SET       @sProcText   =   @sProcText   +   ' GO '   +   @sCRLF

SET       @sProcText   =   @sProcText   +   @sCRLF

PRINT   @sProcText

IF   @bExecute   =   1  
     EXEC  ( @sProcText )

SET       @sProcText   =   ''
SET       @sProcText   =   @sProcText   +   ' ---------------------------------------------------------------------------- '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' -- Delete a single record from  '   +   @sTableName   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' ---------------------------------------------------------------------------- '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' CREATE PROC AutoGenerateSys__ '   +   @sTableName   +   ' _Delete '   +   @sCRLF

DECLARE  crKeyFields  cursor   for
     SELECT      *
     FROM     dbo.fnTableColumnInfo( @sTableName )
     ORDER   BY   2

OPEN  crKeyFields

FETCH       NEXT  
FROM      crKeyFields 
INTO       @sColumnName ,  @nColumnID ,  @bPrimaryKeyColumn ,  @nAlternateType , 
     @nColumnLength ,  @nColumnPrecision ,  @nColumnScale ,  @IsNullable , 
     @IsIdentity ,  @sTypeName ,  @sDefaultValue
                
WHILE  ( @@FETCH_STATUS   =   0 )
  BEGIN

     IF  ( @bPrimaryKeyColumn   =   1 )
      BEGIN
         IF  ( @sKeyFields   <>   '' )
             SET   @sKeyFields   =   @sKeyFields   +   ' , '   +   @sCRLF  
    
         SET   @sKeyFields   =   @sKeyFields   +   @sTAB   +   ' @ '   +   @sColumnName   +   '   '   +   @sTypeName

         IF  ( @nAlternateType   =   2 )  -- decimal, numeric
             SET   @sKeyFields   =    @sKeyFields   +   ' ( '   +   CAST ( @nColumnPrecision   AS   varchar ( 3 ))  +   ' ,  '  
                     +   CAST ( @nColumnScale   AS   varchar ( 3 ))  +   ' ) '
    
         ELSE   IF  ( @nAlternateType   =   1 )  -- character and binary
             SET   @sKeyFields   =    @sKeyFields   +   ' ( '   +   CAST ( @nColumnLength   AS   varchar ( 4 ))  +    ' ) '
    
         IF  ( @sWhereClause   =   '' )
             SET   @sWhereClause   =   @sWhereClause   +   ' WHERE  '  
         ELSE
             SET   @sWhereClause   =   @sWhereClause   +   '  AND  '  

         SET   @sWhereClause   =   @sWhereClause   +   @sTAB   +   @sColumnName    +   '  = @ '   +   @sColumnName   +   @sCRLF  
      END

     FETCH       NEXT  
     FROM      crKeyFields 
     INTO       @sColumnName ,  @nColumnID ,  @bPrimaryKeyColumn ,  @nAlternateType , 
         @nColumnLength ,  @nColumnPrecision ,  @nColumnScale ,  @IsNullable , 
         @IsIdentity ,  @sTypeName ,  @sDefaultValue
  END

CLOSE  crKeyFields
DEALLOCATE  crKeyFields

SET       @sProcText   =   @sProcText   +   @sKeyFields   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' AS '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' DELETE     '   +   @sTableName   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sWhereClause
SET       @sProcText   =   @sProcText   +   @sCRLF
IF   @bExecute   =   0
     SET       @sProcText   =   @sProcText   +   ' GO '   +   @sCRLF


PRINT   @sProcText

IF   @bExecute   =   1  
     EXEC  ( @sProcText )


GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO

SET  QUOTED_IDENTIFIER  ON  
GO
SET  ANSI_NULLS  ON  
GO



/**/ /* 生成一个Insert记录的存储过程*************************
tony 2009.06.06  Update
MSN:3w@live.cn
@sTableName　表名
@bExecute 是否执行　默认0不执行
*/

CREATE         PROC  CPP__SYS_MakeInsertRecordProc
     @sTableName   varchar ( 128 ),
     @bExecute   bit   =   0
AS

IF  dbo.fnTableHasPrimaryKey( @sTableName )  =   0
  BEGIN
     RAISERROR  ( ' Procedure cannot be created on a table with no primary key. ' ,  10 ,  1 )
     RETURN
  END

DECLARE      @sProcText   varchar ( 8000 ),
     @sKeyFields   varchar ( 2000 ),
     @sAllFields   varchar ( 2000 ),
     @sAllParams   varchar ( 2000 ),
     @sWhereClause   varchar ( 2000 ),
     @sColumnName   varchar ( 128 ),
     @nColumnID   smallint ,
     @bPrimaryKeyColumn   bit ,
     @nAlternateType   int ,
     @nColumnLength   int ,
     @nColumnPrecision   int ,
     @nColumnScale   int ,
     @IsNullable   bit , 
     @IsIdentity   int ,
     @HasIdentity   int ,
     @sTypeName   varchar ( 128 ),
     @sDefaultValue   varchar ( 4000 ),
     @sCRLF   char ( 2 ),
     @sTAB   char ( 1 )

SET       @HasIdentity   =   0
SET      @sTAB   =   char ( 9 )
SET       @sCRLF   =   char ( 13 )  +   char ( 10 )
SET       @sProcText   =   ''
SET       @sKeyFields   =   ''
SET      @sAllFields   =   ''
SET      @sWhereClause   =   ''
SET      @sAllParams    =   ''

SET       @sProcText   =   @sProcText   +   ' IF EXISTS(SELECT * FROM sysobjects WHERE name =  '' AutoGenerateSys__ '   +   @sTableName   +   ' _Insert '' ) '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sTAB   +   ' DROP PROC AutoGenerateSys__ '   +   @sTableName   +   ' _Insert '   +   @sCRLF
IF   @bExecute   =   0
     SET       @sProcText   =   @sProcText   +   ' GO '   +   @sCRLF

SET       @sProcText   =   @sProcText   +   @sCRLF

PRINT   @sProcText

IF   @bExecute   =   1  
     EXEC  ( @sProcText )

SET       @sProcText   =   ''
SET       @sProcText   =   @sProcText   +   ' ---------------------------------------------------------------------------- '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' -- Insert a single record into  '   +   @sTableName   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' ---------------------------------------------------------------------------- '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' CREATE PROC AutoGenerateSys__ '   +   @sTableName   +   ' _Insert '   +   @sCRLF

DECLARE  crKeyFields  cursor   for
     SELECT      *
     FROM     dbo.fnTableColumnInfo( @sTableName )
     ORDER   BY   2

OPEN  crKeyFields


FETCH       NEXT  
FROM      crKeyFields 
INTO       @sColumnName ,  @nColumnID ,  @bPrimaryKeyColumn ,  @nAlternateType , 
     @nColumnLength ,  @nColumnPrecision ,  @nColumnScale ,  @IsNullable , 
     @IsIdentity ,  @sTypeName ,  @sDefaultValue
                
WHILE  ( @@FETCH_STATUS   =   0 )
  BEGIN
     IF  ( @IsIdentity   =   0 )
      BEGIN
         IF  ( @sKeyFields   <>   '' )
             SET   @sKeyFields   =   @sKeyFields   +   ' , '   +   @sCRLF  

         SET   @sKeyFields   =   @sKeyFields   +   @sTAB   +   ' @ '   +   @sColumnName   +   '   '   +   @sTypeName

         IF  ( @sAllFields   <>   '' )
          BEGIN
             SET   @sAllParams   =   @sAllParams   +   ' ,  '
             SET   @sAllFields   =   @sAllFields   +   ' ,  '
          END

         IF  ( @sTypeName   =   ' timestamp ' )
             SET   @sAllParams   =   @sAllParams   +   ' NULL '
         ELSE   IF  ( @sDefaultValue   IS   NOT   NULL )
             SET   @sAllParams   =   @sAllParams   +   ' COALESCE(@ '   +   @sColumnName   +   ' ,  '   +   @sDefaultValue   +   ' ) '
         ELSE
             SET   @sAllParams   =   @sAllParams   +   ' @ '   +   @sColumnName  

         SET   @sAllFields   =   @sAllFields   +   @sColumnName  

      END
     ELSE
      BEGIN
         SET   @HasIdentity   =   1
      END

     IF  ( @nAlternateType   =   2 )  -- decimal, numeric
         SET   @sKeyFields   =    @sKeyFields   +   ' ( '   +   CAST ( @nColumnPrecision   AS   varchar ( 3 ))  +   ' ,  '  
                 +   CAST ( @nColumnScale   AS   varchar ( 3 ))  +   ' ) '

     ELSE   IF  ( @nAlternateType   =   1 )  -- character and binary
         SET   @sKeyFields   =    @sKeyFields   +   ' ( '   +   CAST ( @nColumnLength   AS   varchar ( 4 ))  +    ' ) '

     IF  ( @IsIdentity   =   0 )
      BEGIN
         IF  ( @sDefaultValue   IS   NOT   NULL )  OR  ( @IsNullable   =   1 )  OR  ( @sTypeName   =   ' timestamp ' )
             SET   @sKeyFields   =   @sKeyFields   +   '  = NULL '
      END

     FETCH       NEXT  
     FROM      crKeyFields 
     INTO       @sColumnName ,  @nColumnID ,  @bPrimaryKeyColumn ,  @nAlternateType , 
         @nColumnLength ,  @nColumnPrecision ,  @nColumnScale ,  @IsNullable , 
         @IsIdentity ,  @sTypeName ,  @sDefaultValue
  END

CLOSE  crKeyFields
DEALLOCATE  crKeyFields

SET       @sProcText   =   @sProcText   +   @sKeyFields   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' AS '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' INSERT  '   +   @sTableName   +   ' ( '   +   @sAllFields   +   ' ) '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' VALUES ( '   +   @sAllParams   +   ' ) '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sCRLF

IF  ( @HasIdentity   =   1 )
  BEGIN
     SET       @sProcText   =   @sProcText   +   ' RETURN SCOPE_IDENTITY() '   +   @sCRLF
     SET       @sProcText   =   @sProcText   +   @sCRLF
  END

IF   @bExecute   =   0
     SET       @sProcText   =   @sProcText   +   ' GO '   +   @sCRLF


PRINT   @sProcText

IF   @bExecute   =   1  
     EXEC  ( @sProcText )







GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO

SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO




/**/ /* 生成一个Select记录的存储过程*************************
tony 2009.06.06  Update
MSN:3w@live.cn
@sTableName　表名
@bExecute 是否执行　默认0不执行
*/
CREATE       PROC  CPP__SYS_MakeSelectRecordProc
     @sTableName   varchar ( 128 ),
     @bExecute   bit   =   0
AS

IF  dbo.fnTableHasPrimaryKey( @sTableName )  =   0
  BEGIN
     RAISERROR  ( ' Procedure cannot be created on a table with no primary key. ' ,  10 ,  1 )
     RETURN
  END

DECLARE      @sProcText   varchar ( 8000 ),
     @sKeyFields   varchar ( 2000 ),
     @sSelectClause   varchar ( 2000 ),
     @sWhereClause   varchar ( 2000 ),
     @sColumnName   varchar ( 128 ),
     @nColumnID   smallint ,
     @bPrimaryKeyColumn   bit ,
     @nAlternateType   int ,
     @nColumnLength   int ,
     @nColumnPrecision   int ,
     @nColumnScale   int ,
     @IsNullable   bit , 
     @IsIdentity   int ,
     @sTypeName   varchar ( 128 ),
     @sDefaultValue   varchar ( 4000 ),
     @sCRLF   char ( 2 ),
     @sTAB   char ( 1 )

SET      @sTAB   =   char ( 9 )
SET       @sCRLF   =   char ( 13 )  +   char ( 10 )

SET       @sProcText   =   ''
SET       @sKeyFields   =   ''
SET      @sSelectClause   =   ''
SET      @sWhereClause   =   ''

SET       @sProcText   =   @sProcText   +   ' IF EXISTS(SELECT * FROM sysobjects WHERE name =  '' AutoGenerateSys__ '   +   @sTableName   +   ' _Select '' ) '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sTAB   +   ' DROP PROC AutoGenerateSys__ '   +   @sTableName   +   ' _Select '   +   @sCRLF
IF   @bExecute   =   0
     SET       @sProcText   =   @sProcText   +   ' GO '   +   @sCRLF

SET       @sProcText   =   @sProcText   +   @sCRLF

PRINT   @sProcText

IF   @bExecute   =   1  
     EXEC  ( @sProcText )

SET       @sProcText   =   ''
SET       @sProcText   =   @sProcText   +   ' ---------------------------------------------------------------------------- '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' -- Select a single record from  '   +   @sTableName   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' ---------------------------------------------------------------------------- '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' CREATE PROC AutoGenerateSys__ '   +   @sTableName   +   ' _Select '   +   @sCRLF

DECLARE  crKeyFields  cursor   for
     SELECT      *
     FROM     dbo.fnTableColumnInfo( @sTableName )
     ORDER   BY   2

OPEN  crKeyFields

FETCH       NEXT  
FROM      crKeyFields 
INTO       @sColumnName ,  @nColumnID ,  @bPrimaryKeyColumn ,  @nAlternateType , 
     @nColumnLength ,  @nColumnPrecision ,  @nColumnScale ,  @IsNullable , 
     @IsIdentity ,  @sTypeName ,  @sDefaultValue
                
WHILE  ( @@FETCH_STATUS   =   0 )
  BEGIN
     IF  ( @bPrimaryKeyColumn   =   1 )
      BEGIN
         IF  ( @sKeyFields   <>   '' )
             SET   @sKeyFields   =   @sKeyFields   +   ' , '   +   @sCRLF  
    
         SET   @sKeyFields   =   @sKeyFields   +   @sTAB   +   ' @ '   +   @sColumnName   +   '   '   +   @sTypeName
    
         IF  ( @nAlternateType   =   2 )  -- decimal, numeric
             SET   @sKeyFields   =    @sKeyFields   +   ' ( '   +   CAST ( @nColumnPrecision   AS   varchar ( 3 ))  +   ' ,  '  
                     +   CAST ( @nColumnScale   AS   varchar ( 3 ))  +   ' ) '
    
         ELSE   IF  ( @nAlternateType   =   1 )  -- character and binary
             SET   @sKeyFields   =    @sKeyFields   +   ' ( '   +   CAST ( @nColumnLength   AS   varchar ( 4 ))  +    ' ) '

         IF  ( @sWhereClause   =   '' )
             SET   @sWhereClause   =   @sWhereClause   +   ' WHERE  '  
         ELSE
             SET   @sWhereClause   =   @sWhereClause   +   '  AND  '  

         SET   @sWhereClause   =   @sWhereClause   +   @sTAB   +   @sColumnName    +   '  = @ '   +   @sColumnName   +   @sCRLF  
      END

     IF  ( @sSelectClause   =   '' )
         SET   @sSelectClause   =   @sSelectClause   +   ' SELECT '
     ELSE
         SET   @sSelectClause   =   @sSelectClause   +   ' , '   +   @sCRLF  

     SET   @sSelectClause   =   @sSelectClause   +   @sTAB   +   @sColumnName  

     FETCH       NEXT  
     FROM      crKeyFields 
     INTO       @sColumnName ,  @nColumnID ,  @bPrimaryKeyColumn ,  @nAlternateType , 
         @nColumnLength ,  @nColumnPrecision ,  @nColumnScale ,  @IsNullable , 
         @IsIdentity ,  @sTypeName ,  @sDefaultValue
  END

CLOSE  crKeyFields
DEALLOCATE  crKeyFields

SET       @sSelectClause   =   @sSelectClause   +   @sCRLF

SET       @sProcText   =   @sProcText   +   @sKeyFields   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' AS '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sSelectClause
SET       @sProcText   =   @sProcText   +   ' FROM     '   +   @sTableName   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sWhereClause
SET       @sProcText   =   @sProcText   +   @sCRLF
IF   @bExecute   =   0
     SET       @sProcText   =   @sProcText   +   ' GO '   +   @sCRLF


PRINT   @sProcText

IF   @bExecute   =   1  
     EXEC  ( @sProcText )


GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO

SET  QUOTED_IDENTIFIER  ON  
GO
SET  ANSI_NULLS  ON  
GO



/**/ /* 生成一个Update记录的存储过程*************************
tony 2009.06.06  Update
MSN:3w@live.cn
@sTableName　表名
@bExecute 是否执行　默认0不执行
*/
CREATE           PROC  CPP__SYS_MakeUpdateRecordProc
     @sTableName   varchar ( 128 ),
     @bExecute   bit   =   0
AS

IF  dbo.fnTableHasPrimaryKey( @sTableName )  =   0
  BEGIN
     RAISERROR  ( ' Procedure cannot be created on a table with no primary key. ' ,  10 ,  1 )
     RETURN
  END

DECLARE      @sProcText   varchar ( 8000 ),
     @sKeyFields   varchar ( 2000 ),
     @sSetClause   varchar ( 2000 ),
     @sWhereClause   varchar ( 2000 ),
     @sColumnName   varchar ( 128 ),
     @nColumnID   smallint ,
     @bPrimaryKeyColumn   bit ,
     @nAlternateType   int ,
     @nColumnLength   int ,
     @nColumnPrecision   int ,
     @nColumnScale   int ,
     @IsNullable   bit , 
     @IsIdentity   int ,
     @sTypeName   varchar ( 128 ),
     @sDefaultValue   varchar ( 4000 ),
     @sCRLF   char ( 2 ),
     @sTAB   char ( 1 )

SET      @sTAB   =   char ( 9 )
SET       @sCRLF   =   char ( 13 )  +   char ( 10 )

SET       @sProcText   =   ''
SET       @sKeyFields   =   ''
SET      @sSetClause   =   ''
SET      @sWhereClause   =   ''

SET       @sProcText   =   @sProcText   +   ' IF EXISTS(SELECT * FROM sysobjects WHERE name =  '' AutoGenerateSys__ '   +   @sTableName   +   ' _Update '' ) '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sTAB   +   ' DROP PROC AutoGenerateSys__ '   +   @sTableName   +   ' _Update '   +   @sCRLF
IF   @bExecute   =   0
     SET       @sProcText   =   @sProcText   +   ' GO '   +   @sCRLF

SET       @sProcText   =   @sProcText   +   @sCRLF

PRINT   @sProcText

IF   @bExecute   =   1  
     EXEC  ( @sProcText )

SET       @sProcText   =   ''
SET       @sProcText   =   @sProcText   +   ' ---------------------------------------------------------------------------- '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' -- Update a single record in  '   +   @sTableName   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' ---------------------------------------------------------------------------- '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' CREATE PROC AutoGenerateSys__ '   +   @sTableName   +   ' _Update '   +   @sCRLF

DECLARE  crKeyFields  cursor   for
     SELECT      *
     FROM     dbo.fnTableColumnInfo( @sTableName )
     ORDER   BY   2

OPEN  crKeyFields


FETCH       NEXT  
FROM      crKeyFields 
INTO       @sColumnName ,  @nColumnID ,  @bPrimaryKeyColumn ,  @nAlternateType , 
     @nColumnLength ,  @nColumnPrecision ,  @nColumnScale ,  @IsNullable , 
     @IsIdentity ,  @sTypeName ,  @sDefaultValue
                
WHILE  ( @@FETCH_STATUS   =   0 )
  BEGIN
     IF  ( @sKeyFields   <>   '' )
         SET   @sKeyFields   =   @sKeyFields   +   ' , '   +   @sCRLF  

     SET   @sKeyFields   =   @sKeyFields   +   @sTAB   +   ' @ '   +   @sColumnName   +   '   '   +   @sTypeName

     IF  ( @nAlternateType   =   2 )  -- decimal, numeric
         SET   @sKeyFields   =    @sKeyFields   +   ' ( '   +   CAST ( @nColumnPrecision   AS   varchar ( 3 ))  +   ' ,  '  
                 +   CAST ( @nColumnScale   AS   varchar ( 3 ))  +   ' ) '

     ELSE   IF  ( @nAlternateType   =   1 )  -- character and binary
         SET   @sKeyFields   =    @sKeyFields   +   ' ( '   +   CAST ( @nColumnLength   AS   varchar ( 4 ))  +    ' ) '

     IF  ( @bPrimaryKeyColumn   =   1 )
      BEGIN
         IF  ( @sWhereClause   =   '' )
             SET   @sWhereClause   =   @sWhereClause   +   ' WHERE  '  
         ELSE
             SET   @sWhereClause   =   @sWhereClause   +   '  AND  '  

         SET   @sWhereClause   =   @sWhereClause   +   @sTAB   +   @sColumnName    +   '  = @ '   +   @sColumnName   +   @sCRLF  
      END
     ELSE
         IF  ( @IsIdentity   =   0 )
          BEGIN
             IF  ( @sSetClause   =   '' )
                 SET   @sSetClause   =   @sSetClause   +   ' SET '
             ELSE
                 SET   @sSetClause   =   @sSetClause   +   ' , '   +   @sCRLF  
             SET   @sSetClause   =   @sSetClause   +   @sTAB   +   @sColumnName    +   '  =  '
             IF  ( @sTypeName   =   ' timestamp ' )
                 SET   @sSetClause   =   @sSetClause   +   ' NULL '
             ELSE   IF  ( @sDefaultValue   IS   NOT   NULL )
                 SET   @sSetClause   =   @sSetClause   +   ' COALESCE(@ '   +   @sColumnName   +   ' ,  '   +   @sDefaultValue   +   ' ) '
             ELSE
                 SET   @sSetClause   =   @sSetClause   +   ' @ '   +   @sColumnName  
          END

     IF  ( @IsIdentity   =   0 )
      BEGIN
         IF  ( @IsNullable   =   1 )  OR  ( @sTypeName   =   ' timestamp ' )
             SET   @sKeyFields   =   @sKeyFields   +   '  = NULL '
      END

     FETCH       NEXT  
     FROM      crKeyFields 
     INTO       @sColumnName ,  @nColumnID ,  @bPrimaryKeyColumn ,  @nAlternateType , 
         @nColumnLength ,  @nColumnPrecision ,  @nColumnScale ,  @IsNullable , 
         @IsIdentity ,  @sTypeName ,  @sDefaultValue
  END

CLOSE  crKeyFields
DEALLOCATE  crKeyFields

SET       @sSetClause   =   @sSetClause   +   @sCRLF

SET       @sProcText   =   @sProcText   +   @sKeyFields   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' AS '   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sCRLF
SET       @sProcText   =   @sProcText   +   ' UPDATE     '   +   @sTableName   +   @sCRLF
SET       @sProcText   =   @sProcText   +   @sSetClause
SET       @sProcText   =   @sProcText   +   @sWhereClause
SET       @sProcText   =   @sProcText   +   @sCRLF
IF   @bExecute   =   0
     SET       @sProcText   =   @sProcText   +   ' GO '   +   @sCRLF


PRINT   @sProcText

IF   @bExecute   =   1  
     EXEC  ( @sProcText )



GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO

 第三步：生成一些必须的Function

Code
/**/ /* 生成一些通用的Function *************************
tony 2009.06.06  Update
MSN:3w@live.cn
@sTableName　表名
@bExecute 是否执行　默认0不执行
*/
SET  QUOTED_IDENTIFIER  ON  
GO
SET  ANSI_NULLS  ON  
GO

CREATE   FUNCTION  dbo.fnCleanDefaultValue( @sDefaultValue   varchar ( 4000 ))
RETURNS   varchar ( 4000 )
AS
BEGIN
     RETURN   SubString ( @sDefaultValue ,  2 ,  DataLength ( @sDefaultValue ) - 2 )
END



GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO

SET  QUOTED_IDENTIFIER  ON  
GO
SET  ANSI_NULLS  ON  
GO

CREATE   FUNCTION  dbo.fnColumnDefault( @sTableName   varchar ( 128 ),  @sColumnName   varchar ( 128 ))
RETURNS   varchar ( 4000 )
AS
BEGIN
     DECLARE   @sDefaultValue   varchar ( 4000 )

     SELECT      @sDefaultValue   =  dbo.fnCleanDefaultValue(COLUMN_DEFAULT)
     FROM     INFORMATION_SCHEMA.COLUMNS
     WHERE     TABLE_NAME  =   @sTableName
      AND      COLUMN_NAME  =   @sColumnName

     RETURN       @sDefaultValue

END

GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO

SET  QUOTED_IDENTIFIER  ON  
GO
SET  ANSI_NULLS  ON  
GO





CREATE     FUNCTION  dbo.fnIsColumnPrimaryKey( @sTableName   varchar ( 128 ),  @nColumnName   varchar ( 128 ))
RETURNS   bit
AS
BEGIN
     DECLARE   @nTableID   int ,
         @nIndexID   int ,
         @i   int
    
     SET       @nTableID   =   OBJECT_ID ( @sTableName )
    
     SELECT       @nIndexID   =  indid
     FROM      sysindexes
     WHERE      id  =   @nTableID
      AND      indid  BETWEEN   1   And   254  
      AND      (status  &   2048 )  =   2048
    
     IF   @nIndexID   Is   Null
         RETURN   0
    
     IF   @nColumnName   IN
        ( SELECT  sc. [ name ]
         FROM      sysindexkeys sik
             INNER   JOIN  syscolumns sc  ON  sik.id  =  sc.id  AND  sik.colid  =  sc.colid
         WHERE      sik.id  =   @nTableID
          AND      sik.indid  =   @nIndexID )
      BEGIN
         RETURN   1
      END


     RETURN   0
END




GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO

SET  QUOTED_IDENTIFIER  ON  
GO
SET  ANSI_NULLS  ON  
GO


CREATE         FUNCTION  dbo.fnTableColumnInfo( @sTableName   varchar ( 128 ))
RETURNS   TABLE
AS
     RETURN
     SELECT     c.name  AS  sColumnName,
        c.colid  AS  nColumnID,
        dbo.fnIsColumnPrimaryKey( @sTableName , c.name)  AS  bPrimaryKeyColumn,
         CASE       WHEN  t.name  IN  ( ' char ' ,  ' varchar ' ,  ' binary ' ,  ' varbinary ' ,  ' nchar ' ,  ' nvarchar ' )  THEN   1
             WHEN  t.name  IN  ( ' decimal ' ,  ' numeric ' )  THEN   2
             ELSE   0
         END   AS  nAlternateType,
        c.length  AS  nColumnLength,
        c.prec  AS  nColumnPrecision,
        c.scale  AS  nColumnScale, 
        c.IsNullable, 
         SIGN (c.status  &   128 )  AS  IsIdentity,
        t.name  as  sTypeName,
        dbo.fnColumnDefault( @sTableName , c.name)  AS  sDefaultValue
     FROM     syscolumns c 
         INNER   JOIN  systypes t  ON  c.xtype  =  t.xtype  and  c.usertype  =  t.usertype
     WHERE     c.id  =   OBJECT_ID ( @sTableName )



GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO

SET  QUOTED_IDENTIFIER  ON  
GO
SET  ANSI_NULLS  ON  
GO

CREATE   FUNCTION  dbo.fnTableHasPrimaryKey( @sTableName   varchar ( 128 ))
RETURNS   bit
AS
BEGIN
     DECLARE   @nTableID   int ,
         @nIndexID   int
    
     SET       @nTableID   =   OBJECT_ID ( @sTableName )
    
     SELECT       @nIndexID   =  indid
     FROM      sysindexes
     WHERE      id  =   @nTableID
      AND      indid  BETWEEN   1   And   254  
      AND      (status  &   2048 )  =   2048
    
     IF   @nIndexID   IS   NOT   Null
         RETURN   1
    
     RETURN   0
END


GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO

 第四步：生成测试数据表，并执行

Code

/**/ /* ***********************创建测试数据表 Product  ****************************** */
if   not   exists  ( select   *   from  dbo.sysobjects  where  id  =   object_id (N ' [dbo].[Product] ' )  and   OBJECTPROPERTY (id, N ' IsUserTable ' )  =   1 )
  BEGIN
CREATE   TABLE   [ Product ]  (
     [ P_ID ]   [ bigint ]   NOT   NULL  ,
     [ P_Name ]   [ nvarchar ]  ( 255 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ CategoryID1 ]   [ int ]   NULL  ,
     [ CategoryID2 ]   [ int ]   NULL  ,
     [ CategoryID3 ]   [ int ]   NULL  ,
     [ P_SingleIntro ]   [ nvarchar ]  ( 1000 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ P_Intro ]   [ ntext ]  COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ P_Order ]   [ float ]   NULL  ,
     [ P_TopTime ]   [ smalldatetime ]   NULL  ,
     [ P_BigImage ]   [ nvarchar ]  ( 150 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ P_SmallImage ]   [ nvarchar ]  ( 150 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ CurState ]   [ smallint ]   NOT   NULL  ,
     [ RecState ]   [ smallint ]   NOT   NULL  ,
     [ P_CheckInfo ]   [ nvarchar ]  ( 80 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ P_L_ID ]   [ int ]   NOT   NULL  ,
     [ P_NewKey1 ]   [ nvarchar ]  ( 300 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ AddTime ]   [ datetime ]   NOT   NULL  ,
     [ AddUser ]   [ nvarchar ]  ( 50 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ ModTime ]   [ datetime ]   NOT   NULL  ,
     [ ModUser ]   [ nvarchar ]  ( 50 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ F1 ]   [ int ]   NOT   NULL  ,
     [ F3 ]   [ nvarchar ]  ( 50 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     CONSTRAINT   [ PK_Product ]   PRIMARY   KEY    CLUSTERED  
    (
         [ P_ID ]
    )   ON   [ PRIMARY ]  
)  ON   [ PRIMARY ]  TEXTIMAGE_ON  [ PRIMARY ]
END

/**/ /* *******测试生成********** */
-- CPP__SYS_MakeDeleteRecordProc  'Product',0
-- go
-- CPP__SYS_MakeInsertRecordProc  'Product',0
-- go
-- CPP__SYS_MakeSelectRecordProc  'Product',0
-- go
-- CPP__SYS_MakeUpdateRecordProc  'Product',0
-- go


/**/ /* *******测试生成********** */
CPP__SYS_MakeDeleteRecordProc   ' Product ' , 1
go
CPP__SYS_MakeInsertRecordProc   ' Product ' , 1
go
CPP__SYS_MakeSelectRecordProc   ' Product ' , 1
go
CPP__SYS_MakeUpdateRecordProc   ' Product ' , 1
go

 效果如图：

 

 

 附下载SQL