شرح نظام اللجنة - " الجداول "

[ananco]

** بعد بناء النموذج الرئيسي main سنستوفي البرنامج بشكل مترابط ومتسلسل ، والان سنكمل حيث سنشرح الجداول الاربعة كل على حدة

-----------------------------------------------------------

ثالثا/

أ) بناء جدول البيانات التعريفية data/وهو جدول البيانات التعريفية بالمؤسسات .والذي يحتوي على معلومات عن المؤسسات المشاركة .

مكوناته :/

- الرقم - اسم المؤسسة - رئيس مجلس الادارة - نشاط المؤسسة - هاتف المؤسسة - عنوان المؤسسة

----------------------------------------------------------

ب) بناء جدول الأنشطة activities/وهو جدول البيانات الخاصة بنشاطات كل مؤسسة مشاركة في اللجنة الشعبية .

مكوناته :/

- اسم المؤسسة - رئيس مجلس الادارة - نشاط المؤسسة - هاتف المؤسسة - اسم المشروع - نص المشروع

----------------------------------------------------------

ج) بناء جدول المؤسسات المستفيدة Utilizing/وهو جدول البيانات الخاص باستفادات المؤسسات المشاركة في حال توفر اي دعم من جهات مساعدة .

مكوناته :/

- الرقم - اسم المؤسسة - رئيس مجلس الادارة - تاريخ الاستفادة - قيمة المؤسسة -ملاحظات

----------------------------------------------------------

د) بناء جدول الاخبار الاعلامية/وهو جدول خاص بالاخبار الاعلامية الصادرة عن اللجنة .

مكوناته :/

- عنوان الخبر - رقم الخبر - اليوم - التاريخ - نص الخبر كاملا

----------------------------------------------------------

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

----------------------------------------------------------

ومن ثم نقوم بتنسيقها وفق رؤية المبرمج

----------------------------------------------------------

والان سنقوم سنذهب الى النموذج الرئيسي في عرض التصميم وننشئ ازرار لفتح النماذج ( كل حسب اسمه)

ففي زر فتح نموذج data :في حدث ( عند النقر ) نقوم بنسخ الكود التالي :

Dim stDocName As String

stDocName = "data"

DoCmd.OpenForm stDocName, , , stLinkCriteria

================================================

ففي زر فتح نموذج activities:في حدث ( عند النقر ) نقوم بنسخ الكود التالي :

Dim stDocName As String

stDocName = "activities"

DoCmd.OpenForm stDocName, , , stLinkCriteria

================================================

وفي زر فتح نموذج utilizing:في حدث ( عند النقر ) نقوم بنسخ الكود التالي :

Dim stDocName As String

stDocName = "utilizing"

DoCmd.OpenForm stDocName, , , stLinkCriteria

================================================

وفي زر فتح نموذج news:في حدث ( عند النقر ) نقوم بنسخ الكود التالي : _ _

Dim stDocName As String

stDocName = "news"

DoCmd.OpenForm stDocName, , , stLinkCriteria

================================================

أفي زر فتح نموذج about:ففي حدث ( عند النقر ) نقوم بنسخ الكود التالي :

Dim stDocName As String

stDocName = "news"

DoCmd.OpenForm stDocName, , , stLinkCriteria

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

حيث من خصائص النموذج نقوم بضبط التوقيت من خلال خصائص الفورم ، ونقوم بعمل حدث (عند عداد الوقت )- DoCmd.Close

، ونحدد الفاصل الزمنى لعداد الوقت وليكن 2000 .(غير التوقيت حسب ما تريد)

----------------------------------------------------------

- والان نقوم باغلاق البرنامج وفتح من جديد .

**** والملف المرفق يوضح فكرة النموذج

_______________2.rar