الدرس الثالث عشر - اضافة بضاعة جديدة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : قسم دورات المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=113) +---- قسم : دورة بناء برنامج لإدارة السوبر ماركت من الألف إلى الياء (http://vb4arb.com/vb/forumdisplay.php?fid=128) +---- الموضوع : الدرس الثالث عشر - اضافة بضاعة جديدة (/showthread.php?tid=5701) |
الدرس الثالث عشر - اضافة بضاعة جديدة - RaggiTech - 15-10-12 كاتب الموضوع : أحمد جمال
بسم الله الرحمن الرحيم .
السلام عليكم ورحمة الله وبركاته . القائمة الثانية : اضافة بضاعة جديدة .
في حال لم يكن لدينا أي أنواع أو مصانع فلن نستطيع اضافة أي بضاعة ، وهذا ما سنكتبه أيضاً عندما نظهر هذا الفورم .
في البداية سوف نختبر قيمة Index كما فعلنا مع القائمة الأولى . كود : Select Case Index والخيار الأول هو ما يهمنا خلال هذا الدرس . والآن سنتأكد من وجودة مصانع - موردين و أنواع . كود : If T2.RecordCount = 0 Then وأخيراً اظهار الفورم الخاص بالاضافة : كود : Frm_Add.Show 1 *** من الممكن استخدام شاشة التعديل للاضافة مع اخفاء بعض العناصر فقط ، إلا أننا ابتعدنا عن هذا الإسلوب تجنباً للتداخل .
ومجدداً ، سوف نقوم مع كل تشغيل بتعبئة القوائم بالأنواع والمصانع الحالية .
كود : T2.MoveFirst كود : Sub Clear_Text() وسنستدعيه في Form_Load كما سنجعل كل من القائميتن يؤشران لأول عنصر فيهما : كود : Clear_Text كود : If (KeyAscii > 58 Or KeyAscii < 48) And KeyAscii <> 46 And KeyAscii <> 8 Then كود : Unload Me ولذا نتأكد من عدم فراغ الخانة في البداية : كود : If Text1.Text = "" Then كود : SQL = "select * from tb_product where name='" & Text1.Text & "'" كود : T4.Close والآن سوف نضع المعلومات في أماكنها المناسبة في قاعدة البيانات : كود : With T1 لكننا هذه المرة لن نغلق الشاشة بعد انتهاء عملية الاضافة ، بل سوف نفرغ الخانات لاستقبال بضاعة جديدة ، وبإمكانه في حال أراد الخروج الضغط على زر انهاء . كود : MsgBox "تمت الاضافة بنجاح ... إذا كنت تريد الانتهاء اضغط على زر انهاء أو واصل اضافة البضائع", vbInformation + arabic, "اضافة بضاعة" هذا هو الملف بعد الانتهاء من عمليات الدروس السابقة ... والله الموفق ...
والسلام عليكم ورحمة الله وبركاته . |