تنظيم العمل والاستفادة من امكانات الفوكس برو

ولا ننسى أن نحدد البرنامج بعد اضافته كبرنامج مفتاحي على النحو التالي: نختاره ثم نختار من القائمة Project >> Set Main

رابعا: تصميم الشاشة الرئيسية frmMain

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

ونضيف لها الاوامر التالية في اجراء الـــ Load وذلك لاستدعاء دالة GetWindowLong الموجودة في الــ Windows وعكس النموذج بواسطتها من اليسار الى اليمين وذلك فقط لجعل القائمة Menu التي سنصممها لاحقا تظهر من الجهة اليمنى على اعتبار انها مصممة باللغة العربية

وللأسف لم أجد طريقة مباشرة بالفوكس برو لعكس القائمة من اليسار الى اليمين مع نموذج صمم على اساس ان يكون Top Level form حتى وان صممت القائمة على ذلك الاساس ( ويا ريت اذا في طريقة اخرى..دلوني عليها مع انه هذه الطريقة مش حاكية اشي)

#defi gwl_Exstyle -20

#defi ws_Ex_Layoutrtl 0x400000

#defi ws_Ex_Noinheritlayout 0x100000

declare integer GetWindowLong in user32.dll integer hwnd, integer nIndex

declare integer SetWindowLong in user32.dll integer hwnd, integer nIndex, integer dwNewLong

oldlong = GetWindowLong(this.hwnd, gwl_Exstyle)

SetWindowLong(this.hwnd,gwl_Exstyle, bitor(oldlong,ws_Ex_Layoutrtl,ws_Ex_Noinheritlayout))

ونضيف لاجراء الــ Init الامر التالي لاستدعاء الــ Menu التي ستصمم لاحقا

Do mnuMain.mpr With This,.T.

ونضيف لاجراء Unload الامر التالي فقط

Quit

خامسا: نضيف الــ Menu المرغوب بها للمشروع ونسميها mnuMain

ولا ننسى ان نختار ان تكون Top Level Menu من الـ General Option الخاصة بها من القائمة View وذلك لتثبيت انها ستستخدم مع شاشة رئيسية غير شاشة الفوكس برو

ونضيف لامر الخروج فيها الاجراء التالي للتأكد من عدم وجود أي نماذج اخرى مفتوحة خلافا للشاشة الرئيسية

 if _vfp.forms.count=1

			_vfp.activeform.release

endif

لو جربت تنفيذ البرنامج الان ستجد بأن لديك شاشة رئيسية وقائمة وآليه لاقفال البرنامج والخروج من الفوكس برو.

سادسا والأهم الــ Class

بالابتعاد عن التفسير المعتاد له

فببساطة فان هذا العنصر قد يكون كأي عنصر من عناصر الفوكس برو المتنوعة قد يكون Form أو Command Button أو label أو اجراء معين، أو Combo Box ..... والصورة التالية تعطيك فكرة عما قد يمثله

وتتجلى اهميته والفائدة منه في امكانية تثبيت خصائص معينة له واستخدامها في كل زاوية من زوايا البرنامج والعودة له في أي وقت

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

وطبعا هذه العناصر قد تكون عامة نستخدمها لكافة متطلبات البرنامج او خاصة لا نستخدمها الا لبرامج معينة، وقد تكون غاية في التعقيد أو غاية في البساطة، وكون ان الموضوع مختص بانشاء Project Template ستكون العناصر التي سنصممها عامة وبسيطة ،

وسنتعامل هنا مبدئيا مع Textbox

وقبل ان نبدأ وكون اننا اليوم نصمم برنامج واجهته عربية اللغة فقد نصمم غدا برنامجا ذو واجهة انجليزية، ونحن لا نريد ان نضيع وقتنا في تغيير هذا وذاك وتتبع كل خاصية لتغييرها، وللوصول لذلك قد نفكر في :

- انشاء العناصر الاساسية ضمن Class معينة سنطلق عليها اسم BaseClas

