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