[RaggiTech]

سنحتاج أيضاً لتعريف متغير عام بحيث نحتفظ فيه بمسار البرنامج لاستخدامه ضمن البرنامج ، وذلك بالشكل التالي :

كود :

Public Folder

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

كود :

Public Const PassWord = "VB4ARAB"

وذلك لكي لا نقوم بالتعديل في جميع الكود حينما نحتاج إلى تغيير كلمة المرور - الاجمالية - لقواعد البيانات ، بل نكتفي بتغيير قيمة هذا الثابت فقط .

آخر ما نحتاج إليه هو متغير يحتوي على معلومات الجدول الأخير ، وفي هذه الحالة يمكننا عمل Array تحتوي على 5 أجزاء يمثل كل جزء منها أحد المعلومات ... وذلك بالشكل التالي :

كود :

Public Info(5)

قم ايضاً بكتابة الأمر التالي لتحويل الرسائل إلى أسلوب عرض اللغة العربية ، وهو ما شرحناه في دروس سابقة :

كود :

Public Enum arabic
arabic = vbMsgBoxRight + vbMsgBoxRtlReading
End Enum

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

كود :

Folder = App.Path
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"

الخطوة الثانية هي التأكد من وجود قاعدة البيانات ، فإن لم تكن موجودة فإننا نقوم باستدعاء وظيفة انشاءها ، وفي كلا الحالات سوف نتصل بها .

كود :

If Dir(Folder & "db1.mdb") = "" Then
MsgBox "لم يعثر البرنامج على قاعدة البيانات وسوف يقوم باضافة واحدة جديدة", vbExclamation, "قاعدة بيانات غير موجودة"
'Here We will Create The Database
End If

يمكنك مراجعة اسلوب انشاء قاعدة بيانات من خلال سلسلة دروس تعليم الاكسيس في القسم الخاص بقواعد البيانات .


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

كود :

If Dir(Folder & "db1.mdb") = "" Then
MsgBox "لم يعثر البرنامج على قاعدة البيانات الرجاء مراسلة المبرمج للحصول على نسخة جديدة من قاعدة البيانات", vbExclamation, "قاعدة بيانات غير موجودة"
End
End If

بعد ذلك سوف نربط D1 بقاعدة البيانات بالشكل التالي :

كود :

Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder & "Db1.mdb")

ولكن لأن لدينا PassWord فسوف نحتاج إلى تمرير بارميترات اضافية منها pwd والذي سوف يحتوي على كلمة المرور :

كود :

Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder & "Db1.mdb", False, False, ";pwd=VB4ARAB")

وبما أن لدينا ثابت يحتوي على كلمة السر ، لذا سوف يصبح الأمر بالشكل التالي :

كود :

Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder & "Db1.mdb", False, False, ";pwd=" & PassWord)

ومن ثم نربط T1,T2,T3 بالجداول الموجودة في D1 وذلك بالشكل التالي :

كود :

Set T1 = D1.OpenRecordset("Tb_Product", dbOpenTable)
Set T2 = D1.OpenRecordset("Tb_Category", dbOpenTable)
Set T3 = D1.OpenRecordset("Tb_Factory", dbOpenTable)

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

Dao مثل AddNew ، Delete ، وغير ذلك . كما يمكننا الاستفادة أيضاً من جمل لغة الاستعلامات التي تعلمناها سابقاً وهو ما سوف نفعله معAdo في دروة تطوير المواقع باستخدام Asp إن شاء الله . وبنفس الطريقة يمكن عمل ذلك مع الفيجوال بيسك .

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


آخر خطوة هي اظهار الشاشة الإفتتاحية ، والتي سنتعرف على طريقة تكوينها في الدرس القادم ، ولكن هذا أمر اظهارها .


Frm_About.Show


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


والله الموفق .