01.Private Sub BTSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTSave.Click
02. Dim sb As StringBuilder
03.
04.
05.
06. If TxtPurID.Text.Trim() = "" Then
07. MessageBox.Show("กรุณากดปุ่มเพิ่มใบสั่งซื้อก่อน!!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
08. Exit Sub
09. End If
10.
11. If MessageBox.Show("คุณต้องการเพิ่มใบสั่งซื้อใช่หรือไม่", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
12. Exit Sub
13. End If
14.
15. Dim sqlSave As String = ""
16.
17. sb = New StringBuilder()
18. sb.Remove(0, sb.Length)
19. sb.Append("INSERT INTO Purchases(PurID,SupplieID,Date,NetTotal)")
20. sb.Append(" VALUES(@PurID,@SupID,@Date,@Tot)")
21. sqlSave = sb.ToString()
22.
23. With cm
24. .Parameters.Clear()
25. .CommandText = sqlSave
26. .Connection = cn
27. cn.Open()
28. .Parameters.AddWithValue("@PurID", TxtPurID.Text)
29. .Parameters.AddWithValue("@SupID", CStr(ComboBox1.SelectedValue))
30. .Parameters.Add("@Date", SqlDbType.DateTime).Value = TxtPurDate.Text
31. .Parameters.Add("@Tot", SqlDbType.Float).Value = CSng(TxtTotal.Text)
32. .ExecuteNonQuery()
33.
34. End With
35.
36.
37. Dim i As Integer = 0
38.
39. For i = 0 To ListView1.Items.Count - 1
40. sb.Remove(0, sb.Length)
41. sb.Append("INSERT INTO PurchaseDetails (PurID,No,Amount,Price,Total)")
42. sb.Append(" VALUES (@PurID,@NO,@Amount,@Price,@Tot)")
43. sqlSave = sb.ToString()
44.
45.
46. With cm
47.
48. .Parameters.Clear()
49. .CommandText = sqlSave
50. .Parameters.AddWithValue("@PurID", TxtPurID.Text)
51. .Parameters.Add("@No", SqlDbType.NVarChar, 50).Value = ListView1.Items(i).SubItems(1).Text
52. .Parameters.AddWithValue("@Amount", CInt(ListView1.Items(i).SubItems(4).Text))
53. .Parameters.AddWithValue("@Price", CSng(ListView1.Items(i).SubItems(3).Text))
54. .Parameters.Add("@Tot", SqlDbType.Float).Value = CSng(ListView1.Items(i).SubItems(5).Text)
55. .ExecuteNonQuery()
56. End With
57.
58. sb.Remove(0, sb.Length())
59. sb.Append("UPDATE Products")
60. sb.Append(" SET UnitInStock = @un")
61. sb.Append(" WHERE (No=@ProID)")
62.
63. Dim sqlUP As String
64. sqlUP = sb.ToString()
65.
66. With cm
67. .Parameters.Clear()
68. .CommandText = sqlUP
69. .Parameters.AddWithValue("@un", CInt(ListView1.Items(i).SubItems(6).Text))
70. .Parameters.AddWithValue("@ProID", ListView1.Items(i).SubItems(1).Text)
71. .ExecuteNonQuery()
72.
73. End With
74.
75. Next
76.
77. MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว")
78. TxtPurID.Clear()
79. TxtPurDate.Clear()
80. TxtProNo.Clear()
81. TxtProName.Clear()
82. TxtPrice.Clear()
83. TxtAmount.Clear()
84. TxtTotal.Clear()
85. ListView1.Items.Clear()
86.
87.
88.
89. cn.Close()
90.
91. End Sub
