01.
Imports
System.Data.SqlClient
02.
03.
Public
Class
Manage_RawMaterial_New
04.
Inherits
System.Web.UI.Page
05.
06.
Dim
objConn
As
SqlConnection
07.
Dim
objCmd
As
SqlCommand
08.
Dim
strConnString, strSQL
As
String
09.
10.
Protected
Sub
Page_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
11.
12.
End
Sub
13.
14.
Public
Sub
ConnectDB()
15.
16.
strConnString = ConfigurationManager.ConnectionStrings(
"con"
).ConnectionString
17.
objConn =
New
SqlConnection(strConnString)
18.
19.
End
Sub
20.
21.
Private
Sub
AddAutoID()
22.
Try
23.
Dim
intNum
As
String
=
Nothing
24.
Dim
Count
As
Integer
25.
26.
ConnectDB()
27.
28.
strSQL =
"SELECT ISNULL(MAX(RIGHT(RM_ID,4)),0) AS RM_ID FROM RawMaterial_New"
29.
objCmd =
New
SqlCommand(strSQL, objConn)
30.
31.
objConn.Open()
32.
Count = objCmd.ExecuteScalar()
33.
objConn.Close()
34.
35.
Dim
iMAX
As
Integer
= IIf(Count <= 0, 1, Count + 1)
36.
If
iMAX < 10000
Then
37.
strSQL =
"INSERT INTO RawMaterial_New (RM_ID) VALUES ('"
& iMAX.ToString(
"RM0000"
) &
"')"
38.
objCmd =
New
SqlCommand(strSQL, objConn)
39.
40.
objConn.Open()
41.
objCmd.ExecuteNonQuery()
42.
objConn.Close()
43.
44.
MsgBox(
"บันทึกสำเร็จ"
)
45.
Else
46.
MsgBox(
"ข้อมูลเต็ม"
)
47.
End
If
48.
Catch
ex
As
Exception
49.
Response.Write(
"Error : "
+ ex.Message)
50.
End
Try
51.
52.
End
Sub
53.
54.
Protected
Sub
btnRM_Add_Click(sender
As
Object
, e
As
EventArgs)
Handles
btnRM_Add.Click
55.
56.
AddAutoID()
57.
58.
End
Sub
59.
60.
End
Class