بسم الله الرحمان الرحيم
نواصل بإذن الله الجزء الأخير من الدورة الأولى لتعلم vb6 وذلك بالقيام بتصميم بعض البرامج البسيطة
نقوم الآن بفتح المشروع وذلك بالذهاب إلى مجلد agenda والضغط على
اليوم سنحاول برمجة صفحة حذف رقم هاتف وإتمام الدورة الأولى
نفتح Form4 ونسحب الأدوات التي سنعمل عليها كما يظهر في الصورة بعد التعديل
هذه المرة نختار القيمة True لخاصية Visible للأداة Data1 وذلك لتظهر الأداة عند التنفيذ هذه المرة حيث أننا سنقوم بالبحث بها وهي فرصة لمعرفة طريقة أخرى للبحث بدون أي كود
بعد تحديد خصائص مجموعة الـText نأتي إلى عملية جديدة وهي ربط Text بقاعدة البيانات بدون كود كما سيظهر في الصور نختار Text1 ونذهب إلى خصائص
الآن نأتي لخاصية Enable ونختار القيمة False حتى لا يمكن الكتابة أو التغيير في Text وذلك لأن الـ Text مربوط مباشرة مع قاعدة البيانات وأي تغيير يقع في Text سيسجل مباشرة في قاعدة البيانات
نكرر العملية مع باقي Text مع ربط كل واحد مع الحقل الخاص به
العملية بسيطة ولا أظن أنكم ستلاقون أي مشكل
ممكن بعد تعديل الخصائص نجرب تنفيذ البرنامج وستلاحظون أن السجل الأول في قاعدة البيانات يظهر مباشرة يمكن التنقل بين السجلات بالضغط على Data1
نأتي الآن لبرمجة زر الحذف نضغط مرتين على Command1 ونكتب الكود التالي
b
الكود بسيط جدا استعملنا شرط بسيط مع الدالة Msgbox بحيث لا يمكن للمستعمل الحذف مباشرة حيث ينبهه البرنامج بأنه سيقوم بعملية الحذف ويطلب منه التأكيد أو التراجع
كما تلاحظون أننا هنا استعملنا Delete مع Data1.recordset وهي المسؤولة عن حذف السجل الحالي المفتوح من قاعدة البيانات
وكالعادة نقوم بتحديث الاتصال بقاعدة البيانات حتى تظهر التغيرات في الوقت الحالي
تم الانتهاء من برمجة زر الحذف ولكم أن تكملوا باقي البرمجة الخاصة بForm4
إذا اتبعتم الشرح من الأول أعتقد أن باقي البرمجة في متناولكم لإتمام المشروع
لقد أرفقت المشروع في هذا الرابط لمن أراد أن يحمله فيه كل الخطوات المنجزة حتى الآن
نتوقف هنا الآن وأتمنى أن يكون الجميع قد استفاد
أنتظر ردودكم أيها الإخوة على المشروع وعلى الدورة الأولى من تعلم vb6 وذلك ببرمجة بعض المشاريع البسيطة
نلتقي في الدورة الثانية إن شاء الله من دورة في تعلم vb6 وذلك بإنجاز بعض المشاريع البسيطة
السلام عليكم...............أخوكم أبو الحروف