حماية قاعدة بياناتك من عبث العابثين

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

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

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

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

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

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

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

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

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

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

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

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

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

اتبع الخطوات التالية من فضلك:

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

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

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

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

DoCmd.SelectObject acTable, strDocName, True

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

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