الجزء الأول في دورة تعلم vb6

[أبو الحروف]

بسم الله الرحمان الرحيم

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



نبدأ بإذن الله دورة لتعلم vb6 وذلك بالقيام بتصميم بعض البرامج البسيطة

نبدأ بإذن الله تصميم برنامج بسيط جدا وهو عمل أجندة لتخزين أرقام الهاتف للأقارب و الأصدقاء

هذا البرنامج بإذن الله سيمكننا في الأخير من تسجيل وتعديل وحذف والبحث عن رقم هاتف

أتمنى فقط أن يكون هناك بعض التفاعل من الأعضاء الكرام كما أحيط علما إخوتي أن البرنامج غير جاهز مسبقا سنقوم جميعا بتصميمه حسب مقترحات الإخوة

المتطلبات
تثبيت vb6 على جهازك
تثبيت Microsoft Access على جهازك
بعض الوقت

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

نبدأ بإذن الله

نقوم بإنشاء مجلد لنحفظ فيه المشروع وليكن اسمه agenda

سنعتمد على برنامج Microsoft Access لعمل قاعدة البيانات مع العلم VB6 يتعامل مع قواعد بيانات Microsoft Access 97 وهذه ليست بالمشكلة فجميع إصدارات Microsoft Access يمكنها تحويل قواعد البيانات إلى إصدار Microsoft Access 97

بعد فتح Microsoft Access نقوم باختيار قاعدة بيانات فارغة نقوم بتسجيل قاعدة البيانات في مجلد agenda
نختار إنشاء جدول في طريقة التصميم
نقوم بإنشاء أربعة حقول
اسم الحقل الأول : nom
اسم الحقل الثاني : numero
اسم الحقل الثالث : adress
اسم الحقل الرابع : remarque

كما هو مبين في الصورة


http://www.up1up2.com/upfiles1/E6B84070.jpg

ستلاحظون أنني لم أحدد نوع البيانات في حقول قاعدة البيانات كما يقوم به الكثيرون وذلك لأنني سأقوم بالتحكم في نوع البيانات من خلال التطبيق الذي سنقوم بإنجازه

نقوم بإغلاق الجدول سيقوم البرنامج بطرح السؤال هل تريد حفظ التغييرات في تصميم جدول ' جدول1' اختر الضغط على نعم وأختر الاسم table1

ستلاحظ سؤال ثاني وهو هل تريد إنشاء مفتاح أساسي الآن اختر نعم

الآن تم حفظ قاعدة البيانات في مجلد agenda

للإخوة الذين يعتمدون على إصدار أكثر من Microsoft Access97 وأعتقد أننا جميعا لم نعد نعتمد على هذا الإصدار نقوم بتحويل قاعدة البيانات لهذا الإصدار


http://www.up1up2.com/upfiles1/92u84070.jpg

نختار اسم لقاعدة بياناتنا وهو base وسنستعمل هذا الاسم وأسم الجدول table1 في باقي البرنامج كما هو موضح في الصورة


http://www.up1up2.com/upfiles1/gZA84070.jpg



http://www.up1up2.com/upfiles1/54r84070.jpg

نضغط على موافق وبهذا نكون قد أكملنا تحضير قاعدة بيانات بسيطة جدا لكن كافية لعمل التطبيق المذكور في الأعلى


نقوم الآن بفتح vb6 تظهر الشاشة التالية

http://www.up1up2.com/upfiles1/xIE84070.jpg


نقوم باختيار EXE standard

نحصل على مشروع جديد كما في الصورة


http://www.up1up2.com/upfiles1/6nv84071.jpg

نقوم بحفظ المشروع في مجلد agenda كما هو موضح في الصورة


http://www.up1up2.com/upfiles1/5XP84071.jpg



http://www.up1up2.com/upfiles1/xek84071.jpg

بعد عملية الحفظ نقوم بإغلاق البرنامج ومن الآن وصاعدا من أجل فتح البرنامج نذهب لمجلد agenda ونضغط على


http://www.up1up2.com/upfiles1/lUQ84071.jpg

