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

اضافة قيد جديد داخل grid مرتبط مع grid اخر

بدأه اياد العراقي في 6 يناير 2017 · 5 رد · 886 مشاهدة · في قواعد بيانات Visual FoxPro
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم  ...

لدي ملفين ...  الاول فيه معلومات عامة عن الموظف (الاسم ، الرقم ‘ الدورات ، الى غير ذلك من الامور ... ) والملف الثاني يحتوي على معلومات الدورات للموظف ( اسم الدورة ، تاريخها ، مكانها ) ويوجد ربط بين الملفين عن طريق key  مشترك بينهما  ..

وكل ملف تم عرضه على شكل grid بحيث عندما اتنقل في grid1 الخاص بمعلومات الموظف  يتغير تبعا لذلك grid2 الخاص بالدورات التي اخذها  كما هو موضح بالصورة ...

المشكلة التي تحدث معي انني عندما اريد اختار اي شخص من grid1 احتاج الى اضافة دورة جديدة له من خلال grid2 من خلال الكوماند (ادخال الدورات ) فهنا لا يفتح لي قيد جديد في grid2 وقد كتبت الايعاز التالي append blank داخل command  ولكن لا ينفع ؟

الفكرة ااني في الملف الرئيسي لدي عداد لعدد الدورات لكل موظف وفي الملف الثاني نضيف الدورات فقط .

ارجو المساعدة وقد بحثت في مواضيع المنتدى ولم اعثر على موضوع مشابه ؟

 

Capture.PNG

Capture.PNG

#2

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

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

Thisform.grid2.refresh
ly81f9038b6f.jpg

سقوط الإنسان ليس فشلاً، ولكن الفشل أن يبقى حيث سقط

#3

شكرا لمشاركتك اخي ...

هذه العبارة موجودة ونفس المشكلة ... الامر هو كيف يتم الاضافة في grid2 بحيث يفتح قيد جديد 

وهذه البرمجة التي كتبتها

 

SELECT course 
APPEND BLANK 
REPLACE C_SER WITH GRADUATE.SER 
thisform.grid2.SetFocus
 thisform.grid2.column1.text1.SetFocus 
 w_recno=C_SER
 CALCULATE COUNT(C_SER) FOR C_SER=GRADUATE.SER TO W_CNT 
*!*      MESSAGEBOX(w_recno)
LOCATE FOR GRADUATE.SER =w_recno
REPLACE GRADUATE.g_courseno WITH W_CNT
thisform.grid2.Refresh 
#5

يا ريت ترفع الملفات يكون افضل 

ly81f9038b6f.jpg

سقوط الإنسان ليس فشلاً، ولكن الفشل أن يبقى حيث سقط

#6

السلام عليكم

جرب التالي لاضافة حقل جديد لجدول الدورات 

m.lnc_ser=Graduate.Ser
INSERT INTO course (c_ser ) VALUES (m.lnc_ser)

أستغفر الله العظيم و أتوب إليه

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