Visual FoxPro

Data Base Programing
 
الرئيسيةالبوابةس .و .جالتسجيلدخول

شاطر | 
 

 الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
غدير



عدد الرسائل : 9
الموقع : http://hamsal7ob.7olm.org
تاريخ التسجيل : 01/03/2009

مُساهمةموضوع: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الأربعاء أبريل 28, 2010 1:44 pm



السلام عليكم اخوان
بعد بحث طويل ودقيق عرفت ان هناك جهل كبير من قبل مبرمجينا في امكانيات هذا البرنامج وحتى من لديه معلومة بسيطة عنه يبخل في اعطاءها لشخص وجده حائرا في سؤال بسيط

ويتركه بلا جواب وهو يرسم على وجهه ابتسامة لؤم كأنه بمقام انشتاين مكتشف قوانين الذرة
وهذه الانانية هي من جعلت شعوب العالم تتفوق علينا وتحكمنا
و صرنا لا نتفوق عليهم الا بمواقع الشات والدردشة والشتيمة..
ولو تبادلنا المعلومات نحن تلاميذ البرمجة لعرفوا ان صفنا اقوى من تفاهاتهم التي يزعمون انها برمجة
حتى صاحب هذا المنتدى تراجع عن قراره في تعليم المبتدئين

فمن لديه الهمه في رفع شعار (نفيد ونستفيد) فليرفع قلمه ويشارك في هذا الموضوع
وسأكون اول مبادر
بالنسبة لي حدود علمي في هذا البرنامج هو ان بستطاعتي عمل برامج بسيطة جدا بلا اكواد وشفرات أي من واجهات البرنامج مثل برامج الاوفيس البسيطة
وعملت برنامج لحضور طلاب في خمس دقائق بدون كتابة كود واحد في سطر الاوامر
لا ادعي اني مبرمج ولا اعرف اساسا اي لغة برمجية لكن الفوكس برو يتيح للمستخدين العاديين امكانيات جدا كبيرة ومهمة لكنه يحتاج للممارسة والتجربة مثل اي برنامج اخر خصوصا ان احتياجاتنا الحسابية بسيطة نستطيع ان نحصل عليها منه بدون تعقيد
واكرر هنا دعوتي لمن يرغب المشاركة في ان يضع رده ويكتب عن تجربته مع الفوكس برو لغرض الفائدة العامة والاستفادة
مع الشكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://hamsal7ob.7olm.org
ziyadsat

avatar

عدد الرسائل : 1
العمر : 37
الموقع : http://us.mc1125.mail.yahoo.com/mc/welcome?.gx=1&.tm=1284562101&.rand=939q7bs1n0f37
تاريخ التسجيل : 15/09/2010

مُساهمةموضوع: الله يعين واحنا معااااااااااك   الجمعة سبتمبر 17, 2010 3:18 am

والله يا اخي كلامك مضبووووووووووط وصحيح وان شاء الله نحاول تغيير مثل هذه الافكار الانانية
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://us.mc1125.mail.yahoo.com/mc/welcome?.gx=1&.tm=1284562
a.jallad

avatar

عدد الرسائل : 15
تاريخ التسجيل : 30/12/2007

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الأحد أكتوبر 03, 2010 4:07 pm

االسلام عليكم،،

قدم صاحب هذا الموقع ( العزيز الغائب أبو سلطان ) الكثير من الأفكار والمواضيع سواء أكان ذلك في هذا الموقع أو في منتدى Arabteam2000-forum
وكان فعلا من الأناس المثابرين المعطائين الذين أحبوا تعليم الفوكس برو، واعطاء كافة ما لديهم من معلومات بخصوصه

وبصراحة.. وان سمحتما لي، لم أستصغ فكرة القول بأنه توقف بداعي الأنانية،
مواضيعه تتكلم عنه وتصف طيبته وحبه للتعلم والتعليم

وأتمنى وكلي أمل بالله أن يعود يوما.. ليس لأجل المعلومة التي لديه
وانما لأجل الاطمئنان عليه، فوالله أنه كان نعم الأخ والصديق

ملاحظة : ابحثوا عن VFPMAN في منتدى الفريق العربي وستعرفون أنه لم يبخل على أحد

مع تحياتي واحترامي لكما.


الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
غدير



