生成订单号

最新推荐文章于 2022-04-24 00:05:12 发布

原创最新推荐文章于 2022-04-24 00:05:12 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#产品 #数据库

数据库专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种使用VB.NET根据数据库中的订单记录自动生成订单号的方法。生成过程首先检查是否为保税加工产品来确定订单号前缀，然后从数据库检索相关订单记录并找到当前最大订单号，最后基于此信息生成新的订单号。

'**************************************************************************************
'* 生成订单号，先从数据库中检索订单记录，而后根据已有的信息自动生成订单号

Dim rs As ADODB.Recordset
Dim sn As Double
sn = 0

If kuangjia = 1 Then ' kuangjia=1 说明的该产品是保税加工产品，否则是一般贸易的产品
strk = "BP"
Else
strk = "AP"
End If

Set rs = WorkFlowConnect.Execute("select * from tbdd where left(DDH,2)='" & strk & "'")
If rs.RecordCount > 0 Then
While Not rs.EOF
If CDbl(Right(rs("DDH"), 6)) > sn Then
sn = CDbl(Right(rs("DDH"), 6))
End If
rs.MoveNext
Wend
sn = 1000000 + sn + 1
txtDDH = strk & Right(CStr(sn), 6)
Else
txtDDH = strk & "000001"
End If

End Sub