06-10-21, 07:06 PM
كود :
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Try
If tbItem.Text = "" Or tbPrice.Text = "" Then
MsgBox("الرجاء ادخال اسم المنتج والسعر الخاص به")
Return
End If
Dim cmd As OleDbCommand = con.CreateCommand
con.Open()
If frmitems.status = "Add" Then
cmd.CommandText =
"INSERT INTO ItemsInfo (Item,Category, Department, Price) VALUES (@Item,@Category,@Department,@Price)"
cmd.Parameters.AddWithValue("Item", tbItem.Text)
cmd.Parameters.AddWithValue("Category", cbCategory.SelectedItem)
cmd.Parameters.AddWithValue("Department", cbDept.SelectedItem)
cmd.Parameters.AddWithValue("Price", tbPrice.Text)
cmd.ExecuteNonQuery()
con.Close()
frmitems.Load_Data()
MsgBox("تم إضافة بيانات العنصر بنجاح", vbMsgBoxRight + MsgBoxStyle.Information, "جاري الحفظ")
frmitems.Enabled = True
Me.Close()
End If
If frmitems.status = "Edit" Then
cmd.CommandText =
"UPDATE ItemsInfo SET Item= @Item ,Category =@Category , Department=@Department , Price= @Price WHERE ID= " & frmCommands.IDpos
cmd.Parameters.AddWithValue("Item", tbItem.Text)
cmd.Parameters.AddWithValue("Category", cbCategory.Text)
cmd.Parameters.AddWithValue("Department", cbDept.Text)
cmd.Parameters.AddWithValue("Price", tbPrice.Text)
cmd.ExecuteNonQuery()
con.Close()
frmitems.Load_Data()
MsgBox("تم تعديل بيانات العنصر بنجاح", vbMsgBoxRight + MsgBoxStyle.Information, "جاري الحفظ")
frmitems.Enabled = True
Me.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub