• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

ababil

اعضاء
  • عدد المشاركات

    57
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

4 عادي

عن ababil

  • الرتبة
    عضو

معلومات الملف الشخصي

  • الجنس ذكر
  1. برنامج التفقيط

    مشكور اخي فعلا برنامج جميل ومفيد :) ولكن ما معنى تفقيط
  2. مشكور اخي xcode على الكود الجميل مع اني لم افهم لماذا استخدمت mFieldName1 = FieldName1 اقصد لما لا اكتب الاسم الاصلي مباشرة بدون اسناده الى متغير ويكون كذا REPLACE FieldName2 WITH FieldName1 ربما كنت تقصد ان mFieldName1 هو حقل للجدول المراد اخذ القيم منه لاني سبق ان ذكرت ان الحقول اسمائها FieldName1 و FieldName2 اشكرك مرة اخرى لتخصيصك وقت للرد علي بالنسبة الى الاخ اسد العراق بعد التحية استفدت من الكود الذي كتبته اشياء جميلة واستطيع ان اكتب كود من خلال شرحك وهو ايضا مفيد في الاستبدال الكود هو SELECT lion1 GO TOP FOR i=1 TO 50 REPLACE lion1.name WITH lion.name SELECT lion skip SELECT lion1 skip NEXT اما اذا لم اكن اعرف عدد السجلات التي يمكن اضافتها يكون كالتالي SELECT lion COUNT TO X1 GO TOP SELECT lion1 GO TOP FOR i=1 TO X1 REPLACE lion1.name WITH lion.name SELECT lion skip SELECT lion1 skip NEXT GO TOP وهذا يعني ان REPLACE ALL لا يمكن استخدامها في مثل هكذا حالة اشكرك على الافادة هل من الممكن اخي اسد اذا سمح لك الوقت ان تكتب مشاركة تشرح فيها كيفية استخدام الدوال التالية مع مثال بسيط DO WHILE ENDDO DO CASE ENDCASE FOR EACH ... ENDFOR Command FOR ... ENDFOR Command SCAN ... ENDSCAN Command لاهمية استخدامتها الكثيرة وياريت تكون كلها على مثال او جدول واحد مع الشكر
  3. السلام عليكم اخوان ارجوا من الاخوة الافاضل والاخ اسد العراق ان يكتبوا كود استبدال حقل (field) من جدول بحقل جدول اخر واتمنى استعمال اكثر من طريقة مثل استعمال REPLACE مع DO WHILE ENDDO و SCAN ENDSCAN او طرق اخرى تراها مناسبة للفائدة وايضا كود استبدال عدة صفوف (array) بصفوف من جدول اخر بشرط او بدون شرط للتوضيح لنفرض اسم الجدول الاول table1 واسم الجدول الثاني table2 فيهما حقول بأسم FieldName1 و FieldName2 فكيف سيكون شكل الاكواد وهل يمكن استخدام REPLACE ALL في مثل هذه الحالة شخصيا جربت هذا الكود REPLACE ALL table1.FieldName1 WITH table1.FieldName2 فقام باستبدال كل الحقول من الجدول الاول بأول حقل من الجدول الثاني والمراد ان يستبدل كل حقول الجدول الاول بكل حقول الجدول الثاني ارجوا ان لا اكون اطلت عليكم مع الشكر
  4. شرح موفق اخي اسد العراق شكرا لك وللاخ شادو ولصاحب الموضوع
  5. هذه الحالة تصدف عند استخدام الــ ( class library ) الخاص بالبرنامج وعند انتقاله الى مكان اخر يطلب هذا الكلاس والنصيحة بعدم استخدام كلاس خاص الا عند الضرورة وعند استعماله يجب وضعه في نفس مجلد المشروع
  6. استعمال ايعاز filter

    امثلة الاخ شادو صعبة وتحتاج الى تركيز كبير :wacko: مشكورين على الافادة
  7. التقرير في لغة فيجوال فوس برو

    شكرا للاخ شادو على المثال المفيد :)
  8. جهود مباركة وطيبة شكرا على كل رد ومساعدة فوكس برو السابع يطلب دائما ارجوا ان يوضع الرابط مع الثامن والتاسع في موضوع مثبت للفائدة وهذا الكلام الى الاخ الفاضل اسد العراق
  9. :lol: يبدو ان العبوات وصلت حتى الى جداول الفوكس برو --- انصح الاخوة الذين يطرحون الاسئلة بستخدام برامج الاوفيس لتوضيح ادق للفكرة ومن ثم تطبيقها على الفوكس برو وفي اعتقادي ان من ليس لديه وقت لتوضيحها في جدول معمول على الــ wold او على اكسل اعتقد انه غير جاد في سؤاله مع احترامي
  10. اريد برنامج استعلام عن

    السلام عليكم اخوان الرابط الذي فيه القانون لايعمل ربما يحتاج الى تسجيل بسبب وجودالـ( ID) ورايي ان الامر لا يحتاج الى تصميم برنامج اذا كان الامر يقتصر فقط على البحث لان الاكسل مفيد في هذه الحالة خصوصا ان فيه ميزة الفرز والتصفية وهو بمثابة الاستعلام مع الشكر
  11. التعامل مع ملفات قواعد البيانات

    السلام عليكم استخدام SELECT متعدد مفيد فى حالة وجود اكثر من جدول بينهما قيم مشتركة ويراد استخلاص بيانات معينة ويمكن استخدام EXCLUSIVE و SET FILTER TO و DO WHILE معه اي مع كل SELECT على حده ونتائجها تستخدم مع SELECT اخر وهكذا وقد جربته انا شخصيا اكثر من مرةوهو فعلا كما قلت انت ناجح جدا وسريع ويختصر الاكواد والجهد مع الشكر
  12. التعامل مع مشروع قاعدة بيانات

    السلام عليكم ارجوا ان يكون التوضيح بمثال مرفق لتوضيح ادق واسرع وفي مثالك اخي يبدو انك تستخدم طريقة عرضه للخطا مع وجود طرق ادق وابسط واكثر استقرار نضرا لان ما تريده هو ادخال اسم القسم ورقم المرحلة واسم الطالب لا تستوجب استخدام SELECT بهذه الكثره وعن طريق load ينصح باستخدام SELECT في الاستعلامات وعند الضرورة مع الشكر
  13. شكرا لك اخي اسد العراق سأقوم برفع الملف والاطلاع عليه والرد وبالموفقية وتعود سالم ان شاء الله بالنسبة للاخ chairman ارجوا ان تحاول اخي ولا تيأس عملت تغيير بسيط على ملفه sale واشتغل في الكرد كما طلبت لكنك وضعت مربعات نص لا اعرف ما الغرض منها الملف بالمرفقات Visual FoxPro Projects.rar
  14. اخي العزيز اسد العراق بالنسبة لسؤالك انت هو من كتب الكود وتم مسح الجدول عن طريق سلكت وامر باك لان الكود الذي ارسلته فيه الامر باك وبعد تنفيذه تم المسح نهائيا اما عن طريقتي فانا استخدم عندما اريد عدم التكرار الامر DISTINCT الذي كما تعرف يمنع الدبلكيت( التكرار) ومنها يتم المسح لكن طريقتك ذكيه من خلال عمليه جمع عن طريق count واستخدام DO WHILE !EOF() للوصول لكل حقل لذلك هو انت صاحب الكود والفكرة ليس انا واريد ان اعرف اخي كيف يمكن ان احذف حسب طريقتك اذا كان في الجدول حقلين وليس حقل واحد مع شرط ان يبقي على الحقل اذا توفر فيه شرط معين مثال نفرض ان هناك جدول اسمه table1 فيه حقلين الاول اسمه no والثاني name1 المطلوب مسح التكرار في الحقل الاول على ان تكون فقط مطابقة لقيم موجودة في الحقل الثاني كما في المستند المرفق وارفقت الجدول ايضا في طريقة sql استخدمت الكود التالي وتم عمل المطلوب SELECT DISTINCT Table1.no, Table1.name1; FROM ; "TABLE1.DBF" لكني اريد ان اعرف على طريقتك السابقة وهي طريقة set fillter وحذف القيم التي وافقت الشرط على حقلين وليس حقل واحد مع تحياتي duplicates.rar
  15. انواع الاحداث EVENT

    السلام عليكم هذه مشاركة مهمة وارجوا ان نجعل منها موضوع لتوضيح فائدة كل حدث قدر الامكان مع مثال بسيط هناك امر مهم يجب معرفته وهو ان كل ايتم (item) له خصائص واحداث خاصة به يعني الفورم له احداث لا توجد في البوتن (button) والكرد كذلك منفردة ببعض الخواص عن التيكست وهكذا و كتنشيط للقسم ارجوا ان يقوم كل من لديه تجربة مع حدث بشرح لاهم الاحداث التي يستخدمها وسأبدا انا بأول حدث 1- وهو الاكتف activate وهو حدث يحصل عندما ينشط الفورم form عند البدا لمرة واحدة وهو شبيه بالرفرش refresh مع فرق بسيط مثال عليه يوضع اكثر حدث فيه هو التاريخ لتفعيل التاريخ كما في الكود التالي thisform.text1.Value=dateTIME() ملاحظة تيكست 1 يجب ان تكون موجودة في الفورم لكي يضهر التاريخ باليوم والوقت حسب الكود اعلاه 2- الكلك click يضهر الحدث عند النقر مثال do form start وهو كود للانتقال الى فورم ستارت (تشغيل واجهة ستارت) 3- حدث دبل كلك DblClick يضهر عند النقر مرتين متتاليتين مثال APPEND BLANK كود لاضافة بياض او فراغ لغرض البدا بالكتابة 4- حدث Destroy يحدث عند الافلات او الاغلاق مثال عليه يوضع في حدث دستروي الخاص بالفورم الكود التالي CLEAR events حيث سيتم اغلاق الفورم نهائيا عند اي اغلاق سواء من زر الخروج او من الاكس الموجوده في اعلى كل فورم 5- حدث Error يضهر عند حدوث اي خطأ ويجب عمل كود خاص لكل خطا مع العلم ان لكل خطا رقم خاص به معروف للفوكس برو مثلا الرقم 2006 Cannot locate your Web browser معناها لا يمكن العثور على متصفح ويب لخاص بك مثال يوضع في حدث ارور الكود التالي(لنفرض هنا اننا نريد العمل على حدث الفورم) #DEFINE E_UNIQUEINDEX2_LOC "فشل في اضافة قيم جديدة لان الجدول مستخدم." والبقية اتركها لبقية الاعضاء ارجوا المشاركة ولو بحدث واحد