السلام عليكم ورحمة الله وبركاته
لدي بعض المعلومات عسى ان تستفيد منها بشيء
الفوكس برو البصرية هي البيانات التي تركز على لغة البرمجة وجوه المنحى والإجرائية التي تنتجها مايكروسوفت. وهو مستمد من الفوكس برو (التي كانت تعرف أصلا فوكس باس) الذي تم تطويره من قبل بداية برنامج فوكس في عام 1984. اندمجت فوكس مع تقنيات مايكروسوفت في 1992، وبعد ذلك البرنامج اكتسب المزيد من الميزات والبادئة "البصرية". والفوكس بور البصرية 3.0، الأول "مرئي" الإصدار، وتخفيض الدعم على منصة مالك ويندوز فقط، وبعد ذلك نسخ ويندوز فقط : الإصدار الأخير من الفوكس برو (2.6) يعمل تحت نظام تشغيل ماكنتوش، دوس، ويندوز، ويونيكس. الإصدار الحالي من الفوكس برو البصرية كوم وشركة مايكروسوفت أعلنت أنها لا تنوي إنشاء نسخة مايكروسوفت دوت نت.
الفوكس برو نشأت بوصفها عضوا في فئة من اللغات يشار إلى اللغات "اكس باس"، والتي تقوم على بناء لغة الجملة البرمجة القديمه. أعضاء آخرون من عائلة اللغة اكس باس تشمل المقص والحيثيات. (ويمكن الاطلاع على التاريخ في السنوات الأولى من اكس باس في مقالة قديمه).
تتكامل الفوكس برو البصرية، يختصر عادة باسم في اف بهي، الخاصة بها مع مشغل قاعدة بيانات علائقية، والتي تمتد قدرات الفوكس برو اكس باس لدعم مزود الاستعلام ومعالجة البيانات. وخلافا لمعظم أنظمة إدارة قواعد البيانات، الفوكس برو البصرية هو كامل المواصفات، ولغة البرمجة الديناميكية التي لا تتطلب استخدام بيئة برمجة إضافية للأغراض العامة. ويمكن استخدامه لكتابة وليس فقط "الدهون العميل" التطبيقات التقليدية، ولكن أيضا الوسيطة والتطبيقات الشبكية.
وان آخر الاصدارات لهذه اللغة البرمجية هي الاصدار السادس والسابع والتاسع ، وان الاصدار الاكثر شيوعا هو الاصدار السابع .
مميزاته :
1- لغة برمجية قوية من حيث الكودات البرمجية .
2- الاشخاص الذين يستخدمون هذه اللغة البرمجية اقل عددا من الاشخاص الذين يستخدمون اللغات البرمجية الاخرى .
3- لها امكانية تكوين البرنامج التنفيذي ، اي انه عند اتمام البرنامج الذي قمنا ببرمجته ، سوف لن يكون بالضرورة ان نقوم بتنصيب اللغة البرمجية لكي يعمل البرنامج كما في الاكسس او اوراكل حيث يجب تنصيب اللغة البرمجية
في الحاسبة لكي يعمل البرنامج الذي قمنا ببرمجته مسبقا .
4- تمتلك واجهات جميلة جدا .
5- لها امكانية تكوين قواعد البيانات من ذاتها ليس كما في الفيجوال بيسك الذي نقوم فيه بتكوين قواعد البيانات والجداول بالاكسس والواجهات به .
اهم الاكواد البرمجية :
لنفترض ان اسم الجدول الرئيسي هو ( job_table ) ....
1- ايعاز الحدث Click الخاص بالزر ( اضافة قيد ) اضافة :
SELECT job_table
APPEND BLANK
thisform.mode="addedit"
thisform.Refresh
2- ايعاز الحدث Click الخاص بالزر (خزن) خزن :
SELECT job_table
TABLEUPDATE(.t.)
thisform.mode="null"
thisform.Refresh
3- ايعاز الحدث Click الخاص بالزر (الغاء) تراجع :
SELECT job_table
TABLEREVERT(.f.)
thisform.mode="null"
thisform.Refresh
4- ايعاز الحدث Click الخاص بالزر (حذف قيد) حذف :
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 الخاص بالزر (تعديل قيد) تحديث :
SELECT job_table
thisform.mode="addedit"
thisform.Refresh
6- ايعاز الحدث Click الخاص بالزر ( القيد السابق) القيد السابق :
SELECT job_table
IF !BOF() THEN
SKIP -1
ELSE
MESSAGEBOX("لا يوجد قيد سابق.. بداية الجدول ",0+16+256,"ملاحظة")
ENDIF
thisform.Refresh
7- ايعاز الحدث Click الخاص بالزر (القيد اللاحق) القيد اللاحق :
SELECT job_table
IF !EOF() THEN
SKIP 1
ELSE
MESSAGEBOX("لا يوجد قيد لاحق .. نهاية الجدول ",0+16+256,"ملاحظة")
ENDIF
thisform.Refresh
8- ايعاز الحدث Click الخاص بالزر ( القيد الاول) اول قيد :
SELECT job_table
GO TOP
thisform.Refresh
9- ايعاز الحدث Click الخاص بالزر ( القيد الاخير) آخر قيد :
SELECT job_table
GO BOTTOM
thisform.Refresh
10- ايعاز الحدث Click الخاص بالزر ( خروج مؤقت) خروج :
thisform.Release
11- خروج نهائي
clear events
quite
• عند التنفيذ ، اضغط على الزر الخاص بالاضافة ( اضافة قيد ) ، سوف تظهر لنا نافذة الخطأ
وهي تخبرنا بأن خاصية الـ ( 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
• والآن سنقوم بكتابة ايعاز الحدث 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
• قم الآن بتنفيذ البرنامج ......
هناك معلومات اكثر يمكنك السؤال وان شاء الله اقدم ما استطيع تقديمه ... مع تحياتي لك
موضوع: ساعدوني بليز عن الفوكس برو 
الجمعة أبريل 15, 2011 5:48 pm