نقوم بهذه العملية عند فتح مشروعنا حتى تكون المسارات الافتراضية للملفات التي سنستعملها في المشروع كقاعدة البيانات وغيرها هو مسار المجلد agenda

نتوقف هنا الآن وأتمنى أن يكون الجميع قد استفاد وأعتذر مسبقا إذا كان أسلوبي في الشرح لم يتوافق مع البعض فهذه أول مرة أقوم بمبادرة كهذه
أنتظر ردودكم أيها الإخوة لمواصلة المشروع

نلتقي في الجزء الثاني إذا كان هناك طلب بالمواصلة من طرف الإخوة

السلام عليكم.....أخوكم أبو الحروف

[محمد قاسم أحمد]

شكرا جزيلا أخي أبا الحروف
وندعو بقية الأعضاء للتفاعل مع الموضوع لتعميم الفائدة
سؤالي في البداية:
قلت أنه يمكن من جميع اصدارات آكسيس الرجوع الى إصدار 97.... وأنا استعمل آكسيس 2007 ولم أجد فيه هذه الإمكانية... كل ما هنالك من امكانيات هي الرجوه الى أصدار 2000 أو اًلإصدارات من 97 الى 2003 مجتمعة معا.
فهل التحويل الى مجموعة الإصدارات هذه: من 97 الى 2003 يكفي؟ ويفي بالغرض؟
مع شكري وامتنناني

[أبو الحروف]

شكرا جزيلا أخي أبا الحروف
وندعو بقية الأعضاء للتفاعل مع الموضوع لتعميم الفائدة
سؤالي في البداية:
قلت أنه يمكن من جميع اصدارات آكسيس الرجوع الى إصدار 97.... وأنا استعمل آكسيس 2007 ولم أجد فيه هذه الإمكانية... كل ما هنالك من امكانيات هي الرجوه الى أصدار 2000 أو اًلإصدارات من 97 الى 2003 مجتمعة معا.
فهل التحويل الى مجموعة الإصدارات هذه: من 97 الى 2003 يكفي؟ ويفي بالغرض؟
مع شكري وامتنناني


لتحويل قاعدة بيانات Access 2007 إلى تنسيق ملف يتوافق مع Access 97 أو إصدار سابق، عليك أولاً استخدام Access 2007 لتحويل قاعدة البيانات إلى تنسيق ملف Access 2000 أو تنسيق ملف Access 2002 - 2003. ثم استخدم إصدار سابق من Access لتحويل قاعدة البيانات إلى التنسيق الذي تريده. فعلى سبيل المثال، من خلال استخدام أمر تحويل قاعدة بيانات في Access 2003، يمكنك تحويل قاعدة بيانات Access 2000 أو قاعدة بيانات Access 2002 - 2003 إلى تنسيق ملف Access 97

[أبو الحروف]

بسم الله الرحمان الرحيم

نواصل بإذن الله الجزء الثاني من دورة لتعلم vb6 وذلك بالقيام بتصميم بعض البرامج البسيطة

نقوم الآن بفتح المشروع وذلك بالذهاب إلى مجلد agenda والضغط على


http://www.up1up2.com/upfiles1/nCN57141.jpg


يفتح المشروع و يظهر ما يلي



http://www.up1up2.com/upfiles1/dVT61841.jpg

بعد تغيير الخصائص نحصل على مايلي


http://www.up1up2.com/upfiles1/gdh57141.jpg



http://www.up1up2.com/upfiles1/45057141.jpg



http://www.up1up2.com/upfiles1/mMz59314.jpg


تم اختيار خاصية fixed single وذلك لتثبيت حجم الفورم عند التنفيذ
تم اختيار CenterScreen وذلك حتى يكون موقع الفورم في منتصف الشاشة عند التنفيذ
ولكل أحد من الإخوة أن يغير ما يريد في هذه الخصائص كما يراه مناسبا له

نبدأ الآن بعمل شريط الأدوات

نختار Outils ثم Créateur de menus….


http://www.up1up2.com/upfiles1/MFg57141.jpg


