- باب النماذج Forms وفيه الكلاسس Classes

زادك الله علما أخى عبدالمنعم

نحن معك متابعون

جلال السوهاجى

السلام عليكم

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

فعلا باب OOP مهم جدا

وان شاء الله متابعين ومشاركين معك بس يا ريت يكون الموضوع متدرج خطوه خطوه حتى يستوعبه الجميع

شكرا للجميع ، وربنا يوفقنا جميعا :

الأخ المايسترو ذكر oop ولنعرفها ضمن المفاهيم المطلوبة . فأول شئ مطلوب فهمه فى أى أمر هو مفاهيمه :

هذه الحروف بداية ثلاث كلمات object حرف o ومعناها كائن و oriented حرف o ومعناها موجه ، أيضا p من كلمة programming

ومحصلة هذه الحروف : برمجة مبنية على كائنات أو برمجة كائنات أو برمجة موضوعة على كائنات .

وكائنات هنا objects هى form وbutton و و و و وهكذا

أيضا مفهوم آخر مطلوب : Event

ومعناه حادثة . وباختصار : الذى يحدث عندما .........

وعندما هنا متعددة بتعدد events التى فى قائمة properties عندما تنشئ form جديدة ومنها init و load وclick وهكذا .....

وهذه الـ events إما أن تكون أوامر منفردة أو كتل برمجية أو procedures أو functions

