دروس في شرح الاكواد

السلام عليكم

اخي الكريم رستم

هذا النموذج شارح نفسه وياريت الاخ احمد عامر يتفضل بشرح نصفه (ورطتك يا عم احمد :haha: )

السلام عليكم :wacko:

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

السلام عليكم

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

اولا : تم اسناد القيمه input للمتغير الاول والعلامة ' قبل وبعد الكلمه للدلاله على ان القيمه تحفظ كنص , وكذلك نفس الطريقه للمتغير الثاني

cMessageTitle='input'
cMessageText='Do you want save data'

ثانيا : تم اسناد قيم رقميه للمتغير nDialogType والقيمه هي حاصل جمع الـ 3 ارقام يعني 36

nDialogType=4+32+0

ثالثا : تم استخدام دالة الرسائل MessageBox وهذه الداله هي المسئوله عن عرض الرسائل وهذه الداله تستقبل مجموعه من المعاملات

اول معامل وهو eMessageText وهو خاص بنص الرساله التي ستظهر ( يستقبل قيم نصيه )

ثاني معامل وهو nDialogBox Type وهو خاص بشكل الرساله (يستقبل قيم رقميه) مثل الازرار التي ستظهر وايكونة الرساله

ثالث معامل وهو eMessageTitle وهو خاص بعنوان الرساله

واليكم صورة لتوضيح ذلك

ملحوظه :

يجب ان تضع قيمه للمعامل eMessageText على الاقل والباقي اختياري

اذا يمكن ان تكون الرساله هكذا

MessageBox('رساله بسيطه')

ويمكن ان اتحكم في باقي الرساله مثل عنوان الرساله وعدد الازرار وذلك باعطاء قيم للمعاملات السابقه

هنا في المثال

nAnswer=MessageBox(cMessageText,nDialogType,cMessageTitle)

تم اسناد قيم المعاملات من قيم المتغيرات

ومن الممكن ان تكون الرساله بالصيغه التاليه

nAnswer=MessageBox('Do you want save data',4+32+0,'input')

ما معنى القيمه المسنده الي المتغير nDialogType وهي 4+32+0 ؟

حتى نحدد نوع الرساله من حيث الازرار ونوع الرساله والزر الافتراضي كل هذا عن طريق اعطاء قيم حيث ان الرقم 4 يعني ان الرساله بها زرين yes and no والرقم 32 يعني ان الرساله من نوع استفهام

معنى هذا ان الداله يجب ان ترجع القيمه المقابله للزر الذي سيضغط على المستخدم فلو ضغط المستخدم على زر Yes ستقوم الداله بارجاع قيمه مقابله للاختيار , لذا تم اسناد القيمه المرجعه من الداله الي المتغير nAnswer ولكل زر في الرساله قيمه مقابله له فمثلا yes مقابلها الرقم 6 و No مقابلها 7 وهكذا واليكم صوره لتوضيح ذلك :

اذا بعد ان تظهر الرساله للمستخدم بهذا الشكل

ماذا يحدث اذا اختار المستخدم مثلا الزر No ؟

سترجع الداله القيمه 7 وتسندها للمتغير nAnswer

وبذلك استطيع برمجيا معرفة الزر الذي ضغط عليه المستخدم وكتابة الكود اللازم لتنفيذ مجموعة من الاوامر عن الضغطت على زر معين حيث نجد في السطر التالي جملة Do Case وذلك لعمل مجموعه من الحالات ففي الحالة الاولى Case nAnswer = 6 وهي تعني انه لو اختار المستخدم زر Yes سيقوم بتنفيذ الاوامر التاليه وفي حالة Case nAnswer = 7 وهي تعني انه لو اختار المستخدم زر No سيقوم بتنفيذ اوامر اخرى.

اتمنى ان تكون المعلومات سهلة وبسيطه

شكرا للأخ مصطفى

على الثقة إن شاء الله بكرة سوف ارد على عليكم حيث ان اليوم السبت بدايه الآسبوع

وده من بعض علمكم لنا

الأستاذ مصطفى تفصل وشرح لنا MessageBox شرح وافي ما شاء الله

1- SET DATE TO BRITISH وهو عن كيفية إظهار التاريخ بالصيغة التي تحب أن يكون في الفورم وله صيغ كثيرة

2- SET CENTURY ON / OFF وهو إظهار القرن في التاريخ

3- APPEND BLANK وهو كود خاص بعمليه إضافة سجل فارغ في نهاية الجدول حتى يتم فيه عمليه إحلال القيم التي يتم إضافتها في مربع النص في الفورم بعد عملية REPLACE كما في المثال المرفق

REPLACE NO WITH THISFORM.TEXT1.VALUE

أي يعني بعد كتابة المدخل " القيمة " في هذا TEXT اعمل إحلال في الحقل الخاص به في الجدول وهكذا في باقي مراحل الفورم .

مع الانتباه إلى الحقول الرقمية حيث يتم كتابة الدالة VAL حتى يتم التعامل معه على انه رقم وليس نص مثل

REPLACE NO WITH VAL(THISFORM.TEXT1.VALUE)

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

اما حقل التاريخ يكون كالتالي

REPLACE NO WITH CTOD (THISFORM.TEXT1.VALUE)

مع تعديل الخصائص لخانة النص في INPUTMASK الى

( 99/99/9999)

thisform.text1.value  =""

وهي عملية مسح القيم من خانة النص قبل وبعد عمليه الإدخال حيث أن علامة " " الفارغة هي لمسح جميع القيم الموجودة في خانه النص وليس لها علاقة بالقيم الموجودة بالجدول أو قاعدة البيانات

THISFORM.TEXT1.SETFOCUS وهو جعل التركيز على ال TEXT الموجود في الآمر يعني ان عند الضغط على زر الإضافة يكون مؤشر الكتابة في خانة النص المختارة

21.pdf

السلام عليكم

اخي احمد عامر انت طلعت استاذ :clapping: ( بسم الله ما شاء الله )

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

اتمنى لكم جميعا التوفيق ودام الصحة

:ty: :) شكراً لكم على هذا المجهود الرائع جداً

مع بالغ شكري واحترامي وتقديري الى كل جهد سوف يبذل

بصراحة فكرة الموضوع ممتازة

ربنا يوفقكم جميعا باذن الله

:cry: انتظر الاجابة على سؤالي منذ اسبوع لكن لم احظى باجابة

السلام عليكم

اخي الكريم اليك الخلاصه

اي كنترول نهايته

.Visible

يعني حالة الاداه من حيث ظاهر ام مخفي

.value

يعني القيمة الموجوده في الاداه

.setfocus

يعني اذهب الى هذه الاداه وقف عليها

:yes: :ty:

اتقدم اليكم راجي شرح الكود الذي يخص امر الادخال في النموذج اعلاه مع خالص الشكر :wacko:

:resentful: ارجو من الله ان يجيبني المشرفين والاعضاء على سؤالي :resentful:

:cry: لم يجبني احد

شكرا لكم على الشرح الوافي  

اتمنى ان يتم جمع هذه الشروحات في ملف واحد