برنامج متابع التوجيهى

برنامج متابع التوجيهى

المطلوب

تصميم برنامج بساعد موجهى المدارس على اداء اعمالهم وهى
زيارت المدرسة وتدوين الماحظات على المدرسين وتوجية هذة الملاحظات للدراسة وفى اخر الشهر او المدة عمل تقرير مجمع للملاحظات ورفعة الى الادارة

نبدأ بالجداول وهى اساس اى برنامج
المنفذ وهو جدول ندرج بة بيانات جميع الموظفين سواء مدرس او ادارى او مشرف سيتم التعامل بالاسماء للتبسيط
وتكون حقولة الاسم والرقم الوظيفى

الملاحظات1 وهو جدول يتم فية حصر جميع انواع المخالفات

جدول الملاحظات وفى هذا الجدول تضاف جميع الملاحظات وهو مرتبط بجدول المنفذ فى ادخال اسماء الموظفين سواء من قام بالملاحظة  او من توجة الملاحظة لة

جدول مجمع وهو جدول يتم فية تسجيل بيانات التقرير المطلوب عن الفترة من كذا الى كذا الخاصة بالموظف فلان

الجدول المساعد الوحيد هو جدول المستخدمين

العلاقات

لوجود اكثر من حقل فى جدول الملاحظات يمكن ربطة بجدول منفذ لن نربطبينهم ونكتفى بعمل قائمة منسدلة سنراها لاحقا

وتكون العاقة بين جدول منفذ وجدول مجمع بحيث عندما نختار اسم الموظف يظهر رقمة الوظيفى
النماذج
الخلفية
وهو نموذج فارغ الغرض منة ستر شاشة اكسس فقط
المهم هنا ان يكون النموذج منبثق
كود عمل تكبير للنموذج ليغطى كامل الشاشة
كود لفتح نموذج دخول المستخدمين لفتح البرنامج
فى حدث عند الفتح

Private Sub Form_Open(Cancel As Integer)

DoCmd.Maximize

DoCmd.OpenForm "دخول المستخدمين", acNormal

End Sub

نموذج المستخدمين وهو نموذج الغرض منة اضافة مستخدمين جدد او التعديل على المستخدمين

كود سجل جديد

Private Sub p1_Click()

On Error Resume Next

DoCmd.GoToRecord , , acNewRec

End Sub

كود اول سجل

Private Sub p2_Click()

On Error Resume Next

DoCmd.GoToRecord , , acFirst

End Sub

كود السجل السابق
Private Sub p3_Click()

On Error Resume Next

DoCmd.GoToRecord , , acPrevious

End Sub

كود التالى
Private Sub p4_Click()

On Error Resume Next

DoCmd.GoToRecord , , acNext

End Sub

نموذج ملاحظات والذى منة نقوم باضافى الملاحظات 

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

مصدر السجلات للقوائم هو استعلام من جدول

بالمثال استعلام لادراج اسم المنفذ من جدول المنفذين كقائمة منسدلة

فى جدث بعد التحديث لخلية الملاحظة وضعنا كود

الكود التالى

اذا كانت قيمة خلية الملاحظات تاخير حصة او صياحى او عن الطابور يظهر لنا خلية مدة التاخير كونها مخفية فى الاصل ليتم تسجيل مدة التاخير بالدقيقة
الواجهه
وهو نموذج يتم الدخول الية بعد تسجيل اسم المستخدم وكلمة السر الصحيحة وهو مثيت علية جميع الازرة للتعامل مع البرنامج

نموذج تغير كلمة السر

خلايا النموذج الظاهرة كلها غير منضمة
خلايا النموذج المخفية هى بيانات المستخدم
والهدفة منة انة عند الدخول اية  يطالب بادخال اسم المستخدم وكلمة السر القديمة والجديدة مرتين للتاكد قبل تغير كلمة السر

ifوعن طريف الشرط

الموجود على زر موافق يتم التاكد من تطابق اسم المستخدم مع اسم المستخدم الداخل فعلى للبرنامج وكذلك كلمة السر القديمة مع كلمة السر المسجلة سابقا وكذلك مطابقة كلمتى السر الجديدة فى حالة جميع الطابقات ناجحة يعدل كلمة السر المسجلة الى الكلمة الجديدة ويظهر رسالة تم التعديل قبل اغلاق النموذج
وفى حالة اختلا ف اسم المستخدم او كلمة السر يظهر رسالة بعدم المطابقة
وزر اخر لاغلاق النموذج