إذن هذه event تحدث عندما .....( click أو destroy أو mousemove وكثير مما تجده فى قائمة properties أيضا .

ويبقى :

ويبقى أمران :

1- أين يكون method التى ذكرناها من قبل ؟

الـ method هى عبارة عن procedure ولكن نضعه على أرضية الـ form نفسها وتنشئها عندما تنشئ الـ form من قائمة form ومنها new method وستنفتح نافذة بتسمية METHOD . بعد ذلك ستجدها ضمن قائمة properties

وفائدة هذا الـ method أنه يمكن استدعاؤه مرات متعددة مثلا من buttons أو من عدة كائنات على الـ form نفسها .

ولكن ضع فى حسبانك أن هذه الـ form فقط هى التى سترى وستعرف هذا الـ method أى أنه خاص بهذه الفورم فقط .

2- يجب أن نعلم فى أمر آخر events وهو أن هناك events تحدث تلقائيا عندما تستدعى الـ form وهى بالترتيب : الأولى load والثانيةinit والثالثة refresh

فإن أردت تمرير معاملات PARAMETERS للفورم ضع أمر استقبالها فى INIT EVENT

وتهيئة الأوضاع بالأمر SET ضعها إذن فى LOAD EVENT حيث سيتم تحميلها عند استدعاء الفورم

أما عندما تغلق الـ FORM فإن هناك أيضا EVENTS تحدث تلقائيا إن كان بها أوامر :

الـ EVENT الأول هو query unload والثاني unload و destroy

وعندما تنغلق الفورم يعود البرنامج لتنفيذ أول سطر بعد الأمر read events التى فى برنامجك وكان السطر الذى قبله do form

السلام عليكم

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

أتمنى ألا تيأس و تكمل هذا الباب و بالتوفيق للجميع

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

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

شكرا للأخ الكريم REBOUH على تشجيعه وأيضا الأخ مصطفى . وأتمنى أن يستفيد الجميع . اللهم علمنا ما جهلنا وانغعنا بما علمتنا .

كيفية عمل قائمة مختصرة لفورم ، وهذا مشترك بين باب القوائم وباب الفورم .

فى خواص properties كل الـ objects فى الفورم (إلا الـ button ) خاصية اسمها rightlClick وهذه event أى أنها تحدث عندما تنقر بزر الفأرة الشمال على الـ object الذى سوف تربطها به .

وبالمناسبة فإن هناك أمران أعتقد أنه لا بد من تبيينهما : الفرق بين object و event :

أولا من حيث الشكل : فالـ event فى الصندوق الخاص بالـ properties لها علامة صفراء

والـ methos لها علامة خضراء .

هذا من حيث الشكل ،

أما من حيث الجوهر فإن الـ event تحدث عندما كذا ، مثل موضوع كلامنا اليوم مثلا : rightlClick فهى تحدث عندما تنقر بزر الفأرة الشمال على object .

أما الـ method فهى لا تحدث إلا عندما تستدعيها بالطلب : مثلا refresh نقول لها thisform.refresh() .

وهناك بعض الحالات التى يكون لك بعض الأوامر التى تريد ربطها بعدة objects فإن كتبت عند كل واحد نفس الأوامر كانت عكعكة برمجية .

هنا يمكنك صنع method جديد ووضع أوامرك فيه واستدعاءه عند الحاجة مثلما تستدعى refresh كما ذكرنا .

كأن يكون لك method اسمه new_customer مثلا وتستدعيه هكذا :

thisform.new_customer()

نعود للـ event التى اسمها rightlClick : التى يمكن عندها كتابة أوامر تنفذ عندما تنقر بزر الفأرة الشمال على هذا الـ object المرتبطة به .

هذه قائمة مختصرة اربطها بأى object على سطح الـ form لتنفيذ functions أو procedures أو مجرد أوامر .

لاحظ الفرق بينها وبين أوامر القائمة الأصلية .

يمكن ربطها بعنوان أو حقل أو رسمة أو grid أو أرضية الـ form نفسها ، كل شئ كما قلت عدا button :

short.zip

الملف السابق : لا تظهر به القائمة حيث الماوس وتعمدت أن أتركه لكم للتجربة والاستفادة .

الملف التالى يظهر القائمة بجوار الماوس . ادرس واعرف الفرق واستفد بالأمر .

short.zip

col معناها column أى عمود - row صف ,

وهنا استعمال الدوال :
row() 
الصف الحالى ، 
أما
 mrow() 
أى الصف الذى به الماوس الآن
وهكذا
 col() 
العمود الحالى ، 
أما
 mcol() 
عمود الماوس الحالى

السلام عليكم

اللهم علمنا ما ينفعنا و زدنا علما

متابعين إن شاء الله

شــــــكرا شكــــرا على التواصل

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

السلام عليكم

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

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

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

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

الموضوع combobox

والسؤال هو عندما يقرأ من الcombo ويخزن فى الملف فإن الذى يتم تخزينه هو رقم الاختيار وليس الاختيار نفسه .

الحل :

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

أفضل طريقة للتعامل مع هذا النوع من الـ objects يكون بأحد حالتين فى الـ properties الخاصة به :

وهما إما fields أى يكون مصدر الcombo حقول ملفك ، أو array أى مصفوفة وهذا النوع الثانى أنا أفضله شخصيا .

فنأخذ أسهلهما وهو الـ array وإن كان الأمر يحتاج الأنواع الأخرى تناولناها .

المعلومة على طبق من فضة غير مثمرة لكن الذى يتلقاها عندما يبذل مجهودا فى صنعها تثبت فى ذهنه أكثر .

كنا قد تناولنا المفاهيم الأساسية للـmethod و property و event . والآن سنستخدم بعض منهم :

لنعمل array للـ combo ونربطه بها ونجعل الاختيار ليس رقم المعروض فى الـ combo ولكن اسم الاختيار .

الخطوات :

1- انشئى property جديدة واسمها مثلا

combo_array[1]

. كيف تنشئها ؟ من قائمة form وهى أول اختيار . سينفتح لك صندوق اكتب الاسم ثم add ثم close >

2- فى الـ form نفسها اختر load وهى event كما عرفنا .

وفيها يتم كتابة الأوامر التى تريد الـ form أن تحملها عند تحميل الـ form نفسها .

وفيها عرف الـ array : كالتالى :

Dimension this.combo_array[5] && عرف مصفوفة بعدد خمسة مثلا
with this
	 .combo_array[1] = 'company name 1'
	 .combo_array[2]= 'company name 2'
	 **   وهكذا مع العدد الذى تريد فى مصفوفتك من عناوين الشركات مثلا
endwith

3- فى نافذة properties وأنت تشير إلى الـ combo الذى صنعته غير الخصائص التالية :

rowsource = thisform.combo_array
rowsourcetype = array

وهكذا ربطنا بين الـ array والـ combo بحيث تصبح هى مصدر له .

4- الخطوة التالية تبقى لطلب أو الإشارة لأى عنصر فى المصفوفة وسيكون بالإسم طبقا لطريقة التعامل مع المصفوفات وإن شئتم جعلنا لها باب فالأمر فيها يطول الكلام فيه .

كيفية الإشارة لعنصر فى المصفوفة : يكون ذلك بالإشارة إلى الفورم نفسها أولا thisform ثم اسم المصفوفة ومعه رقم العنصر كالتالى :

فرضا عندك حقل text على ظهر الـform اسمه company_name وستجعل محتوى الـ combo يحل به :

company_name = thisform.combo_array[1]

أى اجعل محتواه يساوى محتوى الـcombo رقم 1

وهكذا الإشارة إلى باقى أو إلى جميع عناصر الـ combo

وأى خدمة ، وشكرا للأخ Rebouh على فتح هذاالموضوع الذى كنت أؤجله حتى ننتهى من السهل ونتدرج سويا .

أرجو تنفيذ الخطوات بالترتيب الذى ذكرت وأرجو المتابعة ، وشكرا

السلام عليكم

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

شــــكرا جــــزيلا و السلام عليكم و رحمة الله و بركاته

السلام عليكم

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

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

فعلا أخ Rebouh ، أنا أعتذر فعندما راجعت المشاركة وجدت سهوا منى ، فمعذرة مرة أخرى فراجعها رجاء وأعد التنفيذ وإن شاء الله تكون الأمور على ما يرام . وأنا رجعت للمشاركة وصلحتها .

للإنصاف السهو كان فى تعريف المصفوفة : الأولى فى new property واسمها فلم أضع رقم :

combo_array[1]

وأيضا عندما عرفنا المصفوفة فى load event هكذا :

Dimension this.combo_array[5]

أنت نفذ أحسن واعطنا مثال . وأنا معك خطوة بخطوة إن شاء الله

السلام عليكم

اخواني الاعزاء

اخونا ابوسلطان كلنا مفتقدينه واتمنى ان يكون المانع خيرا

آخر زياره له في المنتدى كانت

أخر زيارة : 14th April 2008 - 01:45 AM

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

السلام عليكم

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

شكرا جزيلا على التواصل

سامحني أخي الفاضل طريق السلامة إن شاء الله سالم غانم بحول الله

السلام عليكم

أخي الفاضل هي تعمل الآن و الحمد لله و إن سمحت لدي سؤال و هو إن كان الجدول موجود على سبيل المثال جدول الموظف و COMBOBOX به جدول الوظائف أي الجدول موجود فكيف العمل أو الربط بينهما بواسطة combobox أي عرض LIBELLE

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

أيضا لم أفهم السؤال جيدا والعيب منى فسامحونى . لكنى سأرتجل الإجابة ولتكن موضوع جديد .

كيفية جعل مصدر الكومبو حقول جدول :

الأمر بسيط كما فى المثال المرفق التالى . فقط انتبه أن يكون الجدول مفتوح للكومبو وأيضا انتبه إلى أن الـevent التى اسمها load هى أول ما يتم تحميله فى الفورم عند استدعائها فيمكنك فتح الجدول عن طريقها إن شئت .

rowsourcetype اجعلها fields - 6 و rowsource اسم الجدول ومنه الحقل : grade_1.emp_name

كيفية الإشارة إلى ما تختاره من الكومبو :

عندما تختاره بالماوس يمكنك التقاطه فى متغير وسترى ذلك فى المثال المرفق إن شاء الله .

form_combo.zip

وأتمنى أن أكون قد أصبت الإجابة

السلام عليكم

أخي الفاضل هذا المطلوب بالضبط بارك الله فيك

و شكرا جزيلا ، أتمنى أن تكمل في هذا الباب و نحن على خطاك نسير بحول الله

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

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

أخي الكريم / عبد المنعم محمد عبد الخالق

انا متابع لجميع الحوارات والشرح الذي ترد به في باب النماذج وبالفعل بقوم بعمل النماذج كما يتم الشرح بها بس لي بعض المساعدة منكم وانا متأكد انكم لم تبخلو في المساعدة بخصوص النماذج اقوم بعمل نموذج بحث باسم العميل ورقمه حتى يتثنى لي الوقت والسرعه في البحث مع عرضه في نفس النموذج الذي يتم الإدخال فيه وللأسف لم اتمكن من عمله كل اللي اريده منكم هو عمل نموذد به خانة نص وعدد 2 زر واحد للبحث باسم العميل والثاني للبحث برقم العمل ويعرض البيانات في النموذج الذي يتم الإدخال فيه

وفقكم الله في سبيل العلم والمعرفة وجزاكم الله عنه احسن الجزاء في الدنيا والأخرة

السلام عليكم

أخي الفاضل عبد المنعم هناك مشكلة و هي عدم فتح الفورم بسبب غياب CLASS.VCX

و شكرا جزيلا على كل المجهودات المبذولة

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

فعلا أخونا الكريم Rebouh هناك خطأ بشرى منى , وهذا موضوع أؤجله مؤقتا . وهو صنع Class خاص بك عندما تصنع فورم وتضع عليه Objects تكون خاضعة لهذا الفورم . وسوف يكون بداية موضوع إن شاء الله ونؤجله لصعوبته وطوله .

أما بالنسبة للتمهيد لهذا : فعندما تنشئ أى object تجد فى نافذة properties خصائصه التى منها class وBaseClass وClaaLibrary فافتح الفورم التى أرفقتها لحضراتكم واختر الكومبو وانظر إلى الثلاثة .

ولنتناولهم ببعض التفصيل البسيط :

Class وهو أساس تبنى عليه الـObjects الخاصة بك . وتستمد خصائصها من هذا الكلاس .

ClassLibrary وهو مكتبة تنشئها وتسميها وتكون منسوخة من الـ BaseClass وتعدل أنت الخصائص بالشكل الذى تريده .

BaseClass أى الكلاس الأصلى الذى ينتمى إليه الكلاس الخاص بهذا الـ Object

قارن بين هذه خصائص فى الفورم المرفقة فى المشاركة السابقة والخصائص فى الفورم التالية :

Combo_Again.zip

******************************************************************

وبالنسبة للأخ أحمد عامر :

من ضمن الـ Objects التى نتكلم عنها الـ Grid وهو عبارة عن جدول مؤقت يظهر به ما تريد .

والمطلوب كما تفضلت أن تعطى البحث من زر Button فيظهر فى الـ grid المطلوب أولا بأول .

ومن خصائصه التى تفيد فى هذا المطلوب : RecordSourceType أى مصدر البيانات له فلتجعله alias وهو اسم مؤقت لجدول ذاكرة

وفى مربع text : فى خاصية interactivechange وهى event أى تغير يتم نتيجة التفاعل الفورى ومعنى هذا أنه مع كل ضغطة مفتاح يتفاعل .

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

grid_Search.zip

السلام عليكم

انا نزلت الملفات بس للأسف لم تفتح واعطي لي الرساله دي وقد ارسلتها بس انا اطمع في شرح بسيط لكي اتعلم من علمكم

اتمنى لكم التوفيق

untitled1.bmp

untitled.bmp

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

نفس الخطأ . يقول الله عز وجل : ولو كان من عند غير الله لوجدوا فيه اختلافا كثيرا .

سوف أضع لك ملف vcx الذى تنسحب عليه كل الـ Objects التى أصنعها وأنسى وأضع منه لحضراتكم .

هذا الملف ضعه فى المسار الذى يظهر لك فى الرسالة وسوف تسير الأمور على ما يرام .

وأيضا من باب الاحتياط سوف أرفع لكم ملفات أخرى مبنية على الكلاس العام .

class.zip

وهاهو المثال مرة أخرة وسامحونى :

grid_Search.zip

أرجو أن تعرفونى أولا بأول فالحمد لله صار هناك نشاط بالمنتدى ، ولكن يفسده علينا غياب أخونا أبو سلطان فمن يعرف تليفون له أو عنوان أو بريد إلكترونى فليضعه مشكورا .

السلام عليكم

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

و نحن ننتظر منك الجديد دوما إن شاء الله و عودة ميمونة للأخ الكريم أبو سلطان

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

السلام عليكم

شكرا على المتابعة والإهتمام منكم هذه الطريقة الحمد لله تمت بالفعل بس كيفية البحث بالرقم حيث انني وضعت val بدل alltrim بس للأسف لم تعطي اي نتيجة ارجو الإفادة في الكود الصحيح

thisform.grd.RecordSource=''

SELECT emp_name,age,children,salary FROM grade_1 ;

WHERE val(age) = val(thisform.txt.Value);

order BY 1;

INTO CURSOR grd_tmp

thisform.grd.RecordSource='grd_tmp'