تصميم نموذج وتقرير

السلام عليكم

اخ ماجد الاسيوطي جزاك الله خير على تواصلك معي

استطعت ان افتح قاعدة البيانات المرفقة في عرض التصميم

وحددت سجل الاسم وذهبت للخصائص ولقيتها ممكن

اسالك كيف حميت السجلات من غير هذة الطريقة؟

وسؤالي السابق كان عن حماية قاعدة البيانات بصورة عامة

وفي رعاية الله وحفضة والله يديمك عون للمسلمين.

سلامنا لكم كتب:

وحددت سجل الاسم وذهبت للخصائص ولقيتها ممكن

اسالك كيف حميت السجلات من غير هذه الطريقة؟

أهلاً بك أخي سلامنا لكم . . أسف علي التأخير في الرد . . بالنسبة لهذا الاستفسار . . فأنا لم ألغي خاصية التمكين في مربع نص الاسم (فهذه الخاصية مازالت علي وضعية نعم) كما بالشكل :

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

لذلك سنبدأ هنا بتوضيح طريقة سهلة يمكن بها ضبط خواص النموذج وتعديلها باستخدام كود الفجوال بيسك VISUAL BASIC لمنع حدوث أخطاء أثناء العمل مع النموذج . . وهذا الشرح منقول من كتاب (ACCESS & VISUAL BASIC , Database Applications Programming ) ( برمجة أكسيس , إنشاء وتطوير تطبيقات قواعد البيانات في كل من أكسيس وفيجوال بيسك ) للكاتب أحمد شوقي شاهين - وهو من الكتب العبقرية والمتميزة .. فهو علي الرغم من صدوره منذ سنوات عديدة إلاً أن به من الأفكار وطرق الشرح المتميزة ما يؤهله أن يظل مرجع لغير المحترفين حتى الآن . .

ملحوظة : تم توضيح اسم الكتاب والكاتب للأمانة فقط !! فهذا الكتاب غير متداول في الأسواق حالياً لصدوره منذ سنوات عديدة _ ويصعب إصدار طبعات جديدة من كتب الكمبيوتر لتقادمها ) .. وهذا للتنويه .

أولاً : جعل النموذج للقراءة فقط .

1 - يتم فتح النموذج في وضح التصميم . . ثم يتم النقر نقراً مزدوجا علي المربع الموجود أعلي يسار النموذج . . فيظهر صندوق الخصائص للنموذج كما بالشكل التالي :

2 - في تبويب بيانات يتم ضبط خاصية السماح بالتحرير علي لا .

3 - أغلق صندوق الخصائص وقم بتشغيل النموذج . . ستجد أنه عندما تقوم بإجراء تعديلات علي السجلات المدخلة ، لن يقبلها النموذج . . حيث يقبل سجلات جديدة فقط !!

ثانياً : إضافة زر لإجراء التعديلات علي سجلات النموذج

1 - حتى تتمكن من إجراء تعديلات علي سجلات النموذج ، سنقوم بإنشاء زر أمر جديد لتغيير خاصية النموذج ليسمح بإجراء تعديلات علي سجلاته كالتالي :

أ. ننتقل لوضع تصميم نموذج مرة أخري .

ب. نجعل زر معالجات عناصر التحكم الموجود علي مربع الأدوات في وضع عدم التشغيل كما بالشكل التالي :

ج. ثم ننقر علي زر الأمر الموجود ضمن مربع الأدوات ونسحبه لرسم الزر في مقطع تذييل النموذج . كما بالشكل التالي :

د. نحدد زر الأمر وننقر داخلة لتغيير الاسم الي تعديل سجل

هـ . ثم ننقر بالزر الأيمن للفأرة علي هذا الزر ونختار بند منشئ البرامج وننقر موافقة :

و . سيظهر إطار فئة وحدة نمطية خاص بزر تعديل السجلات ونكتب الأوامر التالية :

وسيسمح هذا الأمر للنموذج بإجراء تعديلات علي السجلات .

Me. AllowEdits =True

وأيضا هذا الأمر يقوم بنقل المؤشر إلي حقل الاسم الأول عند تنفيذ الإجراء .

x. SetFocus

"حيث X هو حقل رقم الهوية"

وبعد كتابة الإجراء يتم الحفظ وإغلاق الوحدة النمطية لتعود للنموذج مرة أخري .

ثالثاً : لإنشاء إجراء لأحداث النموذج .

عند تشغيل النموذج السابق والانتقال للسجل المراد تعديله والضغط علي زر تعديل .. سيسمح النموذج بإجراء التعديلات علي هذا السجل . . ولكن !! عند الانتقال لسجل أخر سنجد أنه يمكن إجراء تعديلات علي بيانات هذا السجل وغيرة من السجلات بدون النقر علي زر تعديل ؟؟

مما يتطلب تعديل خواص النموذج ليسـمح بإجراء تعديلات فقط عند تحديد سجل معين والنقر علي زر تعديل سجل فقط ثم يعود بعدها النموذج لينغلق علي بياناته مرة أخري .. وذلك بإتباع الخطوات التالية :

أ. ننتقل لوضع تصميم النموذج ثم ننقر نقراً مزدوجا علي المربع الموجود أعلي اليسار ( كما سبق شرحه ) ليتم عرض خواصه .

ب. ثم ننتقل لتبويب حدث وننقر الزر علي اليسار l...l وهو زر إنشاء حدث والمقابل لخاصية في الحالي . كما بالشكل :

ج. فيظهر صندوق حوار اختيار المنشئ . فننشط بند منشئ البرامج ليظهر إطار فئة وحدة نمطية خاصة بأحداث النموذج . . ونكتب الأمر التالي :

Me.AllowEdits = False

د. ثم ننسخ الأمر السابق بتحديده ( نسخ , لصق ) .. ولصقه في خاصية أخري من خواص النموذج وهي قبل التحديث AfterUpdate كما بالشكل التالي :

وهذا الإجراء يسمح للنموذج بالعودة مرة أخري لوضعية للقراءة فقط مرة أخري عقب الانتقال لسجل أخر . ولا يسمح بإجراء تعديلات علي السجلات إلا بعد الضغط علي زر تعديل سجل مرة أخري .

ثم نقوم بالضغط علي زر حفظ الموجود علي شريط الأدوات لحفظ الوحدات النمطية والعودة للنموذج مرة أخري لاختبار تلك الإجراءات .

رابعاً : إضافة زر حذف السجل للنموذج .

ويتم ذلك باستخدام معالج أزرار الأوامر كما بالشكل التالي :

ثم يتم الضغط علي زر التالي حتي إنهاء .. وستلاحظ أنه عند الضغط علي زر حذف لايستجيب !! فهو يعمل فقط عند الضغط علي زر تعديل سجل .. فأولاً : يتم البحث وتحديد السجل المطلوب حذفة في النموذج . . وثانياً : يتم الضغط علي زر تعديل سجل لإمكان التعديل أو حذف السجل بالكامل عند النقر علي زر حذف .

سلامي لكم .. وشكراً علي كلماتك الجميلة هذه . . فنحن جميعاً أخوة وفريق عربي واحد للبرمجة وكلنا نكمل بعض . .

أما بخصوص حمايه قاعدة البيانات بصورة عامة فهذه لها حوار أخر . . يمكنك من خلال استخدام خاصية البحث في المنتدي الوصول الي الكثير من طرق الحمايه . . وإن لم تتمكن من ذلك يمكنني مساعدتك لاحقاً .

تحياتي ..