نموذج دخول المستخدمين
وهو النموذج الذى يفتحة نموذج الخلفية عند فتح البرنامج ودورة التعرف على المستخدم الداخل للبرنامج عن طريق اسم المستخدم وكلمة السر يتم كتابتهم فى خليتين غير منضمتين ومقارنتهم بالمسجل على البرنامج
 فى خلية اسم المستخدم يسجل المستخدم اسمة فى هذة الخلية حدث بعد التحديث يوجد كود يقوم بتحديث النموذج

Private Sub n1_AfterUpdate()

DoCmd.Requery

[n2].SetFocus

End Sub

ونقل مؤشر الكتابة الى كلمة السر
وبذلك يظهر للبرنامج اذا كان اسم المستخدم مسجل على البرنامج تظهر بياناتة
الاستعلام الموجود فى النموذج

هذا الاستعلام مرتبط بالخلية التى يسجل بها اسم المستخدم
[forms]![دخول المستخدمين]![n1]

المطلوب من المستخدم الان اضافة كلمة السر لتبدأ المرحلة التالية وهى اختبار الدخول للبرنامج
لا يسمح بالدخول الا لمن لة اسم مستخدم وكلمة سر صحيحتان

(If)هنا نستعمل    

مركبة

 الاولى وهى الثغرة التى يمكن فيها المصمم من الدخول لنموذج الشفت لاعادة تمكينة ليتمكن من التعديل على البرنامج بعد التقفيل

فى حالة مطابقة اسم المستخدم وكلمة السر يتم فتح نموذج الشفت واغلاق نموذج دخول المستخدمين
الثانية فحص ان كان خلايا ادخال اسم المستخدم وكلمة السر  فراغ  لا يقم الزر بعمل شيء انتظارا لتسجيل اسم مستخدم وكلمة سر
الثالثة بعد كتابة اسم مستخدم هل ظهر اسم مستخدم من طابق من داخل البرنامج ام لا
فى حالة عد الظهور اذا اسم المستخدم خاطئ يظهر بذلك رسالة ثم ينقل مؤشر الكتابة الى ادخال اسم المستخدم مرة اخرى
فى حالة اسم المستخدم موجود ومسجل ينتقل الى الرابعة
الرابعة  فى حالة مطابقة كلمة السر ايضا يتم فتح شاشة البرنامج واغلاق دخول المستخدمين
وفى حالة كلمة السر خطأ يظهر بذلك رسالة وينقل مؤشر الكتابة الى ادخال كلمة سر جديدة

دخول المستخدمين 2

وهى كشاشة دخول المستخدمين غير ان اسم المستخدم بها مطموس لا يمكن تعديلة
وبذلك هى شاشة توقف منبثقة ومشروطة لا يمكن الضغط على ما بعدها الا بكتابة كلمة سر صحيحة لتدخل الى البرنامج

نموذج مجمع

وهو نموذج يضاف فية بيانات التقرير سواء كان شهرى او سنوى وتحدد المدرس فتظهر مخالفاتة فى الاسفل فيقدم بذلك التقرير
النموذج المنضم الذى يعرض فية المخالفات مقيد باسم المعلم ومدى التقرير

تقيد المدى

>=[Forms]![مجمع]![من تاريخ] And <=[Forms]![مجمع]![الى تاريخ]

تقيد الاسم

[Forms]![مجمع]![اسم المعلم]

بتزيل النموزج المنضم خلية لجمع عدد دقائق التاخير

الصيغة

=Sum([مدة التاخير])

وتنقل للنموذج الواجههة بهذا الكود

=[تابع19]![نص25]

ولحاجة المراجعة والنظر على المخالفات

تم وضع كود لفتح المخالفة
عند النقر المزدوج على المخالفة يتم فتحها فى نموذج الادخال
فى البداية يتم اخراج رقم المخالفة ووضعة فى النموذج الرئيسى فى خلية مخفية

وضع كود فى حدث عند النقر المزدوج

يقوم الكود بفتح نموذج الملاحظات
وفى خلية البحث يدرج رقم الملاحظة التى تم استخراجة

ثم عمل بحث

كود زر توقف

يقوم الزر بفتح نموذج الدخول2

وقل اسم المستخدم الحالى الية وعمل بحث ويتبقى فقط كلمة السر لتدخل مرة اخرى للبرنامج