عدد الرسائل : 9
الموقع : http://hamsal7ob.7olm.org
تاريخ التسجيل : 01/03/2009

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الأربعاء أكتوبر 20, 2010 1:29 pm

اوعليكم السلام اخي
لو تأكد يا اخي لوجدت ان اخر زيارة للاخ ابو سلطان هي
االسبت أغسطس 14, 2010
ومنذ عام 2008 الاسئلة مستمرة من الاخوان بدون جواب
على العموم
دعوتي لم تجد صدى لكل من يريد التعلم ربما لانهم يبحثون عن طبق جاهز للاكل بدون تعب او حتى محاولة للتعلم
ومع الاسف علينا
اوا شكر كل من رد على الموضوع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://hamsal7ob.7olm.org
pcwaleed



عدد الرسائل : 7
الموقع : http://foxpro.yoo7.com/profile.forum?mode=register&agreed=true
تاريخ التسجيل : 14/07/2008

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الأربعاء فبراير 23, 2011 1:33 am

اخي الكريم
ربما يكون الاخ ابو سلطان معذور وربما لديه عمل
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.fannansat.com/vb/forumdisplay.php?f=104&page=3&am
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 11:13 am

السلام عليكم
يا اخوان ليست كل الاصابع متساوية .. انا احد مبرمجي فيجوال فوكس برو على الاصدارات السادس والسابع والتاسع ، لا اقول انني اعلم كل شيء في البرمجة 100% ولكن عندي بعض المعلومات البرمجية حول هذه اللغة البرمجية الرائعة التي يمكن من خلالها بناء برامج متكاملة وسوف لن ابخل في اعطاء هذه المعلومات لاي شخص يرغب في ان يصبح مبرمجا .... ومن الله التوفيق ... مع تحياتي للجميع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 11:24 am

عند البدء بعمل نظام باستخدام لغة البرمجة فيجوال فوكس برو ، يجب ان نقوم بعدة خطوات ، وسنقوم الآن بعمل مشروع نظام ادخال بيانات بسيط باتباع الخطوات التالية خطوة خطوة :
1- اول خطوة سنقوم بها هي انشاء المجلدات Folders التي سنقوم لاحقاً بخزن المشروع وملحقاته في هذه المجلدات ، لذلك سنقوم بانشاء المجلدات التالية ونخزنها في جزء معين ( C,D,E,F,… ) ويفضل خزنها في جزء لا يحتوي بداخله على نظام التشغيل Windows لكي لا يتعرض للتلف او الفقدان وليكن مثلاً في الجزء ( E ) ، اما المجلدات التي سنقوم بتكوينها في الجزء ( E ) هي التالية :
أ- المجلد الرئيسي سنعطيه اسم معين حسب النظام مثلاً نعطيه الاسم (( نظام موظفين )) .
ب- مجلد خاص بخزن الواجهات نعطيه الاسم (( Job_Forms )) .
ج- مجلد خاص بخزن قاعدة البيانات والجداول نعطيه الاسم (( Job_Databases )) .
د- مجلد خاص بخزن برامج SQL نعطيه الاسم (( Job_Programs )) .
ه- مجلد خاص بخزن الخلفيات المستخدمة في المشروع نعطيه الاسم (( Job_Backgrounds )) .
و- مجلد خاص بخزن التقارير نعطيه الاسم (( Job_Reports )) .

واذا قمنا باضافات اخرى مثلا ايكونات معينة او اصوات او فيديوا نقوم باضافة مجلدات اخرى لكل شيء اضافي وهكذا ... وبذلك ستصبح لدينا الشجرة التالية :












وكما مبين في المخطط اعلاه نرى اننا قمنا بانشاء مجلد يحمل الاسم (( نظام موظفين )) وبداخله خمسة مجلدات هي المذكورة اعلاه في الجزء ( E ) .[/b]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 11:32 am

2- بعد الانتهاء من تكوين المجلدات الخاصة بالنظام الذي نقوم ببناءه ، سنقوم الآن بتكوين مشروع جديد بعد تشغيل برنامج Visual FoxPro وذلك بالذهاب الى قائمة File ومنها نختار New ، ستظهر نافذة فيها عدة اختيارات نأخذ منها الاختيار Project ثم نضغط على الزر New File

سيظهر بعدها صندوق حوار
يطلب تحديد المكان والاسم المراد اعطائه للمشروع .. في خانة Enter Project نعطي الاسم الذي نريده للمشروع وليكن الاسم ( Job_Project ) , وفي خانة Save in نقوم بتحديد مكان الخزن وهو كما قلنا في الجزء ( E ) داخل المجلد الرئيسي (( نظام موظفين )) ثم نضغط على الزر Save .

3- بعد ذلك ستظهر نافذة المشروع التي قمنا
وهي مقسمة الى عدة خانات :
- خانة All وتحتوي على كل محتويات المشروع بشكل تفرعات .
- خانة Data مسؤولة عن تكوين قاعدة بيانات المشروع .
- خانة Documents مسؤولة عن تكوين الواجهات والتقارير .
- خانة Classes مسؤولة عن جلب اجراءات جاهزة VCX .
- خانة Code مسؤولة عن انشاء برامج SQL الخاصة بهذه اللغة .
- خانة Other فيها اشياء اخرى .
4- سنقوم الآن بانشاء قاعدة البيانات الخاصة بهذا المشروع وذلك باتباع الخطوات التالية :
• اذهب الى خانة Data الموجودة في نافذة المشروع ومنها قم باختيار Databases ثم اضغط على الزر New ..

• ستظهر بعدها نافذة اخرى اضغط فيها على الزر New Database ..

• سيظهر بعدها صندوق حوار خاص بالخزن يطلب تحديد الاسم والمكان المراد اعطائها لهذه القاعدة لذلك سنقوم بتحديد مكان الخزن في المجلد (( Job_Databases )) وسنعطيه الاسم ( job_database ) ثم نضغط على الزر Save ..

• ستظهر لنا بعدها نافذة قاعدة البيانات ،
• سنقوم الآن بتكوين الجداول التي نريدها .. اضغط بالزر الايمن للماوس على اي مساحة فارغة في داخل قاعدة البيانات .... سوف تظهر قائمة فيها عدة خيارات خذ منها الاختيار New Table ...
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 11:42 am

•ستظهر بعدها نافذة .. اضغط فيها على الزر New Table ..
•ستظهر بعد ذلك نافذة Create تطلب تحديد اسم للجدول ومكان الخزن لذلك سنقوم باعطاء الاسم ( Job_table ) اما مكان الخزن فسوف يكون في داخل المجلد (( Job_databases )) ... ثم اضغط على الزر Save ..
•بعد ذلك ستظهر نافذة Table Designer
سنقوم الآن بادخال الحقول التالية في الجدول :

60 Character اسم_الموظف
60 Character عنوان_الوظيفة
Date المواليد
Date تاريخ_التعيين
60 Character عدد_سنين_الخدمة
10 Numeric الراتب_بالدينار


بعد ذلك اضغط على الزر OK ... سوف تظهر نافذة صغيرة تخبرك هذه النافذة (( هل تريد ان تقوم بادخال البيانات الآن ؟؟ )) .. اضغط على الزر Yes لكي نقوم بادخال عدة قيود في الجدول او no.. اذا لم ترغب بادخال بيانات الآن
وبهذه الخطوة نكون قد انتهينا من تكوين قاعدة البيانات الخاصة بهذا المشروع البسيط ، سنقوم الآن باغلاق قاعدة البيانات هذه ثم ننتقل الى الخطوة التالية لاكمال المشروع .
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 12:00 pm

