001.Private Sub bttSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttSave.Click
002.
003. If Me.txtName.Text = "" Then
004. MessageBox.Show("กรุณากรอกชื่อน้ำยา")
005. Me.txtName.Focus()
006. Exit Sub
007. End If
008.
009.
010. Dim a As String
011. If flagAction = "add" Then
012. a = "Insert into product( productID, productName,Item,heavy,price)"
013. a &= " Values(@productId,@productname,@Item,@Heavy,@Price)"
014. ElseIf flagAction = "edit" Then
015. a = "update product set productname ='" & Trim(txtName.Text) & "',item='" & Trim(R1.Checked Or R2.Checked Or R3.Checked Or R4.Checked Or R5.Checked) & "',Heavy='" & Trim(R6.Checked Or R7.Checked Or R8.Checked Or R9.Checked Or R10.Checked Or R11.Checked) & "',price='" & Trim(Txtprice.Text) & "'where productid= '" & Trim(txtId.Text) & "'"
016. End If
017.
018.
019. With cn
020. If .State = ConnectionState.Open Then .Close()
021. .ConnectionString = conStr
022. .Open()
023. End With
024.
025. Dim cm As New SqlCommand
026. With cm
027. .CommandType = CommandType.Text
028. .CommandText = a
029. .Connection = cn
030. .Parameters.Clear()
031. If flagAction = "add" Then
032. .Parameters.Add("@productID", SqlDbType.NVarChar, 10).Value = Me.txtId.Text
033. .Parameters.Add("@productname", SqlDbType.NVarChar, 100).Value = Me.txtName.Text
034. If R1.Checked = True Then
035. .Parameters.Add("@Item", SqlDbType.NVarChar, 100).Value = "เงิน"
036. ElseIf R2.Checked = True Then
037. .Parameters.Add("@Item", SqlDbType.NVarChar, 100).Value = "โรเดียม"
038. ElseIf R3.Checked = True Then
039. .Parameters.Add("@Item", SqlDbType.NVarChar, 100).Value = "นิกเกิล"
040. ElseIf R4.Checked = True Then
041. .Parameters.Add("@item", SqlDbType.NVarChar, 100).Value = "ทองคำ"
042. ElseIf R5.Checked = True Then
043. .Parameters.Add("@item", SqlDbType.NVarChar, 100).Value = "ทองคำขาว"
044. End If
045.
046. If R6.Checked = True Then
047. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "1"
048. ElseIf R7.Checked = True Then
049. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "2"
050. ElseIf R8.Checked = True Then
051. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "3"
052. ElseIf R9.Checked = True Then
053. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "4"
054. ElseIf R10.Checked = True Then
055. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "5"
056. ElseIf R11.Checked = True Then
057. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "10"
058. End If
059. .Parameters.Add("@price", SqlDbType.Float).Value = Me.Txtprice.Text
060.
061.
062.
063. ElseIf flagAction = "edit" Then
064. .Parameters.Add("@productID", SqlDbType.NVarChar, 10).Value = Me.txtId.Text
065. .Parameters.Add("@productname", SqlDbType.NVarChar, 100).Value = Me.txtName.Text
066. If R1.Checked = True Then
067. .Parameters.Add("@item", SqlDbType.NVarChar, 100).Value = "เงิน"
068. ElseIf R2.Checked = True Then
069. .Parameters.Add("@item", SqlDbType.NVarChar, 100).Value = "โรเดียม"
070. ElseIf R3.Checked = True Then
071. .Parameters.Add("@item", SqlDbType.NVarChar, 100).Value = "นิกเกิล"
072. ElseIf R4.Checked = True Then
073. .Parameters.Add("@item", SqlDbType.NVarChar, 100).Value = "ทองคำ"
074. ElseIf R5.Checked = True Then
075. .Parameters.Add("@item", SqlDbType.NVarChar, 100).Value = "ทองคำขาว"
076. End If
077.
078. If R6.Checked = True Then
079. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "1"
080. ElseIf R7.Checked = True Then
081. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "2"
082. ElseIf R8.Checked = True Then
083. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "3"
084. ElseIf R9.Checked = True Then
085. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "4"
086. ElseIf R10.Checked = True Then
087. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "5"
088. ElseIf R11.Checked = True Then
089. .Parameters.Add("@heavy", SqlDbType.NVarChar, 10).Value = "10"
090. End If
091.
092. .Parameters.Add("@price", SqlDbType.Float).Value = Me.Txtprice.Text
093. End If
094. .ExecuteNonQuery()
095.
096. End With
097. MessageBox.Show("บันทึกเรียบร้อยแล้ว")
098. ShowData()
099. DataGridView1.Enabled = False
100. Clear()
101. bttAdd.Enabled = True
102. bttEdit.Enabled = True
103. bttClear.Enabled = True
104. End Sub
