[RaggiTech]

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

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

سوف نحاول من خلال الدروس القادمة انهاء البرنامج واعداده للنشر ، وسنبدأ باضافة اللمسات الأخيرة على البرنامج .

التعامل مع شريط الحالة

سنعود الآن مجدداً إلى الفورم الرئيسي ، وسنقوم باضافة شريط الحالة StatusBar ووضع بعض المهام الرئيسية فيه .
من شريط أدوات التحكم قم باضافة StatusBar وستجده تلقائياً يظهر في أسفل الفورم ، من ضمن الخصائص داخل هذه الأداة اختر Custem واختر التبويب الثاني Panels .
تجد زرين Insert Panel و Remove Panel لاضافة وحذف أجزاء من هذا الشريط .

أيضاً تجد الخصائص التالية لكل جزء من هذا الشريط :

Text

: لتحديد النص الذي يظهر في هذا الجزء .

Alignment

: لتحديد محاذاة النص داخل هذا الجزء .

Style

: افتراضياً على text حيث يوضع النص المحدد بالخاصية Text ، لكن يمكن اختيار عرض التاريخ أو الوقت الحالي وغيرها .

Beval

: لتحديد بروز وغطس كل جزء من الشريط .

AutoSize

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

سنضيف العناصر التالية داخل شريط الحالة :

* تحديث الشريط :بعض المعلومات في هذا الشريط تحتاج إلى تحديث مثل عدد البضائع وغيرها .
سيكون هذا الجزء بارزاً على هيئة الزر .
* الوقت الحالي : وسنضبطه من خلال خاصية

Style .
* عدد البضائع .
* عدد البضائع غير المتوفرة .
وسنضبط قيمهما وقت التصميم ، وهما المعنيان بزر التحديث ، وقم بوضع قيم في خاصية Key ليمكنك ضبطها لاحقاً .
* تشغيل الآلة الحاسبة .
* تشغيل التقرير اليومي .
* وأخيراً البريد الالكتروني ( راسلنا ) .

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

كود :

Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
Select Case Left(Panel, 5)
Case "تحديث"
Refresh_St
Case "عرض ا"
If T1.RecordCount = 0 Then
MsgBox "لا توجد أي بضائع لعرض تقارير عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"
Exit Sub
End If
Unload Frm_Report4
Frm_Report4.Show
Case "تشغيل"
Frm_Calc.Width = 3105
Frm_Calc.Height = 2640
Frm_Calc.Top = 0
Frm_Calc.Left = 0
Frm_Calc.Show
Case "لديك "
If T1.RecordCount = 0 Then
MsgBox "لا توجد أي بضائع للبحث عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"
Exit Sub
End If

Frm_Find.Show
Frm_Find.Text1.Text = 0
Frm_Find.Combo1.ListIndex = 3
Frm_Find.Combo2.ListIndex = 2
Frm_Find.Command2.Value = True
Case "Hamma"
Shell "explorer mailto:Hammada2091@Hotmail.com"
End Select
End Sub

أما في أمر التحديث :

كود :

Private Sub Refresh_St()
SQL = "select count(*) as cnt from tb_product"
Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)
StatusBar1.Panels(3).Text = "عدد البضائع " & T4!cnt & " بضاعة"
T4.Close
SQL = "select count(*) as cnt from tb_product where count=0"
Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)
StatusBar1.Panels(4).Text = "لديك " & T4!cnt & " بضاعة غير متوفرة"
T4.Close
End Sub

*** ملاحظة : نستطيع بنفس الطريقة الاعتماد على خاصية

Index كبديل لقراءة النص المعروض بالشكل التالي :

كود :

Select Case Panel.Index

ونعيد نفس الأكواد السابقة ، وهذه هي الطريقة الأمثل لهذه العملية .

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