- انشاء عناصر للواجهة العربية مبينة على BaseClas وسنسميها ArbClas

- انشاء عناصر للواجهة الانجليزية مبينة على BaseClas وسنسميها EngClas

لنختر من المشروع أمر انشاء Class جديد مبني على الــ TextBox

على النحو التالي

طبعا Class Name تمثل الاسم الذي سنختاره للــ Class وهو هنا bc_txt

Based On تمثل نوعية الــ Class المراد انشاؤه وهو هنا Textbox

Store In تمثل اسم الــ Class Library التي سنحفظه فيها وهي هنا BaseClas

وفور ان نعطيه امر التخزين سوف تظهر لنا شاشة فيها Textbox ، لنغيير بعض خصائصها كما هو موضح الصورة ثم نحفظ التعديلات

الان سوف ننشئ Class مبينة على هذه الــ Class وذلك لتعديلها لتناسب الواجهة العربية

لنختر من المشروع أمر انشاءClass جديد مبني على الــ BaseClas\ bc_txt كما في الصورة، ونسمي الجديدة arTxt ونحفظها في ArbClas والتي ستظهر تلقائيا عند عملية الحفظ

غير فيها Alignment لتصبح 1 وغير خاصية RighttoLeft لتصبح .T. ثم احفظها

افتح النموذج frmMain للتعديل والان اعمل Drag and Drop لكل من bc_txt و arTxt

جرب البرنامج فسترى ان كل منهما قد اخذ خصائصه المحددة واشترك الاثنان في Select On Entry

هذه الــ Class على بساطتها توفر عليك عناء اختيار Select on Entry وعناء اختيار RighttoLeft وعناء تحديد Alignment في كل مرة تريد ان تستخدم فيها Textbox عربي الاستخدام

وتخيل انت الباقي لو صمت لنفسك مجموعة كاملة من الادوات التي تستخدمها بشكل يومي !!

وهذا الملف الذي تم تنفيذه MyProject.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

الله يعطيك العافيه اخي عبدالله .. وموضوعك محل اهتمام ... وكما قلت لك انت دائما عند حسن الظن والسباق في طرح المواضيع القيمة والتي تخص هذه اللغة

السلام عليكــم ورحمـة الله وبركاتــه ،،

مشكور اخي

a.jallad

معلوماتك كلها قيمة

بارك الله فيك

السلام عليكم ورحمة الله،

الاخوة AkramBrave و Hindoda

شكرا لكم على حسن ظنكم، والغاية ان تعم الفائدة ان شاء الله، واذا كان لكم أي استفسار فلا تترددوا

الان وكما انشأنا سابقا TextBox اسميناه bc_Txt في الــ BaseClas وبنينا عليه ar_Txt في ArClas

سننشأ بقية العناصر التي قد نحتاج لها :

دعونا هنا ننشأ مجموعة الــ BaseClas قبل كل شيء، وطبعا نستطيع تطبيق نفس الخطوات التي أنشأنا بها bc_text لانشاء كافة العناصر الاخرى

او ببساطة بامكاننا انشاءها مباشرة من خلال الــ Command Window على النحو التالي:

CREATE CLASS bc_Lbl OF BaseClas as "Label"

CREATE CLASS bc_Cmd OF baseclas as "CommandButton"

CREATE CLASS bc_Chk OF baseclas as "Checkbox"

CREATE CLASS bc_Opt OF baseclas as "OptionGroup"

CREATE CLASS bc_Cbo OF baseclas as "ComboBox"

CREATE CLASS bc_Cnt OF baseclas as "Container"

CREATE CLASS bc_Edt OF baseclas as "EditBox"

CREATE CLASS bc_Lst OF baseclas as "ListBox"

وسنكتفي بهذه العناصر الان،،

والان وبنفس الطريقة سننشأ عناصر ArClas ولكن مبينة على عناصر BaseClas

CREATE CLASS ar_Lbl OF arClas as bc_Lbl FROM BaseClas