5- سنبدأ الآن بانشاء واجهة البرنامج الذي نريد بناءه وذلك باتباع الخطوات التالية :
•من نافذة المشروع اذهب الى خانة Documents ومنها خذ الاختيار Forms ثم اضغط على الزر New ..
•سوف تظهر النافذة ، اضغط فيها على الزر New Form ..
•ستظهر بعدها الواجهة Form1 ، قم بخزن هذه الواجهة باسم (( job_form )) بداخل المجلد (( job_forms )) الذي قمنا بتكوينه مسبقاً وذلك بالذهاب الى قائمة File ومنها اضغط على Save ..
•والآن سنقوم بتحديد الابعاد Resolution التي نريدها للواجهة ، فمثلاً لنقم بتحديد الابعاد( 800 X 600 ) او اكثر حسب الحاجة وذلك بالذهاب الى قائمة Tools ومنها نختار Options ... سوف تظهر نافذة فيها عدة خانات ، نذهب الى خانة Forms ومنها نذهب الى القائمة المنسدلة الموجودة امام العنوان Maximum Design Area ونأخذ الاختيار الذي يحمل الابعاد 800 X 600 ... ثم نضغط على الزر Set as Default ..ثم OK .
•بعد ذلك اضغط نقرة واحدة بالزر الايمن للماوس على اي مساحة خالية بداخل الواجهة Form1 .. سوف تظهر قائمة فيها عدة خيارات ، خذ منها الاختيار Data Environment ..
•ستظهر بعدها نافذة Data Environment وامامها نافذة اخرى هي نافذة خاصة باظهار الجداول التي نريد اضافتها الى الواجهة Add Table Or View ..
•اضغط الآن على الزر Otherالموجود في نافذة Add Table or View ... سوف يظهر صندوق حوار البحث عن الجدول المراد اضافته .. واننا الآن نريد اضافة الجدول الذي قمنا بانشاءه مسبقاً وهو الجدول job_table لذلك سنقوم بتحديد هذا الجدول ثم بعدها نضغط على الزر Add ، ثم نضغط على الزر Close .. سنلاحظ ان بيئة الواجهة Form1 اصبحت تحتوي على الجدول المراد ..
•سنقوم الآن باضافة الحقول المرادة الى الواجهة Form1 وذلك بالضغط مع السحب بالزر الايسر للماوس على عبارة Fields الموجودة في الجدول Job_table الموجود في داخل نافذة بيئة البيانات Data Environment باتجاه الواجهة Form1 ثم اترك الماوس واغلق نافذة بيئة البيانات ، سنلاحظ اضافة كل الحقول الموجودة في الجدول لتصبح بداخل الواجهة بشكل قاعدة بيانات ( قيود حيث ان كل قيد عبارة عن عدد من الحقول )
•والآن سنقوم باجراء تعديل على خاصية Buffer Mode الخاصة بالجدول Job_Table ، حيث ان هذه الخاصية مسؤولة عن تطبيق التغييرات التي سيتم اجراءها على الحقول الموجودة في الواجهة مثل (( اضافة قيد او حذف قيد او تعديل قيد ..... الخ )) ونقلها الى الجدول Job_table حتى لا يحدث تضارب بين المعلومات الموجودة في حقول الجدول Job_table وبين المعلومات الموجودة في الواجهة Form1 ، ولتطبيق هذه العملية قم بما يأتي :
-اضغط نقرة واحدة بالزر الايمن للماوس على اي مساحة خالية في الواجهة Form1 .. سوف تظهر قائمة خيارات خذ منها الاختيار Data Environment
- بعدها اضغط بالزر الايمن للماوس على الجدول Job_table الموجود في نافذة بيئة البيانات ، ستظهر قائمة فيها عدة خيارات خذ منها الاختيار Proporities ....
- ستظهر نافذة الخصائص الخاصة بهذا الجدول ، من نافذة خصائص الجدول اذهب الى الخاصية BufferMode وغير قيمتها الى القيمة رقم 3 التي تحمل العنوان Optimistic row buffering ثم اغلق نافذة بيئة البيانات Data Environment .
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 12:18 pm

6- سنقوم الآن بتكوين الازرار الاساسية الخاصة بهذا النظام الذي نقوم ببنائه وذلك باتباع الخطوات التالية :
• قم بادراج العنصر Command Group الموجود في شريط الادوات الرئيسية الخاصة بالبرنامج ..
• قم الآن بالضغط نقرة واحدة بالزر الايمن للماوس على العنصر CommandGroup1 ، سوف تظهر قائمة خذ منها الاختيار Builder ، سوف تظهر نافذة فيها خانتين
من هنا يتم تحديد عدد الازرار ولتكن 10 ازرار
• بعد ذلك اضغط على الزر OK ، سوف نرى ظهور الازرار
• قم الآن بالضغط نقرة واحدة بالزر الايمن للماوس على عنصر الازرار CommandGroup1 والذي كما نراه متكون من عشرة ازرار , ستظهر قائمة خيارات خذ منها الاختيار Edit ..
• بعد ذلك سنلاحظ تحرر الازرار العشرة بحيث سيصبح الآن بالامكان تحديد كل زر على حدة بالضغط عليه ، قم الآن بالضغط على كل زر من هذه الازرار العشرة نقرة واحدة بالزر الايمن للماوس وخذ الاختيار Proporities ثم قم باعطاء الخصائص التالية لكل زر :

