سـلـسـلـة دروس الـفـيـجـوال بـيـسـك ][ الـدرس الخامس][
 

عدنا إليكم أخواني في هذا الموضوع الخامس والأخير ..
في سلسلة فيجوال بيسك .. والتي تتعامل مع قواعد البيانات ..
** هذا الدرس الخامس والذي أخترت له عنوان :
** ولمن يريد العودة للدروس الأربعة الماضية :

http://vb.alhilal.com/images/new_pag.gif سـلـسـلـة دروس الـفـيـجـوال بـيـسـك ][ الـدرس الأول ][

http://vb.alhilal.com/images/new_pag.gif سـلـسـلـة دروس الـفـيـجـوال بـيـسـك ][ الـدرس الثاني ][

* الربط البرمجي دون استخدام أدوات:

أولا يجب التأكد من اختيار أحد النسخ من DAO وهي أختصار لـ ( Data Access Object)
قبل البدء بعملية الربط وذلك يتم باختيار من القائمة Project ثم Referces بعد ذلك تختار أحدث النسخ مثل Microsoft ADO 6 object library ثم موافق .


كما أننا نفترض أن لدينا قاعدة بيانات منشأة في Access أو داخل VisualBasic ، ومثال على ذلك : نفترض أن قاعدة بيانات منشأة على المسار التالي c:\datastudent.mdb وتحتوي على جدول باسم tablestud ، وبهذا الجدول ثلاثة حقول هي :no_stud , name_stud , grade_stud .

** قبل كل شي : أفتح مشروع جديد .. ثم قم بحفظه في نفس المجلد الذي توجد به قاعدة البيانات .
ثم ضع ثلاث مربعات نص ( للمتغيرات no_stud , name_stud , grade_stud )
* تعريف قاعدة البيانات والسجلات تحت التصريح عن المتغيرات :
* ربط قاعدة البيانات بالمتغير dbstud والجدول بالمتغير rsstud عند التحميل :
* إجراء عرض السجلات في أدوات النصوص :
يمكن تسمية عنوان الاجراء showfields عندئذ تكون التعليمة كالتالي :
* إجراء فتح ( إنشاء ) سجلات جديدة في قاعدة البيانات :
يمكن تسمية عنوان الإجراء openfields عندئذ تكون تعليمة الاجراء كالتالي :
مع مراعاة نوع البيانات المساندة للحقول حيث تضع VAL أمام الحقول الرقمية .
* استخدم Edit للتعديل ، وUpDate للحفظ .
* أمثلة على التعليمات البرمجية ::
أولاً ننشى مثل هذا الشكل :
بعد ذلك نأتي لكتابة التعليمات البرمجية :
* كود إضافة سجل جديد :
* كود حذف سجل :
* كود السجل الأول , الأخير , التالي , السابق .:
* وأخير الأكواد عدد السجلات , حفظ , تعديل .::
والآن انتهينا من كتابة الأكواد والربط .. لنشاهد العمل ::
الحمد لله انتهينا من هذا العمل ..
ومن لدية أي مشكلة أو استفسار فأنا في الخدمة ..
وهذا العمل لمن يريد تحميله : من هنا
شاهدنا في اعمل التقرير الماضي هذا الشكل .:
نريد أن نجعلة على شكل جدول مسطر بحيث تكون مثل هذا الشكل ::

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

الطريقة سهلة .. ولكن تابع معي جيداً ..
نذهب الى DataEnvironment ومن بعد ذلك ونقوم بعد ذلك باضافة أمر جديد ( Command2 ) كما تعلمنا سابقاً
وتصبح ببهذه الطريقة .
وبعدها ننقر بزر الفأره الايمن على command2 ونختار خصائص ، وبعدها نختار كما هو أمامك :
ثم انقر Apply ..
وحتى تتأكد من أنك تسير بالطريق الصحيح أذهب الى تبويب Parameters ونشاهد المتغير ( st ) فيه .
ثم موافق وتشاهد زر Command2 تحول الى هذا الشكل .::
الان بقى علينا أن ننشء شكل التقرير ..
نذهب من قائمة project نختار Add Data Report لندرج نموذج جديد للتقرير ..
شاهد كيف أصبح شكل متصفح المشروع :


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

الان نفذ المشروع وستشاهد التاريخ والوقت ( متحرك ) ..
وبمجرد أن تضغط على حفظ فإنه يتم ادراج التاريخ والوقت الحالي بقاعدة البيانات ...

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

الله يعطيك العافية على جهدك..

ما شاء الله عليك الله لا يضرك..’’

حياكم الله جميعاً ..:)

شد حيلك ..
وان شاء الله نزيد راتبك ..:)
_______________________________________________

حياك الله يا حسام ..:) .
ووالله كلها ارقام عشوائية ما انتهبت لاسمك ولا كان حطيتك أكثر واحد ..
ولا تحرمنا من طلتك الحلوه..:) ..

اهلين اخوي
بصراحه جذبني دروسك في هذا المنتدى
ولكن النقص بها انك لم تلم هذا الشرح ببعض الصور حتى تكون واضحه للمبتدئين
بما انني مبرمجه حاسب وهذة السنه الثانية من الجامعه وعلى التوالي الاولى عالدفعه
فعندي مشروع قد انتهيت منه وحصلت على المركز الاول وهو ربط الفيجول بيسك ب بمساعد الاوفيس( المشبك و و الخ)
واذا تريدني انا اطرح كيفيه الربط مع مواضيعك او دروسك القادمه حتى نستوفي ونوصل الدروس بوضوح
ومساعدتكم في اي لغة تحتاجونها
وشكرا اخوي

مشكور و ما قصرت