كيف تحمي قاعدة بياناتك من عبث العابثين وتمنعهم من الوصول إلى Database Window (تشفير قاعدة البيانات)
وكيفية كسر هذا التشفير!



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

-=-=-=-=-=-=-

في البداية قم بفتح قاعدة بياناتك open exclusive كما تعلمت في الدرس السالف الذكر، ثم من قائمة tools اختر startup ثم قم بإزالة علامات الصح من أمام جميع الـCheck box أو حسب ما تريد، ولكن احرص على إزالة علامة الصح من أمام خيار Display Database Window، كما توضح الصورة:



ثم اضغط ok. هكذا ضمنا عدم وصول المستخدم إلى نافذة التحكم بالنظام Database window!
والآن سنتعلم معاً كيف نضع خاصية الوصول لنافذة التحكم بقاعدة بياناتنا برقم سريّ basswood لايعرفه سوى المبرمج والمدير فقط، ولنفرض أنه 7333 مثلاً!

سنستعرض في البداية واجهة البرنامج الرئيسية (واجهة نظام جمعية رعاية الأيتام) وفيها سنضع command يتحقق من صلاحيات الوصول إلى التحكم ومن ثم يوصلنا إليه إن كنّا مخولين لذلك:



وعند الضغط على زر الأمر " التحكــــــم" ، سيظهر لنا مربع حوار التحقق من الصلاحيات التالي:



فإن أدخل المستخدم رقماً سريّاً خاطئاً، تظهر له رسالة التنبيه التالية:



أما إذا أدخلنا الرقم السري الصحيح "7333" تظهر لنا الرسالة التالية لمدة 3 ثواني ( Control Form):



ثم تفتح له الـ Database window على تبويب tables وعلى أول جدول في قائمة الجداول:



والسؤال الآن: كيف سنمثل هذا السيناريو بهذا الشكل كاملاً؟!

اتبع الخطوات التالية من فضلك:
1- من خصائص زر الأمر " التحكـــــم" اختر حدث on click واختر نوعه event procedure وأكتب الأسطر التالية في محرر أكواد VBA:

ملاحظة: لتتعرف على كيفية القيام بهذه الخطوة يستلزمك قراءة هذا الدرس.

2- قم بإنشاء نموذج جديد لعرض الرسالة التحذيرية (لا يصل إلى هذه الصلاحيات سوى الأشخاص......... ألخ)، بأي رسالة تريد، وبأي شكل كان، واجعل اسمه Control، ثم اجعل خصائص النموذج كما توضح الصورة:

واكتب الـProcedure التالي بعد أن تفتح نافذة VBA:



في هذا الإجراء، استخدمنا أمر SelectObject وهو الأمر الذي يوصلنا إلى التحكم بـ database window، نلاحظ أننا حددنا فيه أن يكون التبويب الذي تفتح فيه نافذة database window هو تبويب الجداول بالأمر acTable، ثم حددنا له أن يجعل التركيز على أول جدول في تبويب الجداول، وهو جدول Area الذي خزنّا قيمته في المتغير strDocName الذي عرفناه كـstring، ثم سمحنا له بإظهار النافذة: True.

إذن الأمر الذي مكّننا من الوصول إلى التحكم بقاعدة بياناتنا كاملاً هو:

DoCmd.SelectObject acTable, strDocName, True
كل ما عليك هو تغيير قيمة المتغير strDocName إلى اسم أول جدول في قائمة جداول قاعدة بياناتك، وتطبق المثال مباشرة وبالطريقة التي تريد

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

أتمنى أن تكون استفدت من الشرح أيها القارئ الكريم .. والله وليّ التوفيق



1 2