CREATE CLASS ar_Cmd OF arClas as bc_Cmd FROM BaseClas

CREATE CLASS ar_Chk OF arClas as bc_Chk FROM BaseClas

CREATE CLASS ar_Opt OF arClas as bc_Opt FROM BaseClas

CREATE CLASS ar_Cbo OF arClas as bc_Cbo FROM BaseClas

CREATE CLASS ar_Cnt OF arClas as bc_Cnt FROM BaseClas

CREATE CLASS ar_Edt OF arClas as bc_Edt FROM BaseClas

CREATE CLASS ar_Lst OF arClas as bc_lst FROM BaseClas

الان لدينا المجموعتين بشكل كامل،،،

بعض الخصاص تكون عادة مشتركة ما بين الاصل والفرع

فمثلا نحن نريد ان يكون BackStyle لكل الــ Labels المستخدمة Transparent

فهنا نذهب للاصل وهو BaseClas\bc_Lbl ونغير هذه الخاصية فيه فتلقائيا تنعكس على الفرع في arClas\ar_Lbl وبالتالي على النماذج التي استخدمت فيه

وقد نود أن تظهر بعض الخصائص في الفرع فقط فهنا نتوجه مباشرة للفرع ونعدل عليه، وعلى سبيل المثال وبما أننا أنشأنا arClas لتخدمنا في النماذج العربية اللغة فهنا يفيدنا ان تكون المحاذاة من اليمين الى اليسار، فنعدل خاصية الـ Alignment في arClas\ar_Lbl لتصبح Right لتنعكس بالتالي على كافة النماذج المستخدمة فيها

وهذا ينطبق على كافة الخصائص والاجراءات، بالاضافة اننا نستطيع ان نضيف لكل عنصر رئيسي او فرعي خصائص واجراءات كما فعلنا بالنماذج

وهنا يتبقى علينا النموذج، فهو بالنهاية احد العناصر التي يمكن ان تستخدم كــ Class بل واهمها، خصوصا في حالة استحداث خصائص واجراءات مشتركة مثل اجراءات التنقل بين السجلات، الية حفظ البيانات، الية فتح واقفال الجداول المستخدمة، وحتى تنسيق النموذج من ناحية الالوان والمحتويات....

هذا وبعد انشاء النموذج وحفظه كــ Class يمكنكم جعله النموذج المعتمد عند انشاء نموذج جديد أي Standard Template

على النحو التالي:

• من القائمة نختار Tools>>Options>>
  
• ثم من شاشة الخيارات نختار Forms
  
• ستجدون فيه Template Classes
  
• نختار Form
  

والباقي كما في الصورة

• ثم Set As Default
  

ولاتمام بقيمة المعلومة فيما يتعلق بانشاء الــ Class فهناك طريقة ثالثة قد تكون عملية نوعا ما :

وهي وضع عنصر أو كافة العناصر المرغوب فيها في نموذج وتحديد خصائص هذه العناصر والقيام بالخطوات التالية لتخزينها ضمن Class library

• اختيار العنصر
  
• الذهاب للقائمة واختيار File >> Save As Class
  
• ثم اتمام العملية من ناحية خيارات الحفظ
  

ملاحظات اخيرة :

• لا تضع ابدا مسار الملف كاملا عند كتابة الكود وخصوصا فيما يتعلق بالجداول فمثلا لا داعي لان نكتب use c:\MyFolder\MyData\MyTable وبدلا من ذلك حدد مسارات المجلدات المستخدمة في الملف الابتدائي للبرنامج بواسطة Set Path فبواسطة الامر Set Path To c:\MyFolder, c:\MyFolder\ MyData نحدد مسارات العمل الافتراضية للفوكس برو مسبقا فبالتالي يكفي وضع الامر Use MyTable لاجراء اللازم وفتح الجدول سواء اكان موجودا في المجلد الرئيسي او الفرعي
  
