01.
Public
Function
order_id()
As
String
02.
Dim
SqlCon
As
New
SqlConnection(con)
03.
Dim
sb
As
New
StringBuilder
04.
Dim
intNum
As
String
=
""
05.
Dim
id
As
String
=
""
06.
Dim
ids
As
String
=
""
07.
sb.Append(
"SELECT MAX(orderID) AS orderID FROM OrderTest"
)
08.
intNum = sb.ToString
09.
Dim
da
As
New
SqlDataAdapter(intNum, SqlCon)
10.
Dim
ds
As
New
DataSet
11.
da.Fill(ds,
"OrderTest"
)
12.
SqlCon.Open()
13.
If
IsDBNull(ds.Tables(
"OrderTest"
).Rows(0)(
"orderID"
))
Then
14.
id =
"OR"
&
CStr
(Now.Year + 543).Substring(2) &
"00001"
15.
Else
16.
ids =
"OR"
& (
CInt
(ds.Tables(
"OrderTest"
).Rows(0)(
"orderID"
).Substring(4)))
17.
ids = ids + 1
18.
19.
Dim
CountID
As
Integer
= Len(ids)
20.
If
CountID = 5
Then
21.
id =
"OR"
&
CStr
(Now.Year + 543).Substring(2) & ids
22.
ElseIf
CountID = 4
Then
23.
id =
"OR"
&
CStr
(Now.Year + 543).Substring(2) &
"0"
& ids
24.
ElseIf
CountID = 3
Then
25.
id =
"OR"
&
CStr
(Now.Year + 543).Substring(2) &
"00"
& ids
26.
ElseIf
CountID = 2
Then
27.
id =
"OR"
&
CStr
(Now.Year + 543).Substring(2) &
"000"
& ids
28.
ElseIf
CountID = 1
Then
29.
id =
"OR"
&
CStr
(Now.Year + 543).Substring(2) &
"0000"
& ids
30.
End
If
31.
End
If
32.
SqlCon.Close()
33.
Return
id
34.
35.
End
Function