[aljzazy]

باختصار ساقوم بطرح بعض الاكواد كامثلة فقط
مثلا هذا الكود سيقوم بحفظ بيانات الفاتورة الاساسية
وارجو ان لا تتقيد بالمسميات بالمثال لاني طرحتها
من امثلة الدورة التي اقوم بعملها على اليوتيوب

كود :

Public Sub Insert_Sale_Tbl(ByVal Sale_ID As Int32, ByVal Sale_Date As Date, ByVal Inv_Type As String, ByVal SalesMan As String, ByVal Cus_ID As Int32, ByVal Item_Count As Int32, ByVal Total As Double, ByVal Tax_Per As Double, ByVal TaxTotal As Double, ByVal Discount_Per As Double, ByVal DiscountTotal As Double, ByVal FinalTotal As Double, ByVal Paid As Double, ByVal UnPaid As Double)
       Dim Cmd As New SqlCommand
       With Cmd
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Insert Into Sale_Tbl ( Sale_ID,Sale_Date,Inv_Type,SalesMan,Cus_ID,Item_Count,Total,Tax_Per,TaxTotal,Discount_Per,DiscountTotal,FinalTotal,Paid,UnPaid)values(@Sale_ID,@Sale_Date,@Inv_Type,@SalesMan,@Cus_ID,@Item_Count,@Total,@Tax_Per,@TaxTotal,@Discount_Per,@DiscountTotal,@FinalTotal,@Paid,@UnPaid)"
           .Parameters.Clear()
           .Parameters.AddWithValue("@Sale_ID", SqlDbType.Int).Value = Sale_ID
           .Parameters.AddWithValue("@Sale_Date", SqlDbType.Date).Value = Sale_Date
           .Parameters.AddWithValue("@Inv_Type", SqlDbType.VarChar).Value = Inv_Type
           .Parameters.AddWithValue("@SalesMan", SqlDbType.VarChar).Value = SalesMan
           .Parameters.AddWithValue("@Cus_ID", SqlDbType.Int).Value = Cus_ID
           .Parameters.AddWithValue("@Item_Count", SqlDbType.Int).Value = Item_Count
           .Parameters.AddWithValue("@Total", SqlDbType.Decimal).Value = Total
           .Parameters.AddWithValue("@Tax_Per", SqlDbType.Decimal).Value = Tax_Per
           .Parameters.AddWithValue("@TaxTotal", SqlDbType.Decimal).Value = TaxTotal
           .Parameters.AddWithValue("@Discount_Per", SqlDbType.Decimal).Value = Discount_Per
           .Parameters.AddWithValue("@DiscountTotal", SqlDbType.Decimal).Value = DiscountTotal
           .Parameters.AddWithValue("@FinalTotal", SqlDbType.Decimal).Value = FinalTotal
           .Parameters.AddWithValue("@Paid", SqlDbType.Decimal).Value = Paid
           .Parameters.AddWithValue("@UnPaid", SqlDbType.Decimal).Value = UnPaid
       End With
       If Con.State = 1 Then Con.Close()
       Con.Open()
       Cmd.ExecuteNonQuery()
       Con.Close()
       'MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
       Cmd = Nothing
   End Sub

وهذا مثال على حفظ تفاصيل الفاتورة

كود :

Public Sub Insert_Sale_Details_Tbl()
       For i As Integer = 0 To dgvSale.Rows.Count - 1
           Dim Cmd As New SqlCommand
           With Cmd
               .Connection = Con
               .CommandType = CommandType.Text
               .CommandText = "Insert Into Sale_Details_Tbl ( Sale_ID,Prd_ID,SalePrice,Qty,TotalAmount)values(@Sale_ID,@Prd_ID,@SalePrice,@Qty,@TotalAmount)"
               .Parameters.Clear()
               .Parameters.AddWithValue("@Sale_ID", SqlDbType.Int).Value = Sale_ID.Text
               .Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = dgvSale.Rows(i).Cells(0).Value
               .Parameters.AddWithValue("@SalePrice", SqlDbType.Decimal).Value = dgvSale.Rows(i).Cells(4).Value
               .Parameters.AddWithValue("@Qty", SqlDbType.Int).Value = dgvSale.Rows(i).Cells(5).Value
               .Parameters.AddWithValue("@TotalAmount", SqlDbType.Decimal).Value = dgvSale.Rows(i).Cells(6).Value
           End With
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Cmd.ExecuteNonQuery()
           Con.Close()

           Cmd = Nothing

       Next
       MsgBox("تم إضافة فاتورة المبيعات بنجاح ", MsgBoxStyle.Information, "حفظ")
   End Sub

طبعا" في الزر الخاص بالحفظ اقوم باستدعاء الامرين معا

كود :

Private Sub BtnSave_Click(sender As System.Object, e As System.EventArgs) Handles BtnSave.Click
       Insert_Sale_Tbl(Sale_ID.Text, Sale_Date.Value, Inv_Type.Text, SalesMan.Text, Cus_ID.Text, Item_Count.Text, Total.Text, TaxValue.Text, TaxTotal.Text, DiscountValue.Text, DiscountTotal.Text, FinalTotal.Text, Paid.Text, UnPaid.Text)
       Insert_Sale_Details_Tbl()

   End Sub

وهذه صورة عن الجداول بقاعدة البيانات

جدول البيانات الاساسية


جدول تفاصيل الفاتورة

---

وهذا رابط للدورة يمكنك الاستفادة من الدروس