بسم الله الرحمن الرحيم
قواعد البيانات باستخدام مايكروسوفت أكسس هي مـــن أكثر قواعـــد البيانات استخداما وهـــي ســـهلة الاستخدام لما توفرة من امكانيات لايتطلب مستخدمها ان يكون ملما بلغات البرمجة بقدر ماتحتاجة الي مثل تلك الامور البرمجية لتأدية بعض العمليات المعقدة نوعا ما ويكتفى بأن تكــــون ملما ببعض الاساسيات ومعرفة بكيفية استخدامها من خلال برنامج مايكروسوفت أكسس الذي يتيح لك بإنشــــاء ماتحتاجة بدون الخوض في تعلم لغات البرمجة ويقوم بكتابة كل ماتحتاجة من أكواد بمجرد الاختيار وتحديد الامر المطلوب تنفيذة
وعلي هذا الاساس لن أخوض كتيرا في الشرح النظري لكيفية إنشاء واستخدام أكسس في تصميم قواعد البيانات وسوف اركز علي الجانب العملي والتطبيقي بشكل كلي وسوف أضع بين يديك كل ما أمكن مـــن أمثلة تطبيقية تفيدك في عمل برنامج يساعدك في عملك وحسب ما تحتاجة من إمكانيات أكسس
فتعلم أكسس غاية في السهولة والبساطة فكثرة الكتب والمراجع متوفرة في المكتبات وتشـــــــرح بشكل تفصيلي لكل المبادئ الاساسية وبرنامج أكسس موجود علي كل جهـاز كمبيوتر ضمن مجموعة برامـــج أوفيس وبهذا الصدد سوف أستخدم أكسس 2003 في معظم الامثلة والتطبيقات التي سوف تشــــــرح أمور فنية كثيرة يحتاج إليها مستخدمي برنامج أكسس والني تجمل شكل البرامج المصممة بإسـتـــــخدام أكسس وتعطيها قوة وأمان وتحكم في خيارات المستخدم للبرامج المصممة بأكسس
ومن أجل الامانة العلمية في هذا الموضوع فأنني فرأت كثيرا من الكتب الني تشرح أستخدام مايكروسوفت أكسس في تمصميم قواعـــــد البيانات والبحث في المواقع المخصصة لذلك والتي خصصت أقسام خاصة بأكسس ومن أكثر هذة المواقع شيوعا واستخداما موقــــــع الفريق العربي وموقع المحيط العربي الغنيين بكل ماتحتاج ويمكنك الاستعانة بالاخوة الاعضاء في هـــذة المواقع والاستفادة مـن خبرتهم وتتعلم كل مــا تحتاج وتقوم بتطبيقة علي برنامجك
لذا أكرر انني لن أتعرض للشرح النظري وسأكتفي بالجانب التطبيقي وسوف تكون التطبيقات محــــــددة وتوضيح نقطة محددة وكل ما عليك هو نقلها الي برنامجك كما هي مالم مالم يتطلب بعــض التغيرات فــي اسماء بعض الكائنات التي تشتمل عليها قاعدة البيانات
والأن نتابع سرد الامثلة التطبيقية والتي نحتاجه جميعا من أجل تصميم برامـــــج جميلة بإستخدام مايكرو سوفت أكسس وهذة الامثلة قمت برفعها علي الموقع
4setfile.4shared.com
وسوف يكون علي هذا الموقع كل ما نتعرض لة من تطبيقات وأمثلة وكلها مفتوحة المصدر حــــتي يمكن الاستفادة منها
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
-: المواضيع
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
إخفاء شاشة برنامج أكسس
الكل يتسأل كيف يمكن إخفاء شاشة برنامج الأكسس التي تحتوي في مضمونها جميع الكائنات التي تشتمل عليها قاعدة البيانات من جداول ونماذج واستعلامات وماكرو ووحدات نمطية لتظهر بالشكل اللائق والمظهر الجميل وتقلل من العبث بمحتويات قاعدة البيانات من مستخدميها والمثال المرفق يظهر النموذج الرئيسي والمعد لادخال البيانات ويحجب إطار قاعدة البيانات بكافة محتوياتها
اضف الوحدة النمطية الي قاعدة بياناتك
Option Compare Database
Global Const SW_HIDE = 0
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
ثم في حدث عند الفتح ضع الكود
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub
والمثال يوضح ذلك وللدخول الي اطار قاعدة البيانات إضغط مفتاح الشفت لحظة فتح قاعدة البيانات وذلك في جميع الامتلة المرفقة
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
إلغاء عمل مفتاح الشفت
من الامور الضرورية ان تحتاج الي وقف عمل بعض المفاتيح في الكيبورد مثل مفتاح الشفت حتي لايتمكن
مستخدمي قاعدة بيانات أكسس من الوصول الي إطار قاعدة البيانات رغم وجود وسائل كثيرة لدي المحترفين تمكنهم من الوصول الي كائنات قاعدة البيانات ولكن نحن نقصد مستخدمي قاعدة البيانات ذوي الخبرة المحدودة والني قد لاتتجاوز إدخال البيانات وخلاف ذلك من متطلبات العمل اليومي لمستخدمي البيانات ومعالجتها وبالتالي يعمد المبرمج الي خلق بعض الامور التي تعيق المستخدم من التفكير في الوصول الي كائنات النظام والعبث بها
وهذا مثال لكيفية تعطيل مفتاح الشفت وإعادة تمكينة
محتوي قاعدة البيانات يحتوي علي وحدات نمطية تتعلق بإخفاء إطار أكسس
تتعلق بتغير خصائص قاعدة البيانات ChangeProps أما
تتعلق بفتح مربع الاختيار لفتح ملف معين وإختيارة FileOpenApi أما
وبخصوص أزرار الاوامر توجد أحداث خاصة بعمل كل زر أمر موجود علي النموذج عند النقر علي الزر
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
عمل نموذج منبثق
لجعل النموذج يظهر للمستخدم بشكل منبثق بحجم الشاشة حيث يتم التحكم في الخروج من البرنامج عن طريق زر أمر محدد لإغلاق النموذج أو الخروج من البرنامج كل ما عليك بعد تصميم نموذجك سوى ضبط خصائص النموذج كما هو مبين في الصورة المرفقة
والمثالي التالي يوضح ذلك ويحتوي علي نموذج بملئ الشاشة وأخرعلي شكل مربع حوار
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
وقف عجلة الماوس
قد تحتاج في بعض الاحيان وقف عمل عجلة الماوس " الزر الاوسط " وذلك لتلافي الانتقال السريع بين السجلات وإلزام مستخدم البرنامج بإستخدام أزرار التنقل بين السجلات
وحدة نمطية لوقف عجلة الماوس والتحكم بها CMouseWheel
وفي حدث عند التحميل للنموذج يوضع الكود التالي
Option Compare Database
Option Explicit
Private WithEvents clsMouseWheel As CMouseWheel
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub Form_Load()
Set clsMouseWheel = New CMouseWheel
Set clsMouseWheel.Form = Me
clsMouseWheel.SubClassHookForm
End Sub
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
MsgBox "عفوا لايمكنك إستخدام عجلة الماوس"
Cancel = True
End Sub
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
وفي حدث عند إغلاق النموذج يوضع الكود التالي
Private Sub Form_Close()
clsMouseWheel.SubClassUnHookForm
Set clsMouseWheel.Form = Nothing
Set clsMouseWheel = Nothing
End Sub
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
والمثال التالي يوضح ذلك فقم بإضافة الوحدة النمطية الي برنامجك وأكتب الاحداث السابقة كما هو مبين
في أحداث النموذج عند التحميل وعند الاغلاق
