01.Public Class AddChemForm
02.
03. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
04. Me.Close()
05. End Sub
06.
07. Private Sub AddChemForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
08. Call GetData()
09. End Sub
10. Sub GetData()
11. strSql = "Select Chemical.ChemId AS รหัสสารเคมี, Chemical.ChemName AS ชื่อสารเคมี, " & _
12. "Chemical.ChemUnit AS หน่วยนับ, Chemical.Chemtotal AS จำนวนคงคลัง From Chemical"
13.
14. DA.SelectCommand.CommandText = strSql
15. DA.Fill(DS, "Getchem")
16. DS.Tables("Getchem").Clear()
17. DA.Fill(DS, "Getchem")
18.
19. DataGridView1.DataSource = DS.Tables("Getchem")
20. DataGridView1.ReadOnly = True
21. End Sub
22.
23. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
24. strSql = "Insert Into Chemical (ChemId, ChemName, ChemUnit, Chemtotal) Values ('" & _
25. TextBox1.Text & "','" & TextBox2.Text & "','" & _
26. TextBox3.Text & "','" & NumericUpDown1.Text & "')"
27. Try
28. With Comm
29. .CommandText = strSql
30. .CommandType = CommandType.Text
31. .Connection = Conn
32. .ExecuteNonQuery()
33. End With
34.
35. Call GetData()
36. MessageBox.Show("เพิ่มข้อมูลสำเร็จ", "สำเร็จ", MessageBoxButtons.OK, MessageBoxIcon.Information)
37. Catch ex As Exception
38. MessageBox.Show("มีสารเคมีชนิดนี้อยู่แล้วในฐานข้อมูล", "พบข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
39. End Try
40. End Sub
41.
42. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
43. strSql = "Update Chemical set ChemId = '" & TextBox1.Text & "', ChemName = '" & _
44. TextBox2.Text & "', ChemUnit = '" & TextBox3.Text & ", Chemtotal = '" & _
45. NumericUpDown1.Text & "'"
46.
47. Try
48. With Comm
49. .CommandText = strSql
50. .CommandType = CommandType.Text
51. .Connection = Conn
52. .ExecuteNonQuery()
53. End With
54.
55.
56. MessageBox.Show("แก้ไขข้อมูลเสร็จสิ้น", "สำเร็จ", MessageBoxButtons.OK, MessageBoxIcon.Information)
57. Catch ex As Exception
58. MessageBox.Show("การแก้ไขข้อมูลผิดพลาด", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
59. End Try
60. Call GetData()
61. End Sub
62.
63. Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
64. TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value
65. TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
66. TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
67. NumericUpDown1.Text = DataGridView1.Rows(e.RowIndex).Cells(3).Value
68. Button1.Enabled = False
69. End Sub
70.
71. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
72. strSql = "Delete * From Chemical where ChemId = '" & TextBox1.Text & "'"
73.
74. Try
75. With Comm
76. .CommandText = strSql
77. .CommandType = CommandType.Text
78. .Connection = Conn
79. .ExecuteNonQuery()
80. End With
81.
82.
83. MessageBox.Show("ลบข้อมูลเสร็จสิ้น", "สำเร็จ", MessageBoxButtons.OK, MessageBoxIcon.Information)
84. Catch ex As Exception
85. MessageBox.Show("การลบข้อมูลผิดพลาด", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
86. End Try
87. Call GetData()
88. End Sub
89.
90. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
91. TextBox1.Text = ""
92. TextBox2.Text = ""
93. TextBox3.Text = ""
94. NumericUpDown1.Text = ""
95. Button1.Enabled = True
96. End Sub
97.
98.End Class
