برنامج إدارة المبيعات - الدرس الثالث:- صفحة الموجودات - الجزء 3 - حذف مادة معينة - البحث عن مادة معينة

في الدرس الثالث من برنامج ادارة المبيعات سنقوم ببرمجة الادوات المتبقية في  صفحة الموجودات وهي كل من:-

• زر الحذف - btnDelete

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

• مربع نص البحث - tbFindItem

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

أولا: زر الحذف - btnDelele 

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

    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        Try

            curRow = dgvItems.CurrentRow.Index

            IDpos = dgvItems.Rows(curRow).Cells("ID").Value.ToString

            Dim itmName As String = dgvItems.Rows(curRow).Cells("ItemName").Value.ToString

            Dim msg As MsgBoxResult = MsgBox("هل تريد حذف بيانات المادة - " & itmName, 

            vbMsgBoxRight + MsgBoxStyle.YesNo, Title:="تنبيه")

            If msg = MsgBoxResult.Yes Then

                Dim cmd As New OleDbCommand("DELETE FROM tblItems WHERE ID =" & IDpos, con)

                con.Open()

                cmd.ExecuteNonQuery()

                con.Close()

                MsgBox("تم حذف المادة بنجاح",vbMsgBoxRight + MsgBoxStyle.Information,"جاري الحذف")

                Load_Query_Items()

                dgvItems.CurrentCell = dgvItems.Rows(curRow - 1).Cells(0)

            End If

        Catch ex As Exception

        End Try

    End Sub

 ملاحظة : يتم استخدام نفس المتغيرات PosID و curRow التي تم تعريفها في الدرس السابق اعلى الفورم لتحديد قيمة ال ID والصف الحالي لاجراء عملية الحذف

Public Class frmItems
 
Dim IDpos As Integer
Dim curRow As Integer

ثانياً:- زر إعادة تحميل الجدول btnReload

عن طريق هذا الزر يتم إعادة تحميل بيانات الجدول من قاعدة البيانات وعرضها داخل الداتاكردفيو dgvItems عن طريق الكود التالي:

Private Sub btnReload_Click(sender As Object, e As EventArgs) Handles btnReload.Click
        Load_Query_Items()
End Sub

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

عن طريق هذا المربع نص نستطيع البحث عن اي اسم مادة مخزنة داخل قاعدة البيانات وبطريقة مباشرة. اي ان البحث يكون اثناء الكتابة، حيث يتم وضع الكود داخل حدث TextChanged لمربع النص الخاص بالبحث وكما موضح بالكود التالي:

Private Sub tbFindItem_TextChanged(sender As Object, e As EventArgs) Handles tbFindItem.TextChanged

        Try
            Dim da As New OleDbDataAdapter("SELECT * FROM QueryItemsProfit
                   where ItemName like '%" & tbFindItem.Text & "%'"", con)

            Dim dt As New DataTable
 
            dt.Clear()

            da.Fill(dt)

            dgvItems.DataSource = dt

        Catch ex As Exception
 
        End Try

    End Sub

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

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