主题：[原创] 共享自用的流水号涵数

以下内容为程序代码:

1 Dim 今天 As Date = Date.Today
2 Dim 今天编码 As String=今天.Year & 今天.Month & 今天.Day
3 '操作数据库
4 Dim cmd1 As New SQLCommand '查询操作
5 Dim cmd2 As New SQLCommand '添加或更新操作
6 Dim 编码 As String = Args(0)
7 Dim 分类 As String = Args(1)
8 Dim 计数 As Integer
9 cmd1.ConnectionName=Vars("数据源名称")
10 cmd2.ConnectionName=Vars("数据源名称")
11 cmd1.CommandText= "Select IsNull(Max([计数]),-1) From [SerialNumber] Where [编码] = '" & 编码 & "' And [分类] = '" & 分类 & "'And [日期] = '" & 今天 &"'"
12 If cmd1.ExecuteScalar ＞ -1 Then '当找不到当前数据时添加一条记录
13 cmd2.CommandText="Update [SerialNumber] Set [计数] = [计数] + 1 Where [编码] = '" & 编码 & "' And [分类] = '" & 分类 & "'And [日期] = '" & 今天 &"'"
14 cmd2.ExecuteNonQuery
15 计数 = cmd1.ExecuteScalar
16 Else
17 cmd2.CommandText="Insert Into [SerialNumber] ([编码],[日期],[计数],[分类],[_SortKey]) Values ('" & 编码 & "','" & 今天 & "',1,'" & 分类 & "',(Select IsNull(Max(_SortKey),0)+1 From [SerialNumber]) )"
18 cmd2.ExecuteNonQuery
19 计数 = 1
20 End If
21 Dim 序号 As String = 计数
22 Return 编码 & 今天编码 & 序号.PadLeft(4,"0")
23