الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعلم عمل المشاريع بواسطة الفيجيوال فوكس برو

مثبّترائج
بدأه VFPman في 7 مارس 2008 · 150 رد · 62,104 مشاهدة · في قواعد بيانات Visual FoxPro
مشاركة: واتساب X فيسبوك تيليجرام
#26

السلام عليكم

اخي الكريم ابو سلطان

اكمل اخي الكريم , متابعين معاك ان شاء الله

الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا ان هدانا الله

450x250_1.gif

طريقك لاحتراف برمجة قواعد البيانات باستخدام Visual FoxPro

#27
اقتباس
طيب لو كان مافيش حد معاية مش هاتكمل يا باشا ؟؟؟؟؟؟؟؟؟؟؟؟؟

لا مش قصدي هكمل برضه لكن للعلم بالشئ فقط

#28

الأخ العزيز ابو سلطان

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

#29
اقتباس
الأخ العزيز ابو سلطان

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

اهلا بك عزيزي الامام

نتمنى لك التوفيق في انجاز اعمالك ونتمنى عودتك للكتابة هنا

شكرا لك يا صديقي

#30

السلام عليكم

استاذي الفاضل ابو سلطان انا في انتظار المرحلة التالية من المشروع لاني متحمس جدا لاكماله للاخر . اتمني ان حضرتك تكلمه للاخر

#31

شكرا لاهتمامك عزيزي beshay

انا منتظر بقية الزملاء حتى ينجزوا البرنامج على راحتهم واذا كان هناك اي سؤال عن اي شئ غير مفهوم ، اليوم مساء راح تكون المرحلة الرابعة جاهزة إن شاء الله

............

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

وشكرا

#32

ممكن توضح الفروق اللي بين الاسماء دي

primary

regular

binary

condidate

وعلي اساس احنا بنختار اي وحدة فيهم

وشكرا

#33

سؤال جميل

هذه لتحديد عملية index في الجدول table

اولا : primary هو زي cadidate لكن الفرق هو ان الاول يحدد مرة واحد في الجدول بينما الثاني لا

والهدف منهم ان قيمة الحقل لا تتكرر

ثانيا : regural هذا مشاع او عادي

ثالثا : binary يعمل index حسب الـ valid (مش لاقيلها ترجمة بالعربي) ممكن نقول المقبولة او العبارات الغير منطقية

عموما انظر الى الصورة التالية راح تفهم القصد

post-140773-1205135598_thumb.jpg

للمزيد

http://msdn2.microsoft.com/en-us/library/f...shy(VS.80).aspx

#35

استاذي الفاضل

تم الانتهاء من المرحلة الرابعة ولكن بعد اذنك طبعا ضفت شيء بسيط هو

1 - عدت ترتيب الازرار بحيث بعد الانتهاء من كتابة السجل ينتقل الي زر الحفظ ومن بعده اضافة جديدة

2 - جعلت زر الاضافة غير فعال بمجرد الضغط عليه وبعد عملية الحفظ او الالغاء يعود الي وضعه الطبيعي

لو حضرتك طالب الالتزام بالخطوات يبقي انا متأسف

وفي وانتظار المرحلة التالية ...

foxpro4.rar

#36

مش لازم تطبق الخطوات بالضبط ، خذ راحتك بالشكل اللي يريحك.

اهم شئ فهم الفكرة البرمجية

#37

السلام عليكم

استاذي الفاضل انا شغوف للمرحلة التالية . هل من جديد اليوم ؟

#38

اليوم راح انتهي من المرحلة الخامسة

#39

معالش يا استاذي الفاضل ممكن حضرتك تشرح معني الكود ده

thisform.txtItem_no.SetFocus

وما فائدة كلمة

SetFocus

تم تعديل هذه المشاركة بواسطة beshay في 11 مارس 2008 في 10:21

#40

عزيزي هذا الامر اقصد به عندما اعمل كلك على Add New ضع المؤشر في التكست txtitem_no عشان تكتب بس ولا انت مش ناوي نكتب بيانات ؟؟ :D

