محمد الفرح
Well-Known Member
السلام عليكم
لرؤية الصور عليك بالتسجيل
يا إخوان ارجوا تطبيق هذا الدرس ووضع ما قمت بعمله اريد ان ارى ما انجزتم لكي اتابع شروحاتي
مايصير انا اشرح لحالي انا شو مستفيد انا هااد الشغل كله بعرف يعني بس ناشرة للفائدة
لا تضيعوا تعبي سدا
اولا البرنامج
http://vb.arabsbook.com/showthread.php?t=7757
ثانيا سوف نعتمد أولا وأخيرا على هذا الكتاب ليساعدنا بالشرح
http://vb.arabsbook.com/showthread.php?t=7850
الأن صمم قاعدة بيانات جديدة بالإكسس ويكون محتواها كالتالي (لاحظ كلها نص مافي رقم)
وقم بتحويلها الى 97 وقم بوضعها بالفورم (كل هذا تم شرحة سابقا فلا داعي لأعيده مرة أخرى)
الأن صمم مثل هذا الشكل (أنطر اين وضعت قاعدة البيانات)
أنظر الى هذه الصورة تبين لك ما يجب وضعه اولا من text ترتيبهن (يجب الترتيب هنا)
اللون الاحمر لtext اللون الاسود ل command
وقم بربط كل معلومة مع أختها في قاعدة البيانات (كل text)
شرح طريقة عمل ملف + تصميم + ربط قواعد البيانات موجود في الكتاب (ارجوا تفهمني انا مستعد اشرحه كامل لكن اريد ان ارى ماذا استفدتم نحن نريد النقدم ولا نريد تطبيق نسخ ولصق فقط)
الأن لنأتي الى الأكواد (سوف اضع صورها فقط لتجني عملية النسخ واللصق هذه الأكود تريد فهم وسوف اشرحها)
كود اجمالي سعر الوحدات (command7)
اي ان عند الضغط على command7 سوف يقوم بضرب text6 * text5 ويضع الناتج في text7
ارجوا اان يكون هذا الكود مفهوم بشكل جيد
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر التالي (command8)
اي وتعني انه عند الضغط على التالي سوف تتحرك قاعدة البيانات خانه بشرط if انه عند وصول قاعدة البيانات الى النهاية bof قم then بالرجوع من البداية وبنهاية كل شرط ماذا نضع ؟؟؟ end if
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر السابق (command9)
عكس التالي تماما فإنه يرجع خانه للخلف وعند انتهاء الرجوع eof يقوم بالبدئ من جديد
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر إضافه (command10)
شو هااد المشرف قاعد بضحك علينا شوف dim s وما s هو على خاطره بدي احط d شو بدو يصير
الله يسامحك انا اظحك عليكم طيب بدي اكون احسن منك s هنا عبارة عن متغيير نستعيض به
فلو اردنا ان نضع d يجب ان نغيير كل حرف s الى d
شو كل حرف يعني كلمة string نخليها dtring
لا يا اخي انا قلت حرف منفرد وليس مشبوك
عدنا بعرف إني ابعدت كثير لكن لتوضيح معنى المتغيير
s = MsgBox("هل تريد الإظافة", vbQuestion + vbYesNo, "تأكيد")
If s = vbNo Then Exit Sub
If s = vbYes Then MsgBox "الرجاء إكمال الحقول"
اي تعني
عند الضغط على زر إظافة تأتي له رسالة تقول (هل تريد بالتأكيد الإظافة(
فإذا ضغط نو يخرج من الرسالة ولا يضيف
وإذا اضاف نعم يقول له الرجاء املأ الحقول
If Command10.TabIndex Then
شرط عند الضغط على زر إضافة يقوم بالتالي
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Command11.Enabled = False
Command12.Enabled = True
اي يعطل زر التالي + السابق + إظافة + بخث عن إسم ويفعل زر حفظ الإظافة
ـــــــــــــــــــــــــــــــــــــــــــــ
طيب يا أخي انتهى الشرط ليش موكاتب end if
يا أخي انتظر من قال لك انتهى نحن لم نفعل شئ
طيب يله كمل بلا كثرة حكي
الله يسامحك
ـــــــــــــــــــــــــــــــــــــــــــــ
عدنا
نضع هذا الكود بعد تلك العبارات
End If
Data1.Recordset.AddNew
ـــــــــــــــــــــــــــــــــــــــــــــ
يا أخي شو معنى Data1.Recordset.AddNew
يعني أنه بعد الإنتهاء من ما سبق قم بإظافة المعلومات تلقائي الى قاعدة البيانات
يا الله يا اخي شو هااذ انت صلك ساعة بتحكيلنا اعملو وإعملو وإنت مش شارح زر حفظ شو بدي اعمل هسه
سهلة إظلع من العمل وحط الكود الي بالصورة تحت
طيب يله عااد مو ناقصني اانا ضيعت وقتي على شئ فاضي
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر حفظ (command12)
... يا أخي شو هذا ليش غيرنا المتغير ليش مانحطه s
يا أخي صبرك عليه حطينا n مش s عشان مايصير تضارب بينهن ويعورن بعض بعدين
...يا أخي مفكرني بمزح معك
لا يا اخي فعلا بصير تضارب
... كيف يعني بدو يصير تضارب يا فيلسوف
أنظر انه عندما وضعنا s وضعنا بها شرط if s وكما قلنا ان s عبارة عن متغيير فكيف نضع شرطان لمتغير واحد
... طيب مأحنا حطينا بزر إظافة شرطان
نعم لكن نحن الأن في command اخر
... طيب يله كمل لا تعمل حالك عاقل انا هذا كله عارفه بس بختبر فيك
عدنا
....شوي سؤال اخر
تفضل
...ليش حطينا command8.en....=troo وقبل حطينا fals
لسبب واحد أنه عند الحفظ سوف نقوم بإستخدام هذه الأزرار وسوف نحتاج لتعطيل زر حفظ
... طيب ليش بنعطل زر حفظ
عشان زر حفظ خااص بالإيضافة فقط
أي سؤال اخر
... لا تسلم كمل يله
عدنا
ـــــــــــــــــــــــــــــــــــــــــــــ
زر بحث عن رقم فاتورة +بحث عن اسم مستخدم (command11+13)
command13 بحث عن رقم
command11 بحث عن إسم
اضن انو واضح
...مين قال لك واضح
اتفضل اخي إسأل
....ليش بزر بحث عن إسم حطينا name بينما بحث عن رقم حطينا fatora
يا اخي إرجع على شكل قاعدة البيانات خانه الرقم شو إسمها
...fatora
طيب شو لازم نحط
...fatora
والإسم نفس لاشئ
....طيب ليش حطينا inputbox بدلا من msgbox
لأن inputbox تعني انشاء مريع حوار فيه صندوق text يوضع فيه الإسم او الرقم
...طيب يله زر حذف بسرعة
طيب يا أخي هسه بحطه بس لا تعصب:crying:
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر حذف (command13)
انظر الى الصورة كل شئ واضح إنت ارجوا الا تسأل عنه إلأا والله
هكذا نكون إنتهينا أي سءال أي إستفسار انا جاهز لكن أظن اني سألت كل الأسئله الازمه في الموضوع لكن قد اكون ناسي شئ
نهايتا ارجوا ان ارة تطبيقكم الله اعلم قم بقيت انا اكتب بالشرح
لرؤية الصور عليك بالتسجيل
يا إخوان ارجوا تطبيق هذا الدرس ووضع ما قمت بعمله اريد ان ارى ما انجزتم لكي اتابع شروحاتي
مايصير انا اشرح لحالي انا شو مستفيد انا هااد الشغل كله بعرف يعني بس ناشرة للفائدة
لا تضيعوا تعبي سدا
اولا البرنامج
http://vb.arabsbook.com/showthread.php?t=7757
ثانيا سوف نعتمد أولا وأخيرا على هذا الكتاب ليساعدنا بالشرح
http://vb.arabsbook.com/showthread.php?t=7850
الأن صمم قاعدة بيانات جديدة بالإكسس ويكون محتواها كالتالي (لاحظ كلها نص مافي رقم)
وقم بتحويلها الى 97 وقم بوضعها بالفورم (كل هذا تم شرحة سابقا فلا داعي لأعيده مرة أخرى)
الأن صمم مثل هذا الشكل (أنطر اين وضعت قاعدة البيانات)
أنظر الى هذه الصورة تبين لك ما يجب وضعه اولا من text ترتيبهن (يجب الترتيب هنا)
اللون الاحمر لtext اللون الاسود ل command
وقم بربط كل معلومة مع أختها في قاعدة البيانات (كل text)
شرح طريقة عمل ملف + تصميم + ربط قواعد البيانات موجود في الكتاب (ارجوا تفهمني انا مستعد اشرحه كامل لكن اريد ان ارى ماذا استفدتم نحن نريد النقدم ولا نريد تطبيق نسخ ولصق فقط)
الأن لنأتي الى الأكواد (سوف اضع صورها فقط لتجني عملية النسخ واللصق هذه الأكود تريد فهم وسوف اشرحها)
كود اجمالي سعر الوحدات (command7)
اي ان عند الضغط على command7 سوف يقوم بضرب text6 * text5 ويضع الناتج في text7
ارجوا اان يكون هذا الكود مفهوم بشكل جيد
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر التالي (command8)
اي وتعني انه عند الضغط على التالي سوف تتحرك قاعدة البيانات خانه بشرط if انه عند وصول قاعدة البيانات الى النهاية bof قم then بالرجوع من البداية وبنهاية كل شرط ماذا نضع ؟؟؟ end if
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر السابق (command9)
عكس التالي تماما فإنه يرجع خانه للخلف وعند انتهاء الرجوع eof يقوم بالبدئ من جديد
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر إضافه (command10)
شو هااد المشرف قاعد بضحك علينا شوف dim s وما s هو على خاطره بدي احط d شو بدو يصير
الله يسامحك انا اظحك عليكم طيب بدي اكون احسن منك s هنا عبارة عن متغيير نستعيض به
فلو اردنا ان نضع d يجب ان نغيير كل حرف s الى d
شو كل حرف يعني كلمة string نخليها dtring
لا يا اخي انا قلت حرف منفرد وليس مشبوك
عدنا بعرف إني ابعدت كثير لكن لتوضيح معنى المتغيير
s = MsgBox("هل تريد الإظافة", vbQuestion + vbYesNo, "تأكيد")
If s = vbNo Then Exit Sub
If s = vbYes Then MsgBox "الرجاء إكمال الحقول"
اي تعني
عند الضغط على زر إظافة تأتي له رسالة تقول (هل تريد بالتأكيد الإظافة(
فإذا ضغط نو يخرج من الرسالة ولا يضيف
وإذا اضاف نعم يقول له الرجاء املأ الحقول
If Command10.TabIndex Then
شرط عند الضغط على زر إضافة يقوم بالتالي
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Command11.Enabled = False
Command12.Enabled = True
اي يعطل زر التالي + السابق + إظافة + بخث عن إسم ويفعل زر حفظ الإظافة
ـــــــــــــــــــــــــــــــــــــــــــــ
طيب يا أخي انتهى الشرط ليش موكاتب end if
يا أخي انتظر من قال لك انتهى نحن لم نفعل شئ
طيب يله كمل بلا كثرة حكي
الله يسامحك
ـــــــــــــــــــــــــــــــــــــــــــــ
عدنا
نضع هذا الكود بعد تلك العبارات
End If
Data1.Recordset.AddNew
ـــــــــــــــــــــــــــــــــــــــــــــ
يا أخي شو معنى Data1.Recordset.AddNew
يعني أنه بعد الإنتهاء من ما سبق قم بإظافة المعلومات تلقائي الى قاعدة البيانات
يا الله يا اخي شو هااذ انت صلك ساعة بتحكيلنا اعملو وإعملو وإنت مش شارح زر حفظ شو بدي اعمل هسه
سهلة إظلع من العمل وحط الكود الي بالصورة تحت
طيب يله عااد مو ناقصني اانا ضيعت وقتي على شئ فاضي
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر حفظ (command12)
... يا أخي شو هذا ليش غيرنا المتغير ليش مانحطه s
يا أخي صبرك عليه حطينا n مش s عشان مايصير تضارب بينهن ويعورن بعض بعدين
...يا أخي مفكرني بمزح معك
لا يا اخي فعلا بصير تضارب
... كيف يعني بدو يصير تضارب يا فيلسوف
أنظر انه عندما وضعنا s وضعنا بها شرط if s وكما قلنا ان s عبارة عن متغيير فكيف نضع شرطان لمتغير واحد
... طيب مأحنا حطينا بزر إظافة شرطان
نعم لكن نحن الأن في command اخر
... طيب يله كمل لا تعمل حالك عاقل انا هذا كله عارفه بس بختبر فيك
عدنا
....شوي سؤال اخر
تفضل
...ليش حطينا command8.en....=troo وقبل حطينا fals
لسبب واحد أنه عند الحفظ سوف نقوم بإستخدام هذه الأزرار وسوف نحتاج لتعطيل زر حفظ
... طيب ليش بنعطل زر حفظ
عشان زر حفظ خااص بالإيضافة فقط
أي سؤال اخر
... لا تسلم كمل يله
عدنا
ـــــــــــــــــــــــــــــــــــــــــــــ
زر بحث عن رقم فاتورة +بحث عن اسم مستخدم (command11+13)
command13 بحث عن رقم
command11 بحث عن إسم
اضن انو واضح
...مين قال لك واضح
اتفضل اخي إسأل
....ليش بزر بحث عن إسم حطينا name بينما بحث عن رقم حطينا fatora
يا اخي إرجع على شكل قاعدة البيانات خانه الرقم شو إسمها
...fatora
طيب شو لازم نحط
...fatora
والإسم نفس لاشئ
....طيب ليش حطينا inputbox بدلا من msgbox
لأن inputbox تعني انشاء مريع حوار فيه صندوق text يوضع فيه الإسم او الرقم
...طيب يله زر حذف بسرعة
طيب يا أخي هسه بحطه بس لا تعصب:crying:
ـــــــــــــــــــــــــــــــــــــــــــــ
الأن زر حذف (command13)
انظر الى الصورة كل شئ واضح إنت ارجوا الا تسأل عنه إلأا والله
هكذا نكون إنتهينا أي سءال أي إستفسار انا جاهز لكن أظن اني سألت كل الأسئله الازمه في الموضوع لكن قد اكون ناسي شئ
نهايتا ارجوا ان ارة تطبيقكم الله اعلم قم بقيت انا اكتب بالشرح
