[mostafa nada]

(25-11-18, 03:26 AM)Rabeea Qbaha كتب : هل يمكنك وضع كود الاضافة هنا لاشرح لك

---

كود :

Public Sub insert_Sales(ByVal CustomerID As Integer, ByVal Discound As Double, ByVal ItemID As Integer, ByVal ItemPrice As Double, ByVal ItemTotal As Double, ByVal Qyt As Double, ByVal SaleBillNo As Integer, ByVal SaleDate As Date, ByVal UserID As Integer)
       Dim cmd As New OleDbCommand("insert into Sales( CustomerID,Discound,ItemID,ItemPrice,ItemTotal,Qyt,SaleBillNo,SaleDate,SaleNo,UserID) values (@CustomerID,@Discound,@ItemID,@ItemPrice,@ItemTotal,@Qyt,@SaleBillNo,@SaleDate,@SaleNo,@UserID)", con)

       cmd.Parameters.Add("SaleNo", OleDbType.Integer).Value = Max_SaleNo_From_Sales() + 1
       cmd.Parameters.Add("CustomerID", OleDbType.Integer).Value = CustomerID
       cmd.Parameters.Add("Discound", OleDbType.Double).Value = Discound
       cmd.Parameters.Add("ItemID", OleDbType.Integer).Value = ItemID
       cmd.Parameters.Add("ItemPrice", OleDbType.Double).Value = ItemPrice
       cmd.Parameters.Add("ItemTotal", OleDbType.Double).Value = ItemTotal
       cmd.Parameters.Add("Qyt", OleDbType.Double).Value = Qyt
       cmd.Parameters.Add("SaleBillNo", OleDbType.Integer).Value = SaleBillNo
       cmd.Parameters.Add("SaleDate", OleDbType.Date).Value = SaleDate
       cmd.Parameters.Add("UserID", OleDbType.Integer).Value = UserID
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
       cmd = Nothing
   End Sub