اسم العنصر الخاصية Name الخاصية Caption
Command1 Add_button اضافة قيد
Command2 Delete_button حذف قيد
Command3 Edit_button تحديث
Command4 Next_button القيد اللاحق
Command5 Back_buttton القيد السابق
Command6 First_button اول قيد
Command7 Last_button آخر قيد
Command8 Save_button خزن
Command9 Undo_button تراجع
Command10 Exit_button خروج
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 12:34 pm

• بعد ذلك سنقوم بكتابة الايعازات الخاصة بهذه الازرار وهي كالتالي :


1- ايعاز الحدث Click الخاص بالزر ( Add_button) اضافة :

SELECT job_table
APPEND BLANK
thisform.mode="addedit"
thisform.Refresh



2- ايعاز الحدث Click الخاص بالزر (Save_button) خزن :

SELECT job_table
TABLEUPDATE(.t.)
thisform.mode="null"
thisform.Refresh





3- ايعاز الحدث Click الخاص بالزر (Undo_button) تراجع :

SELECT job_table
TABLEREVERT(.f.)
thisform.mode="null"
thisform.Refresh

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 12:44 pm

4- ايعاز الحدث Click الخاص بالزر (Delete_button) حذف :



SELECT job_table
IF BOF() THEN
MESSAGEBOX( " الجدول فارغ .. لا يوجد قيد للحذف",0+32,"ملاحظة")
ELSE
DELETE
IF MESSAGEBOX( "هل انت متاكد من الحذف ",0+32+4,"تحذير")=6 THEN
thisform.commandgroup1.save_button.Click
SKIP -1
ELSE
thisform.commandgroup1.undo_button.Click
ENDIF
ENDIF
thisform.mode="null"
thisform.Refresh

5- ايعاز الحدث Click الخاص بالزر (Edit_button) تحديث :

SELECT job_table
thisform.mode="addedit"
thisform.Refresh

6- ايعاز الحدث Click الخاص بالزر ( Back_button) القيد السابق :

SELECT job_table
IF !BOF() THEN
SKIP -1
ELSE
MESSAGEBOX("لا يوجد قيد سابق.. بداية الجدول ",0+16+256,"ملاحظة")
ENDIF
thisform.Refresh

7- ايعاز الحدث Click الخاص بالزر (Next_button) القيد اللاحق :

SELECT job_table
IF !EOF() THEN
SKIP 1
ELSE
MESSAGEBOX("لا يوجد قيد لاحق .. نهاية الجدول ",0+16+256,"ملاحظة")
ENDIF
thisform.Refresh


8- ايعاز الحدث Click الخاص بالزر ( First_button ) اول قيد :
SELECT job_table
GO TOP
thisform.Refresh

9- ايعاز الحدث Click الخاص بالزر ( Last_button ) آخر قيد :

SELECT job_table
GO BOTTOM
thisform.Refresh


10- ايعاز الحدث Click الخاص بالزر ( Exit_button ) خروج :

thisform.Release
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 12:54 pm

