给数据表设置自动编号-格式（**yyyymm####）

       当我们设置数据表的时候，一般设置一列为主键，如果利用MS的Sql Server 数据库，可以设置主键列自动编号，它默认的是，从1自动增加。可我们有时，需要将主键列变得有一点意义，比如用年月之后是几位的自动编号，这样看起来，有有一点意义。
例如：一个数据表的结构如下：

If Exists (Select * From SysObjects Where Id = Object_Id('Invoice'))
Drop Table dbo.Invoice
GO
Create Table dbo.Invoice(
    InvCode varchar(12) Not null Primary key,--开票编号
    InvType    varchar(10) Not null,        --开票类型：整机、配件；
    InvType1 varchar(10) Not null,        --开票类型：采购、销售
    InvType2 varchar(10) Not Null,        --开票类型：普通、增值税
    Tax Numeric(8,2) Not Null,        --开票金额；
    Cess Numeric(2,2) Not Null,        --税率；
    InvDate smalldatetime Not Null,        --开票日期；
    Code1 varchar(20) Null,            --票号1
    Code2 varchar(20) Null,            --票号2
    OPTaxCode varchar(20) Not Null,        --往业单位税号
    OPName varchar(50) Not Null,        --往来单位名称
    Note varchar(100) Null,            --备注；
    IsValidate bit Not Null,         --确认标识：默认没有确认；
    Pact Varchar(12) Null            --对应合同编号；
)
GO

当建立数据表后，需要设置InvCode数据列为函数所取得的编号，代码如下所示：

--=============================================================================
/**//****** 对象: 自定函数 dbo.fu_Invoice_Code ******/
/**//****** 说明：发票编号 ******/
--=============================================================================
if exists (select * from dbo.sysobjects where id = object_id('dbo.fu_Invoice_Code'))
drop function dbo.fu_Invoice_Code
GO
SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO
 CREATE FUNCTION dbo.fu_Invoice_Code ()  
RETURNS varchar(12) AS  
BEGIN 
    declare @ResultCode varchar(12) , @ToDay SmallDatetime
    Select @ToDay = ToDay From vw_GetDate
    if Exists ( Select * From Invoice )
    begin
        Select  @ResultCode =  Max ( InvCode ) From Invoice
        --取出数据表中最大年份，看是否是当年的信息
        If ( SubString ( @ResultCode , 3 , 4 ) = DateName ( Year,@ToDay ) )
        begin
            --取出数据表中的最大编号的月份，看是否是当前的月份
            If ( SubString ( @ResultCode , 7 , 2 ) = DateName ( Month , @ToDay ) )
                --当是当前月份时，把最后四位进行处理，重新获取新的编号
                Set @ResultCode = Left ( @ResultCode , 8 ) + 
                Right ( '0000' + Convert ( varchar , Convert ( int , SubString ( @ResultCode , 9 , 4 ) ) +1  ) , 4 )
            else    
            --当不是当前的月份时，取出前六位，之后把当前的月份编号添加上去，再加上0000,组成最大的编号    
                Set @ResultCode=Left(@ResultCode,6)+DateName(Month,@ToDay)+'0000'
        end
        else 
        --当从数据表中取出的最大年份不是当年时 ，进行如下操作
            Set @ResultCode =  'FP' + DateName ( Year , @ToDay ) + DateName ( Month , @ToDay ) + '0000'
    end
    else
        Set @ResultCode =  'FP' + DateName ( Year , @ToDay ) + DateName ( Month , @ToDay ) + '0000'
    return @ResultCode
END-------------------------------------------------------------------------------
ALTER TABLE dbo.Invoice ADD 
--自动发票编号
    CONSTRAINT DF_Invoice_InvCode DEFAULT (dbo.fu_Invoice_Code()) FOR InvCode
GO