برنامج إدارة المبيعات: الدرس الرابع : صفحة البيع النقدي - الجزء 1: عرض الموجودات داخل فورم البيع النقدي

في الدرس الرابع من برنامج ادارة المبيعات سننتقل الى فورم جديد وهو فورم البيع النقدي frmCashSales الموضح بهذه الصورة 

والذي من خلاله سنتقوم بأجراء عمليات البيع النقدي وطباعة فواتير البيع و خزنها داخل قاعدة البيانات.

الأدوات المستخدمة في هذا الدرس 

• داتاكردفيو المواد - dgvItems

• مربع نص سعر البيع - tbSellingPrice

• مربع نص اسم المنتج- tbItemName

• مربع نص العدد - tbNo

• زر زيادة عدد وحدات المادة- btnIncreaseNo

• زر تقليل عدد وحدات المادة- btnDecreaseNo

أولا: داتاكردفيو المواد - dgvItems

عن طريق هذه الاداة نقوم بعرض المواد المخزنة في قاعدة البيانات لغرض بيها وذلك عن طريق كتابة كود عرض المواد داخل حدث تحميل الفورم frmCashSale_Load عن طريق الكود التالي:-

    Private Sub frmCashSale_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim da As New OleDbDataAdapter("Select ItemName, SellingPrice From QueryItemsProfit order by ID", con)

        Dim dt As New DataTable

        dt.Clear()

        da.Fill(dt)

        dgvItems.DataSource = dt

        With dgvItems

            .Columns("ItemName").HeaderText = "اسم المادة"

            .Columns("ItemName").Width = 300

            .Columns("ItemName").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

            .Columns("SellingPrice").HeaderText = "سعر البيع "

            .Columns("SellingPrice").Width = 100

            .Columns("SellingPrice").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

            .Columns("SellingPrice").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        End With

    End Sub

ثانياً: مربع نص اسم المنتج - tbItemName , مربع نص سعر البيع - tbSellingPrice

عند النقر مرتين على اي مادة موجودة داخل داتاكردفيو dgvItems  يتم عرض اسم المنتج وسعر البيع داخل مربع نص اسم المنتج - tbItemName و مربع نص سعر البيع - tbSellingPrice عن طريق كتابة الكود داخل حدث dgvItems_CellDoubleClick والذي يمكن الوصول اليه عن طريق اختيار الداتاكردفيو - dgvItems ثم الذهاب الى Events والبحث عن حدث CellDoubleClick ثم النقر عليه مرتين، وكما موضح بالكود التالي:-

Private Sub dgvItems_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvItems.CellDoubleClick

       Try

           Dim curRow = dgvItems.CurrentRow.Index

           tbItemName.Text = dgvItems.Rows(curRow).Cells("ItemName").Value.ToString

           tbSellingPrice.Text = dgvItems.Rows(curRow).Cells("SellingPrice").Value.ToString

       Catch ex As Exception

           MsgBox(ex.Message)

       End Try  

End Sub

ثالثاً: مربع نص - tbNo

يتم كتابة  او تحديد عدد الوحدات للمادة الواحدة المراد بيعها داخل مربع نص - tbNo.

رابعاً: زر زيادة عدد وحدات المادة - btnIncreaseNo

  عند كل نقره على زر زيادة عدد وحدات المادة - btnIncreaseNo  يتم زيادة عدد وحدات المادة المباعة بمقدار واحد عن كل نقره على هذا الزر، ويتم ذلك عن طريق كتابة الكود داخل حدث btnIncreaseNo_Click بالنقر مرتين على الزر وكما موضح بالكود التالي:- 

Private Sub btnIncreaseNo_Click(sender As Object,e As EventArgs)Handles btnIncreaseNo.Click

        Dim CurNo As Integer = CInt(tbNo.Text)

        Dim PlusOne As Integer = CurNo + 1

        tbNo.Text = CStr(PlusOne)

End Sub

خامساً: زر تقليل عدد وحدات المادة - btnDecreaseNo

 عند كل نقره على زر تقليل عدد وحدات المادة - btnDecreaseNo  يتم تقليل عدد وحدات المادة المباعة بمقدار واحد عن كل نقره تتم على هذا الزر ،  ويتم ذلك عن طريق كتابة الكود داخل حدث btnDecreaseNo_Click بالنقر مرتين على الزر، ويجب استخدام جملة IF  لمنع العدد من الوصول للرقم صفر. وكما موضح بالكود التالي:- 

Private Sub btnDecreaseNo_Click(sender As Object,e As EventArgs)Handles btnDecreaseNo.Click

        If tbNo.Text <> 1 Then

            Dim CurNo As Integer = CInt(tbNo.Text)

            Dim MinusOne As Integer = CurNo - 1

            tbNo.Text = CStr(MinusOne)

        End If 

End Sub

لتحميل الأكواد المستخدمة في الدرس إضغط هنا

يمكنكم متابعة الدرس عن طريق اليوتيوب