• قم الآن بالتنفيذ بالضغط على الزر Run او بالضغط على المفاتيح CTRL + E ، ستظهر رسالة صغيرة خاصة بالخزن , اضغط على الزر Yes ..
• عند التنفيذ ، اضغط على الزر الخاص بالاضافة ( اضافة قيد ) ، سوف تظهر لنا نافذة الخطأ
وهي كما نراها تخبرنا بأن خاصية الـ ( Mode ) غير موجودة ، لذلك سنقوم الآن باضافة خاصية جديدة للواجهة تحمل الاسم Mode بالطريقة التالية :
- نذهب الى قائمة Form ومنها نختار new property ..
- سوف تظهر النافذة
- اكتب الاسم Mode في خانة Name ثم اضغط على الزر Add ثم اضغط على الزر Close ..
- بعد ذلك قم باظهار نافذة الخصائص الخاصة بالواجهة Form1 وذلك بالضغط نقرة واحدة بالزر الايمن للماوس على اية مساحة خالية في الواجهة ثم خذ الاختيار Proporities ....
- سوف تظهر نافذة الخصائص ، اذهب الى خانة Other ثم اذهب الى الاختيار الاخير mode وقم باعطاء القيمة التالية بكتابتها (( " " )) ...
• بعد ذلك سنقوم بكتابة ايعاز الحدث Refresh الخاص بالواجهة Form1 كالتالي :
DO CASE
CASE thisform.mode="null"
thisform.SetAll("enabled",.f.,"textbox")
thisform.commandgroup1.add_button.Enabled=.t.
thisform.commandgroup1.delete_button.Enabled=.t.
thisform.commandgroup1.exit_button.Enabled=.t.
thisform.commandgroup1.edit_button.Enabled=.t.
thisform.commandgroup1.first_button.Enabled=.t.
thisform.commandgroup1.last_button.Enabled=.t.
thisform.commandgroup1.next_button.Enabled=.t.
thisform.commandgroup1.back_button.Enabled=.t.
thisform.commandgroup1.save_button.Enabled=.f.
thisform.commandgroup1.undo_button.Enabled=.f.

CASE thisform.mode="addedit"
thisform.SetAll("enabled",.t.,"textbox")
thisform.commandgroup1.add_button.Enabled=.f.
thisform.commandgroup1.delete_button.Enabled=.f.
thisform.commandgroup1.exit_button.Enabled=.f.
thisform.commandgroup1.edit_button.Enabled=.f.
thisform.commandgroup1.first_button.Enabled=.f.
thisform.commandgroup1.last_button.Enabled=.f.
thisform.commandgroup1.next_button.Enabled=.f.
thisform.commandgroup1.back_button.Enabled=.f.
thisform.commandgroup1.save_button.Enabled=.t.
thisform.commandgroup1.undo_button.Enabled=.t.
ENDCASE
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 12:56 pm

• والآن سنقوم بكتابة ايعاز الحدث Init التابع للواجهة الرئيسية Form1 :

SELECT job_table
GO TOP
thisform.mode="null"
thisform.Refresh
GO TOP





• بعدها سنقوم بكتابة ايعاز الحدث Load التابع للواجهة الرئيسية Form1 :


SET DELETED ON
SET TALK OFF
SET EXACT ON
SET SAFETY OFF

• قم الآن بتنفيذ البرنامج ......

انتقل للصفحة التالية للتكملة .....


عدل سابقا من قبل حسين_حامد في الجمعة ديسمبر 02, 2011 1:22 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 12:58 pm

• بعد ذلك سنقوم باعطاء الخصائص التالية الواجهة Form1 :

Caption = نظام موظفين
Control Box = F
Desktop = T
Scroll Bar = 3-Both
Right To Left = T



• قم الآن بتنفيذ البرامج ولاحظ الفرق ..
• وبهذا نكون قد انتهينا من تكوين واجهة عمل بسيطة ...
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
حسين_حامد



عدد الرسائل : 15
العمر : 37
الموقع : العراق-بغداد
تاريخ التسجيل : 02/12/2011

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 02, 2011 1:03 pm

• بعد الانتهاء من تكوين واجهة عمل البرنامج ، سنقوم الآن بتكوين واجهة الدخول الى البرنامج ، اي نعني بها واجهة كلمة السر Password وتتم بالخطوات التالية :
o قم بفتح واجهة جديدة من نافذة المشروع ...

Document >>> Forms >>>> New >>>> New Form

o قم بعد ذلك بتخزين هذه الواجهة باسم Password_form بداخل الملف job_forms الذي قمنا بتكوينه مسبقاً
o بعد ذلك قم بادراج العناصر التالية في الواجهة Form1 :
- العنصر Text Box
- العنصر Label
- عنصرين من الازرار CommandButton1,CommandButton2
- عنصر الحاوية Container

o بعد ذلك اعط الخصائص التالية لكل عنصر :

اسم العنصر الخاصية Caption
Label1 ادخل الرمز السري
Command1 موافق
Command2 خروج

