15-10-12, 08:15 AM
كاتب الموضوع : أحمد جمال
بسم الله الرحمن الرحيم .
السلام عليكم ورحمة الله وبركاته .
السلام عليكم ورحمة الله وبركاته .
مسح .
والآن سنتابع دروسنا ، وسنتعامل مع القائمة الفرعية ( مسح ) والتي تحتوي على ما يلي :
* جميع البضائع .
* جميع الأنواع .
* جميع الموردين .
* جميع عمليات البيع .
* جميع عمليات الشراء .
* جميع الأنواع .
* جميع الموردين .
* جميع عمليات البيع .
* جميع عمليات الشراء .
وسنقوم بعمل ذلك عبر اجراء مشترك .
وقبل بدء كل عملية لابد من اظهار رسالتي تحذير لهذه العملية - على الأقل - حيث أنها تمسح كماً كبيراً من البيانات .
والرسالتان موحدة لجميع العمليات ، وستكون بالشكل التالي :
ومن ثم سنبدأ في التفريعات المختلفة حسب قيمة خاصية Index ، ومع كل قيمة سوف نستدعي اجراءً واحداً فقط ، لكننا نغير قيمة الرسالة التي تظهر به ، ونغير الجدول الذي تتم حذف عملياته ، لاحظ الأمر التالي :
هذا يعني أننا في الاجراء سوف نستقبل Table من نوع RecordSet ( يمكن أن يكون T1 أو T2 ... ) اضافة إلى msg وهو نص رسالة التحذير التي ستظهر .
ومعنى ByRef أن التغيير الذي سيحدث في Table خلال الاجراء سوف يتم تطبيقه على الجدول الذي أرسلنها ، أما ByVal فمعنى ذلك أن التغيير لن ينعكس على الأصل .
وسيكون هذا الاجراء بالشكل التالي :
أما الجزء الثاني وهو حذف المبيعات والمشتريات ، فعلى نفس الطريقة يمكننا عمل اجراء واحد لهم ، ولكنه يختلف في قيمة 0 أو 1 والتي ترمز للبيع أو للشراء . لاحظ الكود التالي :
وقبل بدء كل عملية لابد من اظهار رسالتي تحذير لهذه العملية - على الأقل - حيث أنها تمسح كماً كبيراً من البيانات .
والرسالتان موحدة لجميع العمليات ، وستكون بالشكل التالي :
كود :
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)
ومعنى 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 لأدوات عرض للجداول ، وغيرها .
الملف مرفق .
والله الموفق ...
والسلام عليكم ورحمة الله وبركاته .
والله الموفق ...
والسلام عليكم ورحمة الله وبركاته .