数据库自动生成自定义订单号

SQL  Server数据库自动生成自定义订单号

/*以下代码生成的编号长度为14，前6位为日期信息，格式为YYYYMMDD，后6位为流水号。创建得到当前日期的视图，因为在用户定义函数不能使用不确定函数，而getdate就是不确定函数，必须建立一个视图才能获得getdate的值。*/   
CREATE VIEW dbo.v_GetDate   
AS  
SELECT CONVERT(CHAR(8), GETDATE(), 112) AS dt   
  
//创建SQL Server数据库中的自定义函数   
CREATE FUNCTION f_NextBH()   
RETURNS char(14)   
AS  
BEGIN  
        DECLARE @dt CHAR(8)   
        SELECT @dt=dt FROM v_GetDate   
        RETURN(   
                SELECT @dt+RIGHT(1000001+ISNULL(RIGHT(MAX(BH),6),0),6)    
                FROM test_orderid  WITH(XLOCK,PAGLOCK)   
                WHERE BH like @dt+'%')   
END  
  
//测试表中应用自定义函数   
CREATE TABLE tb(   
BH char(14) PRIMARY KEY DEFAULT dbo.f_NextBH(),   
col int)  

 

 

access数据库自动生成自定义订单号(access中的模块自定义函数)

'生成订单序号---格式20090630000001(年月日+6位的流水号)   
Function nextBH()   
    Dim strResult, temp   
    strResult = ""  
    temp = "000001"  
    Dim thedb As Database   
    Set thedb = DBEngine.Workspaces(0).Databases(0)   
    SQL1 = "select count(BH) AS bhCount from testOrderId  WHERE BH like '" & Format(Date, "yyyymmdd") & "*'"  
    SQL2 = "select MAX(BH) AS MaxBH from testOrderId  WHERE BH like '" & Format(Date, "yyyymmdd") & "*'"  
    Set rs1 = thedb.OpenRecordset(SQL1)   
    If Not rs1.EOF Then                     '先查找当天是否有流水号   
        If rs1.Fields("bhCount") > 0 Then   
            Set rs2 = thedb.OpenRecordset(SQL2)   
            If Not rs2.EOF Then             '从数据库中得到当天的流水号的最大值   
                strResult = Format(Date, "yyyymmdd") & Right((CLng("1000001") + Right(temp, 6)), 6)  '流水号加1后从右截取6位字符串   
            End If   
        Else   
        strResult = Format(Date, "yyyymmdd") & "000001"  
        End If   
    End If   
    nextBH = strResult   
End Function

 

 

使用方法：

 

INSERT INTO testOrderId ( BH, description ) VALUES (nextBH(), '1118');