01.Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
02. conn.Open()
03. If lsvsale.Items.Count = 0 Then
04. MessageBox.Show("ไม่ปรากฏรายการขายใด ๆ ให้บันทึกลงฐานข้อมูล", "การแจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
05. btnsave.Enabled = False
06. Exit Sub
07. End If
08. If lsvsale.Items.Count <> 0 Then
09. If MessageBox.Show("คุณต้องการบันทึกรายการขาย ใช่หรือไม่ ?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
10. Dim i As Integer = 0
11. Dim tmpstock As Integer = 0
12. For i = 0 To lsvsale.Items.Count - 1
13.
14. Dim sqlSale As String = "INSERT INTO tbdetailsales(salesid,proid,saledate,qtysales,totalprice) values('" & txtsaleid.Text & "','" & CStr(lsvsale.Items(i).SubItems(0).Text) & "','" & dtsales.Value & "','" & CSng(lsvsale.Items(i).SubItems(3).Text) & "','" & CSng(lsvsale.Items(i).SubItems(4).Text) & "')" 'ต้องตรงกับฐานข้อมูลทุกอย่าง
15. Dim command As OleDbCommand = New OleDbCommand(sqlSale, conn)
16.
17. With command
18. .CommandType = CommandType.Text
19. .CommandText = sqlSale
20. .ExecuteNonQuery()
21. End With
22.
23.
24. sqlSale = "SELECT proid,qty FROM tbproduct WHERE (proid='" & lsvsale.Items(i).SubItems(0).Text & "')"
25. da = New OleDbDataAdapter(sqlSale, conn)
26. da.Fill(ds, "tbproduct")
27. tmpstock = CInt(ds.Tables("tbproduct").Rows(0).Item("qty"))
28. ds.Tables("tbproduct").Clear()
29.
30. sqlSale = "UPDATE tbproduct SET qty='" & tmpstock - CInt(lsvsale.Items(i).SubItems(3).Text) & "' WHERE (proid='" & lsvsale.Items(i).SubItems(0).Text & "')"
31.
32. With command
33. .CommandType = CommandType.Text
34. .CommandText = sqlSale
35. .ExecuteNonQuery()
36. End With
37. Next
38.
39. MessageBox.Show("บันทึกรายการขาย เรียบร้อยแล้ว !", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
40.
41. clear()
42. lsvsale.Items.Clear()
43. End If
44. End If
45. conn.Close()
46. End Sub