جرب الحالتين وستلاحظ الفرق

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

#41

ماشاء الله

دي جديدة لانج بالنسبة لي

يا ريت لو حضرتك تعمل ملف تشرح فيه بعض الاوامر اللي زي كده

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

#42

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

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

#44

الف شكر ياباشا

#45

يا باشا كلمة شكر ليك شوية

بجد ربنا يكرمك علي مجهوداتك العظيمة اللي بتقدمها في هذا المنتدي والمنتديات الاخري

:clapping:

:clapping: :clapping:

:clapping: :clapping: :clapping:

:clapping: :clapping: :clapping: :clapping:

:clapping: :clapping: :clapping: :clapping: :clapping:

:clapping: :clapping: :clapping: :clapping: :clapping: :clapping:

تم تعديل هذه المشاركة بواسطة beshay في 11 مارس 2008 في 12:07

#46

تسلم يا عزيزي لقد اخجلتم تواضعي :pwease:

#47

:hmm:

#48

تعديل بسيط

في المرحلة الاولى الشريحة رقم 13 من 26

تغيير نوع حقل الكمية (qty) من حرفي الى رقمي

post-140773-1205281434_thumb.jpg

#49

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

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

يرجى العلم انه باقي مرحلة واحدة فقط (السادسة) وبعد ذلك يكون المشروع مكتمل

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

post-140773-1205289775_thumb.jpg

post-140773-1205289799_thumb.jpg

post-140773-1205289827_thumb.jpg

post-140773-1205289851_thumb.jpg

post-140773-1205289865_thumb.jpg

شكل البرنامج بالنهاية سيكون كالاتي

post-140773-1205289916_thumb.jpg

وشكرا لكم

Materials.rar

#50

السلام عليكم

استاذي الفاضل / ابو سلطان

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

MAINQTY = THISFORM.text3.VALUE

MOVEQTY = THISFORM.text5.VALUE

VITEME_NO = VAL(THISFORM.text1.VALUE)

IF THISFORM.optiongroup1.Value=1

INSERT INTO MOVETBL (ITEM_NO,PLACE_NAME,IN_OUT,QTY,MOVE_DATETIME,DONEBY) VALUES ;

(VAL(THISFORM.text1.Value),;

THISFORM.text4.Value,;

"I",;

THISFORM.text5.Value,;

DATETIME(),;

THISFORM.text6.Value)

UPDATE MATERIALTBL SET MATERIALTBL.QTY = MAINQTY + MOVEQTY;

WHERE MATERIALTBL .ITEM_NO = VITEMe_NO

THISFORM.text3.Value= MAINQTY + MOVEQTY

ENDIF

IF THISFORM.OPtiongroup1.Value=2

IF MOVEQTY <= MAINQTY

INSERT INTO MOVETBL (ITEM_NO,PLACE_NAME,IN_OUT,QTY,MOVE_DATETIME,DONEBY) VALUES ;

(VAL(THISFORM.text1.Value),;

THISFORM.text4.Value,;

"O",;

THISFORM.text5.Value,;

DATETIME(),;

THISFORM.text6.Value)

UPDATE MATERIALTBL SET MATERIALTBL.QTY = MAINQTY - MOVEQTY;

WHERE MATERIALTBL .ITEM_NO = VITEMe_NO

THISFORM.text3.Value= MAINQTY - MOVEQTY

ELSE MESSAGEBOX ("IT'S OVER")

ENDIF

ENDIF

THISFORM.command2.Enabled= .F.

THISFORM.text4.Enabled= .F.

THISFORM.text5.Enabled= .F.

THISFORM.text6.Enabled= .F.

THISFORM.optiongroup1.Enabled= .F.

THISFORM.text1.Value=""

THISFORM.text2.Value=""

THISFORM.text3.Value=0

thisform.Refresh

وشكرا لتعبك معاية يا استاذي الفاضل

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…