كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TxTMaterialBarCode.Text = "" Then
MsgBox("إدخل رقم البار كود")
Exit Sub
End If
If TxTMaterialName.Text = "" Then
MsgBox("إدخل اسم المادة")
Exit Sub
End If
If TxTQuantityAvailable.Text = "" Then
MsgBox("إدخل الكمية المتوفرة لديك من المادة")
Exit Sub
End If
If TxTWholesalePrice.Text = "" Or TxTSellingPrice.Text = "" Then
MsgBox("إدخل سعر البيع او سعر الجملة")
Exit Sub
End If
Try
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = Conn
cmd.CommandType = CommandType.Text
cmd.CommandText = "INSERT INTO Materials (MaterialBarCode, SANF, MaterialName, WAHDA, QuantityAvailable, WholesalePrice, SellingPrice, DataMa, Rabh, Ml, MORD, DownPrice) VALUES (@MaterialBarCode, @SANF, @MaterialName ,@WAHDA, @QuantityAvailable, @WholesalePrice, @SellingPrice, @DataMa, @Rabh, @Ml, @MORD, @DownPrice)"
cmd.Parameters.AddWithValue("@MaterialBarCode", TxTMaterialBarCode.Text.Trim)
cmd.Parameters.AddWithValue("@SANF", CSNF.Text.Trim)
cmd.Parameters.AddWithValue("@MaterialName", TxTMaterialName.Text.Trim)
cmd.Parameters.AddWithValue("@WAHDA", CWH.Text.Trim)
cmd.Parameters.AddWithValue("@QuantityAvailable", TxTQuantityAvailable.Text.Trim)
cmd.Parameters.AddWithValue("@WholesalePrice", TxTWholesalePrice.Text.Trim)
cmd.Parameters.AddWithValue("@SellingPrice", TxTSellingPrice.Text.Trim)
cmd.Parameters.AddWithValue("@DataMa", DataM.Text.Trim)
cmd.Parameters.AddWithValue("@Rabh", Rabh.Text.Trim)
cmd.Parameters.AddWithValue("@Ml", Note.Text.Trim)
cmd.Parameters.AddWithValue("@MORD", Mwrd.Text.Trim)
cmd.Parameters.AddWithValue("@DownPrice", TextBox1.Text.Trim)
cmd.ExecuteScalar()
Conn.Close()
TxTMaterialBarCode.Text = ""
TxTMaterialName.Text = ""
TxTQuantityAvailable.Text = ""
TxTWholesalePrice.Text = ""
TxTSellingPrice.Text = ""
CSNF.Text = ""
Note.Text = ""
CWH.Text = ""
Mwrd.Text = ""
TextBox1.Text = ""
TxTMaterialBarCode.Focus()
MsgBox("تم إضافة المادة بنجاح")
Materials.LoadMaterials()
Catch ex As Exception
MsgBox(ex.Message)
MsgBox("خطأ في الإدخال، قد تكون المادة مكررة او ان القاعدة محمية", ex.Message)
Exit Sub
End Try
End Sub
