|
منتدى الدورات التأهيلية اسئلة دورة ادخال بيانات ومعالجة نصوص والاختبار الشامل |
![]() |
| LinkBack | أدوات الموضوع | انواع عرض الموضوع |
![]() | #1 | ||||||||||||||
![]() ![]()
| ![]()
لن تحتاج للتنقل بين السجلات الا لـ: السجل التالي السجل السابق السجل الأول السجل الأخير السجل التالي: ولكي تنتقل للسجل التالي سوف تحتاج لكتابة الأمر التالي في الزر المطلوب و هو في مثالنا cmd6 كود: Private Sub cmd6_Click() t.MoveNext Call showdata End Sub السجل السابق: وكل ما تحتاج كتابته هذا الكود بنفس طريقة الكود السابق ( لا تنسىوضع الكود في المكان المناسب و هو هنا cmd7) كود: Private Sub cmd7_Click() t.MovePrevious Call showdata End Sub للإنتقال للسجل الأول اكتب الكود التالي في زر الامر cmd8: كود: Private Sub cmd8_Click() t.MoveFirst Call showdata End Sub للانتقال للسجل الاخير اكتب الكود التالي في زر الامر cmd5 : كود: Private Sub cmd5_Click() t.MoveLast Call showdata End Sub هذه كل اوامر التنقل التي تحتاجها ، لكن لم ننتهي بعد فستواجهك مشكلة ، فمثلا عندما تريد أن تنتقل للسجل التالي و انت في السجل الاخير طبعا لا يوجد سجل تالي لذلك سيتوقف البرنامج ، و نفس الشيء عند الانتقال للسجل السابق و انت في السجل الاول فلا يوجد سجل سابق فسيتوقف البرنامج ، لذلك سنقوم بإضافة جملة شرطية للتأكد اذا كان السجل الأخير او الاول حسب الحاله ثم نقوم بوضع امر Movefirst او movelast حيث ان هذين الامرين لا يتأثران سواء كان هناك سجل او لا و طريقة استخدامهم هكذا : ملاحظة نستخدم الدالة EOF لمعرفة اخر سجل في الجدول ، و نستخدم الدالة BOF لمعرفة اول سجل في الجدول *سنضع الجملة الشرطية التالية في زر الانتقال للتالي فإذا كان هذا اخر سجل اذا انتقل للسجل التالي كود: If t.EOF Then t.MoveLast كود: If t.BOF Then t.MoveFirst كود: Private Sub cmd6_Click() t.MoveNext If t.EOF Then t.MoveLast Call showdata End Sub كود: Private Sub cmd7_Click() t.MovePrevious If t.BOF Then t.MoveFirst Call showdata End Sub الان سنتعلم عمليات السجلات منحذف و اضافة و تعديل اضافة سجل حفظ سجل تعديل سجل حذف سجل اضافة سجل : الامر التالي يقوم بإضافة سجل و نضيف عليه اوامر لتمسح ما في مربعات النص لتهيئتها للإضافة: كود: Private Sub cmd1_Click() t.AddNew 'اضافة سجل جديد 'الخطوات التالية لكي نقوم بمسح ما في مربعات النص لتهيئتها للإضافة و هي خطوة لتعطي طابع الاحتراف فقط ************1.************ = "" ************2.************ = "" ************3.************ = "" End Sub لتحفظ سجل يجب عليك أن تقوم بوضع القيم التي في مربعات النص في الحقول التي توازيها في الجدول ، و لاحظ أنه سوف يعطيك رسالة خطأ عندما تقوم بالحفظ دون ان تقوم باختيار تعديل سجل او اضافة سجل لذلك يفترض بك ان تجعل زر الحفظ في حالة التمكين فقط عندما يضيف المستخدم سجلا او يختار تعديل سجل، كذلك يجب عليك استخدام الدالة Val عند حفظ الحقول الرقمية لتجنب المشاكل عندما يتركه المستخد فارغا ، و ايضا يجب عليك ان تقوم بتحديث الجدول بعد عملية الحفظ لتكمل العملية بسلام و هذا هو الكود المطلوب: كود: Private Sub cmd2_Click() 'نقوم في الخطوات التالية بنقل ما في مربعات النص الى الحقول التي توازيها في قاعدة البيانات t!Name = ************1.************ t!num = Val(************2.************) ' لا حظ اننا استخدمنا هذه الدالة لكي يتم قبول الحقل في حالة كونه فارغ لان هذا حقل رقمي val t!price = Val(************3.************) t.Update End Sub فقط اخبر البرنامج انك تريد التعديل بهذا الكود كود: Private Sub cmd3_Click() t.Edit 'تسمح هذه الخاصية بتعديل البيانات في الحقل End Sub عملية حذف السجل سهلة ، و لكن ماذا بعد ان تحذف السجل ؟ بالطبع يجب ان تعرض السجل التالي ، و ايضا يجب ان تراعي المشاكل التي تواجهك عند انتقالك للسجل التالي فقد لا يكون هناك سجل تالي وقد شرحنا كيف تتفادى هذه المشكلة في هذا الدرس ، و هذا هو الكود اللازم : كود: Private Sub cmd4_Click() t.Delete 'لحذف سجل t.MoveNext 'للانتقال للسجل التالي بعد الحذف If t.EOF Then t.MoveLast ' يحل هذا الاجراء مشكلة عدم وجود سجل تالي End Sub | ||||||||||||||
| |||||||||||||||
![]() | |
رسالة لكل زوار منتديات العبير |
عزيزي الزائر أتمنى انك استفدت من الموضوع و لكن من اجل منتدى ارقي و ارقي برجاء عدم نقل الموضوع و يمكنك التسجيل معنا و المشاركة معنا و النقاش في كافه المواضيع الجاده اذا رغبت في ذلك فانا لا ادعوك للتسجيل بل ادعوك للإبداع معنا . للتسجيل اضغظ هنا . |
![]() | #2 | ||||||||||||||
![]() ![]()
| ![]()
تحياتي لاحمد نسيب واعتذاراتي له على التأخير مع المعلومية ان الفيجوال 6 هو المعتمد تحياتي لك ولكل باحث عن الفائدة | ||||||||||||||
![]() | |
![]() | #3 | ||||||||||||||
![]() ![]()
| ![]()
ولعيونك احمد نسيب هذا هو التطبيق تستطيع التغيير عليه تحياتي بالنهاية اتمنى ان لااكون خيبت ظنك | ||||||||||||||
![]() | |
![]() | #4 | ||||||||||||||
![]() ![]() Has A Reputation Beyond Repute
| ![]()
الله يسلمك ويخليك ويسلملك عيونك من جد ما قصرتي وما في مشكلة في التحويل بإذن الله من ستة إلى سبعة صمت من دونك مادري وش اللي كان بيصر وإن شاء الله نردلكم الجمايل في الأفراح أخوك أحمد نسيب | ||||||||||||||
| |||||||||||||||
![]() | |
![]() | #5 | |||||||||||||||||
![]()
| ![]()
الله يخليكي صمت الجمال سيدة الابداع بالتأكيد | |||||||||||||||||
| ||||||||||||||||||
![]() | |
![]() | #6 | ||||||||||||||
![]()
| ![]()
ياعيني عليك صمت تغيب وترجع بالاجمل
| ||||||||||||||
| |||||||||||||||
![]() | |
![]() | #7 | ||||||||||||||
![]() ![]()
| ![]()
امنيتي في الحياة دعوة صادقة في وجهالغيب بارك الله فيكم | ||||||||||||||
![]() | |
![]() | #8 | ||||||||||||||
![]()
| ![]()
مشكوووووووووووووووووور
| ||||||||||||||
| |||||||||||||||
![]() | |
![]() |
|
|
أدوات الموضوع | |
انواع عرض الموضوع | |
| |
![]() | ||||
الموضوع | كاتب الموضوع | المنتدى | مشاركات | آخر مشاركة |
التربية توضح تنظيم الفسح بين الحصص | عبد الله الساهر | مجلس أوراق ملونة | 4 | 07-11-2012 06:47 PM |
|*|.♥ بين جموع الناسِ أمشي ولا أمشي ♥ .|*| | وللعَبير شذآهـ | مجلس مرافئ ساكنة | 10 | 04-04-2012 11:16 PM |
ح ــملة سوريا بين الحصار والنار | معا لله | مجالسُ الدعوةِ إلى الله حُجةٌ وتاجٌ من نور | 15 | 02-03-2012 04:39 AM |
ميدان الصراع بين الحق والباطل ، الجزء ٤ والأخير | وللعَبير شذآهـ | مجالسُ الدعوةِ إلى الله حُجةٌ وتاجٌ من نور | 10 | 28-02-2012 10:01 PM |
ميدان الصراع بين الحق والباطل ، الجزء ٢ | وللعَبير شذآهـ | مجالسُ الدعوةِ إلى الله حُجةٌ وتاجٌ من نور | 10 | 24-02-2012 05:09 PM |