نحصل على


http://www.up1up2.com/upfiles1/BP657141.jpg


نبدأ الآن بعمل شريط الأدوات


http://www.up1up2.com/upfiles1/6R057141.jpg


بعدها نضغط على Suivant ثم على


http://www.up1up2.com/upfiles1/FYU57141.jpg


النتيجة تكون هكذا


http://www.up1up2.com/upfiles1/FW257141.jpg

النتيجة تكون كما يظهر في الصورة


http://www.up1up2.com/upfiles1/pbj57640.jpg


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

أردت أن أرفق المشروع في المرفقات لكن الحجم المسموح به صغير جدا

لمن أراد أن يحمل المشروع و فيه كل الخطوات المنجزة حتى الآن

رابط التحميل

agenda.rar (http://www.4shared.com/file/142222596/73204df7/agenda.html)


نتوقف هنا الآن وأتمنى أن يكون الجميع قد استفاد
أنتظر ردودكم أيها الإخوة لمواصلة المشروع
نلتقي في الجزء الثالث

السلام عليكم.....أخوكم أبو الحروف

[أبو الحروف]

السلام عليكم

أعتقد أن الموضوع لم يلاقي أي إستحسان من الأخوة الأعضاء لذلك سأتوقف هنا والسلام عليكم

[محمد قاسم أحمد]

السلام عليكم

أعتقد أن الموضوع لم يلاقي أي إستحسان من الأخوة الأعضاء لذلك سأتوقف هنا والسلام عليكم

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

[أبو الحروف]

بسم الله الرحمان الرحيم

نواصل بإذن الله الجزء الثالث من دورة لتعلم vb6 وذلك بالقيام بتصميم بعض البرامج البسيطة

نقوم الآن بفتح المشروع وذلك بالذهاب إلى مجلد agenda والضغط على


http://www.up1up2.com/upfiles1/XZU28910.jpg

نضيف خمسة من Form إلى مشروعنا وذلك بالطريقة التالية

نفتح Projet ثم ajouter une feuille
ثم نتبع الخطوات الموضحة في الصور

http://www.up1up2.com/upfiles1/F4Z28910.jpg


http://www.up1up2.com/upfiles1/Sjo28910.jpg



http://www.up1up2.com/upfiles1/tvM28910.jpg


http://www.up1up2.com/upfiles1/IY428910.jpg

لكل واحد من الإخوة الحرية في تحديد خصائص الفور كما تم شرحه سابقا من لون وموقع For m عند التنفيذ وباقي الخصائص الأخرى

الآن نقوم بكتابة الكود الذي سيمكننا من إظهار كل Form

نقوم بالضغط على تسجيل

http://www.up1up2.com/upfiles1/39a28910.jpg

نحصل على الصفحة التي يمكن أن نكتب فيها الكود ونكتب الكود التالي

http://www.up1up2.com/upfiles1/vMr28910.jpg

وهكذا مع باقي الصفحات أعتقد أن الأمر مازال بسيطا والعملية عبارة على تكرار نفس الكود مع تغيير اسم Form فقط


http://www.up1up2.com/upfiles1/h1Y28911.jpg

ستلاحظون بعض التغيير في الكود وذلك بعد حذف " تعديل" من شريط الادوات
لا يهم التغيير بسيط جدا

نقوم بتسجيل المشروع
لا ننسى القيام بهذه العملية كلما أنجزنا جزء من المشروع

نواصل بإذن الله
نقوم بفتح Form2 وذلك بالضغط بالماوس مرتين على

http://www.up1up2.com/upfiles1/wxl28911.jpg

نقوم بسحب الأدوات التي سنقوم بالعمل عليها داخل الفورم كما هو مبين في الصورة

http://www.up1up2.com/upfiles1/uly28911.jpg

نعدل على خصائص الأدوات التي تم سحبها حتى تتناسب مع المتطلبات المنتظرة من حجم خط ولون وغير ذلك وسأترك لكم هذه العملية ليختار كل أحد من الأعضاء ما يناسبه وأنا هنا بإذن الله لكل استفسار

بعد التعديل وتغيير الخصائص نحصل على مايلي

http://www.up1up2.com/upfiles1/7Qm33417.jpg


نبذأ بإذن الله كتابة بعض الأكواد
نريد دائما عند فتح الصفحة أن يكون المؤشر متمركز في Text1

نضغط مرتين على Form بالماوس ونكتب الكود التالي في Evenement activate

http://www.up1up2.com/upfiles1/4NQ33417.jpg

http://www.up1up2.com/upfiles1/7Kf33417.jpg

نريد أن ينتقل المؤشر من نص إلى نص آخر وذلك كلما ضغطنا على زر Entr كما هو موجود تقريبا في العديد من البرامج

نقوم بالضغط على Text1 مرتين بالماوس ونكتب الكود التالي في Evenement keypress
http://www.up1up2.com/upfiles1/6KM33418.jpg


http://www.up1up2.com/upfiles1/Wgm33418.jpg

استعملنا هنا شرط بسيط جدا والمتمثل في If…….Then
بحيث اشترطنا إذا ضغط المستعمل على زر Entr انقل المؤشر إلى Text2
كما تلاحظون في Evenement Keypress استعملنا keyascii وهي دالة يمكنها قراءة كود أسكي للوحة المفاتيح بحيث الرقم 13 يمثل زر Entr
للحصول على كود أسكي لأزرار لوحة المفاتيح ما عليك سوى عمل تطبيق بسيط جدا في vb6 يمكنك من طباعتها على الشاشة وهاهو التطبيق لمن أراد أن يستعمله

Keyascii.rar (http://www.4shared.com/file/142762431/b3246d9a/Keyascii.html)

نكرر العملية مع جميع Textbox مع مراعات تغيير اسم Text كل مرة
تلاحظون أن Text2 له خاصية مغايرة لباقي الــText بحيث لا يمكنه أن يحتوي إلا على أرقام لأننا سنكتب فقط رقم الهاتف بحيث يمكن ن نكتب رقم الهاتف كما يلي
00 00 00 00
00-00-00-00
00/00/00/00



نضغط على Text2 ونكتب الكود التالي في Evenement keyascii



http://www.up1up2.com/upfiles1/KwC33418.jpg

الكود بسيط جدا على ما أعتقد
نضغط على زر command2 أو خروج ونكتب الكود التالي

http://www.up1up2.com/upfiles1/M0F33418.jpg

الآن نكون قد انتهينا من كتابة الكود الخاص بالــ Form2 ولم يبقى سوى كتابة الكود الخاص بربط قاعدة البيانات مع برنامجنا
نبدأ بربط الأداة Data1 مع قاعدة البيانات فهذه الأداة ستكون الوسيط الذي سيربط بين البرنامج وقاعدة البيانات
http://www.up1up2.com/upfiles1/OBy33418.jpg


http://www.up1up2.com/upfiles1/mNO33418.jpg

الآن تم الانتهاء من ربط الأداة Data1 مع قاعدة البيانات
نبدأ بإذن الله كتابة الكود الخاص بزر command1 أو الحفظ

كما تلاحظون معي يوجد لدينا أربعة Textbox اثنان لا يمكن تركهما فارغان عند الحفظ وهما الاسم ورقم الهاتف حتى لا يصبح البرنامج بلا معنى لذلك سنضع كود وهو عبارة على شرط بسيط جدا يمنع الحفظ وينبه المستعمل أن النص فارغ واثنان يمكن أن نتركهما فارغان وهما العنوان والملاحظات

نضغط على زر الحفظ مرتين ونبدأ في كتابة الكود

http://www.up1up2.com/upfiles1/GYr33930.jpg

1 – كود يتكون من شرط يمنع عند التسجيل Text1 أن يبقى فارغ بحيث يظهر رسالة تطلب ملئ الاسم بعد الضغط على موافق ينقل المؤشر إلى Text1 ويوقف عملية التسجيل
3 – كود يتكون من شرط يقوم قبل عملية التسجيل بتحسس حالة Text فإذا كان فارغ يضع علامة (-)
الكود (2) يشبه كود (1) وكود (3) يشبه كود (4)
لحد الآن الأمور بسيطة وستبقى بسيطة بإذن الله

نواصل بإذن الله كتابة الكود

لعمل سجل جديد في قاعدة البيانات وعند انتهاء عملية التسجيل تصدر رسالة تؤكد عملية التسجيل وبعدها يقوم البرنامج بمسح البيانات التي تم حفظها وينقل المؤشر إلى Text1 نقوم بكتابة الكود التالي

http://www.up1up2.com/upfiles1/MAi33930.jpg

انتهينا الآن من كتابة كود التسجيل ويمكنكم تجربة البرنامج وتسجيل بعض الأرقام
انتهينا من برمجة Form2 وننتقل لبرمجة Form3 الخاص بالبحث والتعديل

نتوقف هنا ونلتقي في الجزء القادم بإذن الله
في انتظار ردود الإخوة أو أي استفسار

ملاحظة فقط : قمت بتعديل شريط الأدوات وحذفت تعديل كما ستلاحظون عند تحميل المشروع
لمن أراد أن يحمل المشروع رابط التحميل
agenda2.rar (http://www.4shared.com/file/142790998/1096f1bd/agenda2.html)

السلام عليكم.............أخوكم أبو الحروف

[محمد قاسم أحمد]

السلام عليكم أخي أبا الحروف
أنا أتابع شرحك باهتمام...
أنا لم أنفذ البرنامج لحد الآن ... لأن جهازي لا يشمل برنامج vb6
وسأعمل على تنصيبه وتطبيق الخطوات التي شرحتها... وخصوصا الكود..
وأجدد شكري لك، لعدولك عن قرارك بالتوقف عن الشرح..

[abdo05]

http://www.samysoft.net/forumim/slambasmla/685685.gif

http://www.samysoft.net/forumim/fwasel/1/10555.gif


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

http://www.samysoft.net/forumim/shokr/1/58723112.gif

[أبو الحروف]

سنكمل الدورة إن شاء الله إلى النهاية أستسمحكم عذرا على التأخر وذلك لضروف مؤقتة في عملي وسنكمل غدا أو بعد غد بإذن الله
في إنتظار ردودكم او أي إقتراح

أخوكم أبو الحروف

[أبو الحروف]

بسم الله الرحمان الرحيم

نواصل بإذن الله الجزء الرابع من دورة لتعلم vb6 وذلك بالقيام بتصميم بعض البرامج البسيطة

نقوم الآن بفتح المشروع وذلك بالذهاب إلى مجلد agenda والضغط على


http://www.up1up2.com/upfiles1/Y5w52972.jpg

كما سبق وأن قلت لقد قمت بتعديل شريط الأدوات وحذفت تعديل وكل من قام بتحميل المثال قد لاحظ ذلك

http://www.up1up2.com/upfiles1/VDn52972.jpg


نبدأ ببرمجة Form3 الخاص بالفتح (البحث) والتعديل

كما ستلاحظون لن أتكلم على كيف سيظهر Form وذلك لذكره سابقا كما سأترك للأعضاء أن يختار كل واحد منهم الخصائص التي تناسبه

نبدأ بسحب الأدوات التي سنستعملها على Form وذلك بعد فتحه

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


http://www.up1up2.com/upfiles1/4QL52972.jpg


http://www.up1up2.com/upfiles1/8Wi52972.jpg

نختار contrôles


http://www.up1up2.com/upfiles1/G4l52972.jpg

تظهر الأداة التي تم إضافتها نختار DBCombo1


http://www.up1up2.com/upfiles1/ft252972.jpg

نبدأ الآن بسحب الأدوات


http://www.up1up2.com/upfiles1/Qfq52972.jpg

كما تلاحظون نقوم بربط Data1 و Data2 بقاعدة البيانات كما سبق ذكره

تلاحظون الأداة الجديد DBCombo1 سنقوم بتعديل خصائصها حسب ما يناسبنا
http://www.up1up2.com/upfiles1/PPo52972.jpg




http://www.up1up2.com/upfiles1/7fx52972.jpg

بعد تعديل الخصائص نحصل على


http://www.up1up2.com/upfiles1/P4T52972.jpg


http://www.up1up2.com/upfiles1/9ey55407.jpg

نبدأ الآن بكتابة الكود وسأكتفي في هذه المرحلة بكتابة كود البحث وتسجيل التغيرات إذا رغب المستعمل في ذلك.
أولا نقوم بتعريف متغير S من نوع string وذلك لاستعماله في البحث
نستعمل دالة البحث Find وهي دالة تقوم بالبحث بمتغيرات string

إذا كانت نتيجة البحث سلبية أظهر رسالة تبين فيها " هذا الاسم غير مسجل "
يصبح زر تسجيل التغيرات لا يعمل

أو إذا كانت نتيجة البحث إيجابية أكتب في كل Text ما يوافقه من حقول
يصبح زر تسجيل التغيرات يعمل



http://www.up1up2.com/upfiles1/ZVT57368.jpg



انتهينا من كتابة كود البحث

الآن نبدأ بكتابة كود تسجيل التغيرات

نضغط مرتين على زر Command2 ونبدأ في كتابة كود حفظ التغيرات وستلاحظون أن الكود سيشبه كثيرا الكود الأول الخاص بالتسجيل في Form2 لكن مع تغيير بسيط وهو أننا في الكود الأول قمنا بإضافة سجل جديد لقاعدة البيانات وبعدها قمنا بحفظ المعلومات في الكود الثاني لن نضيف سجل جديد بل سنقوم بحفظ التغيرات على السجل الموجود مسبقا في قاعدة البيانات
لذلك سنستبدل َAddNew بـ Edit

الكود يكون كما يلي


http://www.up1up2.com/upfiles1/DVQ57368.jpg


لغاية هنا الكود مكرر ولا داعي لشرحه

نقوم الآن بتحضير السجل الحالي للكتابة عليه



http://www.up1up2.com/upfiles1/iaW57368.jpg


تمت الكتابة فوق السجل الحالي ونقوم بتحديث قاعدة البيانات
نقوم بتحديث الاتصال بين البرنامج وقاعدة البيانات
إعادة المؤشر إلى DBCombo1


نقوم بفتح Evenement Form Activete

http://www.up1up2.com/upfiles1/nH057368.jpg

باقي الأكواد يمكنكم كتابتها وحدكم لإتمام برمجة Form3

كما لاحظتم لا نقوم بتفعيل زر حفظ التغيرات إلا بعد نهاية عملية البحث وذلك لتفادي الحفظ في السجل الأول ويبقى حفظ التغيرات محصورا على السجل المفتوح

لقد أرفقت المشروع لمن أراد أن يحمله فيه كل الخطوات المنجزة حتى الآن

agenda3.rar (http://www.4shared.com/file/144438347/5250606d/agenda3.html)




نتوقف هنا الآن وأتمنى أن يكون الجميع قد استفاد
أنتظر ردودكم أيها الإخوة لمواصلة المشروع
نلتقي في الجزء الأخير إن شاء الله من الدورة الأولى في تعلم vb6 وذلك بإنجاز بعض المشاريع البسيطة

السلام عليكم

أخوكم أبو الحروف

[محمد قاسم أحمد]

بورك فيك وفي أمثالك...
أنا نتابع شروحك . وعاجز عن شكرك... الله يجازيك كل خير يا أخي ابو الحروف
ألف شكر

[أبو الحروف]

بسم الله الرحمان الرحيم

نواصل بإذن الله الجزء الأخير من الدورة الأولى لتعلم vb6 وذلك بالقيام بتصميم بعض البرامج البسيطة

نقوم الآن بفتح المشروع وذلك بالذهاب إلى مجلد agenda والضغط على


http://www.up1up2.com/upfiles1/XBv65888.jpg

اليوم سنحاول برمجة صفحة حذف رقم هاتف وإتمام الدورة الأولى
نفتح Form4 ونسحب الأدوات التي سنعمل عليها كما يظهر في الصورة بعد التعديل



http://www.up1up2.com/upfiles1/ArC65888.jpg

هذه المرة نختار القيمة True لخاصية Visible للأداة Data1 وذلك لتظهر الأداة عند التنفيذ هذه المرة حيث أننا سنقوم بالبحث بها وهي فرصة لمعرفة طريقة أخرى للبحث بدون أي كود
بعد تحديد خصائص مجموعة الـText نأتي إلى عملية جديدة وهي ربط Text بقاعدة البيانات بدون كود كما سيظهر في الصور نختار Text1 ونذهب إلى خصائص


http://www.up1up2.com/upfiles1/dvd65888.jpg


http://www.up1up2.com/upfiles1/G8b65888.jpg

الآن نأتي لخاصية Enable ونختار القيمة False حتى لا يمكن الكتابة أو التغيير في Text وذلك لأن الـ Text مربوط مباشرة مع قاعدة البيانات وأي تغيير يقع في Text سيسجل مباشرة في قاعدة البيانات



http://www.up1up2.com/upfiles1/EM465888.jpg

نكرر العملية مع باقي Text مع ربط كل واحد مع الحقل الخاص به

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

نأتي الآن لبرمجة زر الحذف نضغط مرتين على Command1 ونكتب الكود التالي

http://www.up1up2.com/upfiles1/fGk36573.jpg



b




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

كما تلاحظون أننا هنا استعملنا Delete مع Data1.recordset وهي المسؤولة عن حذف السجل الحالي المفتوح من قاعدة البيانات
وكالعادة نقوم بتحديث الاتصال بقاعدة البيانات حتى تظهر التغيرات في الوقت الحالي

تم الانتهاء من برمجة زر الحذف ولكم أن تكملوا باقي البرمجة الخاصة بForm4

إذا اتبعتم الشرح من الأول أعتقد أن باقي البرمجة في متناولكم لإتمام المشروع

لقد أرفقت المشروع في هذا الرابط لمن أراد أن يحمله فيه كل الخطوات المنجزة حتى الآن

agenda 4.rar (http://www.4shared.com/file/145337751/4630779f/agenda_4.html)


نتوقف هنا الآن وأتمنى أن يكون الجميع قد استفاد

أنتظر ردودكم أيها الإخوة على المشروع وعلى الدورة الأولى من تعلم vb6 وذلك ببرمجة بعض المشاريع البسيطة

نلتقي في الدورة الثانية إن شاء الله من دورة في تعلم vb6 وذلك بإنجاز بعض المشاريع البسيطة


السلام عليكم...............أخوكم أبو الحروف

[محمد قاسم أحمد]

نتوقف هنا الآن وأتمنى أن يكون الجميع قد استفاد

أنتظر ردودكم أيها الإخوة على المشروع وعلى الدورة الأولى من تعلم vb6 وذلك ببرمجة بعض المشاريع البسيطة

نلتقي في الدورة الثانية إن شاء الله من دورة في تعلم vb6 وذلك بإنجاز بعض المشاريع البسيطة


السلام عليكم...............أخوكم أبو الحروف

جزاك الله كل خير...
وشكرا جزيلا على هذه الشروح ...
وانا في انتظار كل جديد منك

[امير الجود]

شكرا لك و بارك الله فيك على المجهود

[أبو الحروف]

شكرا لك و بارك الله فيك على المجهود


السلام عليكم
شكرا أخي أمير الجود على التشجيع
جازاك الله كل خير

[labgaa2006]

أخي أريد منك طريقة دمج برنامجين بالفيجوال بيسيك 6

وشكرا

[أبو الحروف]

أخي أريد منك طريقة دمج برنامجين بالفيجوال بيسيك 6

وشكرا


السلام عليكم

http://www.djelfa.info/vb/showthread.php?p=2127280#post2127280

[kader1966]

شكرا جزيلا على هده الخطوات جاءت في وقتها اتمنى ان يكون المزيد في هدا المجال و جزاك الله على ما تقدمه لنا