o قم بعد ذلك بتحديد العناصر ( Text1,Label1,Command1,Command2 ) ثم اضغط على المفاتيح CTRL + X بمعنى Cut ... بعد ذلك اضغط بالزر الايمن نقرة واحدة على العنصر Container1 وخذ الاختيار Edit ... بعدها اضغط نقرة واحدة بالزر الايمن للماوس مرة اخرى على العنصر Container1 وخذ الاختيار Paste ...

o والآن سنقوم بكتابة ايعاز الحدث Click الخاص بالزر ( موافق ) كالتالي :

IF thisform.text1.Value = "ABCD" THEN
DO FORM .. \job_forms\job_form
thisform.text1.Value=" "
ELSE
MESSAGEBOX("الكلمة خاطئة .. الرجاء اعادة ادخال الكلمة من جديد ","نتيجة القبول ")
thisform.text1.SetFocus
thisform.text1.Value=" "
ENDIF



o بعد ذلك سنقوم بكتابة ايعاز الحدث Click الخاص بالزر ( خروج ) :

CLEAR EVENTS
QUIT


o سنقوم الآن باعطاء الخصائص التالية الخاصة بواجهة Password_Form التالية :

Caption = واجهة الرمز السري
Control Box = F
Desktop = T
Right To Left = T

o بعدها سنرجع ونفتح واجهة العمل الاولى Job_form ونقوم بمسح الايعاز القديم الخاص بالزر ( خروج ) ونكتب بدله الايعاز التالي :

CLEAR EVENTS
QUIT





الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
غدير



عدد الرسائل : 9
الموقع : http://hamsal7ob.7olm.org
تاريخ التسجيل : 01/03/2009

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الجمعة ديسمبر 30, 2011 1:24 pm

مشكور اخي حسين على المشاركة الجميلة
وفعلا مساهمتك جعلتني اعيد التفكيرفيما ذكرت
واسف جدا على التأخير بالرد
لم اتوقع ان يأتي احد مثل حضرتك ويشارك بهذا الكم من المعلومات
فقد زهقت من الانتظار دون ردود ولم ادخل للمنتدى من زمان
شكرا مرة اخرى
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://hamsal7ob.7olm.org
ahme_d252



عدد الرسائل : 1
الموقع : هاي سكاي عراق
تاريخ التسجيل : 10/03/2012

مُساهمةموضوع: رد: الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما   الخميس مارس 29, 2012 12:36 pm

اخي العزيز
حياك الله على تعبك و مجهودك
لقد طبقت ما شرحت حرفيا
ولكن ضهر عندي خطا بسيط ارجو اسعافي فيه رجاءا
[b]
كما اضن ان الخطا في هذا الكود
DO CASE
CASE thisform.mode="null"
thisform.SetAll("enabled",.f.,"textbox")
thisform.commandgroup1.add_button.Enabled=.t.
thisform.commandgroup1.delete_button.Enabled=.t.
thisform.commandgroup1.exit_button.Enabled=.t.
thisform.commandgroup1.edit_button.Enabled=.t.
thisform.commandgroup1.first_button.Enabled=.t.
thisform.commandgroup1.last_button.Enabled=.t.
thisform.commandgroup1.next_button.Enabled=.t.
thisform.commandgroup1.back_button.Enabled=.t.
thisform.commandgroup1.save_button.Enabled=.f.
thisform.commandgroup1.undo_button.Enabled=.f.

CASE thisform.mode="addedit"
thisform.SetAll("enabled",.t.,"textbox")
thisform.commandgroup1.add_button.Enabled=.f.
thisform.commandgroup1.delete_button.Enabled=.f.
thisform.commandgroup1.exit_button.Enabled=.f.
thisform.commandgroup1.edit_button.Enabled=.f.
thisform.commandgroup1.first_button.Enabled=.f.
thisform.commandgroup1.last_button.Enabled=.f.
thisform.commandgroup1.next_button.Enabled=.f.
thisform.commandgroup1.back_button.Enabled=.f.
thisform.commandgroup1.save_button.Enabled=.t.
thisform.commandgroup1.undo_button.Enabled=.t.
ENDCASE


الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://ahme_d252@yahoo.com
 
الى كل من يبحث عن تعلم فوكس برو / لا تنتظر من مبرمج تعليما
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
Visual FoxPro :: المنتدى العام :: الساحة العامة-
انتقل الى: