以下内容为程序代码:

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