• مع الـ Project Manager اعتقد اننا لسنا بحاجة للاكثار من المجلدات المستخدمة اثناء التصميم فهو كفيل بفرز الملفات المستخدمة بشكل واضح الا ان استدعى الامر غير ذلك
  
• للعلم ايضا يخزن الــ Project Manager بياناته في جدول عادي ويأخذ الامتداد Pjx، ففي حال وان تعرض هذه الجدول للتلف فلا تأثير له على الملفات، فكل ما عليك فعله هو انشاء مشروع جديد ووضع الملفات فيه.
  

مع التحية،،

السلام عليكم ورحمة الله وبركاته

ما شاء الله ، بارك الله لكم فى مجهودكم وزادكم علما

وعليكــم السـلام ورحمة الله وبركاتـه..

اهلا اخي عبدالمنعم وشكرا لك وهذا بعض ما عندكم

فقد أثريتم المنتدى بالكثير من المواضيع المفيدة في فترة لم أتمكن فيها من المشاركة لظروف عملي

متمنيا أن تسمح ظروفك وترجع وتشد حيلك بالمنتدى

مع التحية

السلام عليكــم ورحمـة الله وبركاتــه ،،

سلمك الله أخي أكرم ووفقك وجزاك أيضا كل الخير ان شاء

وان شاء الله قريبا سنتعمق في موضوع الــ Class أكثر

مع التحية

الف شكر للاخ العزيز على موضوع الكلاس الدي كلما تقرء عنه تجد نفسك في حاجة الى المزيد

سلمت اخي الكريم واهلا وسهلا بك بيننا....ولا تترد في طرح أي سؤال حول الموضوع

:thumb_up: شو هالحلاوة يا Shadows انا هلا وصلت للصفحة الرابعة من سلسلة بحثي في هذا المنتدى والله ان اوصي وبشدة بتثبيت هذا الموضوع وكذلك موضوع التقارير واذا كان فيك تتعمق في موضوع الكلاس يارييت لانه موضوع عن جد حلو كثير ولك مني +3 وانا بكل مشاركة امر فيها اشوف جهد متميز لا استطيع الا ان اقول الله يزيدك من علمو والله يعطيك العافية الف مرة

أهلا يا عصفور

الحمد لله انك وجدت ما يفيد بالموضوع وشكرا على التقدير

وان شاء الله بحاول اتوسع بالموضوع في أقرب وقت ممكن

واذا عندك أي سؤال لا تتردد

مع التحية

مشكووووووور اخي شبح

واريد ان اسال كيف اجعل الكود مخفي ضد برامج ريفوركس وما يشبهه وهل يوجد شبيه لهُ

help_asia كتب:

مشكووووووور اخي شبح

واريد ان اسال كيف اجعل الكود مخفي ضد برامج ريفوركس وما يشبهه وهل يوجد شبيه لهُ

العفو يا آسيا

وستجد ردي في موضوع الكراك

مع التحية

قمة الابداع اخي العزيز عبد الله بوركت

ما الذي تفعلة عندما تكون في قمة عطائك

الروعة والابداع والمسات السحرية

مع امنياتي لك بدوام الصحة و العافية

أهلا أخي علي ... كيفك وين هالغيبة ؟

الحمد لله أنك وجدت ما يفيد في الموضوع وشكرا على كلماتك الجميلة وهذا كله من ذوقك

مع التحية

مشكور اخي العزيز على الموضوع

تحياتي للاخ الكبير عبد الله الجلاد المبدع دائما اتمنى ان يكون بخير وسلامي لك لسلامك علينا

تحياتي للجميع

السلام عليكــم ورحمـة الله وبركاتــه 
 وفقك الله .. وجزاك الله عنا كل خير 

جزاك الله كل خير 

ابداع وتألق وبساطة وموضوع قمة الروعة والاهمية 

يعطيك الله كل عافية وصحة جيدة وزادك من علمه وزادك نفعا للناس 

العفو أخي الكريم

الله يعافيك  وسلمكم الله أجمعين