منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - الدرس السابع عشر

كاتب الموضوع : أحمد جمال

بسم الله الرحمن الرحيم .
السلام عليكم ورحمة الله وبركاته .

مسح .

والآن سنتابع دروسنا ، وسنتعامل مع القائمة الفرعية ( مسح ) والتي تحتوي على ما يلي :

* جميع البضائع .
* جميع الأنواع .
* جميع الموردين .
* جميع عمليات البيع .
* جميع عمليات الشراء .

وسنقوم بعمل ذلك عبر اجراء مشترك .

وقبل بدء كل عملية لابد من اظهار رسالتي تحذير لهذه العملية - على الأقل - حيث أنها تمسح كماً كبيراً من البيانات .
والرسالتان موحدة لجميع العمليات ، وستكون بالشكل التالي :

كود :

Dim sure

sure = MsgBox("هل تريد بالتأكيد اتمام عملية الحذف هذه ؟", vbYesNo + vbExclamation + arabic, "تأكيد عملية الحذف")

If sure = vbNo Then Exit Sub

sure = MsgBox("إذا قمت بالمتابعة فلن يمكنك التراجع ، هل ما زلت تريد الاستمرار ؟", vbExclamation + vbYesNo + arabic, "تأكيد عملية الحذف")

If sure = vbNo Then Exit Sub

ومن ثم سنبدأ في التفريعات المختلفة حسب قيمة خاصية Index ، ومع كل قيمة سوف نستدعي اجراءً واحداً فقط ، لكننا نغير قيمة الرسالة التي تظهر به ، ونغير الجدول الذي تتم حذف عملياته ، لاحظ الأمر التالي :

كود :

Sub DEL(ByRef Table As Recordset, ByVal msg As String)

هذا يعني أننا في الاجراء سوف نستقبل Table من نوع RecordSet ( يمكن أن يكون T1 أو T2 ... ) اضافة إلى msg وهو نص رسالة التحذير التي ستظهر .
ومعنى ByRef أن التغيير الذي سيحدث في Table خلال الاجراء سوف يتم تطبيقه على الجدول الذي أرسلنها ، أما ByVal فمعنى ذلك أن التغيير لن ينعكس على الأصل .

وسيكون هذا الاجراء بالشكل التالي :

كود :

Sub DEL(ByRef Table As Recordset, ByVal msg As String)

If Table.RecordCount = 0 Then

MsgBox "لا توجد أي بيانات لحذفها", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Dim sure

sure = MsgBox(msg, vbYesNo + vbExclamation + arabic, "تأكيد عملية الحذف")

If sure = vbNo Then Exit Sub

Table.MoveFirst

For i = 0 To Table.RecordCount - 1

Table.Delete

Table.MoveNext

Next i

MsgBox "تمت عملية الحذف بنجاح", vbInformation + arabic, "اتمام عملية الحذف"

End Sub

أما الجزء الثاني وهو حذف المبيعات والمشتريات ، فعلى نفس الطريقة يمكننا عمل اجراء واحد لهم ، ولكنه يختلف في قيمة 0 أو 1 والتي ترمز للبيع أو للشراء . لاحظ الكود التالي :

كود :

Sub DEL2(ByVal knd As Byte)

If T5.RecordCount = 0 Then

MsgBox "لا توجد أي بيانات لحذفها", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

T5.MoveFirst

For i = 0 To T5.RecordCount - 1

If T5!kind = knd Then T5.Delete

T5.MoveNext

Next i

MsgBox "تمت عملية الحذف بنجاح", vbInformation + arabic, "اتمام عملية الحذف"

End Sub

من أجل ذا يكون الاستدعاء حسب الجدول بالشكل التالي :

كود :

Select Case Index

Case 0

DEL T1, "إن حذف البضائع يقتضي حذف جميع عمليات البيع والشراء ، هل تريد الاستمرار ؟"

Case 1

DEL T2, "إن حذف الأنواع يقتضي حذف جميع البضائع ، هل تريد الاستمرار ؟"

Case 2

DEL T3, "إن حذف الموردين يقتضي حذف جميع البضائع ، هل تريد الاستمرار ؟"

Case 4

DEL2 0

Case 5

DEL2 1

End Select

*** ملاحظة هامة : لو عدت إلى البرنامج لوجدت الكثير من الدوال التي يمكن اختصارها بهذه الطريقة ، وبعمل

Array لأدوات عرض للجداول ، وغيرها .

الملف مرفق .

والله الموفق ...
والسلام عليكم ورحمة الله وبركاته .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech